home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / term / 950func.asm < prev    next >
Encoding:
Assembly Source File  |  1994-07-13  |  2.8 KB  |  145 lines
  1. ;
  2. ; Written by:
  3. ;                         Kirk De Haan
  4. ;                        2595 Flory Dr.
  5. ;                      San Jose,Ca.  95121
  6. ;
  7. ;
  8. ;
  9. ;
  10. ;
  11. ;
  12. ; 950FUNC.ASM - PROGRAMS THE FUNCTION KEYS ON TELEVIDEO EQUIPMENT,
  13. ;               INCLUDING THE FOLLOWING:
  14. ;
  15. ;                      TS-800A
  16. ;                      TS-802
  17. ;                      TS-802H
  18. ;                      ALL TERMINALS
  19. ;
  20. ;
  21. ; This program will load the function keys of any of the above 
  22. ; listed terminals and systems. All that is neccesary is to add
  23. ; the escape code that you desire. All escape codes listed in the
  24. ; user manuals will work with no problem. 
  25. ;
  26. ;                                 Kirk De Haan
  27. ;
  28. ;
  29. ;
  30. ; Equates
  31. ;
  32. BDOS    EQU    0005H    ;BDOS ENTRY
  33. PSTRING    EQU    09H    ;PRINT STRING
  34. ESC    EQU    1BH    ;ESCAPE
  35. CR    EQU    0DH    ;CARRIAGE RETURN
  36. LF    EQU    0AH    ;LINE FEED
  37. CNTLY    EQU    19H    ;^Y
  38. CNTLP    EQU    10H    ;^P
  39. CNTLC    EQU    03H    ;^C
  40. ;
  41. ;
  42.     ORG    0100H
  43. ;
  44. ;
  45. START    MVI    C,PSTRING
  46.     LXI    D,MSG
  47.     CALL    BDOS
  48.     RET
  49. ;
  50. ;
  51. ;
  52. MSG    EQU    $
  53. ;
  54. ;
  55. ; Insert your particular escape code here. Put it in the form
  56. ; of DB just as if you were inserting an actual message. This 
  57. ; data will be sent to the terminal the same as any ASCII string.
  58. ; The following is an example of the escape code sequence for
  59. ; loading the function keys.
  60. ;
  61. ;     DB    ESC,'|11TEST',CR,CNTLY
  62. ;
  63. ; This will program key F1 to print TEST (with carriage return) locally
  64. ; and to the system processor.
  65. ; Refer to your users manual for a complete list of codes. 
  66. ;
  67. ;
  68. ;                      ON SCREEN LABELS
  69. ;
  70. ;
  71. ; If you wish to incorporate labels for your function keys insert
  72. ; the 'labels' in place of XXXXX in the code below. This code will
  73. ; setup the user line and line 24. Line 24 will be locked out, 
  74. ; therefore it will reduce your terminal to 23 x 80. If you do not
  75. ; want the labels simply insert ';' in column 1.
  76. ;
  77. ;
  78. ;                          UNSHIFTED
  79. ;
  80. ;
  81.     DB    ESC,'f',ESC,'G4'
  82.     DB    ' '
  83.     DB    'XXXXX'    ;F1
  84.     DB    '  '
  85.     DB    'XXXXX'    ;F2
  86.     DB    '  '
  87.     DB    'XXXXX'    ;F3
  88.     DB    '  '
  89.     DB    'XXXXX'    ;F4
  90.     DB    '  '
  91.     DB    'XXXXX' ;F5
  92.     DB    '  '
  93.     DB    'XXXXX' ;F6
  94.     DB    '  '
  95.     DB    'XXXXX'    ;F7
  96.     DB    '  '
  97.     DB    'XXXXX' ;F8
  98.     DB    '  '
  99.     DB    'XXXXX' ;F9
  100.     DB    '  '
  101.     DB    'XXXXX' ;F10
  102.     DB    '  '
  103.     DB    'XXXXX'    ;F11
  104.     DB    CR
  105.     DB    ESC,'g'
  106. ;
  107. ;
  108. ;                           SHIFTED
  109. ;
  110. ;
  111.     DB    ESC,'=7 ',ESC,'G<'
  112.     DB    ' '
  113.     DB    'XXXXX' ;F1
  114.     DB    '  '
  115.     DB    'XXXXX' ;F2
  116.     DB    '  '
  117.     DB    'XXXXX'    ;F3
  118.     DB    '  '
  119.     DB    'XXXXX'    ;F4
  120.     DB    '  '
  121.     DB    'XXXXX'    ;F5
  122.     DB    '  '
  123.     DB    'XXXXX'    ;F6
  124.     DB    '  '
  125.     DB    'XXXXX'    ;F7
  126.     DB    '  '
  127.     DB    'XXXXX'    ;F8
  128.     DB    '  '
  129.     DB    'XXXXX'    ;F9
  130.     DB    '  '
  131.     DB    'XXXXX' ;F10
  132.     DB    '  '
  133.     DB    'XXXXX' ;F11
  134.     DB    ESC,'!1'
  135. ;
  136. ;
  137. ;
  138. ; The next bytes clear the screen of the garbage printed and
  139. ; indicate the end of the string. DO NOT REMOVE IT!!
  140. ;
  141.     DB    ESC,'*$'    
  142. ;
  143. ;
  144.     END    0100H
  145.