home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FFA.ZIP / QVIDEO.SEQ < prev    next >
Encoding:
Text File  |  1987-12-30  |  1.1 KB  |  42 lines
  1. \ QVIDEO.SEQ    Fast video routine LINKAGE.             by Tom Zimmer
  2.  
  3. DECIMAL
  4.  
  5.                 \ ARRAY OF SPACES FOR FAST SPACES OUTPUT
  6. CREATE QSPS     80 ALLOT
  7.        QSPS     80 BLANK
  8.  
  9. : QTYPE         ( A1 N1 --- )
  10.                 ?DUP
  11.                 IF      PRINTING @
  12.                         IF      (TYPE)
  13.                         ELSE    #OUT @ 2DUP + 79 MIN #OUT !
  14.                                 #LINE @ 24 MIN DUP #LINE ! VTYPE
  15.                         THEN
  16.                 ELSE    DROP
  17.                 THEN    ;
  18.  
  19. : QEMIT         ( C1 --- )
  20.                 SP@ 1 QTYPE DROP ;
  21.  
  22. : QSPACES       ( N1 --- )      \ FAST SPACE PRINTING TO SCREEN
  23.                 0 MAX 80 MIN QSPS SWAP QTYPE ;
  24.  
  25. ' QSPACES IS SRCSPACES
  26.  
  27. : QVINIT        ( --- )         \ Initialize the source segment
  28.                 ?CS: VTSEG !
  29.                 DEFERS SEGSET ;
  30.  
  31. ' QVINIT IS SEGSET
  32.  
  33. ?CS: VTSEG !                    \ Initialize VTSEG for immediate use.
  34.  
  35. : FAST          ( --- )
  36.                 ['] QTYPE     IS TYPE ;
  37.  
  38. : SLOW          ( --- )
  39.                 ['] (TYPE)    IS TYPE ;
  40.  
  41. FAST            \ Select the high speed video drivers.
  42.