home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / C128-XGR.LBR / C128-XGR.Z80 < prev   
Text File  |  1992-09-27  |  3KB  |  112 lines
  1. ; Z3TCAP file:  C128.Z80
  2. ; Author     :  Randy Winchester
  3. ; Date       :  9/20/92
  4. ;
  5. ; Z3 Termcap implementing C128 line graphics, underline, blink,
  6. ; and reverse video.  Labels CM:, RC:, and GE: changed to XCM:,
  7. ; XRC:, and XGE: to work with RMAC assembler.
  8. ;
  9. ESC    EQU    27        ; Escape character
  10. ;
  11. ; The first character in the terminal name must not be a space.  For
  12. ; Z3TCAP.TCP library purposes only, the name terminates with a space
  13. ; and must be unique in the first eight characters.
  14. ;
  15. TNAME:    DB    'C128-GRAPHICS'    ; Name of terminal (13 chars)
  16. ;
  17. GOFF:    DB    GOELD-TNAME    ; Graphics offset from Z3TCAP start
  18. ;
  19. ; Terminal configuration bytes B14 and B15 are defined and bits assigned
  20. ; as follows.  The remaining bits are not currently assigned.  Set these
  21. ; bits according to your terminal configuration.
  22. ;
  23. ;    B14 b7: Z3TCAP Type.... 0 = Standard TCAP  1 = Extended TCAP
  24. ;
  25. ;    bit:    76543210
  26. B14:    DB    10000000B    ; Configuration byte B14
  27. ;
  28. ;    B15 b0: Standout....... 0 = Half-Intensity 1 = Reverse Video
  29. ;    B15 b1: Power Up Delay. 0 = None           1 = Ten-second delay
  30. ;    B15 b2: No Auto Wrap... 0 = Auto Wrap      1 = No Auto Wrap
  31. ;    B15 b3: No Auto Scroll. 0 = Auto Scroll    1 = No Auto Scroll
  32. ;    B15 b4: ANSI........... 0 = ASCII          1 = ANSI
  33. ;
  34. ;    bit:    76543210
  35. B15:    DB    00000000B    ; Configuration byte B15
  36. ;
  37. ; Single character arrow keys or WordStar diamond
  38. ;
  39.     DB    'K'-40H        ; Cursor up
  40.     DB    'J'-40H        ; Cursor down
  41.     DB    'L'-40H        ; Cursor right
  42.     DB    'H'-40H        ; Cursor left
  43. ;
  44. ; Delays (in ms) after sending terminal control strings
  45. ;
  46.     DB    0        ; CL delay
  47.     DB    0        ; CM delay
  48.     DB    0        ; CE delay
  49. ;
  50. ; Strings start here
  51. ;
  52. CL:    DB    'Z'-40H,0       ; Home cursor and clear screen
  53. XCM:    DB    ESC,'=%+ %+ ',0 ; Cursor motion macro
  54. CE:    DB    ESC,'T',0       ; Erase from cursor to end-of-line
  55. SO:    DB    ESC,')',0       ; Start standout mode
  56. SE:    DB    ESC,'(',0       ; End standout mode
  57. TI:    DB    0               ; Terminal initialization
  58. TE:    DB    0               ; Terminal deinitialization
  59. ;
  60. ; Extensions to standard Z3TCAP
  61. ;
  62. LD:    DB    ESC,'R',0       ; Delete line at cursor position
  63. LI:    DB    ESC,'E',0       ; Insert line at cursor position
  64. CD:    DB    ESC,'Y',0       ; Erase from cursor to end-of-screen
  65. ;
  66. ; The attribute string contains the four command characters to set
  67. ; the following four attributes for this terminal in the following
  68. ; order:      Normal, Blink, Reverse, Underscore
  69. ;
  70. SA:    DB    ESC,'G%+0',0    ; Set screen attributes macro
  71. AT:    DB    '0243',0        ; Attribute string
  72. XRC:    DB    0               ; Read current cursor position
  73. RL:    DB    0               ; Read line until cursor
  74. ;
  75. ; Graphics TCAP area
  76. ;
  77. GOELD:    DB    0        ; Graphics On/Off delay in ms
  78. ;
  79. ; Graphics strings
  80. ;
  81. GO:    DB    ESC,'G1',0      ; Graphics mode On
  82. XGE:    DB    ESC,'G0',0      ; Graphics mode Off
  83. CDO:    DB    0               ; Cursor Off
  84. CDE:    DB    0               ; Cursor On
  85. ;
  86. ; Graphics characters
  87. ;
  88. GULC:    DB    'p'        ; Upper left corner
  89. GURC:    DB    'n'        ; Upper right corner
  90. GLLC:    DB    'm'        ; Lower left corner
  91. GLRC:    DB    '}'        ; Lower right corner
  92. GHL:    DB    'C'        ; Horizontal line
  93. GVL:    DB    'B'        ; Vertical line
  94. GFB:    DB    'b'        ; Full block
  95. GHB:    DB    'f'        ; Hashed block
  96. GUI:    DB    'r'        ; Upper intersect
  97. GLI:    DB    'q'        ; Lower intersect
  98. GIS:    DB    '['        ; Mid intersect
  99. GRTI:    DB    's'        ; Right intersect
  100. GLTI:    DB    'k'        ; Left intersect
  101. ;
  102. ;  Fill remaining space with zeros
  103. ;
  104.      REPT    128-($-TNAME)
  105.     DB    0
  106.      ENDM
  107.  
  108.     END
  109. ;
  110. ; End of Z3TCAP
  111. ;
  112.