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