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