home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / CRT6.ASM < prev    next >
Assembly Source File  |  1994-10-15  |  7KB  |  250 lines
  1.     page    66,132
  2. ;******************************** CRT6.ASM   *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. ;----------------------------------------------------------------------------
  13.     extrn    lib_info:byte
  14. comment 
  15. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  16. GET_ANSI_COLOR - get color attribute used by ANSI driver.
  17. ;
  18. ; inputs:    none
  19. ; output:    AH = color attribute
  20. ;* * * * * * * * * * * * * *
  21. 
  22.     public    get_ansi_color
  23. GET_ANSI_COLOR    PROC    FAR
  24.     APUSH   BP,BX,CX,DX
  25.     XOR     BH,BH
  26.     MOV     AH,03
  27.     INT     10h            ;get cursor position (dx) and size (cx)
  28.     PUSH    DX            ;save origional cursor position
  29.     CALL    read_cursor_at_0
  30.     PUSH    AX            ;save char. read using bios
  31. ;
  32. ; setup to write char. using dos call
  33. ;    
  34.     PUSH    DS            ;save our segment
  35.     MOV     AX,CS        ;set segment
  36.     MOV     DS,AX        ;  to -cs:-
  37.     MOV     BX,0001        ;select stdout
  38.     
  39.     CALL    GAC_1        ;put address on stack
  40. GAC_1:
  41.     POP     DX            ;set dx= offset l_21b2
  42.     MOV     CX,0001
  43.     MOV     AH,40h
  44.     INT     21h            ;write stdout(bx) 1 byte(cx) data at ds:dx
  45.     CALL    read_cursor_at_0
  46.     POP     DS            ;restore data segment
  47.     MOV     BP,AX        ;save char. read using dos
  48.     XOR     BH,BH
  49.     POP     AX            ;restore char. read using bios
  50.     MOV     BL,AH        ;move bios color to -> bl
  51.     MOV     AH,09
  52.     MOV     CX,0001
  53.     PUSH    BP            ;save char. read using dos
  54.     INT     10h            ;write char.(al) bl=bios color bh=page cx=repeat
  55.     POP     BP            ;restore char. read using dos
  56.     POP     DX            ;restore origional cursor position
  57.     MOV     AH,02        ;
  58.     PUSH    BP            ;save char. read using dos
  59.     INT     10h            ;restore origional cursor posn
  60. ;                first pop of -ax- restores char read using DOS
  61.     APOP    AX,DX,CX,BX,BP
  62.     RETF
  63. GET_ANSI_COLOR    ENDP
  64.  
  65. ;----------------------    
  66. ; read_cursor_at 0 - read character at cursor position
  67. ;  inputs: none
  68. ;  output: ax = character
  69. ;
  70. read_cursor_at_0:    
  71.     MOV     AH,02
  72.     XOR     DX,DX         ;set cursor address -> 0
  73.     XOR     BH,BH        ;select page 0
  74.     INT     10h            ;set cursor position from -dx- bh=page
  75.     MOV     AH,08
  76.     INT     10h            ;read character & color at cursor -> ax
  77.     RET
  78. comment 
  79. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  80. CURSOR_ - Move cursor and set size to standard underscore.
  81. ;
  82. ; inputs:    DH = row
  83. ;            DL = column
  84. ;            
  85. ; outputs:   register -ax- is modified
  86. ; 
  87. ;* * * * * * * * * * * * * *
  88. 
  89.     public    cursor_
  90. CURSOR_    PROC    FAR
  91.     mov    al,0
  92.     jmp    cursor_entry
  93. CURSOR_    ENDP
  94. comment 
  95. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  96. SHOW_CURSOR - move cursor to (row, col) and update cursor shape
  97. ;
  98. ; inputs:    DH = row offset from top of screen
  99. ;            DL = column offset from left side
  100. ;
  101. ; outputs:   register -ax- modified
  102. ;
  103. ; notes:     Cursor shape is underscore if INSERT is off, large block
  104. ;            if INSERT is on.
  105. ;* * * * * * * * * * * * * *
  106. 
  107.     public    SHOW_CURSOR
  108. SHOW_CURSOR    PROC    FAR
  109.      mov     al,80h
  110. cursor_entry:
  111.     pushf
  112.     APUSH   BP,BX,CX,DX,SI,ES
  113.     MOV     AH,0Fh
  114.     INT     10h            ;get video mode -> al=mode bh=page ah=pixels
  115.     MOV     AH,02
  116.     INT     10h            ;set cursor position -> -dx-
  117.     XOR     AH,AH
  118.  
  119.     mov     al,cs:lib_info.crt_rows
  120.     mov     bx,cs:lib_info.crt_seg
  121.  
  122.     mov     cx,0
  123.     mov     es,cx
  124.     MOV     CX,0507h
  125.     MOV     DX,WORD PTR ES:[0463h] ;get crt port address  mono=3b4 color=3d4
  126.     CMP     DX,03B4h        ;check if mono display
  127.     JNZ     c_color        ; jmp if color display
  128.     CMP     AL,1Dh        ;check if rows = 29
  129.     JGE     c_color        ; jmp if 29 rows or more
  130.     MOV     CX,0C0Dh
  131.     MOV     AL,2Ah
  132. c_color:
  133.     AND     BL,BYTE PTR ES:[0417h] ;
  134.     JZ      c_skip
  135.     SHR     CH,1
  136. c_skip:
  137.     CMP     AL,1Dh
  138.     JB      c_bios_set
  139.     CMP     AL,2Dh    ; '-'
  140.     JB      c_wrt_port
  141. c_bios_set:
  142.     MOV     AH,01
  143.     INT     10h            ;set text mode cursor size (cx)
  144.     JMP     c_exit
  145. c_wrt_port:
  146.     MOV     AL,0Ah
  147.     MOV     AH,CH
  148.     OUT     DX,AX
  149.     INC     AL
  150.     MOV     AH,CL
  151.     OUT     DX,AX
  152.     MOV     WORD PTR ES:[0460h],CX
  153. c_exit:
  154.     APOP    ES,SI,DX,CX,BX,BP
  155.     POPF
  156.     RETF
  157. SHOW_CURSOR    ENDP
  158. comment 
  159. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  160. HIDE_CURSOR - make hardware cursor invisible at present location
  161. ;
  162. ; inputs:    none
  163. ; outputs:   none
  164. ;
  165. ;* * * * * * * * * * * * * *
  166. 
  167.     public    HIDE_CURSOR
  168. HIDE_CURSOR    PROC    FAR
  169.     APUSH   AX,CX
  170.     MOV     CX,2020h
  171.     MOV     AH,01
  172.     PUSH    BP
  173.     INT     10h
  174.     POP     BP
  175.     APOP    CX,AX
  176.     RETF
  177. HIDE_CURSOR    ENDP
  178. comment 
  179. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  180. BLINK_ON:  enable blinking attriutes
  181. ;
  182. ; inputs: none
  183. ; output: none
  184. ;
  185. ; notes:  The opposite of blink is intenisified colors.  The normal default
  186. ;         is blink on.
  187. ;* * * * * * * * * * * * * *
  188. 
  189.     public    BLINK_ON
  190. BLINK_ON        PROC    FAR
  191.     PUSH    BX
  192.     MOV     BX,0001
  193.     JMP     blink_entry
  194. BLINK_ON ENDP
  195. comment 
  196. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( DISPLAY )
  197. BLINK_OFF:  disable blinking attriutes
  198. ;
  199. ; inputs: none
  200. ; output: none
  201. ;
  202. ; note: Blink off turns intensified color selection on.  The default at
  203. ;       boot time is blink on.
  204. ;* * * * * * * * * * * * * *
  205. 
  206.     public    BLINK_OFF
  207. BLINK_OFF    PROC    FAR
  208.     PUSH    BX
  209.     MOV     BX,0000
  210. blink_entry:
  211.     APUSH   AX,DX,ES
  212.     SUB     AX,AX
  213.     MOV     ES,AX
  214.     MOV     AL,BYTE PTR ES:[0487h]    ;get ega/vga control flag
  215.     OR      AL,AL
  216.     JNZ     ega_vga_blink            ;jmp if flag seems active
  217. ;
  218. ; program mono/cga controller directly
  219. ;     
  220.     MOV     DX,WORD PTR ES:[0463h]    ;get crt port address
  221.     ADD     DL,04
  222.     MOV     AL,BYTE PTR ES:[0465h]    ;current mode select register setting
  223.     OR      BX,BX            ;bx=0(BLINK_OFF)  bx=1(BLINK_ON)
  224.     JZ      cga_mono_boff        ;jmp if blink off request
  225.     OR      AL,20h
  226.     JMP     cga_mono_bon
  227. ;
  228. ; blink off
  229. ;    
  230. cga_mono_boff:
  231.     AND     AL,0DFH            ;disable blink bit
  232. cga_mono_bon:
  233.     OUT     DX,AL
  234.     MOV     BYTE PTR ES:[0465h],AL    ;set new mode select reg data
  235.     JMP     blink_exit
  236. ;
  237. ; ega/vga blink setting
  238. ;    
  239. ega_vga_blink:
  240.     MOV     AX,1003h
  241.     INT     10h                ;bx=0(BLINK_OFF)  bx=1(BLINK_ON)
  242. blink_exit:
  243.     APOP    ES,DX,AX
  244.     POP     BX
  245.     RETF
  246. BLINK_OFF    ENDP
  247.  
  248. LIBSEG    ENDS
  249.     end
  250.