home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FFA.ZIP / VIDEO.SEQ < prev    next >
Encoding:
Text File  |  1988-01-06  |  2.3 KB  |  60 lines
  1. \ VIDEO.SEQ     Direct VIDEO Screen output              by Tom Zimmer
  2.  
  3. FILES DEFINITIONS
  4.  
  5. VARIABLE VIDEO.SEQ
  6.  
  7. FORTH DEFINITIONS
  8.  
  9. VARIABLE ATTRIB   7 ATTRIB !-T          \ display attribute value
  10. VARIABLE VIDEO-SEG                      \ Segment of display
  11. VARIABLE VTSEG          \ video type segment, the segment we are typing from.
  12.  
  13. CODE ?VMODE     ( --- N1 )
  14.                 MOV AH, # 15    INT 16          SUB AH, AH
  15.                 1PUSH           END-CODE
  16.  
  17. DEFER INITMONO  ' NOOP IS INITMONO      \ INITIALIZATION VECTOR AVAILABLE
  18. DEFER INITCOLOR ' NOOP IS INITCOLOR     \ FOR MONOCHROME AND COLOR
  19.  
  20. HEX
  21. : VMODE.SET     ( --- )
  22.                 ?VMODE 7 =
  23.                 IF      0B000   INITMONO
  24.                 ELSE    0B800   INITCOLOR
  25.                 THEN    VIDEO-SEG ! ;
  26. DECIMAL
  27.  
  28. CODE VTYPE      ( string length x y -- )
  29.                 POP AX          \ Y
  30.                 POP DX          \ X
  31.                 POP BX          \ LENGTH
  32.                 PUSH BX         \ Save them back again
  33.                 PUSH DX
  34.                 PUSH AX
  35.                 ADD DX, BX      \ Set length + X position to DL
  36.                 MOV DH, AL      \ Move Y to DH
  37.                 XOR BX, BX      \ Clear BX
  38.                 MOV AH, # 2
  39.                 INT 16          \ Move cursor to end of typed string
  40.                 MOV AX, # 160
  41.                 POP BX          MUL BX          MOV DI, AX
  42.                 POP AX          SHL AX, # 1     ADD DI, AX
  43.                 POP CX          POP BX
  44.                 XCHG SI, BX                     \ SI is the source
  45.                 PUSH BX                         \ Save SI for later restoral
  46.                 PUSH ES                         \ save ES
  47.                 MOV AH, ATTRIB                  \ display attributes
  48.                 MOV ES, VIDEO-SEG               \ destination segment
  49.                 MOV DS, VTSEG                   \ source segment
  50. LABEL VTYPE1    LODSB           STOSW           \ Move a byte to display
  51.            LOOP VTYPE1                          \ LOOP till CX is zero
  52.                 POP ES                          \ restore ES
  53.                 POP SI                          \ Restore IP
  54.                 MOV BX, CS      MOV DS, BX      \ restore DS
  55.                 NEXT            END-CODE
  56.  
  57. DECIMAL
  58.  
  59.  
  60.