home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ccdos / ccsker.dat < prev    next >
Text File  |  2020-01-01  |  18KB  |  412 lines
  1. ; Edit History:
  2. ; 1990:
  3. ;   CC-Kermit 2.32/A is a Chinese version of MS-Kermit 2.32/A. 
  4. ;     This program keeps all functions of MS-Kermit 2.32/A in MS-DOS.
  5. ;     In CC-DOS, all display messages are translated in Chinese.
  6. ;       Jul.10,1991 [zqf]
  7.         public  dosnum, curdsk, fpush, isfile, sbrk, crun, errlev
  8.         public  takrd, takadr, taklev, filtst, drives, maxtry, imxtry
  9.         public  lclsusp, lclrest, lclexit, cwdir, kstatus
  10.         include ccsdef.h
  11.  
  12. env     equ     2CH                     ; environment address in psp
  13. cline   equ     80H                     ; offset in psp of command line
  14.  
  15. CSTACK  SEGMENT PARA STACK 'STACK'      ; Renamed from STACK
  16.         dw      200 dup(0)              ; Initialize stack to all zeros
  17. CSTACK  ENDS
  18.  
  19. datas   segment public 'datas'
  20.         extrn   buff:byte, comand:byte, flags:byte, pack:byte, trans:byte
  21.         extrn   prmptr:word, inichk:byte, ttyact:byte
  22.         extrn   machnam:byte, msfinal:byte, diskio:byte, decbuf:byte
  23.         extrn   isccdos:byte         ; Jun.1990 [zqf]
  24.  
  25. versio  label   byte
  26.         verdef
  27.         db      cr,lf
  28.         db      'Copyright (C) Trustees of Columbia University 1990.'
  29.         db      cr,lf,'$'
  30. cversio label   byte
  31.         cverdef 
  32.         db      cr,lf
  33.         db      '╒π╜¡┤≤╤º╝╞╦π╗·╧╡ 1990 ─Ω║║╗»   ╕τ┬╫▒╚╤╟┤≤╤º 1990 ─Ω╩▄═╨░µ╚¿ '
  34.         db      cr,lf,'$'     
  35. hlpmsg  db      'Type ? or HELP for help',cr,lf,'$'
  36. chlpmsg db      '╝ⁿ╚δ ? ╗≥ HELP ╟δ╟≤░∩╓·',cr,lf,'$'
  37. crlf    db      cr,lf,'$'
  38. ermes1  db      cr,lf,'?More parameters are needed$'
  39. cermes1 db      cr,lf,'?╨Φ╥¬╕ⁿ╢α╡─▓╬╩² $'
  40. ermes2  db      cr,lf,'?Unable to initialize memory$'
  41. cermes2 db      cr,lf,'?─┌┤µ╬▐╖¿│⌡╩╝╗» $'
  42. ermes3  db      cr,lf,'?Command canceled$'
  43. cermes3 db      cr,lf,'?├ⁿ┴ε▒╗╚í╧√ $'
  44. ermes4  db      cr,lf,'?Unable to change directory$'
  45. cermes4 db      cr,lf,'?╬▐╖¿╕─▒Σ╡▒╟░─┐┬╝          $'
  46. erms30  db      cr,lf,'?Passed maximum nesting level for TAKE command$'
  47. cerms30 db      cr,lf,'?│¼│÷ TAKE ├ⁿ┴ε╦∙╘╩╨φ╡─╟╢╠╫▓π╩²$'
  48. erms31  db      cr,lf,'?Cannot find Take-file: $'
  49. cerms31 db      cr,lf,'?╒╥▓╗╡╜ TAKE╬─╝■ : $'
  50. erms34  db      cr,lf,'This program requires DOS 2.0 or above$'
  51. cerms34 db      cr,lf,'▒╛│╠╨≥╥¬╟≤ DOS 2.0 ╥╘╔╧▓┘╫≈╧╡═│$'
  52. erms37  db      cr,lf,'?Unable to execute program$'
  53. cerms37 db      cr,lf,'?│╠╨≥╬▐╖¿╘╦╨╨$' 
  54. badnam  db      cr,lf,'?Protected or no such file(s)$'
  55. cbadnam db      cr,lf,'?┤╦╬─╝■▒╗▒ú╗ñ╗≥├╗╙╨╒Γ╕÷╬─╝■ $' 
  56. filmsg  db      ' Filename$'
  57. cfilmsg db      ' ╬─╝■├√  $'
  58. pthmsg  db      ' Name of new working directory and/or disk$'
  59. cpthmsg db      ' ╨┬╡─╣ñ╫≈─┐┬╝├√╗≥/╙δ┤┼┼╠╔Φ▒╕║┼ $'
  60. runmsg  db      ' program name and command line$'
  61. crunmsg db      ' │╠╨≥├√║═├ⁿ┴ε╨╨ $'
  62. tophlp  db      cr,lf
  63.         db      '  Ask (get console input to variable)'
  64.         db      '  Mail (file to host Mailer)'
  65.         db      cr,lf
  66.         db      '  Bye      (logout remote server)    '
  67.         db      '  Output text     (for scripts)'
  68.         db      cr,lf
  69.         db      '  C or Connect  (become a terminal)  '
  70.         db      '  Pause [seconds] (for scripts)'
  71.         db      cr,lf
  72.         db      '  Clear    (clear serial port buffer)'
  73.         db      '  Pop   (exit current Take file or macro)'
  74.         db      cr,lf
  75.         db      '  Close    (logging file)            '
  76.         db      '  Push     (go to DOS, keep Kermit)'
  77.         db      cr,lf
  78.         db      '  Comment  (text is ignored)         '
  79.         db      '  Quit     (leave Kermit)'
  80.         db      cr,lf
  81.         db      '  CWD or CD  (change dir &/or disk)  '
  82.         db      '  R or Receive  (opt local filename)'
  83.         db      cr,lf
  84.         db      '  Define/Assign   (a command macro)  '
  85.         db      '  Reinput  (script Input, reread buffer)'
  86.         db      cr,lf
  87.         db      '  Delete   (a file)                  '
  88.         db      '  Remote   (prefix for commands)'
  89.         db      cr,lf
  90.         db      '  Directory                          '
  91.         db      '  Run      (a program)'
  92.         db      cr,lf
  93.         db      '  Disable  (selected server commands)'
  94.         db      '  S or Send (local file   new name)'
  95.         db      cr,lf
  96.         db      '  Do       (a macro)                 '
  97.         db      '  Server [timeout] (become a server)'
  98.         db      cr,lf
  99.         db      '  Echo text (show line on screen)    '
  100.         db      '  Set      (most things)'
  101.         db      cr,lf
  102.         db      '  Enable   (selected server commands)'
  103.         db      '  Show     (most things)'
  104.         db      cr,lf
  105.         db      '  EXIT     (leave Kermit)            '
  106.         db      '  Space    (free on current disk)'
  107.         db      cr,lf
  108.         db      '  Finish   (to remote server)        '
  109.         db      '  Status   (show main conditions)'
  110.         db      cr,lf
  111.         db      '  Get      (remote file opt new name)'
  112.         db      '  Stay     (in Kermit after startup)'
  113.         db      cr,lf
  114.         db      '  Goto     (label,Take file or Macro)'
  115.         db      '  Stop     (exit all Take files & macros)'
  116.         db      cr,lf
  117.         db      '  Hangup   (drop DTR, hang up phone) '
  118.         db      '  Take     (do a command file)'
  119.         db      cr,lf
  120.         db      '  If [not] <condition> <command>     '
  121.         db      '  Transmit filespec [prompt] (raw upload)'
  122.         db      cr,lf
  123.         db      '  I or Input [timeout] text (scripts)'
  124.         db      '  Type     (a file)'
  125.         db      cr,lf
  126.         db      '  Log (Packet, Session, Transaction) '
  127.         db      '  Wait [timeout] on modem \cd \cts \dsr'
  128.         db      cr,lf
  129.         db      '  Logout   (remote server)           '
  130.         db      '  Version  (show Kermit''s id)'
  131.         db      cr,lf
  132.         db      '  Type HELP for an Introduction, use "?" within commands for'
  133.         db      ' specific help.$'
  134.  
  135. ctophlp db      cr,lf
  136.         db      '  Ask     (╟δ╟≤┤╙┐╪╓╞╠¿╩Σ╚δ▒Σ┴┐╓╡)   '  
  137.         db      '  Mail    (╖ó╦═╬─╝■╡╜╓≈╗·╙╩╧Σ)'
  138.         db      cr,lf
  139.         db      '  Bye     (═╦│÷╘╢│╠╖■╬±╞≈)           '
  140.         db      '  Output <╒²╬─>  (Script)'
  141.         db      cr,lf
  142.         db      '  C ╗≥ Connect (┴¬╗·│╔╬¬╥╗╕÷╓╒╢╦)    '
  143.         db      '  Pause [├δ╩²] (╘▌═ú Script)'
  144.         db      cr,lf
  145.         db      '  Clear   (╟σ│²┤«╨╨┐┌╗║│σ╞≈)         '
  146.         db      '  Pop     (═╦│÷╡▒╟░ Take ╬─╝■╗≥║Ω├ⁿ┴ε)'  
  147.         db      cr,lf
  148.         db      '  Close   (╣╪▒╒ log ╬─╝■)            '
  149.         db      '  Push    (╜°╚δ DOS ╫┤╠¼ ,▒ú╗ñ Kermit)'
  150.         db      cr,lf
  151.         db      '  Comment (╫ó╩═╒²╬─)                 '
  152.         db      '  Quit    (═╦│÷Kermit)'
  153.         db      cr,lf
  154.         db      '  CWD ╗≥ CD (╕─▒Σ─┐┬╝ ╗≥ ┤┼┼╠ )      '
  155.         db      '  R ╗≥ Receive    (╜╙╩╒╬─╝■)    '
  156.         db      cr,lf
  157.         db      '  Define/Assign  (╢¿╥σ╥╗╕÷║Ω├ⁿ┴ε)    '
  158.         db      '  Reinput (Script╩Σ╚δ,╓╪╢┴╗║│σ╟°)'
  159.         db      cr,lf
  160.         db      '  Delete  (╔╛│²╬─╝■)                 '
  161.         db      '  Remote  (╘╢│╠├ⁿ┴ε)'
  162.         db      cr,lf
  163.         db      '  Directory      (╧╘╩╛╬─╝■─┐┬╝)      '
  164.         db      '  Run     (╘╦╨╨│╠╨≥ ) '
  165.         db      cr,lf
  166.         db      '  Disable (╩╣▒╗╘±╡─╖■╬±╞≈├ⁿ┴ε╬▐╨º)   '
  167.         db      '  S ╗≥ Send (▒╛╡╪╬─╝■├√  ╨┬╬─╝■├√ )  '
  168.         db      cr,lf
  169.         db      '  Do      (╘╦╨╨╥╗╕÷║Ω├ⁿ┴ε)           '
  170.         db      '  Server [timeout] (╜°╚δ╖■╬±╞≈╫┤╠¼) '
  171.         db      cr,lf
  172.         db      '  Echo text (╘┌╞┴─╗╔╧╧╘╩╛╥╗╨╨╒²╬─)   '
  173.         db      '  Set     (╔Φ╓├▓╬╩²) '
  174.         db      cr,lf
  175.         db      '  Enable  (╩╣▒╗╘±╡─╖■╬±╞≈├ⁿ┴ε╙╨╨º)   '
  176.         db      '  Show    (╧╘╩╛▓╬╩²)  '
  177.         db      cr,lf
  178.         db      '  EXIT    (═╦│÷Kermit)               '
  179.         db      '  Space   (╧╘╩╛╡▒╟░┤┼┼╠╫╘╙╔┐╒╝Σ)  '
  180.         db      cr,lf 
  181.         db      '  Finish  (╜ß╩°╘╢│╠╖■╬±)             '
  182.         db      '  Stasus  (╧╘╩╛╡▒╟░╫┤╠¼)  '
  183.         db      cr,lf
  184.         db      '  Get     (╚í╡├╘╢│╠╬─╝■)             '
  185.         db      '  Stay    (╞⌠╢»║≤▒ú│╓ Kermit ╫┤╠¼)'
  186.         db      cr,lf
  187.         db      '  Goto    (╫¬╡╜<▒Ω║┼>┤ª)             '
  188.         db      '  Stop    ( ═╦│÷ Take ╬─╝■╗≥║Ω├ⁿ┴ε)'
  189.         db      cr,lf 
  190.         db      '  Hangup  ( ╣╥╢╧╡τ╗░ )               '
  191.         db      '  Take    (╘╦╨╨├ⁿ┴ε╬─╝■)  '
  192.         db      cr,lf
  193.         db      '  If [not] <condition> <command>     '
  194.         db      '  Transmit ╬─╝■├√ [╠ß╩╛╖√] (╘¡╩╝╫░╚δ) '
  195.         db      cr,lf
  196.         db      '  I ╗≥ Input [timeout] ╒²╬─(Script)  '
  197.         db      '  Type    (╧╘╩╛╬─╝■) '
  198.         db      cr,lf
  199.         db      '  Log     (╝╟┬╝╩²╛▌░ⁿ,╢╘╗░,╩┬╬±┤ª└φ) '
  200.         db      '  Wait [timeout] on modem\cd\cts\dsr'
  201.         db      cr,lf 
  202.         db      '  Logout  (═╦│÷╘╢│╠╖■╬±╞≈╫┤╠¼)       '
  203.         db      '  Version (╧╘╩╛ Kermit ╡─░µ▒╛) '
  204.         db      cr,lf
  205.         db      '╝ⁿ╚δ HELP  ╟δ╟≤╙╨╣╪ Kermit ╡─╝≥╜Θ,╗≥╘┌├ⁿ┴ε╨╨╓╨╩╣╙├"?" '
  206.         db      '╟δ╟≤╠╪╢¿├ⁿ┴ε╡─ Help.$'
  207. qckhlp  db  cr,lf
  208.         db  '                   Introduction to Kermit',cr,lf        
  209.         db  'o A Kermit-CC command is a line of words separated by spaces and'
  210.         db ' ending with',cr,lf,'  a carriage return <the Enter key>.'
  211.         db '  Example: SET SPEED 2400<Enter>',cr,lf
  212.         db 'o Most words can be abbreviated and can be completed by pressing'
  213.         db ' the Esc key.',cr,lf
  214.         db '  Example: SET SPE 24<Enter>  or even  SET SPE<Esc> 24<Esc>'
  215.         db '<Enter>',cr,lf
  216.         db 'o Help (detailed, specific): press the "?" key where a word would'
  217.         db ' appear.',cr,lf
  218.         db 'o Edit lines using the BackSpace key to delete characters,'
  219.         db ' Control-W to delete',cr,lf
  220.         db '  words, and Control-U to delete the line.  Control-C cancels the'
  221.         db ' command.',cr,lf
  222.         db 'o Frequently used Kermit-CC commands:',cr,lf
  223.         db '  EXIT           Leave the Kermit program. QUIT does the same'
  224.         db ' thing.',cr,lf
  225.         db '  SET            PORT, PARITY, SPEED, TERMINAL and many other'
  226.         db ' parameters.',cr,lf
  227.         db '  SHOW or STATUS Display groups of important parameters.'
  228.         db ' SHOW ? for categories.',cr,lf,lf
  229.         db '  CONNECT        Establish a terminal connection to a remote'
  230.         db ' system or a modem.',cr,lf
  231.         db '  Control-$'
  232. qckhlp1 db ' C    (Control $'
  233. qckhlp2 db '  followed by "C")  Exit CONNECT mode.',cr,lf,lf
  234.         db '  SEND filename  Send the file(s) to the remote system (to its'
  235.         db ' Kermit).',cr,lf
  236.         db '  GET filename   Ask the remote Kermit server to send the file(s)'
  237.         db ' to us.',cr,lf
  238.         db '  RECEIVE        Like GET but remote end chooses files to be sent'
  239.         db ' here.',cr,lf
  240.         db '  FINISH         Shut down remote Kermit but stay logged into'
  241.         db ' remote system.',cr,lf
  242.         db '  BYE            FINISH and logout of remote system and exit'
  243.         db ' local Kermit.',cr,lf
  244.         db 'o Common startup sequence: SET SPEED 9600, CONNECT, login, start'
  245.         db ' remote Kermit,',cr,lf
  246.         db '  put it into Server mode, escape back with Control-$'
  247. qckhlp3 db ' C, transfer'
  248.         db ' files with',cr,lf
  249.         db '  SEND x.txt, GET b.txt, BYE. Read more about it in the Kermit-CC'
  250.         db ' Users Manual.'
  251.         db cr,lf
  252.         db 'Press the "?" key for a summary of Kermit commands: $'
  253. cqckhlp  db  cr,lf
  254.         db  '                     *******   Kermit ├ⁿ┴ε╝≥╜Θ  *******',cr,lf,lf
  255.         db  'o Kermit-CC ├ⁿ┴ε╨╨╙╔╥╘┐╒╕±╬¬╖╓╕±╖√╡─╥╗╧╡┴╨╡Ñ┤╩╫Θ│╔, ├ⁿ┴ε╨╨╙├╗╪'
  256.         db '│╡╝ⁿ <╝┤ Enter ╝ⁿ> ╜ß╩°.',cr,lf
  257.         db '            └²╚τ: SET SPEED 2400<Enter>',cr,lf
  258.         db 'o ┤≤▓┐╖╓╡Ñ┤╩(├ⁿ┴ε/▓╬╩²)┐╔╥╘╩╣╙├╦⌡╨┤╨╬╩╜▓ó┐╔═¿╣²░┤ Esc ╝ⁿ╧╘╩╛═Ω╒√'
  259.         db '╡─╨╬╩╜.',cr,lf
  260.         db '            └²╚τ: SET SPE 24<Enter>  ╗≥ ╔⌡╓┴  SET SPE<Esc> 24<Esc>'
  261.         db '<Enter>',cr,lf
  262.         db 'o Help (╧Ω╧╕ / ╕÷▒≡): ╘┌─│╕÷┤╩║≤├µ░┤ "?" ┐╔╡├╡╜╕├┤╩╡─░∩╓·╨┼╧ó'
  263.         db cr,lf
  264.         db 'o ▒α╝¡├ⁿ┴ε╨╨╩▒┐╔╙├╗╪═╦╝ⁿ<BackSpace> ╔╛│²╫╓╖√, ╙├ Ctrl-W ╔╛│²╥╗╕÷'
  265.         db '╡Ñ┤╩, ╙├ Ctrl-U',cr,lf
  266.         db '╔╛│²╥╗╨╨, ╙├ Ctrl-C ╚í╧√╡▒╟░├ⁿ┴ε.',cr,lf
  267.         db 'o │ú╙├╡─ Kermit-CC ├ⁿ┴ε:',cr,lf
  268.         db '  EXIT           ═╦│÷ Kermit-CC │╠╨≥. QUIT ╣ª─▄╧α═¼',cr,lf
  269.         db '  SET            ╔Φ╓├ ═¿╨┼╢╦┐┌, ╦┘╢╚, ╓╒╢╦ ╡╚╨φ╢α▓╬╩²',cr,lf
  270.         db '  SHOW ╗≥ STATUS ╧╘╩╛╥╗╫Θ╓╪╥¬▓╬╩²╡─╫┤╠¼. SHOW ? ╧╘╩╛▓╬╩²▒φ'
  271.         db cr,lf
  272.         db '  CONNECT        ╜¿┴ó╥╗╕÷╡╜╘╢│╠╧╡═│╗≥ MODEM ╡─╓╒╢╦┴¼╜╙.',cr,lf
  273.         db '  Ctrl-$'
  274. cqckhlp1 db ' C       (Ctrl $'
  275. cqckhlp2 db '  ╦µ║≤╜⌠╜╙╫┼░┤╥╗╕÷ "C")  ═╦│÷ CONNECT ╖╜╩╜.',cr,lf
  276.         db '  SEND <╬─╝■├√>  ╖ó╦═╥╗╕÷╗≥╥╗╫Θ╬─╝■╡╜╘╢│╠╧╡═│(╡─ Kermit).',cr,lf
  277.         db '  GET  <╬─╝■├√>  ╟δ╟≤╘╢│╠ Kermit╖■╬±╞≈ ╖ó╦═╥╗╕÷╗≥╥╗╫Θ╬─╝■╕°╬╥├╟'
  278.         db cr,lf
  279.         db '  RECEIVE        ╜╙╩╒╥╗╕÷╗≥╥╗╫Θ┤╙╘╢│╠╧╡═│(╡─ Kermit)╖ó└┤╡─╬─╝■.'
  280.         db cr,lf
  281.         db '  FINISH         ╣╪▒╒╘╢│╠ Kermit, ╡½╬┤═╦│÷╡╟┬╝╡─╘╢│╠╧╡═│.',cr,lf
  282.         db '  BYE            ╣╪▒╒╘╢│╠ Kermit, ═╦│÷╘╢│╠╧╡═│╡─╡╟┬╝║═▒╛╡╪ Kermit'
  283.         db cr,lf
  284.         db 'o │ú╙├╡─╩╣╙├╣²│╠:  SET SPEED 9600, CONNECT, login, ╞⌠╢»╘╢│╠ Kermit'
  285.         db ', ╩╣╦ⁿ╜°╚δ╖■',cr,lf
  286.         db '╬±╞≈╖╜╩╜, ═¿╣² Ctrl-$'
  287. cqckhlp3 db ' C ╗╪╡╜▒╛╡╪, ╙├ SEND x.txt, GET b.txt ╡╚┤½╦═╬─╝■, BYE.',cr,lf
  288.         db '  ╟δ═¿╣²╘─╢┴ Kermit-CC ╡─╙├╗º╩╓▓ß╡├╡╜╕ⁿ╧Ω╧╕╡─╨┼╧ó'
  289.         db cr,lf
  290.         db '░┤ "?" ╝ⁿ┐╔╡├╡╜ Kermit ╡─├ⁿ┴ε╝≥▒φ: $'
  291.  
  292. comtab  db      55                      ; COMND tables
  293.         mkeyw   'Ask',ask
  294.         mkeyw   'Assign',assign
  295.         mkeyw   'Bye',bye
  296.         mkeyw   'C',telnet
  297.         mkeyw   'CD',cwdir
  298.         mkeyw   'Clear',scclr
  299.         mkeyw   'Close',clscpt
  300.         mkeyw   'Comment',comnt
  301.         mkeyw   'Connect',telnet
  302.         mkeyw   'CWD',cwdir
  303.         mkeyw   'Define',dodef
  304.         mkeyw   'Delete',delete
  305.         mkeyw   'Directory',direct
  306.         mkeyw   'Disable',srvdsa
  307.         mkeyw   'Do',docom
  308.         mkeyw   'Echo',scecho
  309.         mkeyw   'Enable',srvena
  310.         mkeyw   'Exit',exit
  311.         mkeyw   'Finish',finish
  312.         mkeyw   'Get',get
  313.         mkeyw   'goto',goto
  314.         mkeyw   'H',help
  315.         mkeyw   'Hangup',dtrlow
  316.         mkeyw   'Help',help
  317.         mkeyw   'If',ifcmd
  318.         mkeyw   'I',scinp
  319.         mkeyw   'Input',scinp
  320.         mkeyw   'Log',setcpt
  321.         mkeyw   'Logout',logout
  322.         mkeyw   'Mail',mail
  323.         mkeyw   'Output',scout
  324.         mkeyw   'Pause',scpau
  325.         mkeyw   'Pop',takclos
  326.         mkeyw   'Push',dopush
  327.         mkeyw   'Quit',exit
  328.         mkeyw   'R',read
  329.         mkeyw   'Receive',read
  330.         mkeyw   'Reinput',screinp
  331.         mkeyw   'Remote',remote
  332.         mkeyw   'Run',run
  333.         mkeyw   'S',send
  334.         mkeyw   'Send',send
  335.         mkeyw   'Server',server
  336.         mkeyw   'Set',setcom
  337.         mkeyw   'Show',showcmd
  338.         mkeyw   'Space',chkdsk
  339.         mkeyw   'Status',status
  340.         mkeyw   'Stay',rskp             ; this command does nothing
  341.         mkeyw   'Stop',takeqit
  342.         mkeyw   'Take',take
  343.         mkeyw   'Transmit',scxmit
  344.         mkeyw   'Type',typec
  345.         mkeyw   'Version',prvers
  346.         mkeyw   'Wait',scwait
  347.         mkeyw   ':',comnt
  348.  
  349. shotab  db      12                      ; SHOW keyword
  350.         mkeyw   'Communications',shcom
  351.         mkeyw   'File',shfile
  352.         mkeyw   'Key',shokey
  353.         mkeyw   'Logging',shlog
  354.         mkeyw   'Macros',shomac
  355.         mkeyw   'Modem',shomodem
  356.         mkeyw   'Protocol',shpro
  357.         mkeyw   'Scripts',shscpt
  358.         mkeyw   'Server',shserv
  359.         mkeyw   'Statistics',shosta
  360.         mkeyw   'Terminal',shterm
  361.         mkeyw   'Translation',shorx
  362.  
  363. lclsusp dw      0               ; address of routine to call when going to DOS
  364. lclrest dw      0               ; address of routine to call when returning
  365. lclexit dw      0               ; address of routine to call when exiting
  366. ssave   dw      ?               ; Original SS when doing Command.com
  367. in3ad   dw      0,0             ; Original break interrupt addresses
  368. ceadr   dd      0               ; DOS Critical Error interrupt address
  369. curdsk  db      0               ; Current disk.
  370. origd   db      0               ; Original disk
  371. orgdir  db      64 dup (?)      ; original dir on original disk
  372. drives  db      ?               ; number of disk drives on system
  373. taklev  db      0               ; Take levels
  374. takadr  dw      takstr-(size takinfo) ; Pointer into structure
  375. takstr  db      (size takinfo) * maxtak dup(?)
  376. psp     dw      ?               ; segment of Program Segment Prefix
  377. imxtry  db      defmxtry        ; Retry limit for I packet send/rcv
  378. maxtry  db      defmxtry        ; Retry limit for data packet send/rcv
  379. ininm2  db      'CCKERMIT.INI',0 ; init file name for 2.0
  380. filtst  filest  <>              ; file structure for procedure isfile
  381. exearg  dw      ?               ; segment addr of environment (filled in below)
  382.         dd      0               ; ptr to cmd line (filled in below)
  383.         dw      5ch,0,6ch,0     ; our def fcb's; segment filled in later
  384. delcmd  db      ' del ',0       ; delete command
  385. dircmd  db      ' dir ',0       ; directory command
  386. typcmd  db      ' type ',0      ; type command
  387. dosnum  db      ?               ; dos version number
  388. pthnam  db      'PATH='         ; Path environment variable
  389. pthlen  equ     $-pthnam        ;  length of that string
  390. pthadr  dw      0               ; offset of PATH= string
  391.  
  392. slashc  db      ' /c '          ; slashc Must directly preceed tmpbuf
  393. tmpbuf  db      80h dup (?)     ; temp space for file names and comments
  394. cmspnam db      'COMSPEC='      ; Environment variable
  395. cmsplen equ     $-cmspnam
  396. cmspbuf db      '\command.com',30 dup (0) ; default name plus additional space
  397. eexit   db      cr,'exit',cr
  398. leexit  equ     $-eexit
  399. mfmsg   db      '?Not enough memory to run Kermit$'
  400. cmfmsg  db      '?├╗╙╨╫π╣╗─┌┤µ╘╦╨╨ Kermit │╠╨≥   $'
  401. mf7msg  db      '?Attempted to allocate a corrupted memory area$'
  402. cmf7msg db      '?╩╘═╝╖╓┼Σ╥╗╕÷│÷┤²╡──┌┤µ╟°╙≥                   $'
  403. spcmsg  db      ' bytes available on disk',cr,lf,0
  404. cspcmsg db      ' ┤┼┼╠┐╔╙├╫╓╜┌╩²',cr,lf,0
  405. spcmsg2 db      ' Drive not ready',cr,lf,'$'
  406. cspcmsg2 db     ' ╟²╢»╞≈├╗╙╨╫╝▒╕║├ ',cr,lf,'$'
  407. errlev  db      0               ; DOS errorlevel to be returned
  408. kstatus dw      0               ; command execution status (0 = success)
  409. temp    dw      0
  410. datas   ends                    ; End data segment
  411.  
  412.