home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / msr313src.zip / msuibm.asm < prev    next >
Assembly Source File  |  1993-07-12  |  76KB  |  2,100 lines
  1.     NAME    msuibm
  2. ; File MSUIBM.ASM 
  3.     include mssdef.h
  4. ;       Copyright (C) 1982,1993, Trustees of Columbia University in the
  5. ;       City of New York.  Permission is granted to any individual or
  6. ;       institution to use, copy, or redistribute this software as long as
  7. ;       it is not sold for profit and this copyright notice is retained.
  8. ; Keyboard translator, by Joe R. Doupnik, Dec 1986
  9. ;  with contributions from David L. Knoell.
  10. ; Edit history:
  11. ; 27 August 1992 version 3.13
  12. ; 6 Sept 1991 version 3.11
  13. ; Last edit 19 Feb 1993
  14. ; 19 Feb 1993 Add volitle data swapping for Telnet sessions
  15. ; 1 July 1991 Add NumLock toggle from Ron Whittern.
  16. ; 7 Oct 1989 Add support for DEC LK250 keyboards, from Terry Kennedy.
  17. ; 2 August 1989 Allow verbs in definition strings [jrd]
  18. ; 21 Nov 1988 Version 2.32
  19. ; 12 Nov 1988 Add verbs terminalr and terminals, unassigned to keys.
  20. ; 1 July 1988 Version 2.31
  21. ; 20 May 1988 Add parser confirm requests below dfky13. [jrd]
  22. ; 10 March 1988 Add Holdscreen verb, holdscrn, for Terry Kennedy. [jrd]
  23. ; 27 Feb 1988 Add capability of stdin being a file rather than device. [jrd]
  24. ; 1 Jan 1988 version 2.30
  25.  
  26.     public    keybd, dfkey, shkey, msuinit, kbcodes
  27.     public    kbsusp, kbrest, kbhold        ;** LK250 support for IBM-PCs
  28.     public    saveuoff, saveulen
  29.  
  30. ; some definitions
  31. kbint    equ    16h            ; IBM, Bios keyboard interrupt
  32. shift    equ    200h            ; IBM, synonym for right or left shift
  33. control    equ    400h            ; IBM, synonym for control shift
  34. alt    equ    800h            ; IBM, synonym for alt shift
  35. enhanced equ    1000h            ; IBM, enhanced keyboard code
  36.  
  37. rgt_shift equ    1            ; IBM shift state bits
  38. lft_shift equ    2
  39. ctl_shift equ    4
  40. alt_shift equ    8
  41. numlock      equ    20h
  42.  
  43. maxkeys    equ    200            ; maximum number of key definitions
  44. maxstng    equ    128            ; maximum number of multi-char strings
  45. stbuflen equ    1100            ; length of string buffer (bytes)
  46.  
  47. verb    equ    8000h            ; dirlist flag: use verb action table
  48. strng    equ    4000h            ; dirlist flag: use string action table
  49. scan    equ    100h            ; keycode flag: code is scan not ascii
  50. braceop    equ    7bh            ; opening curly brace
  51. bracecl    equ    7dh            ; closing curly brace
  52.  
  53. data    segment
  54.     extrn taklev:byte, comand:byte, flags:byte, keyboard:word
  55.     extrn shkadr:word, stkadr:word, trans:byte, ttyact:byte
  56.                         ; system dependent references
  57.     extrn vtemu:byte, holdscr:byte        ; emulator data
  58.     extrn vtmacname:word, vtmaclen:word    ; external macro, in msyibm
  59.     
  60. ;;;    System Independent local storage
  61.  
  62. crlf    db    cr,lf,'$'
  63. dfhelp1    db    cr,lf,' Enter key',27h,'s identification as a character',cr,lf
  64.     db    '  or as its numerical equivalent \{b##} of ascii',cr,lf
  65.     db    '  or as its scan code \{b##}'
  66.     db    cr,lf,'  or as SCAN followed by its scan code',cr,lf
  67.     db    '    where b is O for octal, X for hex, or D for decimal'
  68.     db    ' (default).',cr,lf,'    Braces {} are optional.'
  69.     db    cr,lf,'    Follow the identification with the new definition.'
  70.     db    cr,lf,' or CLEAR to restore initial key settings'
  71.     db    cr,lf,' or ON (default) for Bios i/o or OFF to use DOS i/o'
  72.     db    cr,lf,' or LK to use the DEC LK250 keyboard.$' ;IBM
  73. dfaskky    db    cr,lf,' Push key to be defined: $'
  74. dfaskdf    db    ' Enter new definition: ',0        ; asciiz for prompt
  75. verbbad    db    cr,lf,' No such verb',cr,lf,'$'
  76. strbad    db    cr,lf,' Not enough space for new string',cr,lf,'$'
  77. keyfull    db    cr,lf,' No more space to define keys',cr,lf,'$'
  78. dfkoops    db    cr,lf,' Oops! That is Kermit',27h,'s Escape Char.'
  79.     db    ' Translation is not permitted.',cr,lf,'$'
  80. shkmsg1    db    cr,lf,'Push key to be shown (? shows all): $'
  81. shkmsg2    db    ' decimal is defined as',cr,lf,'$'
  82. shkmsg3    db    cr,lf,'... more, press a key to continue ...$'
  83. kwarnmsg db    cr,lf,' Notice: this form of Set Key is obsolete$'
  84.  
  85. ascmsg    db    ' Ascii char: $'
  86. scanmsg    db    ' Scan Code $'
  87. strngmsg db    ' String: $'
  88. verbmsg    db    ' Verb: $'
  89. noxmsg    db    ' Self, no translation.$'
  90. fremsg    db    cr,lf,' Free space: $'
  91. kyfrdef    db    ' key and $'
  92. stfrdef db    ' string definitions, $'
  93. stfrspc    db    ' string characters.',cr,lf,'$'
  94.     even
  95.  
  96. saveuoff label    word            ; per session save area start
  97. tranbuf    db    132 dup (?)        ; 132 byte translator work buffer
  98.                     ; translation tables
  99. keylist    dw    maxkeys dup (0)        ; 16 bit keycodes, paralled by dirlist
  100. dirlist    dw    maxkeys dup (0)        ; director {v+s} + {index | new char}
  101. sptable    dw    maxstng dup (0)        ; list of asciiz string offsets
  102. stbuf    dw    stbuflen dup (0)    ; buffer for strings
  103. strmax    dw    stbuf            ; first free byte in stbuf
  104. stringcnt dw    0            ; qty of string chars to be processed
  105. stringptr dw    0            ; address of next string char
  106. nkeys    dw    0            ; number of actively defined keys
  107. listptr    dw    0            ; item number for keylist and dirlist
  108. keycode    dw    0            ; ascii/scan code for key
  109. kbtemp    dw    0            ; scratch storage for translator
  110. brace    db    0            ; brace detected flag byte
  111. msutake    db    0            ; if being run from take file or not
  112. verblen    dw    0            ; length of user's verb (work temp)
  113. kwcnt    dw    0            ; number of keywords (work temp)
  114. dosflg    db    0
  115. saveulen dw    ($ - saveuoff)        ; save area end
  116.  
  117. oldform    db    0            ; old form Set Key, if non-zero
  118. twelve    dw    12d
  119. ;;;    End System Independent Data Area
  120.  
  121. ;;;    System Dependent Data Area
  122. ;    edit dfhelp2 to include nice list of verbs for this system.
  123. dfhelp2 db    cr,lf,' Enter either  \Kverb  for a Kermit action verb',cr,lf
  124.     db    ' or a replacement string  (single byte binary numbers are'
  125.     db    ' \{b##})',cr,lf,' or push Return to undefine a key, ^C to'
  126.     db    ' retain current definition.'
  127.     db    cr,lf,' Braces {} are optional, and strings maybe enclosed in'
  128.     db    ' them.',cr,lf,' Strings may not begin with the character'
  129.     db    ' combinations of  \k  or  \{k',cr,lf
  130.     db    '    (start with a { brace instead).',cr,lf,lf
  131.     db    ' Verbs are as follows. Keys (arrows and keypad):',cr,lf
  132.     db   '   uparr, dnarr, lfarr, rtarr, kpminus, kpcoma, kpdot, kpenter,'
  133.     db    cr,lf
  134.     db   '   Gold (same as PF1), PF1, PF2, PF3, PF4, kp0, ... kp9'
  135.     db    cr,lf,'   decFind, decInsert, decRemove, decSelect, decPrev,'
  136.     db    ' decNext'
  137.     db    cr,lf,'   User Definable Keys decF6, ...decF14, decHelp,'
  138.     db    ' decDO, decF17, ...decF20'
  139.     db    cr,lf,'   Compose (same as dgSPCL)'
  140.     db    cr,lf,'   Data General dgC1, dgC2, dgC3, dgC4, dgF1, ...dgF15'
  141.     db   ', dgPoint, dgSPCL, dgNC'
  142.     db    cr,lf,' Kermit screen control and actions:',cr,lf
  143.     db   '   upscn, dnscn, homscn, endscn, upone, dnone (vertical '
  144.     db    'scrolling),'
  145.     db    cr,lf
  146.     db   '   lfpage, lfone, rtpage, rtone (horizontal scrolling)'
  147.     db    cr,lf
  148.     db   '   logoff, logon, termtype, reset, holdscrn, modeline, break,'
  149.     db    cr,lf
  150.     db   '   lbreak, nethold, nextsession, prtscn, dump, hangup, null'
  151.     db   ' (send one),'
  152.     db    cr,lf
  153.     db   '   DOS, help, ignore, status, exit'
  154.     db    cr,lf,'$'
  155.  
  156.     ; Aliaskey: keys having aliases - same ascii code but more than one
  157.     ; scan code, as on auxillary keypads. Use just scan codes with these.
  158.     ; Alternative use: force ascii keys to report out just scan codes.
  159.     ; Table format: high byte = scan code, low byte = ascii code. 
  160.     ; Contents are machine dependent.
  161. aliaskey dw    (14*scan)+bs        ; Backspace key [hi=scan, lo=ascii]
  162.     dw    (55*scan)+'*'        ; keypad asterisk
  163.     dw    (74*scan)+'-'        ; keypad minus
  164.     dw    (78*scan)+'+'        ; keypad plus
  165.     dw    (71*scan)+'7'        ; keypad numeric area
  166.     dw    (72*scan)+'8'
  167.     dw    (73*scan)+'9'
  168.     dw    (75*scan)+'4'
  169.     dw    (76*scan)+'5'
  170.     dw    (77*scan)+'6'
  171.     dw    (79*scan)+'1'
  172.     dw    (80*scan)+'2'
  173.     dw    (81*scan)+'3'
  174.     dw    (82*scan)+'0'
  175.     dw    (83*scan)+'.'
  176.     dw    (83*scan)+','        ; German keypad had comma vs dot
  177.     dw    (15*scan)+tab
  178.     dw    (28*scan)+cr        ; typewriter Enter key
  179.     dw    (57*scan)+' '        ; space bar
  180. aliaslen equ    ($-aliaskey) shr 1    ; number of words in aliaskey table
  181.  
  182. kverbs    db    97            ; number of table entries below
  183.     mkeyw    'uparr',uparrw        ; independent of ordering and case!
  184.     mkeyw    'dnarr',dnarrw        ; mkeyw 'name',procedure entry point
  185.     mkeyw    'lfarr',lfarr
  186.     mkeyw    'rtarr',rtarr
  187.     mkeyw    'Gold',pf1
  188.     mkeyw    'PF1',pf1
  189.     mkeyw    'PF2',pf2
  190.     mkeyw    'PF3',pf3
  191.     mkeyw    'PF4',pf4
  192.     mkeyw    'KP0',kp0
  193.     mkeyw    'KP1',kp1
  194.     mkeyw    'KP2',kp2
  195.     mkeyw    'KP3',kp3
  196.     mkeyw    'KP4',kp4
  197.     mkeyw    'KP5',kp5
  198.     mkeyw    'KP6',kp6
  199.     mkeyw    'KP7',kp7
  200.     mkeyw    'KP8',kp8
  201.     mkeyw    'KP9',kp9
  202.     mkeyw    'kpminus',kpminus
  203.     mkeyw    'kpcoma',kpcoma
  204.     mkeyw    'kpenter',kpenter
  205.     mkeyw    'kpdot',kpdot
  206.     mkeyw    'decF6',decf6
  207.     mkeyw    'decF7',decf7
  208.     mkeyw    'decF8',decf8
  209.     mkeyw    'decF9',decf9
  210.     mkeyw    'decF10',decf10
  211.     mkeyw    'decF11',decf11
  212.     mkeyw    'decF12',decf12
  213.     mkeyw    'decF13',decf13
  214.     mkeyw    'decF14',decf14
  215.     mkeyw    'decHelp',dechelp
  216.     mkeyw    'decDo',decdo
  217.     mkeyw    'decF17',decf17
  218.     mkeyw    'decF18',decf18
  219.     mkeyw    'decF19',decf19
  220.     mkeyw    'decF20',decf20
  221.     mkeyw    'decFind',decfind
  222.     mkeyw    'decInsert',decinsert
  223.     mkeyw    'decRemove',decremove
  224.     mkeyw    'decSelect',decselect
  225.     mkeyw    'decPrev',decprev
  226.     mkeyw    'decNext',decnext
  227.     mkeyw    'Compose',kbdcompose
  228.     mkeyw    'termtype',vtans52
  229.     mkeyw    'reset',vtinit
  230.     mkeyw    'holdscrn',khold
  231.     mkeyw    'dnscn',dnwpg
  232.     mkeyw    'upscn',upwpg
  233.     mkeyw    'endscn',endwnd
  234.     mkeyw    'homscn',homwnd
  235.     mkeyw    'upone',upone
  236.     mkeyw    'dnone',dnone
  237.     mkeyw    'prtscn',trnprs
  238.     mkeyw    'dump',dmpscn
  239.     mkeyw    'modeline',trnmod
  240.     mkeyw    'break',sendbr
  241.     mkeyw    'lbreak',sendbl
  242.     mkeyw    'hangup',chang
  243.     mkeyw    'nethold',ubhold
  244.     mkeyw    'nextsession',nextses
  245.     mkeyw    'null',snull
  246.     mkeyw    'logon',klogon
  247.     mkeyw    'logoff',klogof
  248.     mkeyw    'DOS',cdos
  249.     mkeyw    'help',cquery
  250.     mkeyw    'status',cstatus
  251.     mkeyw    'exit',cquit
  252.     mkeyw    'lfpage',lfpage
  253.     mkeyw    'rtpage',rtpage
  254.     mkeyw    'lfone',lfone
  255.     mkeyw    'rtone',rtone
  256.     mkeyw    'dgC1',dgkc1
  257.     mkeyw    'dgC2',dgkc2
  258.     mkeyw    'dgC3',dgkc3
  259.     mkeyw    'dgC4',dgkc4
  260.     mkeyw    'dgF1',dgkf1
  261.     mkeyw    'dgF2',dgkf2
  262.     mkeyw    'dgF3',dgkf3
  263.     mkeyw    'dgF4',dgkf4
  264.     mkeyw    'dgF5',dgkf5
  265.     mkeyw    'dgF6',dgkf6
  266.     mkeyw    'dgF7',dgkf7
  267.     mkeyw    'dgF8',dgkf8
  268.     mkeyw    'dgF9',dgkf9
  269.     mkeyw    'dgF10',dgkf10
  270.     mkeyw    'dgF11',dgkf11
  271.     mkeyw    'dgF12',dgkf12
  272.     mkeyw    'dgF13',dgkf13
  273.     mkeyw    'dgF14',dgkf14
  274.     mkeyw    'dgF15',dgkf15
  275.     mkeyw    'dgspcl',kbdcompose
  276.     mkeyw    'dgpoint',dgpoint
  277.     mkeyw    'dgnc',dgnckey
  278.     mkeyw    'ignore',ignore_key
  279.                     ; Initialization data.
  280. kbdinlst equ    this byte     ; Kermit IBM initialization time keyboard setup
  281.     mkeyw    '\kgold',scan+59    ; F1    mkeyw 'definition',keycode
  282.     mkeyw    '\kpf2',scan+60        ; F2
  283.     mkeyw    '\kpf3',scan+61        ; F3
  284.     mkeyw    '\kpf4',scan+62        ; F4
  285.     mkeyw    '\kkp0',scan+shift+90    ; VT100 keypad numeric area, SF7
  286.     mkeyw    '\kkp1',scan+shift+86    ; SF3
  287.     mkeyw    '\kkp2',scan+shift+87    ; SF4
  288.     mkeyw    '\kkp3',scan+shift+88    ; SF5
  289.     mkeyw    '\kkp4',scan+67        ; F9
  290.     mkeyw    '\kkp5',scan+68        ; F10
  291.     mkeyw    '\kkp6',scan+shift+84    ; SF1
  292.     mkeyw    '\kkp7',scan+63        ; F5
  293.     mkeyw    '\kkp8',scan+64        ; F6
  294.     mkeyw    '\kkp9',scan+65        ; F7
  295.     mkeyw    '\kkpenter',scan+shift+89 ; SF6
  296.     mkeyw    '\kkpcoma',scan+shift+85  ; SF2
  297.     mkeyw    '\kkpminus',scan+66    ; F8
  298.     mkeyw    '\kkpdot',scan+shift+91    ; SF8
  299.     mkeyw    '\kuparr',scan+72    ; VT100 cursor keys (arrows)
  300.     mkeyw    '\kdnarr',scan+80
  301.     mkeyw    '\klfarr',scan+75
  302.     mkeyw    '\krtarr',scan+77
  303.     mkeyw    '\kupscn',scan+73    ; PgUp  Kermit screen roll back keys
  304.     mkeyw    '\kdnscn',scan+81    ; PgDn
  305.     mkeyw    '\khomscn',scan+71    ; Home
  306.     mkeyw    '\kendscn',scan+79    ; End
  307.     mkeyw    '\kupone',scan+control+132 ; Ctrl PgUp    one line scrolls
  308.     mkeyw    '\kdnone',scan+control+118 ; Ctrl PgDn
  309.     mkeyw    '\kuparr',scan+enhanced+72 ; Enhanced kbd duplicate keys
  310.     mkeyw    '\kdnarr',scan+enhanced+80
  311.     mkeyw    '\klfarr',scan+enhanced+75
  312.     mkeyw    '\krtarr',scan+enhanced+77
  313.     mkeyw    '\kupscn',scan+enhanced+73 ; PgUp Kermit screen roll back keys
  314.     mkeyw    '\kdnscn',scan+enhanced+81 ; PgDn
  315.     mkeyw    '\khomscn',scan+enhanced+71 ; Home
  316.     mkeyw    '\kendscn',scan+enhanced+79    ; End
  317.     mkeyw    '\kupone',scan+control+enhanced+132 ;Ctrl PgUp one line scroll
  318.     mkeyw    '\kdnone',scan+control+enhanced+118 ; Ctrl PgDn
  319.     mkeyw    '\kmodeline',scan+74    ; Kermit toggle mode line  Keypad -
  320.     mkeyw    '\ktermtype',scan+alt+130 ; Kermit toggle terminal type  Alt -
  321.     mkeyw    '\kreset',scan+alt+131    ; Kermit reset terminal  Alt =
  322.     mkeyw    '\kprtscn',scan+control+114 ; Kermit toggle prn scrn  Ctrl *
  323.     mkeyw    '\kdump',scan+control+117 ; Kermit Dump Screen  Ctrl End
  324.     mkeyw    '*',scan+55        ; keypad asterisk
  325.     mkeyw    '*',scan+enhanced+55    ; Enhanced kbd keypad asterisk
  326.     mkeyw    '+',scan+78        ; keypad plus
  327.     mkeyw    '.',scan+shift+83    ; IBM numeric keypad
  328.     mkeyw    '0',scan+shift+82
  329.     mkeyw    '1',scan+shift+79
  330.     mkeyw    '2',scan+shift+80
  331.     mkeyw    '3',scan+shift+81
  332.     mkeyw    '4',scan+shift+75
  333.     mkeyw    '5',scan+shift+76
  334.     mkeyw    '6',scan+shift+77
  335.     mkeyw    '7',scan+shift+71
  336.     mkeyw    '8',scan+shift+72
  337.     mkeyw    '9',scan+shift+73
  338.     mkeyw    ' ',scan+57        ; space bar yields space
  339.     mkeyw    ' ',scan+shift+57    ; Shift + space bar
  340.     mkeyw    '\0',scan+control+57    ; Control-space bar yields nul
  341.     mkeyw    '\0',scan+control+shift+57; Shift Control-space bar
  342.     mkeyw    tab,scan+15        ; regular Tab key, made special
  343.     mkeyw    cr,scan+28        ; typewriter Enter key
  344.     mkeyw    cr,scan+enhanced+cr    ; Enhanced kbd grey Enter key
  345.     mkeyw    lf,scan+enhanced+control+lf ; Enhanced grey Control Enter
  346.     mkeyw    '/',scan+enhanced+'/'    ; Enhanced kbd grey foward slash
  347.     mkeyw    '\0',scan+control+3    ; Control at-sign sends null
  348.     mkeyw    '\0',scan+control+shift+3 ; Control Shift at-sign sends null
  349.     mkeyw    '\x7f',scan+83        ; Del key sends DEL
  350.     mkeyw    '\x7f',scan+enhanced+83 ; Enhanced duplicate DEL sends DEL
  351.     mkeyw    '\x7f',scan+14        ; Backspace key sends DEL
  352.     mkeyw    '\kexit',scan+alt+45    ; Exit connect mode  Alt X
  353.     mkeyw    '\kstatus',scan+alt+31    ; Connect mode status  Alt S
  354.     mkeyw    '\kbreak',scan+alt+48    ; Send a Break  Alt B
  355.     mkeyw    '\kbreak',scan+control+0; Control-Break sends a Break too
  356.     mkeyw    '\khelp',scan+alt+35    ; Connect mode drop down menu  Alt H
  357.     mkeyw    '\knextsession',scan+alt+49    ; nextses is Alt N
  358.     mkeyw    '\knethold',scan+alt+44    ; ALT Z is nethold
  359.     dw    0        ; end of table marker
  360.  
  361.                     ;** LK250 support begin
  362. kb250lst equ    this byte             ; Extensions for DEC LK250 keyboard
  363.     mkeyw    escape,scan+104        ; Compose maps to ESC
  364.         mkeyw   '\x7f',scan+14          ; Backspace key sends DEL
  365.         mkeyw   bs,scan+shift+14        ; Shift-Backspace key sends BS
  366.     mkeyw    cr,scan+28        ; Return key sends CR
  367.     mkeyw    lf,scan+shift+28    ; Shift-Return sends LF
  368.     mkeyw    tab,scan+15        ; Tab sends TAB
  369.                     ; the top-row function keys
  370.     mkeyw    '\kholdscrn',scan+59    ; DEC Hold
  371.     mkeyw    '\kprtscn',scan+60    ; DEC Print Screen
  372. ;;;;    mkeyw    '{\{kstatus}\{kexit}}',scan+61    ; DEC Set-Up
  373.     mkeyw    '\kbreak',scan+63    ; DEC Break
  374.     mkeyw    '\kdecF6',scan+64    ; DEC F6
  375.     mkeyw    '\kdecF7',scan+65    ; DEC F7
  376.     mkeyw    '\kdecF8',scan+66    ; DEC F8
  377.     mkeyw    '\kdecF9',scan+67    ; DEC F9
  378.     mkeyw    '\kdecF10',scan+68    ; DEC F10
  379.     mkeyw    '\kdecF11',scan+95    ; DEC F11
  380.     mkeyw    '\kdecF12',scan+96    ; DEC F12
  381.     mkeyw    '\kdecF13',scan+97    ; DEC F13
  382.     mkeyw    '\kdecF14',scan+98    ; DEC F14
  383.     mkeyw    '\kdecHelp',scan+99    ; DEC Help
  384.     mkeyw    '\kdecDo',scan+100    ; DEC DO
  385.     mkeyw    '\kdecF17',scan+101    ; DEC F17
  386.     mkeyw    '\kdecF18',scan+102    ; DEC F18
  387.     mkeyw    '\kdecF19',scan+103    ; DEC F19
  388.     mkeyw    '\kdecF20',scan+84    ; DEC F20
  389.                     ; the cursor/select cluster
  390.     mkeyw    '\kdecFind',scan+85    ; DEC Find
  391.     mkeyw    '\kdecInsert',scan+86    ; DEC Insert Here
  392.     mkeyw    '\kdecRemove',scan+87    ; DEC Remove
  393.     mkeyw    '\kdecSelect',scan+88    ; DEC Select
  394.     mkeyw    '\kdecPrev',scan+89    ; DEC Prev
  395.     mkeyw    '\kdecNext',scan+90    ; DEC Next
  396.     mkeyw    '\kuparr',scan+91    ; up arrow
  397.     mkeyw    '\klfarr',scan+92    ; left arrow
  398.     mkeyw    '\krtarr',scan+93    ; right arrow
  399.     mkeyw    '\kdnarr',scan+94    ; down arrow
  400.                     ; the DEC editing keypad
  401.     mkeyw    '\kgold',scan+106    ; F1
  402.     mkeyw    '\kpf2',scan+107    ; F2
  403.     mkeyw    '\kpf3',scan+108    ; F3
  404.     mkeyw    '\kpf4',scan+109    ; F4
  405.     mkeyw    '\kkp7',scan+shift+71    ; KP7
  406.     mkeyw    '\kkp8',scan+shift+72    ; KP8
  407.     mkeyw    '\kkp9',scan+shift+73    ; KP9
  408.     mkeyw    '\kkpminus',scan+74    ; KP-
  409.     mkeyw    '\kkp4',scan+shift+75    ; KP4
  410.     mkeyw    '\kkp5',scan+shift+76    ; KP5
  411.     mkeyw    '\kkp6',scan+shift+77    ; KP6
  412.     mkeyw    '\kkpcoma',scan+78    ; KP,
  413.     mkeyw    '\kkp1',scan+shift+79    ; KP1
  414.     mkeyw    '\kkp2',scan+shift+80    ; KP2
  415.     mkeyw    '\kkp3',scan+shift+81    ; KP3
  416.     mkeyw    '\kkpenter',scan+105    ; keypad enter
  417.     mkeyw    '\kkpenter',scan+shift+105 ; keypad enter
  418.     mkeyw    '\kkp0',scan+shift+82    ; KP0
  419.     mkeyw    '\kkpdot',scan+shift+83    ; KP.
  420.                     ; some useful Kermit keys
  421.         mkeyw   '\kupscn',scan+alt+89   ; PgUp  Kermit screen roll back keys
  422.         mkeyw   '\kdnscn',scan+alt+90   ; PgDn
  423.         mkeyw   '\khomscn',scan+alt+85  ; Home
  424.         mkeyw   '\kendscn',scan+alt+88  ; End
  425.         mkeyw   '\kupone',scan+control+89 ; Ctrl PgUp  one line scrolls
  426.         mkeyw   '\kdnone',scan+control+90 ; Ctrl PgDn
  427.         mkeyw   '\kexit',scan+alt+45    ; Exit connect mode  Alt X
  428.         mkeyw   '\kstatus',scan+alt+31  ; Connect mode status  Alt S
  429.         mkeyw   '\kbreak',scan+alt+48   ; Send a Break  Alt B
  430.         mkeyw   '\kbreak',scan+control+108 ; Control-Break sends a Break too
  431.         mkeyw   '\khelp',scan+alt+35    ; Connect mode drop down menu  Alt H
  432.         mkeyw   '\ktermtype',scan+alt+130 ; Kermit toggle terminal type  Alt -
  433.         mkeyw   '\kreset',scan+alt+131  ; Kermit reset terminal  Alt =
  434.         mkeyw   '\kprtscn',scan+control+109 ; Kermit toggle prn scrn  Ctrl *
  435.         mkeyw   '\kdump',scan+control+88 ; Kermit Dump Screen  Ctrl End
  436.     dw    0            ; end of table marker
  437.  
  438. got250    db    0            ;** LK250 present if non-zero
  439. kbd250    db    0            ; enable use of LK250 if non-zero
  440. lk250msg db    cr,lf,'?LK250 keyboard external driver is not active.$'
  441.                     ;** LK250 support end
  442. kbcodes    dw    80h            ; keyboard read codes, 80h=not inited
  443. data    ends
  444.  
  445. ;            Documentation
  446. ;Translating a key:
  447. ;   The translator is called to obtain keyboard input; it sends characters to
  448. ; the serial port through standard controlled echo procedures or invokes
  449. ; named procedures. It returns carry clear when its operation is completed
  450. ; for normal actions and carry set when Connect mode must be exited. When
  451. ; Connect mode is exited the just read char should be passed in Kbdflg 
  452. ; to msster.asm for invoking actions such as Status, send a break,
  453. ; quit connect mode; system dependent procedure Term is responsible for this. 
  454. ;
  455. ;  Principal procedures are -
  456. ;    msuinit        Initializes keyboard translator in this file when
  457. ;            Kermit first begins. Installs dfkey and shkey as the
  458. ;            procedures used for Set Key and Show Key. Sys Indep.
  459. ;            Called from msx or msy init procs. System Independent.
  460. ;    keybd        Performs the translation, outputs chars to the serial
  461. ;            port or invokes a Kermit action routine. Sys Indep.
  462. ;    dfkey        Defines a key's translation. Reads command line
  463. ;            via Kermit's command parser comnd. System Independent.
  464. ;    shkey        Shows translation of a key. Requests user to push
  465. ;            selected key. System Independent.
  466. ;
  467. ;    kbdinit        optional. Initializes the translation tables when
  468. ;            Kermit starts up. Called by msuinit. System Dependent.
  469. ;    getkey        Performs the keyboard read and returns results in
  470. ;            a standardized system independent format. Sys Depend.
  471. ;    postkey        called by active translator after obtaining a keycode.
  472. ;            Used to provide extra local actions (keyclick) only
  473. ;            in Connect mode (not during Set/Show key commands).
  474. ;            Called by keybd. System dependent.
  475. ; Supporting system independent procedures are -
  476. ; shkfre (show string free space), tstkeyw (finds user's keyword in the verb
  477. ; table), insertst (insert string in buffer), remstr (delete string in buffer).
  478. ;
  479. ;   System dependent procedure Getkey reads a keycode (usually via a Bios
  480. ; call). On IBM compatible machines this yields <ah=scan code, al=ascii>
  481. ; for ordinary keys, or <ah=scan code, al=0> for special keys such as F1,
  482. ; or <ah=0, al=###> when Alt### is used.
  483. ; For any system, the canonical output form is the key's code in Keycode.
  484. ; Place the ascii code (or scan code if none) in byte Keycode and ancillary
  485. ; info (shift states plus marker bit for scan codes) in byte Keycode + 1.
  486. ; 
  487. ;   Table Aliaskey is a list of scan code/ascii codes for keys which appear
  488. ; more than once on a keyboard. This list is examined to distinguish such
  489. ; aliased keys (those on an auxillary keypad) from an ordinary ascii key,
  490. ; and the aliased key is then referenced by its scan code rather than by
  491. ; the ordinary ascii code. Aliaskey is machine and keyboard dependent.
  492. ;
  493. ;    Procedure Keybd calls Getkey for the Keycode, checks list of translatable
  494. ; keys Keylist, and then either sends an ascii string (one or more characters)
  495. ; or invokes a Kermit action verb. List Dirlist indicates what kind of 
  496. ; translation to do. Keybd is system independent but may contain system
  497. ; dependent special actions such as echoing keyclicks. Keybd calls system
  498. ; dependent procedure Postkey just after calling getkey so local actions
  499. ; such as keyclicks can be activated only during Connect mode operations.
  500. ;
  501. ;    Keylist is a packed but unordered list of 16 bit keycodes which need
  502. ; translation. The lower order byte holds a key code (ascii char or scan code)
  503. ; while the high byte holds a scan code marker bit (0 if ascii code in low
  504. ; byte) plus any ancillary keyboard information such as Control/Shift/Alt/Meta
  505. ; keys being held down; these are of use in Show Key presentations.
  506. ;    Dirlist parallels Keylist to provide the kind of translation, verb or
  507. ; string, in the two highest bits with the other bits holding either
  508. ; a single new replacement character or the item number in lists of verbs
  509. ; or strings. If neither verb nor strng type bits are set in a dirlist
  510. ; word then the translation is a single new character held in the lower
  511. ; eight bits of that dirlist word.
  512. ;
  513. ;    The number of key translations is assembly constant Maxkeys (def 128).
  514. ;    The maximum number of strings is assembly constant Maxstngs (def 64).
  515. ;    The maximum number of verbs is 256 and is set by building table Kverbs.
  516. ;
  517. ;   For verbs, use the Item number from the Director table Dirlist to select
  518. ; a procedure offset from the structured list Kverbs and jump to that offset.
  519. ; Most verb procedures return carry clear to stay within Connect mode.
  520. ; Verbs requiring exiting Connect mode return carry set and may set byte
  521. ; Kbdflg to a char code which will be read by msster.asm for activating a
  522. ; transient Kermit action such as send a break (Kbdflg = 'b').
  523. ; Kbdflg is stored in msster.asm (as zero initially, meaning ignore it).
  524. ; Action verb procedures are normally located in a system dependent file.
  525. ;
  526. ;   For multi-char strings, use Item number from Director table Dirlist to
  527. ; select a pointer to a string. The list of string pointers is Sptable
  528. ; (string pointer table) which holds the offset in the data segment of the
  529. ; strings stored in buffer Stbuf. In stbuf strings are held as: one byte of
  530. ; length of following text and then the text itself (permits embedded nulls).
  531. ;  Use Chrout to send each string character, and finally return from Keybd
  532. ; with carry clear.
  533. ;
  534. ;   For single character replacements obtain the new character from the lower
  535. ; order byte of Director table Dirlist. If the character is Kermit's present
  536. ; escape character return from Keybd carry set to leave connect mode.
  537. ; Otherwise, send the character via Chrout and return from Keybd carry clear.
  538.  
  539. ; Keylist table format:
  540. ;    7 bits   1 bit   8 bits
  541. ; +----------+----+------------+ scan bit = 1 if key's code is non-ascii
  542. ; | aux info |scan| key's code | aux info = system dependent, used only to
  543. ; +----------+----+------------+            help identify key
  544. ;
  545. ; Dirlist table format          v s    meaning
  546. ;   1   1      14 bits         0 0    copy out one byte translation
  547. ; +---+---+--------------------+  1 0    copy out multi-char string number Item
  548. ; | v | s | item # or new char |  0 1    do action verb number Item
  549. ; +---+---+--------------------+  1 1    (not used)
  550. ;
  551. ; Table kverbs is organized by macro mkeyw as -
  552. ;    kverbs    db    number of table entries
  553. ;    (each entry is in the form below:)
  554. ;        dw    number of bytes in verbname
  555. ;        db    'verbname'        variable length
  556. ;        dw    value            offset of procedure
  557. ;
  558. ;
  559. ;   Dfkey defines a key to be itself (undefines it) or a single replacement
  560. ; character or a character string or a Kermit action verb. Dfkey requires
  561. ; a command line so that it may be invoked by Take files but can be forced
  562. ; to prompt an interactive user to push a key. Syntax is discussed below.
  563. ; Note that redefined keys have their old definitions cleared so that
  564. ; old string space is reclaimed automatically.
  565. ;
  566. ;   Shkey displays a key's definition and the user is asked to push the
  567. ; selected key. The free space for strings is always shown afterward. See
  568. ; below for syntax.
  569. ;
  570. ;   Kbdinit is an optional routine called when Kermit starts up. It fills in
  571. ; the translation tables with desirable default values to save having to
  572. ; use long mskermit.ini files. The default values are stored in a structured
  573. ; table similar to (but not the same as) Dfkey's command lines; the keycode
  574. ; values are preset by hand to 16 bit numbers.
  575.  
  576. ;Defining a key:
  577. ; Command is SET KEY <key ident><whitespace><definition>
  578. ;
  579. ; <key ident> is
  580. ;        a single ordinary ascii char or
  581. ;        the numerical equivalent of an ascii char or
  582. ;        a Scan Code written as a number or
  583. ;        keyword SCAN followed by a number.
  584. ;        ?    Displays help message.
  585. ;    Numbers and Binary codes are of the form
  586. ;        \123    a decimal number
  587. ;        \o456    an octal number        base letters o, d, x can be
  588. ;        \d213    a decimal number    upper or lower case
  589. ;        \x0d    a hex number
  590. ;        \{b###}  braces around above material following slash.
  591. ;
  592. ; <whitespace> is one or more spaces and or tabs.
  593. ;
  594. ; <definition> is
  595. ;    missing altogether which "undefines" a key.
  596. ;    \Kverb        for a Kermit action verb; upper or lower case K is ok
  597. ;    \{Kverb}    ditto. Verb is the name of an action verb.
  598. ;    text        a string with allowed embedded whitespace and embedded
  599. ;            binary chars as above. This kind of string may not
  600. ;            commence with sequences \K or \{K; use braces below.
  601. ;    {text}        string confined to material within but excluding
  602. ;            the braces. Note, where the number of opening braces
  603. ;            exceeds the number of closing braces the end of line
  604. ;            terminates the string: {ab{}{{c}d ==> ab{}{{c}d
  605. ;            but  {ab}{{c}d ==> ab.
  606. ;    ?        Displays help message and lists all action verbs.
  607. ;
  608. ;    If Set Key is given interactively, as opposed to within a Take
  609. ;    file, the system will prompt for inputs if none is on the command
  610. ;    line. The response to Push key to be defined cannot be edited.
  611. ;
  612. ;    Text which reduces to a single replacement character is put into a
  613. ;    table separate from the multi-character strings (maxstng of these).
  614. ;    A key may be translated into any single 8 bit code.
  615. ;    
  616. ;    Comments can follow a Kermit action verb or a braced string; no
  617. ;    semicolon is required since all are stripped out by the Take file
  618. ;    reader before the defining text is seen by SET KEY.
  619. ;
  620. ;    The current Kermit escape character cannot be translated without
  621. ;    subtrafuge.
  622. ;
  623. ;    Examples:
  624. ;        Set Key q z
  625. ;                makes key q send character z
  626. ;        Set Key \7 \27[0m
  627. ;                makes key Control G send the four byte
  628. ;                string  ESC [ 0 m
  629. ;        Set Key q
  630. ;                undefines key q so it sends itself (q) again.
  631. ;        Set Key \2349 \kexit
  632. ;                defines IBM Alt-X to invoke the leave connect
  633. ;                mode verb "exit" (Kermit's escape-char ^] C).
  634. ;        Set Key \x0c Login \{x0d}myname\{x0d}mypass\x0d
  635. ;                defines Control L to send the string
  636. ;                Login <cr>myname<cr>mypass<cr>
  637. ;
  638. ; Alternative Set Key syntax for backward compatibility with previous versions
  639. ;    The same forms as above except the key identification number must
  640. ;    be decimal and must Not have a leading backslash. Example:
  641. ;    Set Key Scan 59 This is the F1 key
  642. ;
  643. ;    If the definition is omitted it may be placed on the following line;
  644. ;    if that line is also empty the key is undefined (defined as Self).
  645. ;    A warning message about obsolete syntax will be given followed by
  646. ;    the key's modern numerical value and new definition. Only "special"
  647. ;    keys (those not producing ascii codes) are compatible with this
  648. ;    translator.
  649. ;
  650. ;Showing a key:
  651. ; Command is SHOW KEY <cr>
  652. ; System prompts user to press a key and shows the definition plus the
  653. ; free space for strings. Query response results in showing all definitions.
  654. ;            End Documentation
  655.  
  656. code1    segment
  657.     extrn    vclick:near, udkclear:near        ; in msyibm
  658.     extrn    xltkey:far                ; in mszibm
  659.  
  660. fudkclear proc    far
  661.     call    udkclear
  662.     ret
  663. fudkclear endp
  664.  
  665. fvclick    proc    far
  666.     call    vclick
  667.     ret
  668. fvclick    endp
  669.  
  670. code1    ends
  671.  
  672. code    segment
  673.         ; system independent external items
  674.     extrn    comnd:near, prompt:near, iseof:near    ; in msscmd
  675.     extrn    strlen:near, prtscr:near        ; in mssfil
  676.     extrn    cnvlin:near, katoi:near, decout:near    ; in msster
  677.         ; system dependent external items
  678.     extrn    beep:near, khold:near, ubhold:near, nextses:near
  679.         ; these are system dependent action verbs, in msxibm & msyibm 
  680.     extrn    uparrw:near, dnarrw:near, rtarr:near, lfarr:near
  681.     extrn    pf1:near, pf2:near, pf3:near, pf4:near,    kp0:near, kp1:near
  682.     extrn    kp2:near, kp3:near, kp4:near, kp5:near, kp6:near, kp7:near
  683.     extrn    kp8:near, kp9:near, kpminus:near, kpcoma:near, kpenter:near
  684.     extrn    kpdot:near, decf6:near, decf7:near, decf8:near, decf9:near
  685.     extrn    decf10:near, decf11:near, decf12:near, decf13:near
  686.     extrn    decf14:near, dechelp:near, decdo:near, decf17:near
  687.     extrn    decf18:near, decf19:near, decf20:near
  688.     extrn    decfind:near, decinsert:near, decremove:near
  689.     extrn    decselect:near, decprev:near, decnext:near, ignore_key:near
  690.     extrn    chrout:near, cstatus:near, cquit:near, cquery:near
  691.     extrn    vtans52:near, vtinit:near, dnwpg:near, upwpg:near
  692.     extrn    endwnd:near, homwnd:near, upone:near, dnone:near, trnprs:near
  693.     extrn    trnmod:near, sendbr:near, sendbl:near, dmpscn:near, snull:near
  694.     extrn    chang:near, klogon:near, klogof:near, cdos:near
  695.     extrn    lfpage:near, rtpage:near, lfone:near, rtone:near
  696.     extrn    extmacro:near
  697.     extrn    dgkc1:near,dgkc2:near,dgkc3:near,dgkc4:near,dgkf1:near
  698.     extrn    dgkf2:near,dgkf3:near,dgkf4:near,dgkf5:near,dgkf6:near
  699.     extrn    dgkf7:near,dgkf8:near,dgkf9:near,dgkf10:near,dgkf11:near
  700.     extrn    dgkf12:near,dgkf13:near,dgkf14:near,dgkf15:near
  701.     extrn    dgpoint:near, dgnckey:near, kbdcompose:near
  702.  
  703.     assume    cs:code, ds:data, es:data
  704.  
  705. ; Begin system independent Keyboard Translator code
  706.  
  707. ; MSUINIT performs Kermit startup initialization for this file.
  708. ; Note, shkadr and stkadr are pointers tested by Set/Show Key calls. If they
  709. ; are not initialized here then the older Set/Show Key procedures are called.
  710. MSUINIT    PROC    NEAR            ; call from msx/msy init code
  711.     call    kbdinit            ; optional: init translator tables
  712.     mov    shkadr,offset shkey    ; declare keyboard translator present
  713.     mov    stkadr,offset dfkey    ; via Show and Set Key proc addresses
  714.     ret
  715. MSUINIT    ENDP
  716.  
  717. ; Call Keybd to read a keyboard char (just returns carry clear if none) and
  718. ; 1) send the replacement string (or original char if not translated)
  719. ;    out the serial port, or
  720. ; 2) execute a Kermit action verb.
  721. ; Returns carry set if Connect mode is to be exited, else carry clear.
  722. ; Modifies registers ax and bx. 
  723. KEYBD    PROC    NEAR            ; active translator
  724.     mov    ttyact,1        ; doing single char output
  725.     cmp    stringcnt,0        ; any leftover string chars?
  726.     je    keybd0            ; e = no
  727.     jmp    keyst2            ; yes, finish string
  728. keybd0:    call    getkey            ; read keyboard
  729.     jnc    keybd1            ; nc = data available
  730.     jmp    keybdx            ; else just return carry clear
  731. keybd1:    call    postkey            ; call system dependent post processor
  732.     cmp    nkeys,0            ; is number of keys defined = 0?
  733.     jz    keybd3            ; z = none defined
  734.     push    di            ; search keylist for this keycode
  735.     push    cx            ; save some registers    
  736.     push    es
  737.     mov    di,offset keylist    ; list of defined keycode words
  738.     mov    ax,keycode        ; present keycode
  739.     mov    cx,nkeys        ; number of words to examine
  740.     push    ds
  741.     pop    es            ; make es:di point to data segment
  742.     cld
  743.     repne    scasw            ; find keycode in list
  744.     pop    es            ; restore regs
  745.     pop    cx
  746.     je    keybd1b            ; e = found, work with present di
  747.     pop    di            ; restore original di
  748.     test    keycode,scan        ; is this a scan code?
  749.     jz    keybd3            ; z = no, it's ascii, use al as char
  750.     call    beep            ; say key is a dead one
  751.     clc
  752.     ret                ; and exit with no action
  753.  
  754. keybd1b:sub    di,2            ; correct for auto increment
  755.     sub    di,offset keylist    ; subtract start of list ==> listptr
  756.     mov    ax,dirlist[di]        ; ax = contents of director word
  757.     pop    di            ; restore original di
  758.                     ; dispatch on Director code
  759.     test    ax,verb            ; verb only?
  760.     jnz    keyvb            ; e = yes
  761.     test    ax,strng        ; multi-char string only?
  762.     jnz    keyst            ; e = yes, else single char & no xlat.
  763.                     ;
  764.                     ; do single CHAR output (char in al)
  765. keybd3:    cmp    al,trans.escchr        ; Kermit's escape char?
  766.     je    keybd3a            ; e = yes, handle separately
  767.     call    xltkey            ; do character set translation
  768.     call    chrout            ; transmit the char
  769.     clc                ; return success
  770.     ret
  771. keybd3a:stc                ; set carry for jump to Quit
  772.     ret
  773.  
  774. keyvb:    and    ax,not(verb+strng)    ; VERB (ax=index, remove type bits)
  775.     mov    bx,offset kverbs    ; start of verb table
  776.     cmp    al,byte ptr [bx]    ; index > number of entries?
  777.     jae    keybdx            ; ae = illegal, indices start at 0
  778.     inc    bx            ; bx points to first entry
  779.     push    cx            ; save reg
  780.     mov    cx,ax            ; save the index in cx
  781.     inc     cx            ; counter, indices start at 0
  782. keyvb1:    mov    ax,[bx]            ; cnt value
  783.     add    ax,4            ; skip text and value word
  784.     add    bx,ax            ; look at next slot
  785.     loop    keyvb1            ; walk to correct slot
  786.     sub    bx,2            ; backup to value field
  787.     pop    cx            ; restore reg
  788.     mov    bx,[bx]            ; get value field of this slot
  789.     or    bx,bx            ; jump address defined?
  790.     jz    keybdx            ; z = no, skip the action
  791.     jmp    bx            ; perform the function
  792.  
  793. keyst:    and    ax,not(verb+strng)    ; STRING (ax=index, remove type bits)
  794.     shl    ax,1            ; convert to word index
  795.     push    si            ; save working reg
  796.     mov    si,ax            ; word subscript in table
  797.     mov    si,sptable[si]        ; memory offset of selected string
  798.     xor    cx,cx            ; init string length to null
  799.     or    si,si            ; is there a string pointer present?
  800.     jz    keyst1            ; z = no, skip operation
  801.     cld                ; scan forward
  802.     mov    cx,[si]            ; get string length
  803.     add    si,2
  804. keyst1:    mov    stringcnt,cx
  805.     mov    stringptr,si
  806.     pop    si
  807.     jcxz    keybdx            ; z = null length
  808.  
  809. keyst2:    push    si
  810.     mov    si,stringptr        ; pointer to next string char
  811.     cld
  812.     lodsb                ; get new string char into al
  813.     pop    si
  814.     dec    stringcnt        ; string chars remaining
  815.     inc    stringptr
  816.     call    keysv            ; scan for embedded verbs
  817.     jc    keyst4            ; c = not found, al has string char
  818.     jmp    bx            ; perform the verb (bx = address)
  819. keyst4:    call    xltkey            ; do character set translation
  820.     cmp    stringcnt,0        ; last character?
  821.     je    keyst5            ; e = yes, stop grouping for nets
  822.     mov    ttyact,0        ; group output for networks
  823. keyst5:    jmp    chrout            ; send out the char in al
  824.  
  825. keybdx:    clc                ; return success (nothing to do)
  826.     ret
  827. KEYBD    ENDP
  828.  
  829. ; Scan for keyboard verbs embedded in outgoing string. If found update
  830. ; string pointer and count to just beyond the verb and return action routine
  831. ; address in bx with carry clear. If failure return carry set and no change.
  832. ; Can invoke external procedure EXTMACRO if the verb is not known here.
  833.  
  834. keysv    proc    near
  835.     push    ax
  836.     push    si
  837.     push    di
  838.     cmp    al,'\'            ; escape?
  839.     jne    keysv7            ; ne = no
  840.     mov    cx,stringcnt        ; chars remaining
  841.     mov    si,stringptr        ; address of next char to read
  842.     mov    brace,0            ; assume not using braces
  843.     cmp    byte ptr [si],braceop    ; starts with \{?
  844.     jne    keysv1            ; ne = no
  845.     inc    si            ; skip the opening brace
  846.     dec    cx
  847.     mov    brace,bracecl        ; expect closing brace
  848. keysv1:    cmp    byte ptr [si],'K'    ; starts with \{K or \K?
  849.     je    keysv2            ; e = yes
  850.     cmp    byte ptr [si],'k'    ; starts as \{k or \k?
  851.     jne    keysv7            ; ne = no, then it's a string
  852. keysv2:    inc    si            ; yes, skip the K too
  853.     dec    cx
  854.     mov    di,offset tranbuf    ; copy verb name to this work buffer
  855.     xor    ax,ax
  856.     mov    [di],ax            ; init the buffer to empty
  857. keysv3:    cld
  858.     jcxz    keysv4            ; z = no more string chars
  859.     lodsb                ; scan til closing brace or w/s or end
  860.     dec    cx
  861.     cmp    al,brace        ; closing brace?
  862.     je    keysv4            ; e = yes
  863.     cmp    al,spc            ; white space or control char?
  864.     jbe    keysv3            ; be = yes
  865.     mov    [di],ax            ; copy to tranbuf and terminate
  866.     inc    di
  867.     jmp    short keysv3
  868. keysv4:    push    si            ; save input reading position
  869.     mov    si,offset tranbuf    ; where verb starts (needs si)
  870.     call    tstkeyw            ; find keyword, bx = action routine
  871.     pop    si
  872.     jnc    keysv4a            ; nc = found the verb
  873.     call    keysv8            ; invoke EXTMACRO worker for unknown
  874.     jc    keysv7            ; carry = no verb to operate upon
  875. keysv4a:cmp    brace,0            ; need to end on a brace?
  876.     je    keysv6            ; e = no
  877.     dec    si            ; break position
  878.     inc    cx
  879.     cld
  880. keysv5:    jcxz    keysv6            ; z = no more string characters
  881.     lodsb                ; read string char
  882.     dec    cx
  883.     cmp    al,brace        ; the brace?
  884.     jne    keysv5            ; ne = no, repeat until it is found
  885. keysv6:    mov    stringptr,si        ; where we finished+1
  886.     mov    stringcnt,cx        ; new count of remaining chars
  887.     pop    di
  888.     pop    si            ; original si, starting place
  889.     pop    ax            ; original ax
  890.     clc
  891.     ret
  892. keysv7:    pop    di            ; verb not found
  893.     pop    si
  894.     pop    ax
  895.     stc
  896.     ret
  897. ; Worker. Unknown verb name as string {\kverb} or {\k{verb}}. Use EXTMACRO
  898. ; procedure (in msyibm typically), point to verb name with vtmacname, length
  899. ; of it in byte vtmaclen, address of EXTMACRO to BX. Upper case the verb.
  900. ; Enter with tranbuf holding the verb, asciiz, without \K and braces.
  901. ; Returns BX set to EXTMACRO proc, vtmacname pointing to verb (uppercased)
  902. ; and vtmaclen holding the length of verb.
  903. keysv8:    mov    bx,offset extmacro    ; use this external macro pointer
  904.     mov    vtmacname,offset tranbuf; select extmacro procedure address
  905.     mov    dx,offset tranbuf    ; point to name for extmacro
  906.     push    cx
  907.     call    strlen            ; get its length
  908.     mov    vtmaclen,cx        ; length for extmacro
  909.     jcxz    keysv11            ; z = none
  910.     push    si            ; convert verb name to upper case
  911.     mov    si,dx            ; verb, without leading \K stuff
  912.     cld
  913. keysv9:    lodsb                ; read a name byte
  914.     cmp    al,'a'            ; before lower case?
  915.     jb    keysv10            ; e = yes
  916.     cmp    al,'z'            ; above lower case?
  917.     ja    keysv10            ; a = yes
  918.     and    al,not 20h        ; convert to upper case
  919.     mov    [si-1],al        ; put it back
  920. keysv10:loop    keysv9            ; do all bytes, asciiz
  921.     pop    si
  922.     pop    cx
  923.     clc                ; carry clear = ready to execute
  924.     ret
  925. keysv11:stc                ; carry set = no verb, do nothing
  926.     pop    cx
  927.     ret
  928. keysv    endp
  929.  
  930. ; SET KEY - define a key   (procedure dfkey)
  931. ; SET KEY <key ident><whitespace><new meaning>
  932. ; Call from Kermit level. Returns carry set if failure.
  933. ;  
  934. DFKEY    PROC    NEAR            ; define a key as a verb or a string
  935.     mov    keycode,0        ; clear keycode
  936.     mov    oldform,0        ; say no old form Set Key yet
  937.     or    byte ptr kbcodes,80h    ; say kbcodes not-initiated
  938.     mov    dx,offset tranbuf    ; our work space
  939.     mov    word ptr tranbuf,0    ; insert terminator
  940.     mov    bx,offset dfhelp1    ; first help message
  941.     mov    ah,cmword        ; parse a word
  942.     call    comnd            ; get key code or original ascii char
  943.     mov    cl,taklev        ; reading from Take file
  944.     mov    msutake,cl        ; save here
  945.     or    ax,ax            ; any text given?
  946.     jnz    dfkey12            ; nz = yes, so don't consider prompts
  947.                     ; interactive key request
  948.     cmp    taklev,0        ; in a Take file?
  949.     je    dfkey10            ; e = no, prompt for keystroke
  950.     jmp    dfkey0            ;  else say bad syntax
  951. dfkey10:mov    ah,prstr
  952.     mov    dx,offset dfaskky    ; ask for key to be pressed
  953.     int    dos
  954. dfkey11:call    getkey            ; read key ident from keyboard
  955.     jc    dfkey11            ; c = no response, wait for keystroke
  956.     mov    ah,prstr        ; display cr/lf
  957.     mov    dx,offset crlf
  958.     int    dos
  959.     call    shkey0            ; show current definition (in SHKEY)
  960.     jmp    dfkey1e            ; prompt for and process definition
  961.  
  962. dfkey12:                ; Look for word SCAN and ignore it
  963.     mov    dx,word ptr tranbuf    ; get first two characters
  964.     or    dx,2020h        ; map upper to lower case
  965.     cmp    dx,'cs'            ; first two letters of word "scan"?
  966.     je    dfkey            ; e = yes, skip the word
  967.     cmp    dx,'lc'            ; first two letters of word "clear"?
  968.     je    dfkey15            ; e = yes, reinit keyboard [2.31]
  969.     cmp    dx,'fo'            ; first two letters of "off"
  970.     je    dfkey13            ; e = yes, use DOS keyboard calls
  971.     cmp    dx,'no'            ; first two letters of "on"
  972.     je    dfkey13            ; e = yes, use standard kbd calls
  973.     cmp    dx,'kl'            ; first two letters of "lk" (LK250)?
  974.     je    dfkey13            ; e = yes
  975.     cmp    ax,1            ; number of characters received
  976.     jbe    dfkey12a        ; be = stay here
  977.     jmp    dfkey1            ; a = more than one, decode
  978. dfkey12a:mov    ah,byte ptr tranbuf    ; get the single char
  979.     mov    byte ptr keycode,ah    ; store as ascii keycode
  980.     jmp    dfkey1b            ; go get definition
  981. dfkey13:push    dx            ; save command letters
  982.     mov    ah,cmeol        ; get end of line confirmation
  983.     call    comnd
  984.     pop    dx
  985.     jnc    dfkey14            ; nc = success
  986.     ret
  987. dfkey14:mov    al,0ffh            ; set DOS keyboard read flag
  988.     cmp    dx,'fo'            ; first two letters of "off"
  989.     je    dfkey14a        ; e = yes, use DOS keyboard calls
  990.     xor    al,al            ; clear DOS keyboard read flag
  991.     cmp    dx,'no'            ; first two letters of "on"
  992.     je    dfkey14a        ; e = yes, use standard kbd calls
  993.     mov    ah,dosflg        ; get current flag
  994.     mov    dosflg,1        ; engage for chk250 test
  995.     push    ax
  996.     call    chk250            ; see if LK250 driver is present
  997.     pop    ax
  998.     mov    al,ah            ; recover current setting
  999.     cmp    got250,0        ; did we find the driver?
  1000.     je    dfkey14a        ; e = no
  1001.     call    kbrest            ; and activiate it if so
  1002.     mov    al,1            ; say LK250
  1003. dfkey14a:mov    dosflg,al        ; store new keyboard flag
  1004.     ret
  1005.  
  1006. dfkey15:mov    ah,cmeol
  1007.     call    comnd            ; confirm request before proceeding
  1008.     jnc    dfkeyc            ; nc = success
  1009.     ret                ; failure
  1010.  
  1011. dfkey0:    mov    dx,offset dfhelp1    ; say bad definition command
  1012.     mov    ah,prstr
  1013.     int    dos
  1014.     stc                ; failure
  1015.     ret
  1016.  
  1017. dfkeyc:                    ; CLEAR key defs, restore startup defs
  1018.     mov    cx,maxkeys        ; size of keycode tables
  1019.     push    es            ; save register
  1020.     push    ds
  1021.     pop    es            ; make es point to data segment
  1022.     xor    ax,ax            ; null, value to be stored
  1023.     mov    di,offset dirlist    ; director table
  1024.     cld
  1025.     rep    stosw            ; clear it
  1026.     mov    cx,maxkeys
  1027.     mov    di,offset keylist    ; keycode table
  1028.     rep    stosw            ; clear it
  1029.     mov    cx,maxstng
  1030.     mov    di,offset sptable    ; string pointer table
  1031.     rep    stosw            ; clear it
  1032.     pop    es            ; recover register
  1033.     mov    strmax,offset stbuf    ; clear string buffer, free space ptr
  1034.     mov    stbuf,0            ; first element of buffer 
  1035.     mov    nkeys,0            ; clear number of defined keys
  1036.     call    msuinit            ; restore startup definitions
  1037.     clc                ; success
  1038.     ret
  1039.                     ; Multi-char key identification
  1040. dfkey1:    mov    si,offset tranbuf    ; point to key ident text
  1041.     cmp    byte ptr [si],'0'    ; is first character numeric?
  1042.     jb    dfkey1a            ; b = no
  1043.     cmp    byte ptr [si],'9'    ; in numbers?
  1044.     ja    dfkey1a            ; a = no
  1045.     mov    keycode,scan        ; setup keycode for scan value
  1046.     mov    dx,si            ; get length of string in cx
  1047.     call    strlen
  1048.     push    ds
  1049.     pop    es            ; make es point to data segment
  1050.     push    si
  1051.     add    si,cx            ; point at string terminator
  1052.     mov    di,si
  1053.     inc    di            ; place to store string (1 byte later)
  1054.     inc    cx            ; include null terminator
  1055.     std                ; work backward
  1056.     rep    movsb            ; move string one place later
  1057.     cld
  1058.     pop    si
  1059.     mov    byte ptr [si],'\'    ; make ascii digits into \nnn form
  1060.     mov    oldform,0ffh        ; set old form flag
  1061.     mov    dx,offset kwarnmsg    ; tell user this is old form
  1062.     mov    ah,prstr
  1063.     int    dos
  1064. dfkey1a:call    katoi            ; convert ascii number to binary in ax
  1065.     jc    dfkey0            ; c = no number converted
  1066.     or    keycode,ax        ; store in keycode
  1067.  
  1068. dfkey1b:                ; Get Definition proper
  1069.     test    oldform,0ffh        ; old form Set Key active?
  1070.     jz    dfkey1f            ; z = no
  1071.     mov    bx,offset tranbuf    ; get new definition on main cmd line
  1072.     mov    word ptr [bx],0        ; insert terminator
  1073.     mov    dx,offset dfhelp2    ; help for definition of key
  1074.     mov    ah,cmline        ; read rest of line into tranbuf
  1075.     call    comnd            ; allow null definitions
  1076.     or    ax,ax            ; char count zero?
  1077.     jz    dfkey1e            ; z = zero, prompt for definition
  1078.     jmp    dfkey1g            ; process definition
  1079.  
  1080. dfkey1e:mov    ah,prstr
  1081.     mov    dx,offset crlf
  1082.     int    dos
  1083.     mov    dx,offset dfaskdf    ; prompt for definition string
  1084.      call    prompt            ; Kermit prompt routine
  1085.     mov    comand.cmcr,1        ; permit bare carriage returns
  1086.     mov    comand.cmwhite,1    ; allow leading whitespace
  1087. dfkey1f:mov    bx,offset tranbuf    ; get new definition
  1088.     mov    word ptr [bx],0        ; insert terminator
  1089.     mov    dx,offset dfhelp2    ; help for definition of key
  1090.     mov    ah,cmline        ; read rest of line into tranbuf
  1091.     call    comnd
  1092.     jc    dfkey1x            ; exit now on ^C from user
  1093.     cmp    comand.cmcr,0        ; prompting for definition?
  1094.     je    dfkey1g            ; e = no, trim leading whitespace
  1095.     mov    comand.cmcr,0        ; turn off allowance for bare c/r's
  1096.     jmp    dfkey2            ; interactive, allow leading whitespace
  1097. dfkey1x:ret                ; failure exit
  1098.  
  1099. dfkey1g:push    ax            ; save count
  1100.     mov    ah,cmeol        ; get a confirm
  1101.     call    comnd
  1102.     pop    cx            ; string length
  1103.     jc    dfkey1x            ; none so declare parse error
  1104.     
  1105. dfkey2:                    ; Examine translation
  1106.     mov    al,trans.escchr        ; current escape char (port dependent)
  1107.     cmp    al,byte ptr keycode    ; is this Kermit's escape char?
  1108.     jne    dfkey2a            ; ne = no
  1109.     test    keycode,scan        ; see if scan code
  1110.     jnz    dfkey2a            ; nz = scan, so not ascii esc char
  1111.     mov    dx,offset dfkoops    ; Oops! msg
  1112.     mov    ah,prstr        ; complain and don't redefine
  1113.     int    dos
  1114.     stc                ; failure
  1115.     ret
  1116.  
  1117. dfkey2a:push    di            ; get a director code for this key
  1118.     push    cx    
  1119.     mov    di,offset keylist    ; list of keycodes
  1120.     mov    cx,nkeys        ; number currently defined
  1121.     mov    ax,keycode        ; present keycode
  1122.     jcxz    dfkey2b            ; cx = 0 means none defined yet
  1123.     cld
  1124.     push    ds
  1125.     pop    es
  1126.     repne    scasw            ; is current keycode in the list?
  1127.     jne    dfkey2b            ; ne = not in list
  1128.     sub    di,2            ; correct for auto increment
  1129.     sub    di,offset keylist
  1130.     mov    listptr,di        ; list pointer for existing definition
  1131.     pop    cx
  1132.     pop    di
  1133.     jmp    dfkey3            ; go process definition
  1134.  
  1135. dfkey2b:pop    cx            ; key not currently defined so
  1136.     pop    di            ;  make a new director entry for it
  1137.     mov    bx,nkeys        ; number of keys previously defined
  1138.     cmp    bx,maxkeys        ; enough space?
  1139.     jae    dfkey2c            ; ae = no, complain
  1140.     shl    bx,1            ; count words
  1141.     mov    listptr,bx        ; index into word list
  1142.     mov    ax,keycode        ; get key's code
  1143.     mov    keylist[bx],ax        ; store it in list of keycodes
  1144.     mov    dirlist[bx],0        ; clear the new director entry
  1145.     inc    nkeys            ; new number of keys
  1146.     jmp    dfkey3            ; go process definition
  1147.  
  1148. dfkey2c:mov    dx,offset keyfull    ; say key space is full already
  1149.     mov    ah,prstr
  1150.     int    dos
  1151.     stc                ; failure
  1152.     ret
  1153.  
  1154. ; listptr has element number in keylist or dirlist; keycode has key's code.
  1155.  
  1156. ; Parse new definition. First look for Kermit verbs as a line beginning
  1157. ; as \K or \{K. Otherwise, consider the line to be a string.
  1158. ; In any case, update the Director table for the new definition.
  1159.  
  1160. dfkey3:    mov    brace,0            ; assume not using braces
  1161.     mov    si,offset tranbuf    ; start of definition text
  1162.     cmp    byte ptr [si],'\'    ; starts with escape char?
  1163.     jne    dfkey5            ; ne = no, so we have a string
  1164.     inc    si            ; skip the backslash
  1165.     cmp    byte ptr [si],braceop    ; starts with \{?
  1166.     jne    dfkey3a            ; ne = no
  1167.     inc    si            ; skip the opening brace
  1168.     mov    brace,bracecl        ; expect closing brace
  1169. dfkey3a:cmp    byte ptr [si],'K'    ; starts with \{K or \K?
  1170.     je    dfkey3b            ; e = yes
  1171.     cmp    byte ptr [si],'k'    ; starts as \{k or \k?
  1172.     jne    dfkey5            ; ne = no, then it's a string
  1173. dfkey3b:inc    si            ; yes, skip the K too
  1174.                     ; Kermit action VERBS
  1175.     push    si            ; save verb name start address
  1176. dfkey4:    cld
  1177.     lodsb                ; scan til closing brace or w/s or end
  1178.     or    al,al            ; premature end?
  1179.     jz    dfkey4b            ; z = yes, accept without brace
  1180.     cmp    al,brace        ; closing brace?
  1181.     je    dfkey4b            ; e = yes
  1182.     cmp    al,spc            ; white space or control char?
  1183.     ja    short dfkey4        ; a = no, so not at end yet
  1184. dfkey4b:mov    byte ptr[si-1],0    ; insert null terminator
  1185.     pop    si            ; recover start address
  1186.     call    tstkeyw            ; find keyword, kw # returned in kbtemp
  1187.     jc    dfkey4d            ; c = no keyword found, complain
  1188.     call    remstr            ; clear old string, if string
  1189.     mov    ax,kbtemp        ; save keyword number
  1190.     and    ax,not(verb+strng)    ; clear verb / string field
  1191.     or    ax,verb            ; set verb ident
  1192.     mov    si,listptr
  1193.     mov    dirlist[si],ax        ; store info in Director table
  1194.     jmp    dfkey7            ; show results and return success
  1195.  
  1196. dfkey4d:mov    dx,offset verbbad    ; say no such verb
  1197.     mov    ah,prstr
  1198.     int    dos
  1199.     stc                ; failure
  1200.     ret
  1201.  
  1202. ; Here we are left with the definition string; si points to its start, and
  1203. ; kbtemp holds its length (number of bytes). Null termination. If the string
  1204. ; begins with an opening brace it terminates on a matching closing brace
  1205. ; or the end of line, whichever occurs first. Trailing whitespace removed
  1206. ; before examining braces.
  1207. ; Null length strings mean define key as Self.
  1208.                     ; STRING definitions
  1209. dfkey5:    call    remstr            ; first, clear old string, if any
  1210.     mov    si,offset tranbuf    ; si=source, di=dest, convert in-place
  1211.     mov    di,si
  1212.     call    cnvlin            ; convert numbers, cx gets line length
  1213.     mov    si,offset tranbuf    ; provide address of new string
  1214.     cmp    cx,1            ; just zero or one byte to do?
  1215.     jbe    dfkey6            ; e = yes, do as a char
  1216.     call    insertst        ; insert new string, returns reg cx.
  1217.     jc    dfkey5h            ; c = could not do insert
  1218.     mov    si,listptr        ; cx has type and string number
  1219.     mov    dirlist[si],cx        ; update Director table from insertst
  1220.     jmp    dfkey7            ; show results and return success
  1221.  
  1222. dfkey5h:mov    dx,offset strbad    ; display complaint
  1223.     mov    ah,prstr
  1224.     int    dos
  1225.     stc                ; failure
  1226.     ret
  1227.  
  1228.         ; define SINGLE CHAR replacement or CLEAR a key definition.
  1229.         ; cx has char count 1 (normal) or 0 (to undefine the key).
  1230. dfkey6:    jcxz    dfkey6c            ; z = cx= 0, clear definition
  1231.     mov    al,byte ptr [si]    ; get first byte from definition
  1232.     xor    ah,ah            ; set the type bits to Char
  1233.     mov    si,listptr
  1234.     mov    dirlist[si],ax        ; store type and key's new code
  1235.     jmp    dfkey7            ; return success
  1236.  
  1237. dfkey6c:push    si            ; clear a definition,
  1238.     push    di            ; listptr points to current def
  1239.     mov    si,listptr        ; starting address to clear
  1240.     add    si,offset dirlist
  1241.     mov    di,si            ; destination
  1242.     add    si,2            ; source is next word
  1243.     mov    cx,nkeys        ; current number of keys defined
  1244.     add    cx,cx            ; double for listptr being words
  1245.     sub    cx,listptr        ; cx = number of words to move
  1246.     shr    cx,1            ; convert to actual number of moves
  1247.     jcxz    dfkey6d            ; z = none, just remove last word
  1248.     push    es
  1249.     push    ds
  1250.     pop    es            ; make es:di point to data segment
  1251.     cld
  1252.     push    cx            ; save cx
  1253.     rep    movsw            ; move down higher list items
  1254.     pop    cx
  1255.     mov    si,listptr        ; do keylist too, same way
  1256.     add    si,offset keylist
  1257.     mov    di,si
  1258.     add    si,2
  1259.     rep    movsw
  1260.     pop    es
  1261. dfkey6d:mov    si,nkeys        ; clear old highest list element
  1262.     shl    si,1            ; address words
  1263.     mov    dirlist[si],0        ; null the element
  1264.     mov    keylist[si],0        ; null the element
  1265.     dec    nkeys            ; say one less key defined now
  1266.     pop    di            ; restore saved registers
  1267.     pop    si
  1268.  
  1269. dfkey7:    mov    ah,msutake        ; Finish up. In a Take file?
  1270.     or    ah,taklev        ; or even directly
  1271.     or    ah,ah
  1272.     jz    dfkey7a            ; z = no
  1273.     cmp    flags.takflg,0        ; echo Take commands?
  1274.     je    dfkey7b            ; e = no
  1275. dfkey7a:mov    ah,prstr        ; display cr/lf
  1276.     mov    dx,offset crlf
  1277.     int    dos
  1278.     call    shkey0            ; show new definition (in SHKEY)
  1279.     call    shkfre            ; show free string space
  1280. dfkey7b:clc                ; return success
  1281.     ret
  1282. DFKEY    ENDP
  1283.  
  1284. ; SHOW KEY <cr> command. Call from Kermit level. Vectored here by SHOW
  1285. ; command. Replaces obsolete procedure in msx---.
  1286. ; Prompts for a key and shows that key's (or all if ? entered) keycode,
  1287. ; definition, and the key definition free space remaining.
  1288.  
  1289. SHKEY    PROC    NEAR            ; Show key's definition command
  1290.     mov    ah,cmeol        ; get a confirm
  1291.     call    comnd            ; ignore any additional text
  1292.     push    bx
  1293.     mov    dx,offset shkmsg1    ; ask for original key
  1294.     mov    ah,prstr
  1295.     int    dos
  1296.     or    byte ptr kbcodes,80h    ; say kbcodes not-initiated
  1297. shky0:    call    getkey            ; read keyboard, output to keycode
  1298.     jc    shky0            ; wait for a key (c = nothing there)
  1299.     cmp    byte ptr keycode,'?'    ; query for all keys?
  1300.     jne    shky0a            ; ne = no, not a query
  1301.     test    keycode,scan        ; is this a scan code, vs ascii query?
  1302.     jz    shky0c            ; z = no Scan, so it is a query
  1303.  
  1304. shky0a:    mov    ah,prstr        ; show single key. Setup display
  1305.     mov    dx,offset crlf
  1306.     int    dos
  1307.     call    shkey0            ; show just one key
  1308. shky0b:    call    shkfre            ; show free string space
  1309.     jmp    shkeyx            ; exit
  1310.  
  1311. shky0c:    mov    cx,nkeys        ; Show all keys. nkeys = number defined
  1312.     jcxz    shky0b            ; z = none to show
  1313.     mov    si,offset keylist    ; list of definitions
  1314.     push    si            ; save pointer
  1315. shky1:    pop    si            ; recover pointer
  1316.     cld
  1317.     lodsw                ; get a keycode
  1318.     push    si            ; save pointer
  1319.     push    cx            ; save counter
  1320.     mov    keycode,ax        ; save new keycode
  1321.     mov    ah,prstr
  1322.     mov    dx,offset crlf
  1323.     int    dos
  1324.     call    shkey0            ; show this keycode
  1325.  
  1326.     pop    cx            ; pause between screens, recover cntr
  1327.     push    cx            ; save it again
  1328.     dec    cx            ; number yet to be shown
  1329.     jcxz    shky1b            ; z = have now shown all of them
  1330.     mov    ax,nkeys        ; number of defined keys
  1331.     sub    ax,cx            ; minus number yet to be displayed
  1332.     xor    dx,dx            ; clear extended numerator
  1333.     div    twelve            ; two lines per definition display
  1334.     or    dx,dx            ; remainder zero (12 defs shown)?
  1335.     jnz    shky1b            ; nz = no, not yet so keep going
  1336.     mov    ah,prstr
  1337.     mov    dx,offset shkmsg3    ; "push any key to continue" msg
  1338.     int    dos
  1339. shky1a:    mov    ah,0bh            ; check console, check ^C
  1340.     int    dos
  1341.     cmp    flags.cxzflg,'C'    ; a ^C?
  1342.     je    shky1b            ; e = yes, quit
  1343.     or    al,al
  1344.     jz    shky1a            ; z = nothing
  1345.     call    getkey            ; get any key
  1346.     jc    shky1a            ; c = nothing at keyboard yet, wait
  1347. shky1b:    pop    cx            ; resume loop
  1348.     cmp    flags.cxzflg,'C'    ; a ^C?
  1349.     je    shky1c            ; e = yes, quit
  1350.     loop    shky1
  1351. shky1c:    pop    si            ; clean stack
  1352.     call    shkfre            ; show free string space
  1353.     jmp    shkeyx            ; exit
  1354.  
  1355.         ; show key worker routine, called from above
  1356.                     ; SHKEY0 called by DFKEY just above
  1357. SHKEY0:    test    keycode,scan        ; scan code?
  1358.     jz    shkey1            ; z = no, regular ascii
  1359.  
  1360.                     ; SCAN codes
  1361.     mov    dx,offset scanmsg    ; say Scan Code:
  1362.     mov    ah,prstr
  1363.     int    dos
  1364.     mov    ah,conout
  1365.     mov    dl,'\'            ; add backslash before number
  1366.     int    dos
  1367.     mov    ax,keycode        ; get key's code again
  1368.     call    decout            ; display 16 bit decimal keycode
  1369.     jmp    shkey2            ; go get definition
  1370.  
  1371. shkey1:    mov    dx,offset ascmsg    ; say ASCII CHAR
  1372.     mov    ah,prstr
  1373.     int    dos
  1374.     mov    dl,byte ptr keycode    ; get ascii code (al part of input)
  1375.     mov    ah,conout
  1376.     cmp    dl,spc            ; control code?
  1377.     jae    shkey1a            ; ae = no
  1378.     push    dx            ; save char
  1379.     mov    dl,5eh            ; show caret first
  1380.     int    dos
  1381.     pop    dx
  1382.     add    dl,'A'-1        ; ascii bias
  1383. shkey1a:cmp    dl,del            ; DEL?
  1384.     jne    shkey1b            ; ne = no
  1385.     mov    dl,'D'            ; spell out DEL
  1386.     int    dos
  1387.     mov    dl,'E'
  1388.     int    dos
  1389.     mov    dl,'L'
  1390. shkey1b:int    dos
  1391.     mov    dl,spc            ; add a couple of spaces
  1392.     int    dos
  1393.     int    dos
  1394.     mov    dl,'\'            ; add backslash before number
  1395.     int    dos
  1396.     mov    ax,keycode        ; show 16 bit keycode in decimal
  1397.     call    decout            ; and go get definiton
  1398.  
  1399.                     ; Display defintion
  1400. shkey2:    mov    dx,offset shkmsg2    ; intermediate part of reply
  1401.     mov    ah,prstr        ; " is defined as "
  1402.     int    dos
  1403.     push    di            ; get a director code for this key
  1404.     push    cx    
  1405.     mov    di,offset keylist    ; list of keycodes
  1406.     mov    cx,nkeys        ; number currently defined
  1407.     jcxz    shkey2a            ; z = none
  1408.     mov    ax,keycode        ; present keycode
  1409.     push    ds
  1410.     pop    es            ; use data segment for es:di
  1411.     cld
  1412.     repne    scasw            ; is current keycode in the list?
  1413.     jne    shkey2a            ; ne = not in list
  1414.     sub    di,2            ; correct for auto increment
  1415.     sub    di,offset keylist
  1416.     mov    listptr,di        ; list pointer for existing definition
  1417.     pop    cx
  1418.     pop    di
  1419.     jmp    shkey3            ; go process definition
  1420.  
  1421. shkey2a:pop    cx
  1422.     pop    di
  1423.     mov    dx,offset noxmsg    ; say Self (no translation)
  1424.     mov    ah,prstr
  1425.     int    dos
  1426.     ret                ; return to main show key loop
  1427.  
  1428. shkey3:                    ; translations, get kind of.
  1429.     mov    si,listptr
  1430.     test    dirlist[si],verb    ; defined as verb?
  1431.     jnz    shkey6            ; nz = yes, go do that one
  1432.     test    dirlist[si],strng    ; defined as string?
  1433.     jz    shkey3a            ; z = no
  1434.     jmp    shkey8            ; yes, do string display
  1435. shkey3a:
  1436.     mov    dx,offset ascmsg    ; CHAR. say 'Ascii char:'
  1437.     mov    ah,prstr
  1438.     int    dos
  1439.     mov    ax,dirlist [si]        ; get type and char
  1440.     mov    dl,al            ; put char here for display
  1441.     push    ax            ; save here too
  1442.     mov    ah,conout
  1443.     cmp    dl,spc            ; control code?
  1444.     jae    shkey4            ; ae = no
  1445.     push    dx
  1446.     mov    dl,5eh            ; show caret
  1447.     int    dos
  1448.     pop    dx
  1449.     add    dl,'A'-1        ; add ascii bias
  1450. shkey4:    cmp    dl,del            ; DEL?
  1451.     jne    shkey4a            ; ne = no
  1452.     mov    dl,'D'            ; spell out DEL
  1453.     int    dos
  1454.     mov    dl,'E'
  1455.     int    dos
  1456.     mov    dl,'L'
  1457. shkey4a:int    dos
  1458.     mov    dl,spc            ; add a couple of spaces
  1459.     mov    ah,conout
  1460.     int    dos
  1461.     int    dos
  1462.     mov    dl,'\'            ; add backslash before number
  1463.     int    dos
  1464.     pop    ax            ; recover char
  1465.     xor    ah,ah            ; clear high byte
  1466.     call    decout            ; show decimal value
  1467.     ret                ; return to main show key loop
  1468.  
  1469. shkey6:    mov    ah,prstr        ; VERB
  1470.     mov    dx,offset verbmsg    ; say 'verb'
  1471.     int    dos
  1472.     mov    si,listptr        ; get verb index from director
  1473.     mov    dx,dirlist[si]
  1474.     and    dx,not(verb+strng)    ; remove type bits, leaves verb number
  1475.     mov    bx,offset kverbs    ; table of verbs & actions
  1476.     mov    al,byte ptr [bx]    ; number of keywords
  1477.     xor    ah,ah
  1478.     dec    ax
  1479.     mov    kwcnt,ax        ; save number of last one here
  1480.     cmp    dx,ax            ; asking for more than we have?
  1481.     ja    shkeyx            ; a = yes, exit bad
  1482.     inc    bx            ; point to first slot
  1483.     xor    cx,cx            ; current slot number
  1484. shkey6b:cmp    cx,dx            ; this slot?
  1485.     je    shkey6c            ; e = yes, print the text part
  1486.     ja    shkeyx            ; a = beyond, exit bad
  1487.     mov    ax,[bx]            ; get cnt (keyword length)
  1488.     add    ax,4            ; skip count and two byte value
  1489.     add    bx,ax            ; bx = start of next keyword slot
  1490.     inc    cx            ; current keyword number
  1491.     jmp    short shkey6b        ; try another
  1492. shkey6c:push    cx
  1493.     mov    cx,[bx]            ; length of definition
  1494.     add    bx,2            ; look at text field
  1495.     mov    di,bx            ; offset for printing
  1496.     call    prtscr            ; print counted string
  1497.     mov    ah,conout
  1498.     mov    dl,spc            ; add a couple of spaces
  1499.     int    dos
  1500.     int    dos
  1501.     mov    dl,'\'            ; show verb name as \Kverb
  1502.     int    dos
  1503.     mov    dl,'K'
  1504.     int    dos
  1505.     call    prtscr            ; print counted string, again
  1506.     pop    cx
  1507.     ret                ; return to main show key loop
  1508.  
  1509. shkey8:    mov    ah,prstr        ; STRING
  1510.     mov    dx,offset strngmsg    ; say String:
  1511.     int    dos
  1512.     mov    si,listptr        ; get index from director
  1513.     mov    bx,dirlist[si]
  1514.     and    bx,not(verb+strng)    ; remove type bits
  1515.     shl    bx,1            ; index words
  1516.     mov    si,sptable[bx]        ; table of string offsets
  1517.     mov    cx,word ptr [si]    ; get string length
  1518.     add    si,2            ; point to string text
  1519.     mov    ah,conout
  1520. shkey8a:cld
  1521.     lodsb                ; get a byte
  1522.     cmp    al,127            ; DEL?
  1523.     je    shkey8c            ; e = yes
  1524.     cmp    al,spc            ; control code?
  1525.     jae    shkey8b            ; ae = no
  1526. shkey8c:push    ax
  1527.     mov    dl,5eh            ; show caret first
  1528.     int    dos
  1529.     pop    ax
  1530.     add    al,40h            ; convert to printable for display
  1531.     and    al,7fh
  1532. shkey8b:mov    dl,al
  1533.     int    dos            ; display it
  1534.     loop    shkey8a            ; do another
  1535.     ret                ; return to main show key loop
  1536.     
  1537. shkeyx:    pop    bx            ; restore reg
  1538.     clc                ; return success
  1539.     ret
  1540. SHKEY    ENDP
  1541.  
  1542. ;;;    keyboard translator local support procedures, system independent
  1543.  
  1544. ; Tstkeyw checks text word pointed to by si against table of keywords (pointed
  1545. ; to by kverbs, made by mkeyw macro); returns in bx either action value or 0.
  1546. ; Returns in kbtemp the number of the keyword and carry clear, or if failure
  1547. ; returns kbtemp zero and carry set.
  1548. ; Keyword structure is:         dw    cnt    (length of string 'word')
  1549. ;                 db    'word'    (keyword string)
  1550. ;                 dw    value    (value returned in bx)
  1551. ; Make these with macro mkeyw such as   mkeyw 'test',15   with the list of
  1552. ; such keywords headed by a byte giving the number of keywords in the list.
  1553. tstkeyw    proc    near
  1554.     push    ax
  1555.     push    cx
  1556.     push    si
  1557.     mov    verblen,0        ; verblen will hold verb length
  1558.     push    si            ; save user's verb pointer
  1559. tstkw1:    cld
  1560.     lodsb                ; get a verb character
  1561.     cmp    al,spc            ; verbs are all non-spaces and above
  1562.     jbe    tstkw2            ; be = done (space or control char)
  1563.     inc    verblen            ; count verb length
  1564.     jmp    short tstkw1        ; printable char, look for more
  1565. tstkw2:    pop    si            ; pointer to verb
  1566.     mov    bx,offset kverbs    ; table of Kermit verb keywords
  1567.     mov    al,byte ptr [bx]    ; number of keywords
  1568.     xor    ah,ah
  1569.     mov    kwcnt,ax        ; save number of keywords here
  1570.     inc    bx            ; point bx to first slot
  1571.     mov    kbtemp,0        ; remember which keyword
  1572.  
  1573. tstkw3:                    ; match table keyword and text word
  1574.     mov    cx,verblen        ; length of user's verb
  1575.     cmp    [bx],cx            ; compare length vs table keyword
  1576.     jne    tstkw4            ; ne = not equal lengths, try another
  1577.     push    si            ; lengths match, how about spelling?
  1578.     push    bx
  1579.     add    bx,2            ; point at start of keyword
  1580. tstkw3a:mov    ah,byte ptr [bx]    ; keyword char
  1581.     mov    al,byte ptr [si]    ; text char
  1582.     cmp    ah,'A'
  1583.     jb    tstkw3b            ; b = control chars
  1584.     cmp    ah,'Z'
  1585.     ja    tstkw3b            ; a = not upper case alpha
  1586.     add    ah,'a'-'A'        ; convert upper case to lower case
  1587. tstkw3b:cmp    al,'A'
  1588.     jb    tstkw3c
  1589.     cmp    al,'Z'
  1590.     ja    tstkw3c
  1591.     add    al,'a'-'A'        ; convert upper case to lower case
  1592. tstkw3c:cmp    al,ah            ; test characters
  1593.     jne    tstkw3d            ; ne = no match
  1594.     inc     si            ; move to next char
  1595.     inc    bx
  1596.     loop    tstkw3a            ; loop through entire length
  1597. tstkw3d:pop    bx
  1598.     pop    si
  1599.     jcxz    tstkw5            ; z: cx = 0, exit with match;
  1600.                     ;  else select next keyword
  1601. tstkw4:    inc    kbtemp            ; number of keyword to test next
  1602.     mov    cx,kbtemp
  1603.     cmp    cx,kwcnt        ; all done? Recall kbtemp starts at 0
  1604.     jae    tstkwx            ;ae = exhausted search, unsuccessfully
  1605.     mov    ax,[bx]            ; cnt (keyword length from macro)
  1606.     add    ax,4            ; skip over count and two byte value
  1607.     add    bx,ax            ; bx = start of next keyword slot
  1608.     jmp    tstkw3            ; do another comparison
  1609.  
  1610. tstkw5:                    ; get action pointer
  1611.     mov    ax,[bx]            ; cnt (keyword length from macro)
  1612.     add    ax,2            ; skip over count
  1613.     add    bx,ax            ; now bx points to dispatch value
  1614.     mov    bx,[bx]            ; bx holds dispatch value
  1615.     clc                ; carry clear for success
  1616.     jmp    short tstkwxx        ; exit
  1617.     ret
  1618. tstkwx:    xor    bx,bx            ; exit when no match
  1619.     mov    kbtemp,bx        ; make verb number be zero too
  1620.     stc                ; carry set for failure
  1621. tstkwxx:pop    si
  1622.     pop    cx
  1623.     pop    ax
  1624.     ret
  1625. tstkeyw    endp
  1626.  
  1627. ; Insert asciiz string pointed to by si into string buffer stbuf.
  1628. ; Reg cx has string length upon entry.
  1629. ; Success: returns offset of first free byte (strmax) in string buffer stbuf,
  1630. ; cx = type and Index of new string, and carry clear.
  1631. ; Failure = carry set.
  1632. insertst proc    near
  1633.     push    bx
  1634.     push    dx
  1635.     push    si
  1636.     push    di
  1637.     push    kbtemp        ; save this variable too
  1638.     mov    dx,cx        ; save length of incoming string in dx
  1639.     mov    bx,offset sptable ; table of string offsets
  1640.     mov    kbtemp,0    ; slot number
  1641.     mov    cx,maxstng    ; number of entries, find an empty slot
  1642. insert1:cmp    word ptr[bx],0    ; slot empty?
  1643.     je    insert2        ; e = yes
  1644.     inc    kbtemp        ; remember slot number
  1645.     add    bx,2        ; look at next slot
  1646.     loop    insert1        ; keep looking
  1647.     jmp    short insert4    ; get here if no empty slots
  1648. insert2:            ; see if stbuf has sufficient space
  1649.     mov    cx,dx        ; length of new string to cx
  1650.     mov    di,strmax    ; offset of first free byte in stbuf
  1651.     add    di,cx        ; di = address where this string would end
  1652.     cmp    di,offset stbuf+stbuflen ; beyond end of buffer?
  1653.     jae    insert4        ; ae = yes, not enough room
  1654.     mov    di,strmax    ; point to first free slot in stbuf
  1655.     mov    [bx],di        ; fill slot with address offset of buffer
  1656.     push    es
  1657.     push    ds
  1658.     pop    es        ; point es:di to data segment
  1659.     cld
  1660.     mov    [di],cx        ; length of text for new string
  1661.     add    di,2        ; move to next storage slot
  1662.     rep    movsb        ; copy string text
  1663.     pop    es
  1664.     mov    strmax,di    ; offset of next free byte
  1665.     mov    cx,kbtemp    ; return new slot number with Director Index
  1666.     and    cx,not(strng+verb) ; clear type bits
  1667.     or    cx,strng    ; say type is multi-char string
  1668.     clc            ; say success
  1669.     jmp    short insertx    ; exit
  1670. insert4:stc            ; say no-can-do
  1671. insertx:pop    kbtemp
  1672.     pop    di
  1673.     pop    si
  1674.     pop    dx
  1675.     pop    bx
  1676.     ret
  1677. insertst endp
  1678.  
  1679. ; Remove (delete) string. Enter with listptr preset for director entry.
  1680. ; Acts only on existing multi-char strings; recovers freed space.
  1681. ; All registers preserved.
  1682. remstr    proc    near        
  1683.     push    si
  1684.     mov    si,listptr        ; list pointer
  1685.     test    dirlist[si],strng    ; multi-char string?
  1686.     pop    si
  1687.     jnz    remst1            ; nz = a multi-char string
  1688.     ret                ; else do nothing
  1689. remst1:    push    ax
  1690.     push    bx
  1691.     push    cx
  1692.     push    dx
  1693.     push    si
  1694.     mov    si,listptr
  1695.     mov    ax,dirlist[si]         ; Director table entry
  1696.     and    ax,not(strng+verb) ; clear type bits, leave string's pointer
  1697.     mov    dirlist[si],0        ; clear Director table entry
  1698.     shl    ax,1            ; index words not bytes
  1699.     mov    si,offset sptable     ; list of string offsets in stbuf
  1700.     add    si,ax            ; plus index = current slot
  1701.     mov    bx,[si]            ; get offset of string to be deleted
  1702.     mov    dx,bx            ; save in dx for later
  1703.     mov    cx,[bx]            ; get length of subject string
  1704.     add    cx,2            ; length word too, cx has whole length
  1705.     sub    strmax,cx    ; count space to be freed (adj end-of-buf ptr)
  1706.     mov    word ptr [si],0    ; clear sptable of subject string address
  1707.     push    cx            ; save length of purged string
  1708.     push    di            ; save di
  1709.     push    si
  1710.     push    es            ; save es
  1711.     push    ds
  1712.     pop    es        ; setup es:di to be ds:offset of string
  1713.     mov    di,dx        ; destination = start address of purged string
  1714.     mov    si,dx        ; source = start address of purged string
  1715.     add    si,cx        ;  plus string length of purged string.
  1716.     mov    cx,offset stbuf+stbuflen ; 1 + address of buffer end
  1717.     sub    cx,si            ; 1 + number of bytes to move
  1718.     dec    cx            ; number of bytes to move
  1719.     jcxz    remst2            ; z = none
  1720.     cld                ; direction is forward
  1721.     rep    movsb            ; move down preserved strings
  1722. remst2:    pop    es            ; restore regs
  1723.     pop    di
  1724.     pop    si
  1725.     pop    ax        ; recover length of purged string (was in cx)
  1726.     mov    bx,offset sptable     ; string pointer table
  1727.     mov    cx,maxstng        ; max mumber of entries
  1728. remst4:    cmp    [bx],dx        ; does this entry occur before purged string?
  1729.     jbe    remst5        ; be = before or equal, so leave it alone
  1730.     sub    [bx],ax        ; recompute address (remove old string space)
  1731. remst5:    add    bx,2            ; look at next list entry
  1732.     loop    remst4            ; do all entries in sptable
  1733.     pop    si
  1734.     pop    dx
  1735.     pop    cx
  1736.     pop    bx
  1737.     pop    ax
  1738.     ret
  1739. remstr    endp
  1740.  
  1741. shkfre    proc    near            ; show free key & string defs & space
  1742.     push    ax            ; preserves all registers.
  1743.     push    bx
  1744.     push    cx
  1745.     push    dx
  1746.     push    kbtemp
  1747.     mov    dx,offset fremsg
  1748.     mov    ah,prstr
  1749.     int    dos
  1750.     mov    ax,maxkeys        ; max number of key defs
  1751.     sub    ax,nkeys        ; number currently used
  1752.     call    decout            ; show the value
  1753.     mov    ah,prstr
  1754.     mov    dx,offset kyfrdef    ; give key defs msg
  1755.     int    dos
  1756.     mov    bx,offset sptable    ; table of string pointers
  1757.     mov    cx,maxstng        ; number of pointers
  1758.     mov    kbtemp,0        ; number free
  1759. shkfr1:    cmp    word ptr [bx],0        ; slot empty?
  1760.     jne    shkfr2            ; ne = no
  1761.     inc    kbtemp            ; count free defs
  1762. shkfr2:    add    bx,2            ; look at next slot
  1763.     loop    shkfr1            ; do all of them
  1764.     mov    ax,kbtemp        ; number of free defs
  1765.     call    decout            ; display
  1766.     mov    dx,offset stfrdef    ; say free string defs
  1767.     mov    ah,prstr
  1768.     int    dos
  1769.     mov    ax,offset stbuf+stbuflen+1 ; 1 + last byte in stbuf
  1770.     sub    ax,strmax        ; offset of last free byte in stbuf
  1771.     call    decout
  1772.     mov    dx,offset stfrspc    ; give free space part of msg
  1773.     mov    ah,prstr
  1774.     int    dos
  1775.     pop    kbtemp
  1776.     pop    dx
  1777.     pop    cx
  1778.     pop    bx
  1779.     pop    ax
  1780.     ret
  1781. shkfre    endp
  1782.  
  1783. ; Initialize the keyboard tables at Kermit startup time. Optional procedure.
  1784. ; Requires kbdinlst to be configured with mkeyw macro in the form
  1785. ;    mkeyw    'definition',keytype*256+keycode
  1786. ; keytype is 0 for scan codes and non-zero for ascii.
  1787. ; Returns normally.
  1788. kbdinit    proc     near            ; read keyword kbdinlst and setup
  1789.     or    byte ptr kbcodes,80h    ; say kbcodes not-initiated
  1790.     push    ds            ;  initial keyboard assignments.
  1791.     pop    es            ; set es:di to data segment
  1792.     inc    taklev            ; pretend that we are in Take file
  1793.     call    chk250            ;** LK250 support begin
  1794.     cmp    got250,1        ;** is it installed?
  1795.     jne    kbdini0            ;** ne = no
  1796.     call    kbrest            ;** else initialize to DEC mode
  1797.     mov    si,offset kb250lst    ;** load extensions
  1798.     jmp    short kbdini1        ;** LK250 support end
  1799. kbdini0:mov     si,offset kbdinlst      ; start of list of definitions
  1800. kbdini1:mov    cx,[si]            ; cnt field (keyword length of macro)
  1801.     jcxz    kbdinix            ; z = null cnt field = end of list
  1802.     add    si,2            ; look at text field
  1803.     mov    di,offset tranbuf    ; where defkey expects text
  1804.     cld
  1805.     rep    movsb            ; copy cx chars to tranbuf
  1806.     mov    byte ptr [di],0        ; insert null terminator
  1807.     mov    ax,word ptr [si]    ; get value field
  1808.     mov    keycode,ax        ; set key ident value
  1809.     push    si
  1810.     call    dfkey2            ; put dfkey to work
  1811.     pop    si
  1812.     add    si,2            ; point to next entry
  1813.     jmp    kbdini1            ; keep working
  1814. kbdinix:dec    taklev            ; reset Take file level
  1815.     call    fudkclear        ; clear User Definable Keys
  1816.     mov    cx,40h            ; segment 40h
  1817.     mov    es,cx
  1818.     mov    cl,byte ptr es:[96h]    ; kbd_flag_3, Enhanced keyboard area
  1819.     test    cl,10h            ; select Enhanced kbd presence bit
  1820.     jz    kbdinx1            ; z = regular (88)
  1821.     mov    keyboard,101        ; 101 = enhanced kbd
  1822. kbdinx1:ret
  1823. kbdinit    endp
  1824. ;;;    End of System Independent Procedures
  1825.  
  1826. ;;;    Begin System Dependent Procedures
  1827.  
  1828. ; Read keyboard. System dependent.
  1829. ; Return carry set if nothing at keyboard.
  1830. ; If char present return carry clear with key's code in Keycode.
  1831. ; If key is ascii put that in the low byte of Keycode and clear bit Scan in
  1832. ; the high byte; otherwise, put the scan code in the lower byte and set bit
  1833. ; Scan in the high byte.
  1834. ; Bit Scan is set if key is not an ascii code.
  1835. ; Two methods are used: Bios reading for Set Key ON, and DOS reading for
  1836. ; Set Key OFF. DOS scan codes are coerced to Bios values as much as possible.
  1837. ; Modifies register ax.
  1838. getkey    proc    near
  1839.     mov    keycode,0        ; clear old keycode
  1840.     cmp    dosflg,0ffh        ; do DOS keyboard reading?
  1841.     je    getky7            ; e = yes, DOS
  1842.     jmp    getky6            ; do full Bios form
  1843.                     ; ;;;;;;;; D O S ;;;;;;;;;;
  1844. getky7:    test    byte ptr kbcodes,80h    ; kbcodes initiated?        [dan]
  1845.     jz    getky5            ; z = yes            [dan]
  1846.     and    byte ptr kbcodes,not 80h ; say kbcodes initiated
  1847. getky5:    call    iseof            ; is stdin at eof?
  1848.     jnc    getky5k            ; nc = not eof, get more
  1849.      mov    al,trans.escchr        ; Kermit's escape char
  1850.     mov    byte ptr keycode,al    ; save ascii char
  1851.     clc                ;  to get out gracefully at EOF
  1852.     ret                ; and exit
  1853.  
  1854. getky5k:mov    dl,0ffh            ; DOS read operation
  1855.     mov    ah,dconio        ; from stdin
  1856.     int    dos
  1857.     jnz    getky5a            ; nz = char available
  1858.     stc                ; carry set = nothing available
  1859.     ret                ; exit on no char
  1860. getky5a:or    al,al            ; scan code precursor?
  1861.     jz    getky5d            ; z = yes
  1862.     cmp    al,16            ; Control P?
  1863.     jne    getky5b            ; ne = no
  1864.     mov    al,114            ; force Control PrtSc scan code
  1865.     jmp    short getky5e        ; process as scan code
  1866. getky5b:cmp    al,BS            ; backspace key?
  1867.     jne    getky5c            ; ne = no
  1868.     mov    al,14            ; force scan code for BS key
  1869.     jmp    short getky5e        ; process as scan code
  1870. getky5c:mov    byte ptr keycode,al    ; save ascii char
  1871.     clc                ; carry clear = got a char
  1872.     ret                ; and exit
  1873.  
  1874. getky5d:mov    dl,0ffh            ; read second byte (actual scan code)
  1875.     mov    ah,dconio        ; read via DOS
  1876.     int    dos
  1877.     jnz    getky5e            ; nz = got a char
  1878.     stc                ; none, declare bad read
  1879.     ret
  1880.                     ; Check and modify to Bios scan codes
  1881. getky5e:mov    byte ptr keycode,al    ; save char code
  1882.     cmp    al,1            ; Alt escape
  1883.     je    getkya            ; set Alt bit
  1884.     cmp    al,16            ; back tab
  1885.     jb    getky5g            ; these remain unchanged
  1886.     cmp    al,50            ; start of meta keys
  1887.     jb    getkya            ; b = set Alt bit
  1888.     cmp    al,84            ; Shift F1
  1889.     jb    getky5g            ; b = no change
  1890.     cmp    al,94            ; Control F1
  1891.     jb    getkys            ; set Shift bit
  1892.     cmp    al,104            ; Alt F1
  1893.     jb    getkyc            ; set Control bit
  1894.     cmp    al,114            ; Control PrtSc
  1895.     jb    getkya            ; set Alt bit
  1896.     cmp    al,120            ; Alt top rank
  1897.     jb    getkyc            ; set Control bit
  1898.     cmp    al,132            ; Control PgUp
  1899.     jb    getkya            ; set Alt bit
  1900.     je    getkyc            ; set Control bit
  1901.     cmp    al,135            ; Shift F11, for Enhanced keyboard
  1902.     jb    getky5g            ; no change
  1903.     cmp    al,137            ; Control F11
  1904.     jb    getkys            ; set Shift bit
  1905.     cmp    al,139            ; Alt F11
  1906.     jb    getky5c            ; set Control bit
  1907.     cmp    al,141            ; Control Up
  1908.     jb    getkya            ; set Alt bit
  1909.     cmp    al,151            ; Alt Home
  1910.     jb    getkyc            ; set Control bit
  1911.     jmp    short getkya        ; set Alt bit
  1912. getkyc:    or    keycode,control        ; set Control bit
  1913.     jmp    short getky5g
  1914. getkys:    or    keycode,shift        ; set Shift bit
  1915.     jmp    short getky5g
  1916. getkya:    or    keycode,alt        ; set Alt bit
  1917. getky5g:or    keycode,scan        ; ensure scan bit is set
  1918.     clc                ; report we have a scan keycode
  1919.     ret                ; and exit
  1920.  
  1921.                     ; ;;;;;;;;;; B I O S ;;;;;;;;;;;;;
  1922. getky6:                    ; full BIOS keyboard reading
  1923.     test    byte ptr kbcodes,80h    ; kbcodes initiated?        [dan]
  1924.     jz    getky6a            ; z = yes            [dan]
  1925.     mov    kbcodes,0001h        ; low byte = status, high = read char
  1926.     push    cx            ; save registers
  1927.     push    es
  1928.     mov    cx,40h            ; segment 40h
  1929.     mov    es,cx
  1930.     mov    cl,byte ptr es:[96h]    ; kbd_flag_3, Enhanced keyboard area
  1931.     and    cl,10h            ; select Enhanced kbd presence bit
  1932.     mov    ch,cl            ; copy, for both status and read
  1933.     or    kbcodes,cx        ; 0 = regular kbd, 10h = enhanced kbd
  1934.     pop    es
  1935.     pop    cx
  1936.  
  1937. getky6a:mov    ah,byte ptr kbcodes    ; anything at keyboard?
  1938.     xor    al,al
  1939.     int    kbint            ; Bios keyboard interrupt
  1940.     jnz    getky1            ; nz = char available
  1941.     cmp    ax,240            ; Bios "special ascii code" 0f0h?
  1942.     je    getky1            ; e = yes, Bios makes error, is a key
  1943.     stc                ; carry set = nothing available
  1944.     ret                 ; exit on no char available
  1945. getky1:    mov    ah,byte ptr kbcodes+1    ; read, no echo, wait til done
  1946.     int    kbint            ; ==> ah = scan code, al = char value
  1947.     cmp    ah,0            ; keycode entered by ALT ###?
  1948.     je    getky1c            ; e = yes, not enhanced
  1949.     cmp    ah,0e0h            ; Enhanced kbd Enter, fwd slash keys?
  1950.     jne    getky1b            ; ne = no
  1951.     xchg    ah,al            ; interchange scan and ascii fields
  1952. getky1b:cmp    al,0E0h            ; enhanced key hidden code?
  1953.     jne    getky1c            ; ne = no
  1954.     mov    byte ptr keycode,ah    ; retain scan code, surpress 0e0h
  1955.     or    keycode,scan+enhanced    ; set scan and enhanced idents
  1956.     mov    ah,2            ; use regular keyboard op code here
  1957.     int    kbint            ; get current shift state
  1958.     mov    bl,al            ; copy for a moment
  1959.     and    bl,rgt_shift        ; mask out all but right shift
  1960.     shl    bl,1            ; move right shift to left shift pos
  1961.     or    al,bl            ; collapse shift bits
  1962.     and    al,(lft_shift + alt_shift + ctl_shift)
  1963.     or    byte ptr keycode+1,al    ; store in type field of keycode
  1964.     clc                ; say have a keystroke
  1965.     jmp    getkyx            ; Enhanced kbd end. Skip other tests
  1966.  
  1967. getky1c:push    cx
  1968.     mov    cx,aliaslen        ; number of aliased keys
  1969.     or    cx,cx
  1970.     pop    cx
  1971.     jz    getky2            ; z = none
  1972.     push    di            ; check key (ax) for aliases
  1973.     push    cx
  1974.     push    es
  1975.     push    ds
  1976.     pop    es            ; make es:di refer to data segment
  1977.     mov    di,offset aliaskey    ; list of aliased keys
  1978.     mov    cx,aliaslen        ; number of entries
  1979.     cld
  1980.     repne    scasw            ; look for a match
  1981.     pop    es
  1982.     pop    cx
  1983.     pop    di
  1984.     jne    getky2            ; ne = not there
  1985.     xor    al,al            ; force use of scan code (in ah)
  1986. getky2:    or    al,al            ; scan code being returned?
  1987.     jnz    getky3            ; nz = no
  1988.     mov    byte ptr keycode,ah    ; store scan code for gsh
  1989.     push    ax
  1990.     push    bx
  1991.     call    gsh            ; get modified shift state
  1992.     or    byte ptr keycode+1,al    ; store in type field of keycode
  1993.     pop    bx
  1994.     pop    ax
  1995.     xchg    ah,al            ; put scan code in al
  1996.     or    keycode,scan        ; set scan flag (vs ascii)
  1997. getky3:    mov    byte ptr keycode,al    ; return key's code (usually ascii)
  1998.     clc                ; carry clear = got a char
  1999. getkyx:    ret
  2000. getkey    endp
  2001.  
  2002.  
  2003. ; get shift state into al.  We care about only shift, ctl, and alt keys.
  2004. ; right shift is collapsed into left shift. NumLock offsets Shift on keypad
  2005. ; white keys.
  2006. gsh    proc    near
  2007.     mov    ah,2
  2008.     int    kbint            ; get current shift state
  2009.     mov    bl,al            ; copy for a moment
  2010.     and    bl,rgt_shift        ; mask out all but right shift
  2011.     shl    bl,1            ; move right shift to left shift pos
  2012.     or    al,bl            ; collapse shift bits
  2013.     cmp    byte ptr keycode,71    ; below numeric key pad?
  2014.     jb    gsh1            ; b = yes
  2015.     cmp    byte ptr keycode,83    ; above numeric key pad?
  2016.     ja    gsh1            ; a = yes
  2017.     cmp    byte ptr keycode,74    ; grey - key ?
  2018.     je    gsh1            ; e = yes
  2019.     cmp    byte ptr keycode,78    ; grey + key
  2020.     je    gsh1            ; e = yes
  2021.     test    al,numlock        ; numlock set?
  2022.     jz    gsh1            ; z = no
  2023.     xor    al,lft_shift        ; numlock offsets shift and vice versa
  2024. gsh1:    and    al,(lft_shift + alt_shift + ctl_shift)
  2025.     ret
  2026. gsh    endp
  2027.  
  2028.  
  2029. ; Do any local processing after reading a key during active translation
  2030. ; Avoids same actions if a key is being defined or shown.
  2031. postkey    proc    near
  2032.                     ; Key Click code for VT102 emulator
  2033.     cmp    flags.vtflg,0        ; emulating? (0 = no)
  2034.     je    postke1            ; e = extra clicks not available
  2035.     test    vtemu.vtflgst,vskeyclick ; flags from SET TERM
  2036.     jz    postke1            ; z = extra clicks not wanted
  2037.     call    fvclick            ; click, what else?
  2038. postke1:ret
  2039. postkey    endp
  2040.  
  2041.                     ;** start of LK250 stuff
  2042. chk250    proc    near            ; presence test for DEC LK250 keyboard
  2043.     mov    got250,0        ; assume no LK250 keyboard
  2044.     cmp    dosflg,1        ; use LK250?
  2045.     jne    chk250x            ; ne = no
  2046.     mov    ax,sp            ; do push sp test for XT vs AT/386
  2047.     push    sp            ; XT pushes sp-2, AT's push old sp
  2048.     pop    cx            ; recover pushed value, clean stack
  2049.     xor    ax,cx            ; same?
  2050.     jne    chk250a            ; ne = no, XT. Don't do Int 15h
  2051.     mov    ax,5000h        ; see if the keyboard is loaded
  2052.     int    15h            ; look for DOS->DEC mode driver
  2053.     cmp    ax,1234h        ; find marker 1234h
  2054.     jne    chk250a            ; ne = marker not present, no driver
  2055.     mov    got250,1        ; else say we have an LK250
  2056.     mov    keyboard,250        ; global Variable
  2057. chk250x:ret
  2058. chk250a:mov    ah,prstr
  2059.     mov    dx,offset lk250msg    ; say driver not active
  2060.     int    dos
  2061.     ret
  2062. chk250    endp
  2063.  
  2064. kbrest    proc    near            ; set LK250 to DEC mode
  2065.     cmp    got250,1        ; LK250 present?
  2066.     jne    kbrest1            ; ne = no
  2067.     push    es            ; save reg
  2068.     mov    ax,40h            ; point to low memory
  2069.     mov    es,ax
  2070.     or    byte ptr es:[17h],20h    ; ensure Num Lock is on
  2071.     and    byte ptr es:[17h],0efh    ;  and Scroll is off
  2072.     pop    es            ; restore our [DS]
  2073.     mov    ax,5001h        ; issue set mode DEC to keyboard
  2074.     int    15h
  2075. kbrest1:ret
  2076. kbrest    endp
  2077.  
  2078. kbsusp    proc    near            ; set LK250 to DOS mode
  2079.     cmp    got250,1        ; LK250 present?
  2080.     jne    kbsusp1            ; ne = no
  2081.     mov    ax,5000h        ; unload extensions
  2082.     int    15h
  2083. kbsusp1:ret
  2084. kbsusp    endp
  2085.  
  2086. kbhold    proc    near
  2087.     cmp    got250,1        ; LK250 present?
  2088.     jne    kbhold1            ; ne = no
  2089.     mov    ax,5002h        ; issue SET LEDS
  2090.     mov    bl,0edh
  2091.     int    15h
  2092.     mov    ax,5002h
  2093.     mov    bl,holdscr        ; get the hold state
  2094.     or    bl,2            ; OR in Num Lock
  2095.     int    15h
  2096. kbhold1:ret
  2097. kbhold    endp                ;** end of LK250 stuff
  2098. code    ends
  2099.     end
  2100.