home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / mskermit / mssker.asm < prev    next >
Assembly Source File  |  2020-01-01  |  109KB  |  3,558 lines
  1.     NAME    mssker
  2. ; File MSSKER.ASM
  3.     include mssdef.h
  4. ; Edit history
  5. ; 18 Jan 1995 version 3.14
  6. ; Last edit
  7. ; 18 Jan 1995
  8. ;****************************** Version 3.14 ***************************** 
  9. ; KERMIT, Celtic for "free" 
  10. ;
  11. ; The name "Kermit" is a registered trade mark of Henson Associates, Inc.,
  12. ; used by permission.
  13. ;
  14. ;    MS-DOS Kermit Program Version 3.15 beta, Sept 97
  15. ;    MS-DOS Kermit Program Version 3.14, 18 Jan 95
  16. ;    MS-DOS Kermit Program Version 3.13, 8 July 93
  17. ;    MS-DOS Kermit Program Version 3.12, Feb 1992
  18. ;    MS-DOS Kermit Program Version 3.11, 6 Sept 1991
  19. ;    MS-DOS Kermit Program Version 3.10, 2 March 1991
  20. ;    MS-DOS Kermit Program Version 3.02, development for 3.10, 1990-91
  21. ;    MS-DOS Kermit Program Version 3.01, 20 March 1990
  22. ;    MS-DOS Kermit Program Version 3.00, 16 Jan 1990 
  23. ;    Kermit-MS Program Version 2.32, 11 Dec 1988 
  24. ;    Kermit-MS Program Version 2.31, 1 July 1988
  25. ;       Kermit-MS Program Version 2.30, 1 Jan 1988
  26. ;    Kermit-MS Program Version 2.29, 26 May 1986, plus later revisions.
  27. ;       Kermit-MS Program Version 2.27, December 6,1984
  28. ;       Kermit-MS Program Version 2.26, July 27, 1984
  29. ;       PC-Kermit Program Version 1.20, November 4, 1983
  30. ;       PC-Kermit Program Version 1.0, 1982
  31. ; 
  32. ;       Based on the Columbia University KERMIT Protocol.
  33. ; 
  34. ;    Copyright (C) 1982, 1997, Trustees of Columbia University in the 
  35. ;    City of New York.  The MS-DOS Kermit software may not be, in whole 
  36. ;    or in part, licensed or sold for profit as a software product itself,
  37. ;    nor may it be included in or distributed with commercial products
  38. ;    or otherwise distributed by commercial concerns to their clients 
  39. ;    or customers without written permission of the Office of Kermit 
  40. ;    Development and Distribution, Columbia University.  This copyright 
  41. ;    notice must not be removed, altered, or obscured.
  42. ;
  43. ;       Original Authors (versions 1.0 through 2.28):
  44. ;         Daphne Tzoar, Jeff Damens
  45. ;         Columbia University Center for Computing Activities
  46. ;         612 West 115th Street
  47. ;         New York, NY  10025
  48. ;
  49. ;       Present author (version 2.29, 2.30, 2.31, 2.32, 3.00, 3.01, 3.02,
  50. ;            3.10, 3.11, 3.12, 3.13, 3.14):
  51. ;         Joe R. Doupnik
  52. ;      Dept of EE, and CASS
  53. ;      Utah State University
  54. ;      Logan, UT  84322, USA
  55. ;      E-Mail: JRD@CC.USU.EDU (Internet), JRD@USU (BITNET)
  56. ; 
  57. ; Special thanks to Christine Gianone, Frank da Cruz, Bill Catchings, 
  58. ; Bernie Eiben, Vace Kundakci, Terry Kennedy, Jack Bryans, and many many
  59. ; others for their help and contributions.
  60.  
  61.     public    dosnum, curdsk, fpush, isfile, sbrk, crun, errlev
  62.     public    takrd, takadr, taklev, filtst, maxtry, dskspace, thsep, tdfmt
  63.     public    lclsusp, lclrest, lclexit, cwdir, kstatus, verident, cdsr
  64.     public    spath, patched, getenv, psp, dosctty, patchid, retcmd
  65.     public    tcptos, emsrbhandle, emsgshandle, apctrap, cboff, cbrestore
  66.     public    startup, cmdfile, inidir, tmpbuf, malloc, dostemp
  67.     public    breakcmd, xms, xmsrhandle, xmsghandle, xmsep
  68.  
  69. env    equ    2CH            ; environment address in psp
  70. cline    equ    80H            ; offset in psp of command line
  71. braceop    equ    7bh            ; opening curly brace
  72. bracecl    equ    7dh            ; closing curly brace
  73.  
  74. _STACK    SEGMENT                ; our stack
  75.     dw    1500 dup (0)        ; for TCP code
  76.     dw    200 dup(0)        ; for main Kermit code
  77. msfinal    label    word            ; top of stack
  78. _STACK    ENDS
  79.  
  80. data   segment
  81.     extrn    buff:byte, comand:byte, flags:byte, trans:byte,    prmptr:word
  82.     extrn    machnam:byte, decbuf:byte, rstate:byte, sstate:byte
  83.     extrn    mcctab:byte, rdbuf:byte, takeerror:byte, macroerror:byte
  84.     extrn    dos_bottom:byte, domath_ptr:word, domath_cnt:word
  85.     extrn    domath_msg:word, oldifelse:byte, retbuf:byte
  86.  
  87. verident label    byte
  88.     verdef
  89. patchena db    '$patch level'
  90. patchid    db    ' 0 $'
  91. copyright db    cr,lf
  92.     db    'Copyright (C) Trustees of Columbia University 1982, 1997.'
  93.     db    cr,lf,'$'
  94. copyright2 db    cr,lf,lf
  95.  db ' Copyright (C) 1982, 1997, Trustees of Columbia University in the'
  96.  db    cr,lf
  97.  db ' City of New York.  The MS-DOS Kermit software may not be, in whole' 
  98.  db    cr,lf
  99.  db ' or in part, licensed or sold for profit as a software product itself,'
  100.  db    cr,lf
  101.  db ' nor may it be included in or distributed with commercial products'
  102.  db    cr,lf
  103.  db ' or otherwise distributed by commercial concerns to their clients'
  104.  db    cr,lf
  105.  db ' or customers without written permission of the Office of Kermit' 
  106.  db    cr,lf
  107.  db ' Development and Distribution, Columbia University.  This copyright' 
  108.  db    cr,lf
  109.  db ' notice must not be removed, altered, or obscured.'
  110.  db    cr,lf,'$'
  111.  
  112. hlpmsg    db     cr,lf,'Type ? or HELP for help',cr,lf,'$'
  113. crlf    db      cr,lf,'$'
  114. patpmt    db    0
  115. ermes1    db    cr,lf,'?More parameters are needed$'
  116. ermes2    db    cr,lf,'?Unable to initialize memory$'
  117. ermes3  db      cr,lf,'?Command canceled$'
  118. ermes4    db    '?Unable to change directory',0            ; asciiz
  119. ermes5    db    cr,lf,'?Unable to complete initialization process$'
  120. ermes6    db    cr,lf,'Ignoring patch file.'
  121.     db    ' Version number mismatch.',cr,lf,'$'
  122. ermes7    db    cr,lf,'Patch file was not found',cr,lf,'$'
  123. ermes8    db    cr,lf,'Fatal error in patch file! Please remove PATCH '
  124.     db    'command.',cr,lf,'$'
  125. erms30    db    cr,lf,'?Passed maximum nesting level for TAKE command$'
  126. erms31    db    cr,lf,'?Cannot find Take-file: $'
  127. erms34    db    cr,lf,'This program requires DOS 2.0 or above$'
  128. erms37    db    cr,lf,'?Unable to execute command interpreter $'
  129. erms38    db    cr,lf,' Not an 8250 UART at this COM port$'
  130. erms39    db    cr,lf,' UART tests ok$'
  131. badnam    db    cr,lf,'?No such file(s)$'
  132.  
  133. ifdef    no_graphics
  134. nographics db    '  No graphics$'
  135. endif    ; no_graphics
  136. ifdef    no_network
  137. nonet    db    '  No network$'
  138. else
  139. ifdef    no_tcp
  140. notcp    db    '  No tcp/ip$'
  141. endif    ; no_tcp
  142. endif    ; no_network
  143.  
  144. ifdef    no_terminal
  145. noterm    db    '  No terminal$'
  146. endif    ; no_terminal
  147.  
  148. msgif    db    cr,lf,' IF extensions are ',0
  149. msggraph db    cr,lf,' Graphics is ',0
  150. msgtcpip db    cr,lf,' TCP/IP is ',0
  151. msgnetwork db    cr,lf,' Network is ',0
  152. msgterm    db    cr,lf,' Terminal emulation is ',0
  153. msgnot    db    'not ',0
  154. msgavail db    'available$',0
  155. xms    xmsreq <>            ; XMS request block
  156. data    ends
  157.  
  158. data1    segment
  159. filmsg    db    ' Filename$'
  160. dskmsg    db    ' disk drive letter or Return$'
  161. pthmsg    db    ' Name of new working directory and/or disk$'
  162. runmsg    db    ' program name and command line$'
  163. pathlp    db    ' optional path for file mskermit.pch$'
  164. stophlp    db    ' Status value to be returned  msg, nothing if no new value$'
  165. setenvhlp db    ' name=string  phrase to be put into DOS master environment$'
  166.  
  167. tophlp    db    cr,lf
  168.     db    '  Ask, Askq (read keybd to variable) '
  169.     db    '  Pause [secs], MPause/Msleep [millisec]'
  170.     db    cr,lf
  171.     db    '  APC text  send App Prog Cmd to host'
  172.     db    '  Pop, End (exit current macro/Take file)'
  173.     db    cr,lf
  174.     db    '  Bye      (logout remote server)    '
  175.     db    '  Push     (go to DOS, keep Kermit)'
  176.     db    cr,lf
  177.     db      '  C or Connect  (become a terminal)  '
  178.         db      '  Quit     (leave Kermit)'
  179.     db    cr,lf
  180.     db    '  Check (graphics, tcp/ip, networks) '
  181.         db      '  R or Receive  (opt local filename)'
  182.     db    cr,lf
  183.     db    '  Clear   (Input, comms recv buffer) '
  184.     db    '  Read (line from a file to variable)'
  185.     db    cr,lf
  186.     db    '  Close    (logging and script file) '
  187.     db    '  Reget    (get rest of a partial file)'
  188.     db    cr,lf
  189.     db    '  CLS (clear screen at command level)'
  190.     db    '  Reinput  (script Input, reread buffer)'
  191.     db    cr,lf
  192.     db    '  CWD or CD  (change dir &/or disk)  '
  193.     db    '  Remote   (prefix for commands)'
  194.     db    cr,lf
  195.     db    '  Decrement/Increment variable number'
  196.     db    '  Replay   (file through term emulator)'
  197.     db    cr,lf
  198.     db    '  Define/Assign   (a command macro)  '
  199.     db    '  Reset    (clock)'
  200.     db    cr,lf
  201.     db    '  Delete   (a file)                  '
  202.     db    '  Retrieve (get files, delete source) '
  203.     db    cr,lf
  204.     db    '  Dial     (phone number)            '
  205.     db    '  Return text (from macro to \v(return))'
  206.     db    cr,lf         
  207.     db    '  Directory (filepsec)               '
  208.     db    '  Run      (a program)'
  209.     db    cr,lf
  210.     db    '  Disable  (selected server commands)'
  211.         db      '  S, Send, Resend, Psend  local new-name'
  212.     db    cr,lf
  213.     db    '  Echo text (show line on screen)    '
  214.     db    '  Server [timeout] (become a server)'
  215.     db    cr,lf
  216.     db    '  Else     (follows IF statment)     '
  217.         db      '  Set      (most things)'
  218.     db    cr,lf
  219.     db    '  Enable   (selected server commands)'
  220.     db    '  Setenv   name=string to DOS environment'
  221.     db    cr,lf
  222.     db      '  EXIT     (leave Kermit)            '
  223.     db    '  Show     (most things)'
  224.     db    cr,lf
  225.     db    '  Finish   (to remote server)        '
  226.     db    '  Sleep time  (wait, no comms echos)'
  227.     db    cr,lf
  228.     db    '  For var start stop step {commands} '
  229.     db    '  Space    (free on current disk)'
  230.     db    cr,lf
  231.     db    '  Get      (remote file opt new name)'
  232.     db    '  Stop     (exit all Take files & macros)'
  233.     db    cr,lf
  234.     db    '  Getc  (read 1 byte from kbd to var)'
  235.     db    '  Switch index {:label, cmds,...}'
  236.     db    cr,lf
  237.     db    '  GetOK    (get Yes, OK, No response)'
  238.     db    '  Take     (commands from a file)'
  239.     db    cr,lf
  240.     db    '  Goto    (label, Take file or Macro)'
  241.     db    '  Telnet host port  NEW or RESUME'
  242.     db    cr,lf
  243.     db    '  Hangup   (drop DTR, hang up phone) '
  244.     db    '  Test COM1 ... COM4 (check for UART)'
  245.     db    cr,lf
  246.     db    '  If [not] <condition> <command>     '
  247.     db    '  Transmit filespec [prompt] (raw upload)'
  248.     db    cr,lf
  249.     db    '  I or Input [timeout] text (scripts)'
  250.     db    '  Type     (a file)'
  251.     db    cr,lf
  252.     db    '  INTRO  introduction to Kermit      '
  253.     db    '  Version  (show version and copyright)'
  254.     db    cr,lf
  255.     db    '  Log (Packet, Session, Transaction) '
  256.     db    '  Wait [timeout] on modem \cd \cts \dsr'
  257.     db    cr,lf
  258.     db    '  Mail     (file to host Mailer)     '
  259.     db    '  While <condition> {commands}'
  260.     db    cr,lf
  261.     db    '  Minput   (Input with many patterns)'
  262.     db    '  Write  FILE or log file   text'
  263.     db    cr,lf
  264.     db    '  Move    (send files, delete source)'
  265.     db    '  Undefine  (macro or array element)'
  266.     db    cr,lf
  267.     db    '  Open Read/Write/Append file        '
  268.     db    '  Xecho string  (without leading cr/lf)'
  269.     db    cr,lf
  270.     db    '  Output text      (to comms channel)'
  271.     db    '  Xif <condition> {cmds} ELSE {cmds}'
  272.     db    '$'
  273.  
  274. qckhlp    db    cr,lf
  275.     db    'MS-DOS Kermit 3.15, 15 Sept 1997, Copyright (C) 1982, 1995,'
  276.     db    cr,lf
  277.     db    'Trustees of Columbia University in the City of New York.'
  278.     db    cr,lf,lf
  279.     db    'Important commands (type the command, then press the'
  280.     db    ' Enter key):'
  281.     db    cr,lf,lf
  282.     db    '  INTRO    - For an introduction to MS-DOS Kermit.'
  283.     db    cr,lf
  284.     db    '  VERSION  - For version and copyright information.'
  285.     db    cr,lf
  286.     db    '  EXIT     - To leave MS-DOS Kermit.'
  287.     db    cr,lf,lf
  288.  
  289.     db    'Press the question-mark (?) key for context-sensitive'
  290.     db    ' help'
  291.     db    cr,lf
  292.     db    '  at any point within a command.'
  293.     db    cr,lf,lf
  294.  
  295.     db    'DOCUMENTATION:'
  296.     db    cr,lf
  297.  
  298.     db    '  "Using MS-DOS Kermit" by Christine M. Gianone,'
  299.     db    cr,lf
  300.     db    '  Digital Press / Butterworth-Heinemann, 1992, ISBN'
  301.     db    ' 1-55558-082-3.'
  302.     db    cr,lf
  303.       db    '  Please purchase this manual - it shows you how to use'
  304.     db    ' the software,'
  305.     db    cr,lf
  306.     db    '  it answers your questions, and its sales support the'
  307.     db    ' Kermit effort.'
  308.     db    cr,lf
  309.     db    '  To order, call +1 212 854-3703 or +1 800 366-2665.'
  310.     db    cr,lf,lf
  311.     
  312.     db    'And see these files on your Kermit diskette for additional'
  313.     db    ' information:'
  314.     db    cr,lf
  315.  
  316.     db    '  KERMIT.UPD - New features and updates.'
  317.     db    cr,lf
  318.  
  319.     db    '  KERMIT.BWR - Hints and tips, troubleshooting information,'
  320.     db    ' etc.'
  321.     db    cr,lf
  322.     db    '  KERMIT.HLP - Concise descriptions of each command.'
  323.     db    cr,lf,'$'
  324.  
  325. ifndef    no_terminal
  326. intrhlp    db cr,lf
  327.     db '                    Introduction to MS-DOS Kermit',cr,lf
  328.     db 'o An MS-Kermit command is a line of words separated by spaces and'
  329.     db ' ending with',cr,lf,'  a carriage return <the Enter key>.'
  330.     db '  Example: SET SPEED 2400<Enter>',cr,lf
  331.     db 'o Most words can be abbreviated and can be completed by pressing'
  332.     db ' the Esc key.',cr,lf
  333.     db '  Example: SET SPE 24<Enter>  or even  SET SPE<Esc> 24<Esc>'
  334.     db '<Enter>',cr,lf
  335.     db 'o Help (detailed, specific): press the "?" key where a word would'
  336.     db ' appear.',cr,lf
  337.     db 'o Edit lines using the Backspace key to delete characters,'
  338.     db ' Control-W to delete',cr,lf
  339.     db '  words, and Control-U to delete the line.  Control-C cancels the'
  340.     db ' command.',cr,lf
  341.     db 'o Frequently used MS-Kermit commands:',cr,lf
  342.     db '  EXIT           Leave the Kermit program. QUIT does the same'
  343.     db ' thing.',cr,lf
  344.     db '  SET            PORT, PARITY, SPEED, TERMINAL and many other'
  345.     db ' parameters.',cr,lf
  346.     db '  SHOW           Display groups of important parameters.'
  347.     db ' SHOW ? for categories.',cr,lf,lf
  348.     db '  CONNECT        Establish a terminal connection to a remote'
  349.     db ' system or a modem.',cr,lf
  350.     db '  Control-'
  351.         ; labels where Connect mode escape printable goes (twice)
  352. intrhlp1 db '  C    (Control-'
  353. intrhlp2 db ' '
  354.     db '  followed by "C")  Return to MS-Kermit> prompt.',cr,lf,lf
  355.     db '  SEND filename  Send the file(s) to Kermit on the other'
  356.     db ' computer.',cr,lf
  357.     db '  RECEIVE        Receive file(s), SEND them from Kermit on the'
  358.     db ' other computer.',cr,lf
  359.     db '  GET filename   Ask the remote Kermit server to send the file(s)'
  360.     db ' to us.',cr,lf
  361.     db '  FINISH         Shut down remote Kermit but stay logged into'
  362.     db ' remote system.',cr,lf
  363.     db '  BYE            FINISH and logout of remote system and exit'
  364.     db ' local Kermit.',cr,lf
  365.     db 'o Common startup sequence: SET SPEED 9600, CONNECT, login, start'
  366.     db ' remote Kermit,',cr,lf
  367.     db '  put it into Server mode, escape back with Control-C, transfer'
  368.     db ' files with',cr,lf
  369.     db '  SEND x.txt, GET b.txt, BYE.'
  370.  
  371.     db    cr,lf,lf
  372.     db ' MS-DOS Kermit commands, a functional summary:'
  373.     db    cr,lf
  374.     db    cr,lf,' Local file management:         '
  375.     db    'Kermit program management:'
  376.     db    cr,lf,'   DIR    (list files)          '
  377.     db    '  EXIT     (from Kermit, return to DOS)'
  378.     db    cr,lf,'   CD     (change directory)    '
  379.     db    '  QUIT     (same as EXIT)'
  380.     db    cr,lf,'   DELETE (delete files)        '      
  381.     db    '  TAKE     (execute Kermit commands from file)'
  382.     db    cr,lf,'   RUN    (a DOS command)       '
  383.     db    '  CLS      (clear screen)'
  384.     db    cr,lf,'   TYPE   (display a file)      '
  385.     db    '  PUSH     (enter DOS, EXIT returns to Kermit)'
  386.     db    cr,lf,'   SPACE  (show disk space)     '
  387.     db    '  Ctrl-C   (interrupt a command)'
  388.     db    cr,lf
  389.     db    cr,lf,' Communication settings:        '
  390.     db    'Terminal emulation:'
  391.     db    cr,lf,'   SET PORT, SET SPEED          '
  392.     db    '  CONNECT  (begin terminal emulation)'
  393.     db    cr,lf,'   SET PARITY                   '
  394.     db    '  HANGUP   (close connection)'
  395.     db    cr,lf,'   SET FLOW-CONTROL             '
  396.     db    '  Alt-X    (return to MS-Kermit> prompt)'
  397.     db    cr,lf,'   SET LOCAL-ECHO               '
  398.     db    '  SET KEY  (key mapping)'
  399.     db    cr,lf,'   SET ? to see others          '
  400.     db    '  SET TERMINAL TYPE, BYTESIZE, other parameters'
  401.     db    cr,lf,'   SHOW COMMUNICATIONS, MODEM   '
  402.     db    '  SHOW TERMINAL, SHOW KEY'
  403.     db    cr,lf
  404.     db    cr,lf,' File transfer settings:        '
  405.     db    cr,lf,'   SET FILE CHARACTER-SET name  '
  406.     db    '  SET TRANSFER CHARACTER-SET'
  407.     db    cr,lf,'   SET FILE TYPE TEXT, BINARY   '
  408.     db    '  SET SEND or RECEIVE parameters'
  409.     db    cr,lf,'   SET FILE ? to see others     '
  410.     db    '  SET WINDOWS (sliding windows)'
  411.     db    cr,lf,'   SHOW FILE                    '
  412.     db    '  SHOW PROTOCOL, SHOW STATISTICS'
  413.     db    cr,lf,lf
  414.     db    cr,lf,' Kermit file transfer:           '
  415.     db    'ASCII file transfer:'
  416.     db    cr,lf,'   SEND files (to RECEIVE)      '
  417.     db    '  LOG SESSION, CLOSE SESSION (download)'
  418.     db    cr,lf,'   RECEIVE    (from SEND)       '
  419.     db    '  TRANSMIT (upload)'
  420.     db    cr,lf,'   MAIL files (to RECEIVE)      '
  421.     db    '  SET TRANSMIT parameters'
  422.     db    cr,lf
  423.     db    cr,lf,' Using a Kermit server:         '
  424.     db    'Being a kermit server:'
  425.     db    cr,lf,'   GET files    (from server)   '
  426.     db    '  SET SERVER TIMEOUT or LOGIN'
  427.     db    cr,lf,'   SEND or MAIL   (to server)   '
  428.     db    '  ENABLE or DISABLE features'
  429.     db    cr,lf,'   REMOTE command (to server)   '
  430.     db    '  SERVER'
  431.     db    cr,lf,'   FINISH, LOGOUT, BYE          '
  432.     db    '  SHOW SERVER'
  433.     db    cr,lf
  434.     db    cr,lf,' Script programming commands:   '
  435.     db    cr,lf,'   INPUT, REINPUT secs text     '
  436.     db    '  :label, GOTO label'
  437.     db    cr,lf,'   OUTPUT text                  '
  438.     db    '  IF [ NOT ] condition command'
  439.     db    cr,lf,'   DECREMENT or INCREMENT variable number'
  440.     db    cr,lf,'   ASK or ASKQ variable prompt  '
  441.     db    '  OPEN READ (or WRITE or APPEND) file'
  442.     db    cr,lf,'   DEFINE variable or macro     '
  443.     db    '  READ variable-name'
  444.     db    cr,lf,'   ASSIGN variable or macro     '
  445.     db    '  WRITE file-designator text'
  446.     db    cr,lf,'   [ DO ] macro arguments       '
  447.     db    '  CLOSE READ or WRITE file or logfile'
  448.     db    cr,lf,'   ECHO text                    '
  449.     db    '  END or POP from macro or file'
  450.     db    cr,lf,'   PAUSE time                   '
  451.     db    '  STOP all macros and command files'
  452.     db    cr,lf,'   SLEEP time  no comms sampling'
  453.     db    '  WRITE file-designator text'
  454.     db    cr,lf,'   WAIT time modem-signals      '
  455.     db    '  SHOW VARIABLES, SHOW SCRIPTS, SHOW MACROS'
  456.     db    cr,lf
  457.     db ' Use "?" within comands for help on what fits that word.$'
  458. endif    ;; ifndef no_terminal
  459.  
  460. kpath    db    64 dup (0)        ; Kermit's paths to Kermit files
  461. data1    ends
  462.  
  463. data    segment
  464.  
  465. comtab  db    106 - 1            ; COMND tables
  466.     mkeyw    'APC',scapc
  467.     mkeyw    'Asg',assign        ; synonym
  468.     mkeyw    'Ask',ask
  469.     mkeyw    'Askq',askq
  470.     mkeyw    '_assign',hide_assign    ; hidden, expand destination name
  471.     mkeyw    'Assign',assign
  472.     mkeyw    'Break',breakcmd
  473.     mkeyw    'Bye',bye
  474.     mkeyw    'C',telnet
  475.     mkeyw    'CD',cwdir
  476.     mkeyw    'Clear',scclr
  477.     mkeyw    'Close',clscpt
  478.     mkeyw    'Check',check
  479.     mkeyw    'Comment',comnt
  480.     mkeyw    'Connect',telnet
  481.     mkeyw    'Continue',continue
  482.     mkeyw    'CLS',cls
  483.     mkeyw    'CWD',cwdir
  484.     mkeyw    'Declare',declare
  485.     mkeyw    '_define',hide_define    ; hidden, expand destination name
  486.     mkeyw    'Define',dodef
  487.     mkeyw    'Dec',decvar        ; decrement vs declare resolver
  488.     mkeyw    'Decrement',decvar
  489.     mkeyw    'Delete',delete
  490.     mkeyw    'Dial',dial
  491.     mkeyw    'Directory',direct
  492.     mkeyw    'Disable',srvdsa
  493.     mkeyw    'Do',docom
  494.     mkeyw    'Echo',scecho
  495.     mkeyw    'Else',elsecmd
  496.     mkeyw    'Enable',srvena
  497.     mkeyw    'End',popcmd
  498.     mkeyw    'Exit',exit
  499.     mkeyw    'Finish',finish
  500.     mkeyw    '_forinc',_forinc    ; hidden, FOR statement incrementer
  501.     mkeyw    'For',forcmd
  502.     mkeyw    'Forward',sforward    ; hidden "Forward" goto
  503.     mkeyw    'Get',get
  504.     mkeyw    'G',get            ; hidden synomym for Get
  505.     mkeyw    'Ge',get        ; ditto
  506.     mkeyw    'Getc',getc
  507.     mkeyw    'Getok',getok
  508.     mkeyw    'goto',sgoto
  509.     mkeyw    'H',help
  510.     mkeyw    'Hangup',dtrlow
  511.     mkeyw    'Help',help
  512.     mkeyw    'If',ifcmd
  513.     mkeyw    'I',scinp
  514.     mkeyw    'Increment',incvar
  515.     mkeyw    'Input',scinp
  516.     mkeyw    'INTRO',intro
  517.     mkeyw    'Local',localmac
  518.     mkeyw    'Log',setcpt
  519.     mkeyw    'Mail',mail
  520.     mkeyw    'Minput',scminput
  521.     mkeyw    'Move',move
  522.     mkeyw    'Mpause',scmpause
  523.     mkeyw    'Msleep',scmpause
  524.     mkeyw    'Open',vfopen
  525.     mkeyw    'O',scout        ; hidden synomym for OUTPUT
  526.     mkeyw    'Output',scout
  527.     mkeyw    'Pause',scpau
  528.     mkeyw    'Pop',popcmd
  529.     mkeyw    'Psend',psend
  530.     mkeyw    'Push',dopush
  531.     mkeyw    'Quit',exit
  532.     mkeyw    'R',read
  533.     mkeyw    'Read',vfread
  534.     mkeyw    'Receive',read
  535.     mkeyw    'Reget',reget
  536.     mkeyw    'Reinput',screinp
  537.     mkeyw    'Remote',remote
  538.     mkeyw    'Replay',replay
  539.     mkeyw    'Resend',resend
  540.     mkeyw    'Reset',reset
  541.     mkeyw    'Retrieve',retrieve
  542.     mkeyw    'Return',retcmd
  543.     mkeyw    'Run',run
  544.     mkeyw    'S',send
  545.     mkeyw    'Send',send
  546.     mkeyw    'Server',server
  547.     mkeyw    'Set',setcom
  548.     mkeyw    'Setenv',setenv
  549.     mkeyw    'Show',showcmd
  550.     mkeyw    'Sleep',scsleep
  551.     mkeyw    'Space',chkdsk
  552.     mkeyw    'Statistics',shosta
  553.     mkeyw    'Stay',stay
  554.     mkeyw    'Stop',takeqit
  555.     mkeyw    'Switch',switch
  556.     mkeyw    'Take',take
  557.     mkeyw    'Test',testcom
  558.     mkeyw    'Transmit',scxmit
  559.     mkeyw    'xmit',scxmit        ; hidden synonym
  560.     mkeyw    'Type',typec
  561.     mkeyw    'Undefine',undefine
  562.     mkeyw    'Version',prvers
  563.     mkeyw    'Wait',scwait
  564.     mkeyw    'While',whilecmd
  565.     mkeyw    'Write',write
  566.     mkeyw    'Xecho',xecho
  567.     mkeyw    'XIF',xifcmd
  568.     mkeyw    ':',comnt        ; script labels, do not react
  569.     mkeyw    'Patch',patch
  570.     mkeyw    'Nopush',pushproc    ; must be hidden
  571.  
  572.  
  573. ifdef    no_network
  574. shotab    db    19 - 2            ; SHOW keyword
  575. else
  576. ifndef    no_tcp
  577. shotab    db    19            ; SHOW keyword
  578. else
  579. shotab    db    19 - 1            ; SHOW keyword
  580. endif    ; no_tcp
  581. endif    ; no_network
  582.     mkeyw    'array',sharray
  583.     mkeyw    'Communications',shcom
  584.     mkeyw    'Control-prefixing',cntlsho
  585.     mkeyw    'File',shfile
  586.     mkeyw    'Key',shokey
  587.     mkeyw    'Logging',shlog
  588.     mkeyw    'Macros',shomac
  589.     mkeyw    'Memory',shmem
  590.     mkeyw    'Modem',shomodem
  591. ifndef    no_network
  592.     mkeyw    'Network',shownet
  593. endif    ; no_network
  594.     mkeyw    'Protocol',shpro
  595.     mkeyw    'Scripts',shscpt
  596.     mkeyw    'Server',shserv
  597. ifndef    no_tcp
  598.     mkeyw    'Sessions',sesdisp    ; TCP/IP
  599. endif    ; no_tcp
  600.     mkeyw    'Statistics',shosta
  601.     mkeyw    'Status',status
  602.     mkeyw    'Terminal',shterm
  603.     mkeyw    'Translation',shorx
  604.     mkeyw    'Variables',shovar
  605.                     ; Kermit initing from Environment
  606. nulprmpt db    0,0,0            ; null prompt
  607. initab    db    8            ; Environment phrase dispatch table
  608.     mkeyw    'INPUT-buffer-length',setinpbuf ; Script INPUT buffer length
  609.     mkeyw    'Rollback',setrollb    ; number of Terminal rollback screens
  610.     mkeyw    'Width',setwidth    ; columns in rollback buffer, def=80
  611.     mkeyw    'COM1',com1port
  612.     mkeyw    'COM2',com2port
  613.     mkeyw    'COM3',com3port
  614.     mkeyw    'COM4',com4port
  615.     mkeyw    'Path',mkkpath
  616.  
  617. featab    db    5        ; Compiled-in feature list for CHECK cmd
  618.     mkeyw    'if',5
  619.     mkeyw    'graphics',1
  620.     mkeyw    'networks',3
  621.     mkeyw    'tcp',2
  622.     mkeyw    'terminals',4
  623.  
  624. chktab    db    4        ; table of comm ports for TEST
  625.     mkeyw    'COM1',1
  626.     mkeyw    'COM2',2
  627.     mkeyw    'COM3',3
  628.     mkeyw    'COM4',4
  629.  
  630. patched    db    1        ; 1 = enable patching; 0 = disable or done
  631.  
  632.     even
  633. lclsusp    dw    0        ; address of routine to call when going to DOS
  634. lclrest    dw    0        ; address of routine to call when returning
  635. lclexit    dw    0        ; address of routine to call when exiting
  636. tcptos    dw    0        ; top of stack for TCP code
  637. ssave    dd    0        ; Original SS:SP when doing Command.com
  638. in3ad    dw    0,0        ; Original break interrupt addresses
  639. ceadr    dd    0        ; DOS Critical Error interrupt address
  640. orgcbrk    db    0        ; original Control-Break Check state
  641. psp    dw    0        ; segment of Program Segment Prefix
  642. exearg    dw    0        ; segment addr of environment (filled in below)
  643.     dd    0        ; ptr to cmd line (filled in below)
  644.     dw    5ch,0,6ch,0    ; our def fcb's; segment filled in later
  645. emsrbhandle dw    -1        ; EMS rollback handle, -1 means invalid
  646. emsgshandle dw    -1        ; EMS graphics handle, -1 means invalid
  647. xmsrhandle dw    0        ; XMS rollback buffer handle, 0 = invalid
  648. xmsghandle dw    0        ; XMS graphics memory buffer handle
  649. xmsep    dd    0        ; XMS manager entry point, 0 = invalid
  650. dosnum    dw    0        ; dos version number, major=low, minor=high
  651. dosctty    db    0        ; !=0 if DOS attempts using our comms line
  652. curdsk    db    0        ; Current disk
  653. origd    db    0        ; Original disk
  654. orgdir    db    64 dup (0)    ; original directory on original disk
  655. startup    db    64 dup (0)    ; our startup directory
  656. cmdfile db    64 dup (0)    ; path and file of last TAKE
  657. inidir    db    64 dup (0)    ; mskermit.ini directory (ends on \)
  658. taklev    db    0        ; Take levels
  659. takadr    dw    takstr-(size takinfo) ; Pointer into structure
  660. takstr    db    (size takinfo) * maxtak dup(0)
  661. cmdlinetake db    0        ; non-zero if have DOS command line cmds
  662. filtst    filest    <>        ; file structure for procedure isfile
  663. maxtry    db    defmxtry    ; Retry limit for data packet send/rcv
  664. ininm2    db    'MSKERMIT.INI',0 ; init file name
  665.  
  666. ifdef    nls_portuguese
  667. ptchnam    db    'MSRP315.PCH',0    ; Portuguese
  668. else
  669. ifdef    no_terminal
  670. ifdef    no_network
  671. ptchnam    db    'MSRL315.PCH',0    ; MSK Lite
  672. else
  673. ptchnam    db    'MSRN315.PCH',0    ; MSK medium-lite
  674. endif
  675. else
  676.  
  677. ifdef    no_network
  678. ptchnam    db    'MSRM315.PCH',0    ; MSK medium
  679. else
  680. ptchnam    db    'MSR315.PCH',0    ; main patch file name (Version dependent)
  681. endif
  682. endif
  683. endif
  684.  
  685. ptchnam2 db    'MSKERMIT.PCH',0 ; alternate patch file name
  686. delcmd    db    ' del ',0    ; delete command
  687. dircmd    db    ' dir ',0    ; directory command
  688. typcmd    db    ' type ',0    ; type command
  689. kerenv    db    'KERMIT=',0,0    ; Kermit= environment variable, + 2 nulls
  690. pthnam    db    'PATH='        ; Path environment variable
  691. pthlen    equ    $-pthnam    ;  length of that string
  692. pthadr    dw    0        ; offset of PATH= string
  693. dostempname db    'TEMP='        ; DOS TEMP= enviroment string
  694. dostempnlen equ $ - dostempname ; string length
  695. dostemp db    ' > ',60 dup (0) ; " > " contents of TEMP=  "\$kermit$.tmp"
  696. tmpname db    '$kermit$.tmp',0 ;   path must start on dostemp+3
  697.  
  698. slashc    db    ' /c '        ; slashc Must directly preceed tmpbuf
  699. tmpbuf    db    128 dup (0)    ; temp space for file names and comments
  700. cmspnam    db    'COMSPEC='    ; Environment variable
  701. cmsplen    equ    $-cmspnam
  702. cmspbuf    db    '\command.com',30 dup (0) ; default name plus additional space
  703. shellnam db    'SHELL='    ; Environment variable
  704. shellen    equ    $-shellnam
  705. shellbuf db    40 dup (0)    ; buffer for name
  706. eexit    db    cr,'exit',cr
  707. leexit    equ    $-eexit
  708. onexit    db    8,0,'ON_EXIT',CR ; <length>on_exit macro name
  709. onexlen    equ    $-onexit-2     ; length of name
  710. mfmsg    db    '?Not enough memory to run Kermit$'
  711. mf7msg    db    '?Attempted to allocate a corrupted memory area$'
  712. spcmsg    db    ' bytes available on drive '
  713. spcmsg1    db    ' :',cr,lf,0
  714. spcmsg2    db    cr,lf,' Drive '
  715. spcmsg3    db    ' : is not ready',0
  716. moremsg    db    '... more, press a key to continue ...$'
  717. errlev    db    0        ; DOS errorlevel to be returned
  718. kstatus    dw    0        ; command execution status (0 = success)
  719. thsep    db    0        ; thousands separator
  720. tdfmt    db    0        ; date/time format code
  721. totpar    dw    0
  722. apctrap    db    0        ; disable command if done via APC
  723. pttemp    db    0        ; Patch temp variable
  724. temp    dw    0
  725. tempptr dw    0
  726. seekptr    dw    0,0        ; pointer for lseek in takeread
  727. nopush_flag db    0        ; nz = stops push/run, keep hidden
  728.  
  729. segstr    db    'ABCDEFG'    ; segment "names" for patcher
  730. lsegstr    equ    $-segstr
  731.     even
  732. segtab    dw    code        ; segment values for patcher
  733.     dw    code1
  734.     dw    code2
  735.     dw    data
  736.     dw    data1
  737.     dw    _TEXT
  738.     dw    dgroup
  739. data   ends
  740.  
  741. code1    segment
  742.     extrn    fparse:far, iseof:far, strlen:far, strcpy:far, prtscr:far
  743.     extrn    strcat:far, prtasz:far, domath:far, decout:far, poplevel:far
  744.     assume    cs:code1
  745. code1    ends
  746.  
  747. code    segment
  748.     extrn    reget:near, mail:near, shovar:near, scapc:near
  749.     extrn    bye:near, telnet:near, finish:near, comnd:near, prompt:near
  750.     extrn    read:near, remote:near, send:near, status:near, get:near
  751.     extrn    serrst:near, setcom:near, dtrlow:near, cmblnk:near, getc:near
  752.     extrn    clscpi:near, clscpt:near, scpini:near, setrollb:near
  753.     extrn    dodef:near, setcpt:near, docom:near, shomodem:near
  754.     extrn    server:near, lclini:near, shokey:near, shomac:near, shosta:near
  755.     extrn    shserv:near, initibm:near, forcmd:near, _forinc:near
  756.     extrn    shorx:near, lnout:near, lnouts:near, scminput:near
  757.     extrn    scout:near,scinp:near,scpau:near,scecho:near,scclr:near
  758.     extrn    scxmit:near, scwait:near, srvdsa:near, srvena:near
  759.     extrn    shcom:near, shlog:near, shpro:near, shterm:near, shscpt:near
  760.     extrn    shfile:near, takclos:far, ask:near, askq:near
  761.     extrn    assign:near, sgoto:near, screinp:near, ifcmd:near, write:near
  762.     extrn    setinpbuf:near, shmem:near, replay:near, xifcmd:near
  763.     extrn    com1port:near, com2port:near, com3port:near
  764.     extrn    com4port:near, popcmd:near, mprompt:near, locate:near
  765.     extrn    vfopen:near, vfread:near, decvar:near, incvar:near
  766.     extrn    setwidth:near, scmpause:near, whilecmd:near, reset:near
  767.     extrn    getok:near, cntlsho:near, shownet:near, ctlu:near
  768.     extrn    resend:near, psend:near, tstport:near, scsleep:near
  769.     extrn    takopen_file:far, takopen_macro:far, sforward:near
  770.     extrn    hide_assign:near, hide_define:near, dial:near, declare:near
  771.     extrn    sharray:near, localmac:near, switch:near, move:near
  772.     extrn    retrieve:near, undefine:near, xecho:near
  773. ifndef    no_tcp
  774.     extrn    sesdisp:near
  775. endif    ; no_tcp
  776.  
  777.         assume  cs:code, ds:data, ss:_stack, es:nothing
  778.  
  779. START    PROC    FAR
  780.     mov    ax,data            ; initialize DS
  781.         mov    ds,ax
  782.     mov    psp,es            ; remember psp address
  783.     mov    ah,dosver        ; get DOS version number (word)
  784.     int    dos
  785.     xchg    ah,al            ; major version to ah
  786.     mov    dosnum,ax        ; remember dos version
  787.     cmp    ax,200h            ; earlier than DOS 2.0?
  788.     jge    start1            ; ge = no
  789.     mov    ah,prstr
  790.     mov    dx,offset erms34    ; complain
  791.     int    dos
  792.     push    psp            ; set up exit for DOS 1
  793.     xor    ax,ax            ; and the IP
  794.     push    ax            ; make return addr of psp:0 for DOS 1
  795.     ret                ; and return far to exit now
  796. start1:    call    memini            ; initialize our memory usage
  797.     mov    ah,setdma        ; set disk transfer address
  798.     mov    dx,offset buff
  799.     int    dos
  800.     call    far ptr setint        ; ^C, DOS critical error interrupts
  801.     mov    ah,gcurdsk        ; get current disk
  802.     int    dos
  803.     inc    al            ; make 1 == A (not zero)
  804.     mov    curdsk,al
  805.     mov    origd,al        ; remember original disk we started on
  806.     mov    si,offset orgdir     ; place for directory path w/o drive code
  807.     add    al,'A'-1        ; make al alphabetic disk drive again
  808.     mov    [si],al            ; put it into original path descriptor
  809.     inc    si
  810.     mov    byte ptr [si],':'    ; add drive specifier too
  811.     inc    si
  812.     mov    byte ptr [si],'\'    ; add root indicator as well
  813.     inc    si
  814.     mov    ah,gcd            ; get current directory (path really)
  815.     xor    dl,dl            ; use current drive
  816.     int    dos
  817.     call    getpath            ; get the path from the environment
  818.     call    gettsep            ; get thousands separator, t/date code
  819.     mov    ah,gswitch
  820.     xor    al,al            ; pick up switch character
  821.     int    dos
  822.     mov    slashc+1,dl
  823.     and    maxtry,3fh        ; limit # packet retries
  824.     mov    bx,4            ; PRN handle for DOS
  825.     mov    ah,ioctl
  826.     mov    al,0            ; get info to 
  827.     int    dos
  828.     or    dl,20h            ; turn on binary mode
  829.     xor    dh,dh
  830.     mov    ah,ioctl
  831.     mov    al,1            ; set info
  832.     int    dos
  833.     call    getcsp            ; get comspec from environment
  834.     call    getssp            ; get shellspec from environment
  835.     call    getdostemp        ; get DOS TEMP= string
  836.     mov    dx,offset dostemp
  837.     call    strlen            ; length so far
  838.     cmp    cx,3            ; just ' > '?
  839.     je    start1c            ; e = yes, no TEMP= in environment
  840.     mov    bx,dx            ; string so far
  841.     add    bx,cx            ; last byte + 1
  842.     cmp    byte ptr [bx-1],'\'    ; ends on slash?
  843.     je    start1c            ; e = yes
  844.     mov    word ptr [bx],'\'+0    ; append slash and null terminator
  845. start1c:mov    di,dx            ; destination of dostemp
  846.     mov    si,offset tmpname    ; redirection filename
  847.     call    strcat            ; append
  848.  
  849.     call    getargv            ; get directory where we started
  850.     call    getparm            ; read "KERMIT=" Environment line
  851.     jc    start1b            ; c = fatal error
  852.     xor    cl,cl            ; counter, starts at 0
  853. start1a:mov    bx,offset kerenv+6    ; append "<digit>="  to "KERMIT"
  854.     mov    [bx],cl            ; binary digit
  855.     inc    cl
  856.     add    byte ptr [bx],'0'    ; to ascii
  857.     mov    byte ptr [bx+1],'='    ; append equals sign
  858.     call    getparm            ; read "KERMITn=" Environment line
  859.     jc    start1b            ; c = fatal error
  860.     cmp    cl,9            ; done all digits?
  861.     jbe    start1a            ; be = no
  862.     call    scpini            ; initialize script routines
  863.     jc    start1b            ; c = fatal error
  864.     call    lclini            ; do local initialization
  865.     cmp    flags.extflg,0        ; exit now?
  866.     je    start2            ; e = no
  867. start1b:mov    ah,prstr        ; announce our premature exit
  868.     mov    dx,offset ermes5    ; can't complete initialization
  869.     int    dos
  870.     jmp    krmend5            ; quit immediately
  871. start2:    mov    word ptr comand.cmrprs,offset krmend ; offset of reparse addr
  872.     mov    ax,cs            ; our current code segment
  873.     mov    word ptr comand.cmrprs+2,ax ; segment of reparse address
  874.     mov    comand.cmostp,sp    ; save for reparse too
  875.     call    gcmdlin            ; read command line
  876.     cmp    taklev,0        ; in a Take file?
  877.     jne    start3            ; ne = yes, skip help msg
  878.     mov    ah,prstr
  879.     mov    dx,offset machnam    ; display machine name
  880.     int    dos
  881.         mov    dx,offset verident    ; display version header
  882.         int    dos
  883.     mov    dx,offset copyright    ; display copyright notice
  884.     int    dos
  885. ifdef no_graphics
  886.     mov    dx,offset nographics
  887.     int    dos
  888. endif
  889. ifdef no_network
  890.     mov    dx,offset nonet
  891.     int    dos
  892. else
  893. ifdef no_tcp
  894.     mov    dx,offset notcp
  895.     int    dos
  896. endif
  897. endif
  898. ifdef    no_terminal
  899.     mov    dx,offset noterm
  900.     int    dos
  901. endif
  902. ifdef no_graphics + no_tcp + no_network
  903.     mov    dx,offset crlf
  904.     int    dos
  905. endif
  906.     mov    dx,offset hlpmsg
  907.     int    dos
  908. start3:    mov    patchena,' '        ; let patch level show
  909.     call    serrst            ; reset serial port (if active)
  910.     call    initibm            ; define IBM macro
  911.     call    rdinit            ; read kermit init file
  912.     push    es
  913.     mov    di,ds
  914.     mov    es,di
  915.     mov    di,offset inidir    ; remember path to mskermit.ini
  916.     mov    si,offset cmdfile    ; last Take file path+name
  917.     call    strcpy            ; copy whole string
  918.     mov    dx,di
  919.     call    strlen            ; length of complete path+filename
  920.     add    di,cx            ; last byte +1
  921.     mov    al,'\'            ; look for this separator
  922.     std
  923.     repne    scasb
  924.     cld
  925.     mov    byte ptr [di+2],0    ; terminate after separator
  926.     pop    es
  927.  
  928.  ; This is the main KERMIT loop.  It prompts for and gets the users commands
  929.  
  930. kermit:    mov    ax,ds
  931.     mov    es,ax            ; convenient safety measure
  932.     mov    dx,prmptr        ; get prompt string address
  933.     call    mprompt              ; set master reparse address to here
  934.     cmp    flags.cxzflg,'C'    ; did someone want out?
  935.     jne    kermt4            ; ne = no
  936. kermt2:    cmp    taklev,0        ; are we in a Take file?
  937.     je    kermt4            ; e = no, ignore the signal
  938.     call    takclos            ; close take file, release buffer
  939.     jmp    short kermt2        ; close any other take files
  940. kermt4:    mov    flags.cxzflg,0        ; reset each time
  941.     and    flags.remflg,not dserver ; turn off server mode bit
  942.     cmp    dosctty,0        ; is DOS using our comms line?
  943.     je    kermt1            ; e = no
  944.     and    flags.remflg,not(dquiet+dregular+dserial)
  945.     or    flags.remflg,dquiet    ; set display to quiet mode
  946.     call    serrst            ; close port so CTTY can run
  947. kermt1:    mov    dx,offset comtab
  948.     mov    bx,offset tophlp
  949.     cmp    flags.extflg,0        ; exit flag set?
  950.     jne    krmend            ; ne = yes, jump to KRMEND
  951.     mov    comand.cmcr,1        ; allow bare CR's
  952.         mov    ah,cmkey
  953.     mov    comand.impdo,1        ; allow implied "DO macro"
  954.     call    comnd
  955.     jc    kermt3            ; c = failure
  956.     mov    comand.impdo,0        ; only on initial keyword, not here
  957.     mov    comand.cmcr,0        ; no more bare CR's
  958.     push    bx
  959.     mov    bx,takadr
  960.     mov    al,taklev
  961.     mov    [bx].takinvoke,al    ; remember Take level of this cmd
  962.     pop    bx
  963.     call    bx                  ; call the routine returned in BX
  964.     jc    kermt3            ; c = failure
  965.     cmp    flags.extflg,0        ; exit flag set?
  966.     jne    krmend            ; ne = yes, jump to KRMEND
  967.     jmp    short kermt5        ; do idle loop cleanup
  968.  
  969. kermt3:    cmp    flags.cxzflg,'C'    ; got here via Control-C?
  970.     jne    kermt7            ; ne = no
  971.     cmp    flags.extflg,0        ; exit flag set?
  972.     jne    kermt5            ; ne = yes, skip msg, do cleanup
  973.     mov    dx,offset ermes3    ; say command not executed
  974.     mov    ah,prstr        ; print    the error message in dx
  975.     int    dos
  976. kermt5:    cmp    flags.cxzflg,'C'    ; user Control-C abort?
  977.     jne    kermt7            ; ne = no, do normal operations
  978.     cmp    taklev,0        ; in a Take file?
  979.     je    kermt7            ; e = no        
  980.     call    takclos            ; close take file, release buffer
  981.     jmp    short kermt5        ; close any other take files
  982. kermt7:    cmp    flags.extflg,0        ; exit flag set?
  983.     jne    krmend            ; ne = yes, exit
  984.     mov    bx,takadr
  985.     mov    al,[bx].takinvoke    ; take level at start of command parse
  986.     cmp    al,taklev        ; same?
  987.     jne    kermt10            ; ne = no, already closed
  988.     mov    al,[bx].taktyp        ; kind, file or macro
  989.     cmp    al,take_file        ; type of Take, file?
  990.     jne    kermt8            ; ne = no (macro)
  991.     cmp    takeerror,0        ; is Take Error off?
  992.     jne    kermt9            ; ne = no, close Take file
  993. kermt8:    cmp    al,take_macro        ; regular macro?
  994.     jne    kermt10            ; ne = no, leaves internal macro
  995.     cmp    macroerror,0        ; is Macro Error off?
  996.     je    kermt10            ; e = yes, error is not fatal
  997. kermt9:    call    takclos            ; close Take file or Macro
  998. kermt10:jmp    kermit            ; e = no, get next command
  999.  
  1000. krmend:    mov    flags.cxzflg,0        ; reset each time
  1001.     mov    flags.extflg,0
  1002.     call    far ptr exmacro        ; find on_exit macro
  1003.     jc    krmend2            ; c = not found
  1004.                     ; perform ON_EXIT macro
  1005. krmend1:cmp    taklev,0        ; finished with macros?
  1006.     je    krmend2            ; e = yes
  1007.     mov    dx,prmptr        ; get prompt string address
  1008.     call    mprompt              ; set master reparse address to here
  1009.     cmp    taklev,0        ; still in on_exit?
  1010.     je    krmend2            ; e = no, exit to DOS
  1011.     mov    flags.cxzflg,0        ; reset each time
  1012.     and    flags.remflg,not dserver ; turn off server mode bit
  1013.     mov    dx,offset comtab    ; keyword table
  1014.     xor    bx,bx            ; no help
  1015.         mov    ah,cmkey
  1016.     mov    comand.impdo,1        ; allow implied "DO macro"
  1017.     mov    comand.cmcr,1        ; allow bare CR's
  1018.     call    comnd
  1019.     jc    krmend2            ; c = failure
  1020.     mov    comand.impdo,0        ; only on initial keyword, not here
  1021.     call    bx            ; call the routine returned in BX
  1022.     jnc    krmend1            ; nc = success, keep doing commands
  1023.                     ; end of ON_EXIT macro processing
  1024. krmend2:cmp    taklev,0        ; in a Take file?
  1025.     je    krmend3            ; e = no        
  1026.     call    takclos            ; close take file, release buffer
  1027.     jmp    short krmend2        ; close any other take files
  1028. krmend3:mov    bx,lclexit        ; addr of sys dependent exit routine
  1029.     or    bx,bx            ; sys dependent routines want service?
  1030.     jz    krmend4            ; z = no
  1031.     call    bx            ; call it
  1032.     jnc    krmend4            ; nc = close
  1033.     jmp    kermit            ; c = do not close
  1034. krmend4:call    serrst            ; just in case the port wasn't reset
  1035.     call    clscpi            ; close log files
  1036.     call    far ptr emsclose    ; close and return EMS memory
  1037.     mov    dl,origd        ; original disk drive
  1038.     dec    dl            ; want A == 0
  1039.     mov    ah,seldsk        ; reset original disk just in case
  1040.     int    dos
  1041.     mov    dx,offset orgdir    ; restore original directory
  1042.     mov    ah,chdir
  1043.     int    dos
  1044.     push    ds            ; save ds around these DOS calls
  1045.     mov    ax,cs            ; compose full address of ^C routine
  1046.     mov    ds,ax            ; segment is the code segment
  1047.     mov    dx,offset in3ad        ; restore Control-C interrupt vector
  1048.     mov    al,23H            ; interrupt 23H
  1049.     mov    ah,setintv        ; set interrupt vector
  1050.     int    dos            ; ah, that's better
  1051.     mov    dx,offset ceadr        ; DOS's Critical Error handler
  1052.     mov    al,24h            ; interrupt 24h
  1053.     mov    ah,setintv        ; do replacement (put it back)
  1054.     int    dos
  1055.     pop    ds
  1056.     call    cbrestore        ; restore state of Control-Break Chk
  1057. krmend5:mov    ah,4cH            ; terminate process
  1058.     mov    al,errlev        ; return error level
  1059.     int    dos
  1060.     ret
  1061. START    ENDP
  1062.  
  1063. ; This is the 'EXIT' command.  It leaves KERMIT and returns to DOS
  1064.  
  1065. EXIT    PROC    NEAR
  1066.     mov    ah,cmeol
  1067.     call    comnd            ; get a confirm
  1068.     jc    exit1            ; c = failure
  1069.     mov    flags.extflg,1        ; set the exit-Kermit flag
  1070. exit1:    cmp    taklev,0        ; in a Take file?
  1071.     je    exit2            ; e = no        
  1072.     call    takclos            ; close take file, release buffer
  1073.     jmp    short exit1        ; close any other take files
  1074. exit2:    clc
  1075.     ret
  1076. EXIT    ENDP
  1077.  
  1078. ; Resume For/While at the foot of the interation loop
  1079. CONTINUE proc    near
  1080.     mov    temp,1            ; marker for continue
  1081.     jmp    short break1
  1082. CONTINUE endp
  1083.  
  1084. ; Abandon current For/While statement
  1085. BREAKCMD proc    near
  1086.     mov    temp,0            ; marker for break
  1087.  
  1088. break1:    mov    al,taklev        ; Take level
  1089.     or    al,al            ; in take/macro?
  1090.     jz    breakx            ; z = no
  1091.     mov    bx,takadr
  1092. break2:    test    [bx].takattr,take_while ; is this a for/while/switch macro?
  1093.     jnz    break3            ; nz = yes
  1094.     sub    bx,size takinfo        ; work backward
  1095.     dec    al
  1096.     jnz    break2            ; nz = have some
  1097.     stc                ; carry set to say for/while not
  1098.     ret                ; found
  1099.  
  1100. break3:    cmp    temp,0            ; Break?
  1101.     jne    break4            ; ne = no, Continue
  1102.     push    ax            ; save found take level
  1103.     call    takclos            ; close for/while macro
  1104.     pop    ax
  1105.     mov    bx,takadr        ; new take level
  1106.     cmp    taklev,al        ; did all at that level and above?
  1107.     jae    break3            ; ae = no
  1108. breakx:    clc
  1109.     ret
  1110.                     ; Continue
  1111. break4:    inc    al            ; look above the for/while macro
  1112.     add    bx,size takinfo
  1113.     cmp    al,taklev        ; above the current macros?
  1114.     ja    breakx            ; a = yes, quit
  1115.     mov    [bx].takcnt,0        ; exhaust the macro to end reading
  1116.     jmp    short break4
  1117. BREAKCMD endp
  1118.  
  1119. ; Permit ELSE keyword right after failed IF statement
  1120. ELSECMD    proc    near
  1121.     cmp    oldifelse,0        ; ELSE permitted after failed IF?
  1122.     je    elsecmd1        ; e = no
  1123.     mov    oldifelse,0
  1124.     clc                ; let cmd parser read rest as cmd
  1125.     ret
  1126. elsecmd1:
  1127.     mov    ah,cmline        ; discard the line quietly
  1128.     mov    comand.cmblen,cmdblen    ; set line capacity (length of rdbuf)
  1129.     mov    bx,offset rdbuf
  1130.     xor    dx,dx            ; no help
  1131.     call    comnd
  1132.     clc
  1133.     ret
  1134. ELSECMD endp
  1135.  
  1136. ; RETURN string   string is placed in buffer retbuf
  1137. RETCMD    proc    near
  1138.     mov    ah,cmline
  1139.     mov    bx,offset retbuf+2    ; returned string
  1140.     mov    word ptr rdbuf,0
  1141.     xor    dx,dx
  1142.     call    comnd
  1143.     jnc    retcmd1
  1144.     ret
  1145. retcmd1:mov    word ptr retbuf,ax    ; <count word> <returned string>
  1146.     call    poplevel        ; do the pop
  1147.     ret
  1148. RETCMD    endp
  1149.  
  1150. ; NOPUSH
  1151. PUSHPROC PROC    NEAR
  1152.     mov    ah,cmeol
  1153.     call    comnd
  1154.     jc    pushp1            ; c = failure
  1155.     mov    nopush_flag,1        ; set nopush condition
  1156. pushp1:    ret
  1157. PUSHPROC ENDP
  1158.  
  1159. code    ends
  1160.  
  1161. code1    segment
  1162.     assume    cs:code1
  1163.  
  1164. exmacro    proc    far            ; perform on_exit() macro
  1165.     push    bx
  1166.     push    cx
  1167.     push    si
  1168.     mov    bx,offset mcctab    ; table of macro names
  1169.     mov    cl,[bx]            ; number of names in table
  1170.     xor    ch,ch
  1171.     jcxz    exmacx            ; z = empty table, do nothing
  1172.     inc    bx            ; point to length of first name
  1173. exmac2:    mov    ax,[bx]            ; length of this name
  1174.     cmp    ax,onexlen        ; length same as desired keyword?
  1175.     jne    exmac3            ; ne = no, search again
  1176.     mov    si,bx
  1177.     add    si,2            ; point at first char of name
  1178.     push    cx            ; save name counter
  1179.     push    di            ; save reg
  1180.     mov    cx,onexlen        ; length of name
  1181.     mov    di,offset onexit+2    ; point at desired macro name text
  1182.     push    es            ; save reg
  1183.     push    ds
  1184.     pop    es            ; make es use data segment
  1185.     cld
  1186.     repe    cmpsb            ; match strings
  1187.     pop    es            ; need current si below
  1188.     pop    di
  1189.     pop    cx            ; recover saved regs
  1190.     jne    exmac3            ; ne = no match
  1191.     mov    onexit+2,0        ; change name to be invisible
  1192.     mov    byte ptr [bx+2],0    ; change macro table name too
  1193.     jmp    short exmac4        ; e = matched
  1194. exmac3:    add    bx,ax            ; step to next name, add name length
  1195.     add    bx,4            ; + count and def word ptr
  1196.     loop    exmac2            ; try next name
  1197. exmacx:    pop    si            ; no macro, fail
  1198.     pop    cx
  1199.     pop    bx
  1200.     stc                ; say failure
  1201.     ret
  1202.  
  1203. exmac4:    call    takopen_macro        ; open a macro
  1204.     jc    exmacx            ; c = failed
  1205.     mov    bx,takadr        ; point to current macro structure
  1206.     mov    ax,ds            ; text is in our data seg
  1207.     mov    [bx].takbuf,ax        ; seg of definition string struc
  1208.     mov    [bx].takptr,offset onexit+2 ; where to read next command char
  1209.     mov    [bx].takcnt,onexlen    ; number of chars in definition
  1210.     mov    [bx].takargc,0        ; store macro argument count
  1211.     pop    si
  1212.     pop    cx
  1213.     pop    bx
  1214.     clc                ; say success
  1215.     ret
  1216. exmacro    endp
  1217.  
  1218. ; Close and return EMS memory, uses emsrbhandle and emsgshandle
  1219. emsclose proc    far
  1220.     mov    ah,45h            ; release handle and memory
  1221.     mov    dx,emsrbhandle        ; handle
  1222.     or    dx,dx            ; is handle valid (not -1)?
  1223.     jl    emsclose1        ; l = no
  1224.     int    67h            ; ems interrupt
  1225. emsclose1:mov    emsrbhandle,-1
  1226.     mov    ah,45h            ; release handle and memory
  1227.     mov    dx,emsgshandle        ; handle
  1228.     or    dx,dx            ; is handle valid (not -1)?
  1229.     jl    emsclose2        ; l = no
  1230.     int    67h            ; ems interrupt
  1231. emsclose2:mov    emsgshandle,-1
  1232.     cmp    xmsrhandle,0        ; XMS rollback handle, valid?
  1233.     je    emsclose3        ; e = no
  1234.     mov    dx,xmsrhandle
  1235.     mov    ah,0ah            ; XMS free block
  1236.     call    dword ptr xmsep        ; XMS manager entry point
  1237.     mov    xmsrhandle,0
  1238. emsclose3:cmp    xmsghandle,0        ; XMS graphics handle, valid?
  1239.     je    emsclose4        ; e = no
  1240.     mov    dx,xmsghandle
  1241.     mov    ah,0ah            ; XMS free block
  1242.     call    dword ptr xmsep        ; XMS manager entry point
  1243.     mov    xmsghandle,0
  1244. emsclose4:ret
  1245. emsclose endp
  1246. code1    ends
  1247.  
  1248. code    segment
  1249.     assume    cs:code
  1250.  
  1251. ; TAKE commands    from a file, and allow a path name
  1252. TAKE    PROC    NEAR
  1253.     mov    kstatus,kssuc        ; global status, success
  1254.     cmp    taklev,maxtak        ; at the limit?
  1255.     jl    take1            ; l = no
  1256.     mov    ah,prstr
  1257.     mov    dx,offset erms30    ; complain
  1258.     int    dos
  1259.     stc                ; failure
  1260.     ret
  1261. take1:    mov    bx,offset tmpbuf    ; work buffer
  1262.     mov    tmpbuf,0
  1263.     mov    dx,offset filmsg    ; Help in case user types "?"
  1264.     mov    ah,cmword        ; get file name
  1265.     call    comnd
  1266.     jc    take1a            ; c = failure
  1267.     mov    ah,cmeol
  1268.     call    comnd
  1269.     jc    take1a            ; c = failure
  1270.     mov    ax,offset tmpbuf    ; point to name again
  1271.     cmp    tmpbuf,0        ; empty filespec?
  1272.     jne    take2            ; ne = no
  1273.     mov    ah,prstr
  1274.     mov    dx,offset ermes1    ; say more parameters needed
  1275.     int    dos
  1276.     stc
  1277. take1a:    ret
  1278.                     ; TAKE2: enter with ax=filename ptr
  1279. TAKE2:    call    spath            ; is it around?
  1280.     jc    take3            ; no, go complain
  1281.     mov    dx,ax            ; point to name from spath
  1282.     mov    ah,open2        ; open file
  1283.     xor    al,al            ; 0 = open for reading
  1284.     cmp    dosnum,300h        ; at or above DOS 3?
  1285.     jb    take2a            ; b = no, so no shared access
  1286.     or    al,40h            ; open for reading, deny none
  1287. take2a:    push    dx
  1288.     int    dos
  1289.     pop    dx
  1290.     jnc    take4            ; nc = opened ok, keep going
  1291.     mov    ax,dx            ; recover filename pointer
  1292. take3:    push    ax
  1293.     mov    ah,prstr
  1294.     mov    dx,offset erms31
  1295.     int    dos
  1296.     pop    ax
  1297.     mov    dx,ax            ; asciiz file name
  1298.     call    prtasz            ; display it
  1299.     mov    cmdfile,0        ; clear latest cmd file info
  1300.     mov    kstatus,kstake        ; status, Take failed
  1301.     clc                ; we've done all error displays
  1302.     ret
  1303.                     ; TAKE4: enter with ax=filename ptr
  1304. TAKE4:    push    dx            ; save filename string
  1305.     push    ax            ; save pointer
  1306.     call    takopen_file        ; open take file
  1307.     pop    ax
  1308.     pop    dx
  1309.     jc    take6            ; c = failure
  1310.     call    save_cmdfile        ; save path+name of file from dx
  1311.     push    bx
  1312.     mov    bx,takadr        ; get current frame ptr
  1313.     mov    [bx].takhnd,ax        ; save file handle
  1314.     pop    bx
  1315.     cmp    flags.takflg,0        ; echoing Take files?
  1316.     je    take5            ; e = no
  1317.     mov    ah,prstr
  1318.     mov    dx,offset crlf
  1319.     int    dos
  1320. take5:    call    takrd            ; get a buffer full of data
  1321.     clc                ; success
  1322. take6:    ret
  1323. TAKE    ENDP
  1324.  
  1325. ; TAKE-QUIT  (STOP)  Exit all Take files immediately but gracefully
  1326.  
  1327. TAKEQIT PROC    NEAR
  1328.     xor    ax,ax
  1329.     mov    errlev,al        ; return value in ERRORLEVEL
  1330.     mov    kstatus,ax        ; and in STATUS
  1331.  
  1332.     mov    ah,cmword        ; get optional error value
  1333.     mov    bx,offset rdbuf
  1334.     mov    dx,offset stophlp    ; help on numerical argument
  1335.     mov    comand.cmcr,1        ; bare c/r's allowed
  1336.     call    comnd
  1337.     mov    comand.cmcr,0        ; restore normal state
  1338.     jc    takqit3            ; c = failure
  1339.  
  1340.     mov    ah,cmline        ; get optional error msg
  1341.     mov    bx,offset rdbuf+100
  1342.     mov    dx,offset stophlp    ; help on numerical argument
  1343.     mov    comand.cmcr,1        ; bare c/r's allowed
  1344.     mov    comand.cmdonum,1    ; \number conversion allowed
  1345.     call    comnd
  1346.     mov    comand.cmcr,0        ; restore normal state
  1347.     jc    takqit3            ; c = failure
  1348.     push    ax            ; save string count
  1349.     mov    ah,cmeol        ; confirm
  1350.     call    comnd
  1351.     pop    ax
  1352.     jc    takqit3
  1353.     mov    domath_ptr,offset rdbuf    ; string
  1354.     mov    domath_cnt,ax        ; string length
  1355.     call    domath            ; convert to number in dx:ax
  1356.     cmp    domath_cnt,0
  1357.     jne    takqit2            ; ne = did not convert whole word
  1358.     mov    errlev,al        ; return value in ERRORLEVEL
  1359.     mov    kstatus,ax        ; and in STATUS
  1360.     mov    si,offset rdbuf+100
  1361. takqit4:lodsb                ; read a msg char
  1362.     or    al,al            ; null terminator?
  1363.     jz    takqit2            ; z = empty string
  1364.     cmp    al,' '            ; leading white space?
  1365.     je    takqit4            ; be = leading white space
  1366.     dec    si            ; backup to non-white char
  1367.     mov    dx,offset crlf
  1368.     mov    ah,prstr
  1369.     int    dos
  1370.     mov    dx,si            ; message pointer
  1371.     call    prtasz
  1372. takqit2:xor    ch,ch
  1373.     mov    cl,taklev        ; number of Take levels active
  1374.     jcxz    takqit3            ; z = none
  1375.     cmp    cmdlinetake,cl        ; have DOS level command line?
  1376.     jae    takqit3            ; ae = yes, don't close it here
  1377.     call    takclos            ; close current Take file
  1378.     jmp    short takqit2        ; repeat until all are closed
  1379. takqit3:clc                ; success
  1380.     ret
  1381. TAKEQIT    ENDP
  1382.  
  1383. code    ends
  1384. code1    segment
  1385.     assume    cs:code1
  1386.  
  1387. TAKRD    PROC    FAR
  1388.     push    ax
  1389.     push    bx
  1390.     push    cx    
  1391.     push    dx
  1392.     push    di
  1393.     push    es
  1394.     push    temp
  1395.     mov    bx,takadr
  1396.     cmp    [bx].taktyp,take_file    ; get type of take (file?)
  1397.     je    takrd0            ; e = take file, not macro
  1398.     jmp    takrd30
  1399.  
  1400. takrd0:    xor    ax,ax
  1401.     mov    [bx].takcnt,ax        ; number of bytes to be read
  1402.     mov    [bx].takptr,ax        ; offset of first new character
  1403.     mov    temp,ax            ; prime the disk reader
  1404.     mov    tempptr,offset tmpbuf + 1
  1405.  
  1406. takrd1:    mov    ax,[bx].takbuf        ; segment of Take buffer
  1407.     mov    es,ax
  1408.     mov    cx,tbufsiz        ; # of bytes to examine
  1409.     xor    dx,dx            ; dl = 0 for store data (vs comments)
  1410.     xor    di,di            ; offset in buffer where data starts
  1411.  
  1412. takrd2:    call    takrworker        ; fill take buffer, return a byte
  1413.     jc    takrd30            ; c = failure
  1414.     add    word ptr [bx].takseek,1
  1415.     adc    word ptr [bx].takseek+2,0 ; seek distance, bytes
  1416.     mov    bx,takadr
  1417.     cmp    al,TAB            ; TAB?
  1418.     jne    takrd2a            ; ne = no
  1419.     mov    al,' '            ; convert to space
  1420. takrd2a:cmp    al,LF            ; line terminator?
  1421.     je    takrd2            ; e = yes, ignore it
  1422.     cmp    al,CR            ; internal line terminator?
  1423.     je    takrd5            ; e = yes, always write in buffer
  1424.     or    dl,dl            ; store data (vs discard comments)?
  1425.     jnz    takrd2            ; nz = no, discard, read comments
  1426.     cmp    al,';'            ; start of comment indicator?
  1427.     jne    takrd5            ; ne = no
  1428.     cmp    [bx].takcnt,0        ; bytes examined in buffer, so far
  1429.     je    takrd4            ; e = nothing, so no escape either
  1430.     mov    ah,byte ptr es:[di-1]    ; preceeding char
  1431.     cmp    ah,'\'            ; escaped?
  1432.     jne    takrd3            ; ne = no
  1433.     dec    di            ; overwrite '\' with ';'
  1434.     dec    [bx].takcnt
  1435.     dec    cx
  1436.     jmp    short takrd5
  1437.  
  1438. takrd3:    cmp    ah,' '            ; whitespace precedessor?
  1439.     je    takrd4            ; e = yes, ';' starts a comment
  1440.     cmp    ah,TAB            ; this kind too?
  1441.     jne    takrd5            ; ne = no, not a comment
  1442. takrd4:    mov    dl,1            ; say start discarding comments
  1443.     jmp    short takrd2        ; read more comments
  1444.  
  1445. takrd5:    cmp    al,' '            ; space
  1446.     jne    takrd6            ; ne = no
  1447.     cmp    [bx].takcnt,0        ; anything in line buffer yet?
  1448.     je    takrd7            ; e = no, omit leading space
  1449. takrd6:    inc    [bx].takcnt        ; bytes accepted into buffer so far
  1450.     stosb                ; store byte
  1451.     cmp    al,CR            ; ending on CR?
  1452.     jne    takrd7            ; ne = no
  1453.     or    dl,dl            ; processing comment?
  1454.     jnz    takrd30            ; nz = yes, CR ends comment line
  1455.     cmp    [bx].takcnt,1        ; more than just CR?
  1456.     jbe    takrd30            ; be = no
  1457.     cmp    byte ptr es:[di-2],'-'    ; hyphenated line?
  1458.     jne    takrd30            ; ne = no
  1459.     sub    [bx].takcnt,2        ; remove '-' and CR from buffer
  1460.     sub    di,2            ; back over both
  1461.     add    cx,2            ; add back capacity
  1462.     xor    dl,dl            ; end of comment
  1463. takrd7:    loop    takrd2
  1464.  
  1465. takrd30:mov    cx,[bx].takcnt        ; trim trailing spaces. line count
  1466.     cmp    cx,1
  1467.     jbe    takrd34            ; be = empty line or eof
  1468.     mov    di,cx
  1469.     dec    di            ; count of 1 is only es:[0]
  1470.     cmp    byte ptr es:[di-1],' '    ; ended on text?
  1471.     ja    takrd34            ; a = yes, do not trim
  1472.     xor    di,di            ; es:di(0) is buffer
  1473.     dec    cx            ; back over final CR
  1474.     jcxz    takrd34            ; z = only CR remained
  1475.     add    di,cx
  1476.     dec    di            ; look at last byte - 1
  1477.     mov    al,' '            ; scan for
  1478.     std
  1479.     repe    scasb
  1480.     cld
  1481.     jne    takrd32            ; ne = does not over decrement
  1482.     dec    di
  1483. takrd32:inc    di
  1484.     inc    di
  1485.     mov    byte ptr es:[di],CR    ; final CR goes here
  1486.     inc    di
  1487.     mov    [bx].takcnt,di        ; new count
  1488. takrd34:pop    temp
  1489.     pop    es
  1490.     pop    di
  1491.     pop    dx
  1492.     pop    cx
  1493.     pop    bx
  1494.     pop    ax
  1495.     ret
  1496. TAKRD    ENDP
  1497.  
  1498. ; Read one byte from disk file into al.
  1499. ; Return carry set if failure
  1500. takrworker proc    near
  1501.     push    bx
  1502.     push    cx
  1503.     push    dx
  1504.     push    es
  1505.     cmp    temp,0            ; bytes to be read from tmpbuf
  1506.     jne    takrwork1        ; ne = have things in the buffer
  1507.     mov    bx,takadr
  1508.     mov    dx,word ptr [bx].takseek
  1509.     mov    cx,word ptr [bx].takseek+2
  1510.     mov    bx,[bx].takhnd        ; bx = file handle
  1511.     mov    ah,lseek        ; seek
  1512.     mov    al,0            ; from start of file
  1513.     int    dos
  1514.     mov    temp,0            ; bytes remaining unread
  1515.     mov    cx,length tmpbuf - 1    ; # of bytes to read
  1516.     mov    dx,offset tmpbuf + 1    ; ds:dx = buffer, skip count word
  1517.     mov    tempptr,dx        ; where to read from tmpbuf next time
  1518.     mov    ah,readf2        ; read file
  1519.     int    dos
  1520.     jc    takrwork2        ; c = error, preserve ax
  1521.     mov    temp,ax            ; returned byte count
  1522.     or    ax,ax
  1523.     jz    takrwork2        ; z = nothing left
  1524.  
  1525. takrwork1:
  1526.     mov    bx,tempptr        ; where to read a byte
  1527.     mov    al,[bx]            ; read the byte
  1528.     inc    tempptr            ; where to read next time
  1529.     dec    temp            ; say another byte read
  1530.     clc
  1531.     jmp    short takrwork3        ; succeed
  1532.  
  1533. takrwork2:stc                ; fail
  1534. takrwork3:pop    es
  1535.     pop    dx
  1536.     pop    cx
  1537.     pop    bx
  1538.     ret
  1539. takrworker endp
  1540.  
  1541. code1    ends
  1542. code    segment
  1543.     assume    cs:code
  1544. ; put mskermit.ini onto take stack if it exists.  Just like
  1545. ; the take command, except it doesn't read a filename
  1546.  
  1547. rdinit    proc    near            ; read Kermit init file
  1548.     mov    ax,offset ininm2    ; default name to try
  1549.     cmp    decbuf,0        ; alternate init file given?
  1550.     je    rdini1            ; ne = no
  1551.     mov    ax,offset decbuf    ; yes, use it
  1552.     call    spath            ; is it around?
  1553.     jc    rdini2            ; c = no
  1554.     call    take2            ; let Take do error msgs
  1555.     clc                ; force success
  1556.     ret
  1557. rdini1:    call    spath            ; is it around?
  1558.     jc    rdini2            ; c = no, ignore file
  1559.     mov    dx,ax            ; point to name from spath
  1560.     mov    ah,open2        ; open file
  1561.     xor    al,al            ; 0 = open for reading
  1562.     cmp    dosnum,300h        ; at or above DOS 3?
  1563.     jb    rdini1a            ; b = no, so no shared access
  1564.     or    al,40h            ; open for reading, deny none
  1565. rdini1a:int    dos
  1566.     jc    rdini2            ; c = no ini file found, ignore
  1567.     call    take4            ; use TAKE command to complete work
  1568.     clc                ; ignore errors
  1569. rdini2:    ret
  1570. rdinit    endp
  1571.  
  1572. ; Patcher.  Patch file, MSRxxx.PCH or MSKERMIT.PCH has the following format:
  1573.  
  1574. ; 301 \Xxxxx    Text to display upon successful patch load
  1575. ; ;301 for V3.01.  For xxxx, see below
  1576. ; ; optional comment lines may appear anywhere after the 1st
  1577. ; ; xxxx in 1st line = total paragraphs in memory image.  Use \X if hex.
  1578. ; DS:xxxx xx xx        ; optional comment.  DS (or CS) are case insensitive
  1579. ; CS:xxxx xx xx xx    ; locations must be 4 hex chars, contents must be 2
  1580. ;
  1581. ; The 1st xx is the original value of the 1st byte @seg:offset for comparison.
  1582. ; A 00 value says don't compare.  Subsequent xx's are replacement bytes.
  1583. ; CS & DS lines may be intermixed.  AS & BS segments may be used when some
  1584. ; external module sets words aseg & bseg to a seg-base.
  1585. ; This mechanism expects file msscmd.obj to be linked first.
  1586.  
  1587. PATCH    proc
  1588.     mov    bx,offset rdbuf        ; optional path prefix
  1589.     mov    rdbuf,0
  1590.     mov    dx,offset pathlp
  1591.     mov    ah,cmword
  1592.     call    comnd
  1593.     jc    patch1
  1594.     mov    ah,cmeol
  1595.     call    comnd
  1596.     jc    patch1
  1597.     xor    ax,ax
  1598.     xchg    al,patched        ; clear and test patched
  1599.     test    al,al
  1600.     jz    patch1            ; z = disabled or done
  1601.     xchg    ah,flags.takflg        ; clear take flag, don't echo patches
  1602.     mov    byte ptr temp,ah    ; but save it
  1603.     call    ptchr
  1604.     mov    al,byte ptr temp    ; restore take flag
  1605.     mov    flags.takflg,al
  1606.     jc    patch2            ; c = NG
  1607. patch1:    ret
  1608.  
  1609. patch2:    mov    dx,offset ermes8    ; Fatal error
  1610.     mov    ah,prstr
  1611.     int    dos
  1612.     jmp    krmend            ; force exit
  1613.  
  1614. ptchr:    mov    dx,offset rdbuf        ; optional path
  1615.     call    strlen            ; get length, if any
  1616.     jcxz    ptchr1            ; z = nothing
  1617.     mov    si,dx
  1618.     add    si,cx
  1619.     cmp    byte ptr [si-1],'\'    ; ends with path specifier?
  1620.     je    ptchr1            ; e = yes
  1621.     cmp    byte ptr [si-1],':'    ; or a drive specifier?
  1622.     je    ptchr1            ; e = yes
  1623.     mov    word ptr [si],'\'+0    ; add '\' + null
  1624. ptchr1:    mov    di,offset rdbuf+66    ; path goes here
  1625.     mov    si,offset rdbuf+140    ; filename goes here, discard
  1626.     mov    byte ptr [di],0        ; clear
  1627.     call    fparse            ; split optional path
  1628.     mov    si,offset ptchnam    ; add name of patch file
  1629.     call    strcat
  1630.     mov    ax,di            ; setup filename pointer for rdini1
  1631.     call    rdini1        ; let rdini try to find it & do take stuff
  1632.     jnc    ptch1            ; nc = file msrxxx.pch was found
  1633.     mov    di,offset rdbuf+66    ; path goes here
  1634.     mov    si,offset rdbuf+140    ; filename goes here, discard
  1635.     mov    byte ptr [di],0        ; clear
  1636.     mov    dx,offset rdbuf        ; source string again
  1637.     call    fparse            ; split optional path
  1638.     mov    si,offset ptchnam2    ; try alternate name
  1639.     mov    byte ptr [di],0        ; insert terminator
  1640.     call    strcat            
  1641.     mov    ax,di            ; setup filename pointer for rdini1
  1642.     call    rdini1        ; let rdini try to find it & do take stuff
  1643.     jnc    ptch1            ; nc = file msrxxx.pch was found
  1644.     mov    dx,offset ermes7    ; say file not found
  1645.     mov    ah,prstr
  1646.     int    dos
  1647.     clc
  1648.     ret
  1649.  
  1650. ptch1:    mov    al,taklev        ; remember initial take level
  1651.     mov    pttemp,al        ; when it changes it is EOF & done
  1652.     mov    comand.cmkeep,1        ; keep Take open after eof
  1653.     mov    comand.cmcr,1        ; bare cr's ok, to prevent prserr @EOF
  1654.     call    ptchrl            ; read 1st line's 1st 'word'
  1655.     jc    ptch2            ; c = trouble
  1656.     jz    ptch3            ; z = EOF
  1657.     mov    si,offset tmpbuf+1
  1658.     mov    domath_cnt,4        ; length of field
  1659.     mov    domath_ptr,si
  1660.     mov    domath_msg,1        ; don't complain
  1661.     call    domath            ; convert number to binary
  1662.     cmp    domath_cnt,0
  1663.     jne    ptch2            ; ne = bad number, or none
  1664.     cmp    ax,version        ; does it match this version?
  1665.     je    ptch4            ; e = yes
  1666. ptch2:    mov    al,pttemp        ; if take level has changed,
  1667.     xor    al,taklev        ;  we're already out of patch file
  1668.     jnz    ptch3            ; nz = change in take level
  1669.     call    takclos            ; close patch file
  1670. ptch3:    mov    dx,offset ermes6
  1671.     mov    ah,prstr        ; issue warning msg
  1672.     int    dos
  1673.     clc
  1674.     ret
  1675.  
  1676. ptch4:    mov    dx,offset tmpbuf+1
  1677.     call    ptchrw            ; read 2nd "word", 1st line
  1678.     jc    ptch2            ; c = NG
  1679.     mov    si,offset tmpbuf+1
  1680.     mov    domath_cnt,6        ; arbitrary length
  1681.     mov    domath_ptr,si
  1682.     call    domath            ; convert 2nd "magic number"
  1683.     cmp    domath_cnt,0
  1684.     jne    ptch2            ; ne = bad number, or none
  1685.     cmp    ax,totpar    ; is it the total paragraphs memini computed?
  1686.     jne    ptch2            ; ne = no
  1687.     mov    bx,offset buff    ; place to stash 1st lines patch/version msg
  1688.     xor    dx,dx            ; help
  1689.     mov    ah,cmline        ; read it
  1690.     call    comnd
  1691.  
  1692. ptch5:    call    ptchrl            ; read CS:xxxx or DS:xxxx
  1693.     jc    ptch6
  1694.     jz    ptch7            ; z = EOF
  1695.     cmp    ax,7            ; were 7 chars read?
  1696.     jne    ptch6            ; ne = no
  1697.     mov    si,offset tmpbuf+1
  1698.     and    word ptr[si],not 2020h    ; convert to upper case
  1699.     cld
  1700.     lodsb                ; get the seg char
  1701.     cmp    word ptr[si],':S'     ; S:, actually
  1702.     je    ptch8            ; e = ok
  1703. ptch6:    stc                ; error exit
  1704.     ret
  1705.  
  1706. ptch7:    test    flags.remflg,dquiet    ; quiet display?
  1707.     jnz    ptch7a            ; nz = yes, skip msg
  1708.     mov    ah,prstr
  1709.         mov    dx,offset verident    ; display version header
  1710.         int    dos
  1711. ptch7a:    clc
  1712.     ret
  1713.  
  1714. ptch8:    push    ds
  1715.     pop    es
  1716.     mov    di,offset segstr
  1717.     mov    cx,lsegstr        ; search for seg char in segstr
  1718.     repne    scasb
  1719.     jne    ptch6            ; ne = not found
  1720.     sub    di,offset segstr+1    ; distance spanned
  1721.     shl    di,1            ; make a word index
  1722.     mov    bx,segtab[di]        ; bx = seg-base
  1723.     or    bx,bx            ; seg-base = 0, disabled for patching
  1724.     jz    ptch6            ; z = 0, no patching
  1725.     mov    word ptr[si],'X\'     ; put '\X' in front for hex
  1726.     mov    domath_cnt,16        ; arbitrary length
  1727.     mov    domath_ptr,si
  1728.     call    domath            ; convert number to binary
  1729.     cmp    domath_cnt,0
  1730.     jne    ptch6            ; ne = bad number, or none
  1731.     push    bx            ; save seg being patched
  1732.     push    ax            ; save location being patched
  1733.     mov    tmpbuf+64,0        ; clear replacement byte count
  1734. ptch9:    mov    dx,offset tmpbuf+4
  1735.     call    ptchrw            ; read replacement byte follwing '\X'
  1736.     jnc    ptch11            ; nc = OK
  1737. ptch10:    pop    ax            ; clean stack & error return
  1738.     pop    bx
  1739.     stc
  1740.     ret
  1741.  
  1742. ptch11:    or    ax,ax            ; EOL?
  1743.     jnz    ptch13            ; nz = no
  1744.     mov    si,offset tmpbuf+64
  1745.     cld
  1746.     lodsb                ; replacement byte count
  1747.     cmp    al,2            ; gotta be at least 2
  1748.     jb    ptch10            ; b = too few
  1749.     xor    ch,ch
  1750.     mov    cl,al            ; replacement count
  1751.     pop    di            ; patch location
  1752.     pop    es            ; patch segment
  1753.     lodsb                ; al = comparison byte
  1754.     or    al,al            ; key value to ignore comparison?
  1755.     jz    ptch12            ; z = 0, yes
  1756.     cmp    byte ptr es:[di],al     ; do read check on memory image
  1757.     jne    ptch6            ; ne = no match, fail now
  1758. ptch12:    dec    cx            ; adjust for comparison byte
  1759.     rep    movsb            ; make patch
  1760.     jmp    ptch5            ; loop to read next line
  1761.  
  1762. ptch13:    cmp    al,2            ; 2 chars req'd for replacement byte
  1763.     jne    ptch10            ; ne = bad
  1764.     mov    domath_ptr,offset tmpbuf+2; convert it
  1765.     mov    domath_cnt,16        ; arbitrary length
  1766.     call    domath            ; convert number to binary
  1767.     cmp    domath_cnt,0
  1768.     jne    ptch10            ; ne = bad number, or none
  1769.     mov    si,offset tmpbuf+64    ; --> replacement byte counted string
  1770.     inc    byte ptr[si]        ; bump count
  1771.     mov    bl,[si]
  1772.     xor    bh,bh
  1773.     mov    byte ptr[si+bx],al    ; stash replacement byte
  1774.     jmp    short ptch9        ; loop for next byte
  1775.  
  1776. ptchrl:    mov    dx,offset patpmt    ; read 1st word, next line to tmpbuf+1
  1777.     call    prompt
  1778.     mov    dx,offset tmpbuf+1
  1779.     call    ptchrw
  1780.     jc    ptchrb            ; c = NG
  1781.     push    dx
  1782.     mov    dl,pttemp        ; old Take level
  1783.     xor    dl,taklev        ; current Take level, changed
  1784.     pop    dx
  1785.     jz    ptchra            ; z = no, not EOF
  1786.     xor    ax,ax            ; set z flag for EOF
  1787.     ret
  1788.  
  1789. ptchra:    or    ax,ax            ; empty or comment line?
  1790.     jz    ptchrl            ; z = empty or comment, ignore
  1791. ptchrb:    ret
  1792.  
  1793. ptchrw:    push    dx
  1794.     mov    dl,pttemp        ; old Take level
  1795.     xor    dl,taklev        ; current Take level, changed?
  1796.     pop    dx
  1797.     jz    ptchrwa            ; z = no, not EOF
  1798.     xor    ax,ax            ; set z flag for EOF
  1799.     ret
  1800. ptchrwa:mov    ah,cmword
  1801.     mov    comand.cmper,1    ; prohibit substitution variable expansion
  1802.     xor    bx,bx            ; 'help' ptr
  1803.     xchg    bx,dx            ; order for comnd
  1804.     call    comnd            ; line length is in ax
  1805.     ret
  1806. PATCH    endp
  1807.  
  1808. ; Get command line into a Take macro buffer. Allow "-f filspec" to override
  1809. ; normal mskermit.ini initialization filespec, allow command "stay" to
  1810. ; suppress automatic exit to DOS at end of command line execution. [jrd]
  1811.  
  1812. gcmdlin    proc    near
  1813.     mov    cmdlinetake,0        ; flag for DOS command line Take
  1814.     mov    word ptr decbuf,0    ; storage for new init filename
  1815.     push    es
  1816.     cld
  1817.     mov    es,psp            ; address psp
  1818.     xor    ch,ch
  1819.     mov    cl,es:byte ptr[cline]    ; length of cmd line from DOS
  1820.     jcxz    gcmdl1            ; z = empty line
  1821.     mov    si,cline+1        ; point to actual line
  1822. gcmdl0:    cmp    byte ptr es:[si],' '    ; skip over leading whitespace
  1823.     ja    gcmdl2            ; a = non-whitespace
  1824.     inc    si
  1825.     loop    gcmdl0            ; fall through on all whitespace
  1826. gcmdl1:    jmp    gcmdl14            ; common exit jump point
  1827. gcmdl2:    inc    cx            ; include DOS's c/r
  1828.     call    takopen_macro        ; open take as macro
  1829.     mov    bx,takadr
  1830.     mov    ax,150            ; space needed: DOS line + ",stay"
  1831.     call    malloc            ; hope it works
  1832.     mov    [bx].takbuf,ax        ; memory segment
  1833.     or    [bx].takattr,take_malloc ; remember to dispose via takclos
  1834.     mov    es,ax            ; segment of buffer
  1835.         mov     di,2                    ; skip count word
  1836.     push    psp
  1837.  
  1838.     pop    DS            ; DS = PSP
  1839.     xor    dx,dx            ; clear brace count
  1840. gcmdl3:    or    cx,cx            ; anything left?
  1841.     jle    gcmdl10            ; le = no
  1842.     lodsb                ; get a byte from PSP's command line
  1843.     dec    cx            ; one less char in input string
  1844.     cmp    al,','            ; comma?
  1845.     jne    gcmdl4            ; no, keep going
  1846.     or    dx,dx            ; inside braces?
  1847.     jnz    gcmdl9            ; nz = yes, retain embedded commas
  1848.     mov    al,cr            ; convert to cr
  1849.     jmp    short gcmdl9        ; store it
  1850. gcmdl4:    call    bracechk        ; check for curly braces
  1851.     jc    gcmdl9            ; c = found and counted brace
  1852.     or    dx,dx            ; outside braces?
  1853.     jnz    gcmdl9            ; nz = no, ignore flag
  1854.     cmp    al,'-'            ; starting a flag?
  1855.     jne    gcmdl9            ; ne = no
  1856.     mov    ah,[si]            ; get flag letter
  1857.     or    ah,20h            ; convert to lower case
  1858.     cmp    ah,'f'            ; 'f' for init file replacement?
  1859.     jne    gcmdl9            ; ne = no
  1860.     inc    si            ; accept flag letter
  1861.     dec    cx
  1862. gcmdl5:    or    cx,cx            ; anything to read?
  1863.     jle    gcmdl10            ; le = exhausted supply
  1864.     lodsb                ; get filespec char from psp
  1865.     dec    cx            ; one less char in source buffer
  1866.     cmp    al,' '            ; in whitespace?
  1867.     jbe    gcmdl5            ; be = yes, scan it off
  1868.     dec    si            ; backup to real text
  1869.     inc    cx
  1870.                     ; copy filspec to buffer decbuf
  1871.     push    es            ; save current destination pointer
  1872.     push    di            ;  which is in es:di (Take buffer)
  1873.     mov    di,data            ; set es:di to regular decbuf
  1874.     mov    es,di
  1875.     lea    di,decbuf        ; where filespec part goes
  1876.     mov    word ptr es:[di],0    ; plant safety terminator
  1877. gcmdl6:    lodsb                ; get filespec char
  1878.     dec    cx            ; one less available
  1879.     cmp    al,' '            ; in printables?
  1880.     jbe    gcmdl7            ; be = no, all done
  1881.     cmp    al,','            ; comma command separator?
  1882.     je    gcmdl7            ; e = yes, all done
  1883.     stosb                ; store filespec char
  1884.     or    cx,cx            ; any chars left?
  1885.     jg    short gcmdl6        ; g = yes
  1886. gcmdl7:    mov    byte ptr es:[di],0    ; end filespec on a null
  1887.     pop    di            ; recover destination pointer es:di
  1888.     pop    es
  1889. gcmdl8:    or    cx,cx            ; strip trailing whitespace
  1890.     jle    gcmdl10            ; le = nothing left
  1891.     lodsb
  1892.     dec    cx
  1893.     cmp    al,' '            ; white space?
  1894.     jbe    gcmdl8            ; be = yes, strip it
  1895.     cmp    al,','            ; at next command?
  1896.     je    gcmdl10            ; e = yes, skip our own comma
  1897.     dec    si            ; back up to reread the char
  1898.     inc    cx
  1899.     jmp    gcmdl3            ; read more command text
  1900.                     ; end of flag analysis
  1901. gcmdl9:    stosb                ; deposit most recent char
  1902. gcmdl10:or    cx,cx            ; anything left to read?
  1903.     jg    gcmdl3            ; g = yes, loop
  1904.                     ;
  1905.     mov    ax,data            ; restore segment registers
  1906.     mov    DS,ax
  1907.     mov    si,[bx].takbuf        ; get segment of Take buffer
  1908.     mov    es,si
  1909.     mov    si,2            ; skip count word
  1910.     mov    cx,di            ; current end pointer, (save di)
  1911.     sub    cx,si            ; current ptr minus start offset
  1912.     mov    [bx].takcnt,cx        ; chars in buffer so far
  1913.         mov     es:word ptr [0],cx      ; store count word
  1914.     xor    dx,dx            ; brace count
  1915.     or    cx,cx
  1916.     jg    gcmdl11            ; g = material at hand
  1917.     call    takclos            ; empty take file
  1918.     jmp    short gcmdl14        ; finish up
  1919.                     ; scan for command "stay"
  1920. gcmdl11:mov    ax,es:[si]        ; get 2 bytes, cx and si are set above
  1921.     inc    si            ; increment by only one char
  1922.     dec    cx
  1923.     call    bracechk        ; check for braces
  1924.     jc    gcmdl12            ; c = brace found
  1925.     cmp    al,' '            ; separator?
  1926.     jbe    gcmdl12            ; be = yes, keep looking
  1927.     cmp    al,','             ; comma separator?
  1928.     je    gcmdl12            ; e = yes
  1929.     or    dx,dx            ; within braces?
  1930.     jnz    gcmdl12            ; nz = yes, skip STAY search
  1931.     or    ax,2020h        ; convert to lower case
  1932.     cmp    ax,'ts'            ; first two letters of stay
  1933.     jne    gcmdl12            ; ne = no match
  1934.     mov    ax,es:[si+1]        ; next two letters (stay vs status)
  1935.     or    ax,2020h        ; convert to lower case
  1936.     cmp    ax,'ya'            ; same as our pattern?
  1937.     jne    gcmdl12            ; ne = no match
  1938.     add    si,3            ; char after "stay"
  1939.     sub    cx,3
  1940.                     ; check for separator or end of macro
  1941.     cmp    byte ptr es:[si],' '    ; next char is a separator?
  1942.     jbe    gcmdl13            ; be = yes, found correct match
  1943.     cmp    byte ptr es:[si],','    ; or comma separator?
  1944.     je    gcmdl13            ; e = yes
  1945.     or    cx,cx            ; at end of macro?
  1946.     jle    gcmdl13            ; yes, consider current match correct
  1947. gcmdl12:or    cx,cx            ; done yet? ("stay" not found)
  1948.     jg    gcmdl11            ; g = not yet, look some more
  1949.     mov    cmdlinetake,1        ; remember doing DOS cmd line Take
  1950.     mov    si,offset eexit        ; append command "exit"
  1951.     mov    cx,leexit        ; length of string "exit"
  1952.     add    [bx].takcnt,cx
  1953.     rep    movsb            ; copy it into the Take buffer
  1954. gcmdl13:mov     [bx].takptr,2           ; init buffer ptr
  1955.         mov     cx,[bx].takcnt          ; count of bytes in buffer
  1956.         mov     es:[0],cx               ; count of bytes in Take buffer
  1957. gcmdl14:pop    es
  1958.     ret
  1959. gcmdlin    endp
  1960.  
  1961. ; Curly brace checker. Examine (and preserve) char in AL. Count up/down
  1962. ; braces in dx because DS is unknown here
  1963. bracechk proc    near
  1964.     cmp    al,braceop        ; opening brace?
  1965.     jne    bracech1        ; ne = no
  1966.     inc    dx            ; count up braces
  1967.     stc                ; say brace seen
  1968.     ret
  1969. bracech1:cmp    al,bracecl        ; closing brace
  1970.     jne    bracech3        ; ne = no
  1971.     sub    dx,1            ; count down with sign
  1972.     jns    bracech2        ; ns = no underflow
  1973.     xor    dx,dx            ; don't go below zero
  1974. bracech2:stc                ; say brace detected
  1975.     ret
  1976. bracech3:clc                ; say brace not found
  1977.     ret
  1978. bracechk endp
  1979.  
  1980. ; Enter with ax pointing to file name.  Searches path for given file,
  1981. ; returns with ax pointing to whole name, or carry set if file can't be found.
  1982. SPATH    proc    near
  1983.     call    isfile            ; does it exist as it is?
  1984.     jc    spath0            ; c = no, prepend path elements
  1985.     test    byte ptr filtst.dta+21,10H ; subdirectory name?
  1986.     jnz    spath0            ; nz = yes, not desired file
  1987.     push    di
  1988.     mov    di,ax
  1989.     push    di
  1990.     push    ax
  1991.     mov    dx,di            ; get string length
  1992.     call    strlen
  1993.     cld
  1994.     push    es
  1995.     mov    ax,ds
  1996.     mov    es,ax
  1997.     mov    al,'\'            ; look for path separator
  1998.     repne    scasb            ; scan es:di for separator
  1999.     pop    es
  2000.     pop    ax
  2001.     pop    di
  2002.     je    spath14            ; e = found, use as-is
  2003.     cmp    byte ptr [di+1],':'    ; drive already given?
  2004.     jne    spath10            ; ne = no
  2005. spath14:pop    di
  2006.     clc
  2007.     ret                ; path stuff is already in ax
  2008.  
  2009. spath10:push    bx
  2010.     mov    bx,[di]
  2011.     and    bx,not 2020h        ; to upper
  2012.     cmp    bx,'UN'            ; look for DOS 5 NUL
  2013.     jne    spath11            ; ne = mismatch
  2014.     mov    bx,[di+2]
  2015.     and    bl,not 20h
  2016.     cmp    bx,'L'+0
  2017. spath11:pop    bx
  2018.     jne    spath12            ; ne = mismatch
  2019.     pop    di
  2020.     clc
  2021.     ret
  2022.  
  2023. spath12:push    ax
  2024.     mov    di,offset decbuf+64    ; where results will be returned
  2025.     mov    ah,gcurdsk        ; get current disk
  2026.     int    dos
  2027.     inc    al            ; make 1 == A (not zero)
  2028.     add    al,'A'-1        ; make al alphabetic disk drive again
  2029.     mov    [di],al            ; put it into original path descriptor
  2030.     inc    di
  2031.     mov    word ptr [di],'\:'    ; add drive specifier too
  2032.     add    di,2
  2033.     push    si
  2034.     mov    si,di
  2035.     mov    ah,gcd            ; get current directory (path really)
  2036.     xor    dl,dl            ; use current drive
  2037.     int    dos
  2038.     pop    si
  2039.     push     dx
  2040.     mov    dx,di            ; find end of string
  2041.     call    strlen
  2042.     pop    dx
  2043.     add    di,cx            ; step after path
  2044.     pop    ax
  2045.     push    si
  2046.     mov    dx,ax            ; this is user's file name
  2047.     mov    si,offset decbuf+200    ; filename goes here, temp
  2048.     push    di            ; preserve di from above
  2049.     mov    di,offset decbuf+220    ; far away, path, temp
  2050.     call    fparse            ; get filename to ds:si
  2051.     pop    di
  2052.     cmp    byte ptr [di-1],2fh    ; does path end with switch char?
  2053.     je    spath13            ; yes, don't put one in
  2054.     cmp    byte ptr [di-1],5ch    ; how about this one?
  2055.     je    spath13            ; yes, don't put it in
  2056.     mov    byte ptr [di],5ch    ; else add one
  2057.     inc    di
  2058. spath13:lodsb                ; get filename character
  2059.     mov    byte ptr [di],al    ; copy filename char to output buffer
  2060.     inc    di
  2061.     or    al,al            ; end of string?
  2062.     jnz    spath13            ; nz = no, copy rest of name
  2063.     pop    si            ; restore postion in path string
  2064.     pop    di
  2065.     mov    ax,offset decbuf+64    ; return results in ax
  2066.     clc
  2067.     ret
  2068.  
  2069. spath0:    push    es            ; save es around work
  2070.     push    bx
  2071.     push    si
  2072.     push    di
  2073.     mov    bx,ax            ; save filename pointer in bx
  2074.     mov    si,ax
  2075.     xor    dl,dl            ; no '\' seen yet
  2076.     cld
  2077. spath1:    lodsb
  2078.     cmp    al,2fh            ; contains fwd slash path characters?
  2079.     je    spath1a
  2080.     cmp    al,5ch            ; or backslash?
  2081.     jne    spath2            ; ne = no, keep going
  2082. spath1a:mov    dl,1            ; remember we've seen them
  2083. spath2:    or    al,al
  2084.     jnz    spath1            ; copy name in
  2085.     or    dl,dl            ; look at flag
  2086.     jz    spath3            ; no path, keep looking
  2087.     jmp    short spath9        ; embedded path, fail
  2088.  
  2089. spath3:    call    skpath            ; search kermit's path
  2090.     jnc    spath8a            ; nc = located file
  2091.     mov    si,pthadr        ; offset of PATH= string in environment
  2092.     mov    es,psp
  2093.     mov    di,es:word ptr[env]    ; pick up environment segment
  2094.     mov    es,di
  2095. spath4:    cmp    byte ptr es:[si],0    ; end of PATH= string?
  2096.     je    spath9            ; e = yes, exit loop
  2097.     mov    di,offset decbuf+64    ; place to put name
  2098. spath5:    mov    al,byte ptr es:[si]    ; get a byte from environment string
  2099.     inc    si
  2100.     cmp    al,';'            ; end of this part?
  2101.     je    spath7            ; yes, break loop
  2102.     or    al,al            ; maybe end of string?
  2103.     jnz    spath6            ; nz = no, keep going
  2104.     dec    si            ; back up to null for later rereading
  2105.     jmp    short spath7        ; and break loop
  2106. spath6:    mov    byte ptr [di],al    ; else stick in dest string
  2107.     inc    di
  2108.     jmp    short spath5        ; and continue
  2109. spath7:    push    si            ; save this ptr
  2110.     mov    si,bx            ; this is user's file name
  2111.     cmp    byte ptr [di-1],2fh    ; does path end with switch char?
  2112.     je    spath8            ; yes, don't put one in
  2113.     cmp    byte ptr [di-1],5ch    ; how about this one?
  2114.     je    spath8            ; yes, don't put it in
  2115.     mov    byte ptr [di],5ch    ; else add one
  2116.     inc    di
  2117. spath8:    lodsb                ; get filename character
  2118.     mov    byte ptr [di],al    ; copy filename char to output buffer
  2119.     inc    di
  2120.     or    al,al            ; end of string?
  2121.     jnz    spath8            ; nz = no, copy rest of name
  2122.     pop    si            ; restore postion in path string
  2123.     mov    ax,offset decbuf+64
  2124.     call    isfile            ; is it a file?
  2125.     jc    spath4            ; c = no, keep looking
  2126.     test    byte ptr filtst.dta+21,10H ; subdirectory name?
  2127.     jnz    spath4            ; nz = yes
  2128. spath8a:pop    di
  2129.     pop    si
  2130.     pop    bx
  2131.     pop    es
  2132.     clc
  2133.     ret                ; return success (carry clear)
  2134. spath9:    mov    ax,bx            ; restore original filename pointer
  2135.     pop    di            ; restore regs
  2136.     pop    si
  2137.     pop    bx
  2138.     pop    es
  2139.     stc                ; no file found
  2140.     ret
  2141. spath    endp
  2142.  
  2143. ; Search Kermit's path for file. Return carry clear if found, else carry set.
  2144. ; Worker for spath above.
  2145. skpath    proc    near
  2146.     mov    si,seg kpath        ; Kermit's path string
  2147.     mov    es,si
  2148.     mov    si,offset kpath
  2149.     mov    di,offset decbuf+64    ; place to put name
  2150. skpath1:mov    al,es:[si]        ; get a byte from string
  2151.     inc    si
  2152.     cmp    al,';'            ; end of this part?
  2153.     je    skpath3            ; yes, break loop
  2154.     or    al,al            ; maybe end of string?
  2155.     jnz    skpath2            ; nz = no, keep going
  2156.     dec    si            ; back up to null for later rereading
  2157.     jmp    short skpath3        ; and break loop
  2158. skpath2:mov    byte ptr [di],al    ; else stick in dest string
  2159.     inc    di
  2160.     jmp    short skpath1        ; and continue
  2161. skpath3:cld
  2162.     mov    si,bx            ; this is user's file name
  2163.     cmp    byte ptr [di-1],2fh    ; does path end with switch char?
  2164.     je    skpath4            ; yes, don't put one in
  2165.     cmp    byte ptr [di-1],5ch    ; how about this one?
  2166.     je    skpath4            ; yes, don't put it in
  2167.     mov    byte ptr [di],5ch    ; else add one
  2168.     inc    di
  2169. skpath4:lodsb                ; get filename character
  2170.     mov    byte ptr [di],al    ; copy filename char to output buffer
  2171.     inc    di
  2172.     or    al,al            ; end of string?
  2173.     jnz    skpath4            ; nz = no, copy rest of name
  2174.     mov    ax,offset decbuf+64
  2175.     push    bx
  2176.     call    isfile            ; is it a file?
  2177.     pop    bx
  2178.     jnc    skpath5            ; nc = yes
  2179.     ret
  2180. skpath5:test    byte ptr filtst.dta+21,10H ; subdirectory name?
  2181.     jnz    skpath6            ; nz = yes
  2182.     clc                ; report file found (AX as offset)
  2183.     ret
  2184. skpath6:stc                ; report failure
  2185.     ret
  2186. skpath    endp
  2187.  
  2188. ; Put Kermit's Enviroment Path indicator into string kpath
  2189. mkkpath    proc    near
  2190.     mov    bx,offset rdbuf
  2191.     mov    word ptr rdbuf,0
  2192.     xor    dx,dx
  2193.     mov    comand.cmblen,64    ; 64 bytes max
  2194.     mov    ah,cmword        ; get a word, with semicolons
  2195.     call    comnd
  2196.     jnc    mkkpath1        ; nc = success
  2197.     ret
  2198. mkkpath1:mov    cx,ax            ; get string length
  2199.     push    si
  2200.     push    di
  2201.     push    es
  2202.     mov    si,offset rdbuf        ; source
  2203.     mov    di,seg kpath        ; storage spot
  2204.     mov    es,di
  2205.     mov    di,offset kpath
  2206.     cld
  2207.     rep    movsb            ; copy
  2208.     mov    word ptr es:[di],0    ; terminate
  2209.     pop    es
  2210.     pop    di
  2211.     pop    si
  2212.     ret
  2213. mkkpath    endp
  2214.  
  2215. ; Put offset of PATH= string in pthadr
  2216. getpath    proc    near
  2217.     push    bx
  2218.     push    cx
  2219.     push    dx
  2220.     mov    bx,offset pthnam    ; thing    to find
  2221.     mov    cx,pthlen        ; length of it
  2222.     mov    pthadr,0        ; init offset to zero
  2223.     call    getenv            ; get environment value
  2224.     mov    pthadr,dx
  2225.     pop    dx
  2226.     pop    cx
  2227.     pop    bx
  2228.     ret
  2229. getpath    endp
  2230.  
  2231. ; getcsp: copy COMSPEC= environment string into cmspbuf
  2232. ; getssp: copy SHELL=   environment string into shellbuf
  2233. ; getdostemp: copy TEMP= environment string into dostemp
  2234. getcsp    proc    near
  2235.     mov    bx,offset cmspnam    ; find COMSPEC=
  2236.     mov    cx,cmsplen        ; its length
  2237.     mov    di,offset cmspbuf    ; where to store string
  2238.     jmp    short getccom        ; do common worker
  2239.  
  2240. getssp:    mov    bx,offset shellnam    ; find SHELL=
  2241.     mov    cx,shellen        ; its length
  2242.     mov    di,offset shellbuf    ; where to store string
  2243.     jmp    short getccom        ; do common worker
  2244.  
  2245. getdostemp:mov    bx,offset dostempname    ; fine TEMP=
  2246.     mov    cx,dostempnlen        ; its length
  2247.     mov    di,offset dostemp+3    ; where to store string
  2248.  
  2249. getccom:push    es
  2250.     call    getenv            ; get environment offset into dx
  2251.     jc    getcs3            ; c = not found
  2252.     mov    si,dx            ; address of COMSPEC= string
  2253.     mov    es,psp
  2254.     mov    bx,es:word ptr[env]    ; pick up environment address
  2255.     mov    es,bx
  2256.     push    ds            ; save ds
  2257.     push    ds            ; make ds point to environment seg
  2258.     push    es            ; make es point to data segment
  2259.     pop    ds
  2260.     pop    es
  2261.     cld
  2262. getcs1:    lodsb                ; get a byte from environment
  2263.     cmp    al,' '            ; space or less?
  2264.     jg    getcs2            ; g = no, keep copying
  2265.     xor    al,al            ; terminate string on spaces etc
  2266. getcs2:    stosb                ; store it in destination
  2267.     or    al,al            ; at end of string yet?
  2268.     jnz    getcs1            ; nz = no, keep copying
  2269.     pop    ds            ; recover ds
  2270. getcs3:    pop    es
  2271.     ret
  2272. getcsp    endp
  2273.  
  2274. ; Get Kermit parameters from the Environment. Parameters are commands like
  2275. ; regular commands except they do not appear in the SET main table and are
  2276. ; separated from one another by semicolons. They appear after KERMIT=.
  2277. ; Do not allow Take/Macros to be created by any of these commands.
  2278. ; On fatal error exits with carry set and flags.extflg = 1
  2279. getparm    proc    near
  2280.     push    ax
  2281.     push    bx
  2282.     push    cx
  2283.     push    dx
  2284.     push    si
  2285.     push    di
  2286.     push    es
  2287.     mov    es,psp            ; segment of our PSP
  2288.     mov    ax,es:word ptr[env]    ; pick up environment address
  2289.     mov    es,ax
  2290.     mov    bx,offset kerenv    ; Environment word to find, asciiz
  2291.     mov    dx,bx
  2292.     call    strlen            ; length of its string to cx
  2293.     call    getenv            ; return dx = offset in environment
  2294.     jnc    getpar1            ; nc = success
  2295.     jmp    getpar9            ; c = not found
  2296. getpar1:push    ds            ; save regular DS
  2297.     push    dx            ; push Environment offset, then seg
  2298.     push    es
  2299.     call    takopen_macro        ; open Take buffer in macro space
  2300.     jnc    getpar2            ; nc = success
  2301. getpar1a:mov    flags.extflg,1        ; say exit now
  2302.     pop    es            ; clean stack
  2303.     pop    dx
  2304.     pop    ds
  2305.     jmp    getparx            ; exit with fatal error
  2306.  
  2307. getpar2:mov    ax,tbufsiz        ; take buffer size (bytes)
  2308.     call    malloc            ; get memory, seg returned in AX
  2309.     jc    getpar1a        ; c = failed
  2310.     mov    bx,takadr        ; bx = Take data structure
  2311.     mov    [bx].takbuf,ax        ; segment of memory
  2312.     or    [bx].takattr,take_malloc ; remember to dispose via takclos
  2313.     mov    es,ax            ; ES = segment of buffer
  2314.         mov     di,2                    ; skip count word field for es:di
  2315.     pop    ds            ; pop Environment segment (was in ES)
  2316.     pop    si            ;  and seg, DS:SI is now Environment
  2317.     xor    cx,cx            ; line length counter
  2318. getpar3:lodsb                ; read an Environment character
  2319.     or    al,al            ; null (EOL)?
  2320.     jz    getpar5            ; z = yes, stop here
  2321.     cmp    al,';'            ; semicolon separator?
  2322.     jne    getpar4            ; ne = no
  2323.     mov    al,CR            ; replace semicolon with carriage ret
  2324. getpar4:stosb                ; store char in Take buffer
  2325.     inc    cx            ; count line length
  2326.     jmp    short getpar3        ; get more text, until a null
  2327.  
  2328. getpar5:mov    al,CR            ; terminate line, regardless
  2329.     stosb
  2330.     inc    cx            ; count terminator
  2331.     pop    ds            ; restore regular DS
  2332.     mov    [bx].takcnt,cx        ; chars in Take/macro buffer
  2333.         mov     es:[0],cx               ; store count byte
  2334.         mov     [bx].takptr,2           ; init buffer read ptr to first char
  2335.     jcxz    getpar8            ; z = nothing left, exit
  2336.                     ; parse each item as a command
  2337. getpar6:mov    comand.cmquiet,1    ; no screen display
  2338.     mov    dx,offset nulprmpt    ; set null prompt
  2339.     call    prompt
  2340.     cmp    flags.extflg,0        ; exit flag set?
  2341.     jne    getpar8            ; ne = yes, exit this routine now
  2342.     mov    dx,offset initab    ; table of initialization routines
  2343.     xor    bx,bx            ; no explict help text
  2344.     mov    comand.cmcr,1        ; allow bare CR's
  2345.     mov    comand.impdo,0        ; do not search Macro table
  2346.         mov    ah,cmkey        ; match a keyword
  2347.     call    comnd
  2348.     jc    getpar7            ; c = failure
  2349.     mov    comand.cmcr,0        ; no more bare CR's
  2350.     call    bx            ; call the routine returned in BX
  2351.                     ; ignore failures (carry bit set)
  2352. getpar7:cmp    taklev,0        ; finished Take file?
  2353.     jle    getpar9            ; le = yes
  2354.     cmp    flags.extflg,0        ; exit flag set?
  2355.     je    getpar6            ; e = no, finish all commands
  2356.  
  2357. getpar8:call    takclos            ; close our take file, if open
  2358. getpar9:mov    flags.extflg,0        ; do not leave this flag set
  2359.     clc                ; clear for success
  2360. getparx:mov    comand.cmquiet,0    ; regular screen echoing
  2361.     pop    es
  2362.     pop    di
  2363.     pop    si
  2364.     pop    dx
  2365.     pop    cx
  2366.     pop    bx
  2367.     pop    ax
  2368.     ret
  2369. getparm    endp
  2370.  
  2371. ; Locate string variable in Environment
  2372. ; bx = variable to find (usually including =), cx = length of variable name.
  2373. ; Returns dx = offset within Environment of char following the name and
  2374. ; carry clear, else carry set and dx unchanged.
  2375. getenv    proc    near
  2376.     push    ax
  2377.     push    cx
  2378.     push    si
  2379.     push    di
  2380.     push    es
  2381.     mov    es,psp
  2382.     mov    ax,es:word ptr[env]    ; pick up environment address
  2383.     mov    es,ax
  2384.     xor    di,di            ; start at offset 0 in segment
  2385. geten1:    cmp    es:byte ptr [di],0    ; end of environment?
  2386.     je    geten3            ; yes, forget it
  2387.     push    cx            ; save counter
  2388.     push    di            ; and offset
  2389.     mov    si,bx
  2390.     cld
  2391.     repe    cmpsb            ; search for name
  2392.     pop    di
  2393.     pop    cx            ; restore these
  2394.     je    geten2            ; found it, break loop
  2395. getenv5:push    cx            ; preserve again
  2396.     mov    cx,0ffffh        ; bogus length
  2397.     xor    al,al            ; 0 = marker to look for
  2398.     repne    scasb            ; search for it
  2399.     pop    cx            ; restore length
  2400.     jmp    short geten1        ; loop thru rest of environment
  2401. geten2:    add    di,cx            ; skip to definition
  2402. geten6:    mov    si,bx            ; name
  2403.     add    si,cx            ; length
  2404.     cmp    byte ptr [si-1],'='    ; caller wanted '=' as last char?
  2405.     je    geten7            ; e = yes, and we found it
  2406.     mov    al,es:[di]        ; get next char
  2407.     cmp    al,'='            ; at the equals sign?
  2408.     je    geten7            ; e = yes
  2409.     inc    di            ; point at next char
  2410.     cmp    al,' '            ; white space?
  2411.     jbe    geten6            ; be = yes, skip over this
  2412.     dec    di            ; backup
  2413.     jmp    short getenv5        ; not a match, keep looking
  2414. geten7:    mov    dx,di            ; store offset of string
  2415.     clc                ; carry clear for success
  2416.     jmp    short geten4
  2417. geten3:    stc                ; carry set for failure
  2418. geten4:    pop    es
  2419.     pop    di
  2420.     pop    si
  2421.     pop    cx
  2422.     pop    ax
  2423.     ret
  2424. getenv    endp
  2425.  
  2426. ; SETENV
  2427. ; Put  "NAME=string" to the DOS master environment, uses undocumented Int 2Eh
  2428. setenv    proc    near
  2429.     mov    bx,offset decbuf+1    ; borrowed buffer
  2430.     mov    word ptr [bx],'ES'
  2431.     mov    word ptr [bx+2],' T'    ; preload "SET "
  2432.     add    bx,4            ; where rest of text goes
  2433.     mov    dx,offset setenvhlp    ; help
  2434.     mov    comand.cmblen,126 - 4    ; max buffer length
  2435.     mov    ah,cmline        ; get line of text
  2436.     call    comnd
  2437.     jnc    setenv1            ; nc = success
  2438.     ret                ; failure
  2439.  
  2440. setenv1:mov    bx,offset decbuf+1+4    ; look after "SET " 
  2441.     add    bx,ax            ; plus length of user string
  2442.     mov    word ptr [bx],CR    ; terminate in CR NUL
  2443.     sub    bx,offset decbuf    ; compute length
  2444.     mov    decbuf,bl        ; <count byte><text>CR
  2445.     mov    ah,getintv        ; does Int 2eh exist?
  2446.     mov    al,2eh
  2447.     int    dos
  2448.     jnc    setenv2            ; nc = call succeeded
  2449.     ret
  2450. setenv2:cmp    byte ptr es:[bx],0cfh    ; is an IRET?
  2451.     jne    setenv3            ; no, assume vector exists
  2452.     stc
  2453.     ret
  2454. setenv3:push    si
  2455.     push    di
  2456.     push    bp
  2457.     cli
  2458.     mov    ax,ss            ; save ss:sp
  2459.     mov    word ptr ssave+2,ax
  2460.     mov    word ptr ssave,sp
  2461.     sti
  2462.     cld
  2463.     mov    si,offset decbuf    ; string pointer to ds:si
  2464.     int    2eh            ; Command.com, do contents of ds:si
  2465.     mov    bx,data            ; restore segment registers
  2466.     mov    ds,bx            ; reset data segment
  2467.     mov    es,bx            ; and extra segment
  2468.     cli
  2469.     mov    bx,word ptr ssave+2
  2470.     mov    ss,bx            ; and stack segment
  2471.     mov    sp,word ptr ssave    ; restore stack ptr
  2472.     sti
  2473.     pop    bp
  2474.     pop    di
  2475.     pop    si
  2476.     clc
  2477.     ret
  2478. setenv    endp
  2479.  
  2480. ; Store drive:path\ of where Kermit was started into string startup
  2481. getargv    proc    near
  2482.     push    si
  2483.     push    di
  2484.     push    es
  2485.     mov    es,psp
  2486.     mov    ax,es:word ptr[env]    ; pick up environment address
  2487.     mov    es,ax
  2488.     xor    di,di            ; start at offset 0 in segment
  2489.     mov    cx,0ffffh        ; bogus length
  2490. getargv1:xor    al,al            ; 0 = marker to look for
  2491.     repne    scasb            ; search for it
  2492.     cmp    es:byte ptr [di],0    ; end of environment (double null)?
  2493.     jne    getargv1        ; ne = no
  2494.     inc    di            ; skip single null
  2495.     cmp    es:word ptr [di],1    ; marker for argv[0]?
  2496.     jne    getargv5        ; ne = no
  2497.     add    di,2            ; skip word
  2498.     mov    si,offset startup    ; startup string
  2499.     mov    cx,63            ; max length of wanted string
  2500. getargv2:mov    al,es:[di]        ; get char
  2501.     mov    [si],al            ; store in startup string
  2502.     inc    si
  2503.     inc    di
  2504.     or    al,al            ; null terminator?
  2505.     loopnz    getargv2        ; nz = no
  2506.                     ; trim off filename part
  2507.     mov    cx,si
  2508.     sub    cx,offset startup
  2509.     dec    si
  2510. getargv3:cmp    byte ptr [si],':'    ; back to drive terminator?
  2511.     jne    getargv3a        ; ne = no
  2512.     mov    byte ptr [si+1],'\'    ; make drive:\ syntax for root
  2513.     inc    si            ; move over separators
  2514.     jmp    short getargv4        ; done
  2515. getargv3a:cmp    byte ptr [si],'\'    ; or path separator?
  2516.     je    getargv4        ; e = yes
  2517.     dec    si            ; backup
  2518.     loop    getargv3
  2519.  
  2520. getargv4:mov    byte ptr [si+1],0    ; terminate string
  2521. getargv5:pop    es
  2522.     pop    di
  2523.     pop    si
  2524.     ret
  2525. getargv    endp
  2526.  
  2527. ; Get thousands separator from DOS Country Information
  2528. gettsep    proc    near
  2529.     mov    ah,38h            ; Get Country Information
  2530.     mov    dx,offset tmpbuf    ; temp buffer
  2531.     int    dos
  2532.     mov    bx,7            ; assume DOS 3+ position in buffer
  2533.     cmp    byte ptr dosnum+1,3    ; DOS 3 or above?
  2534.     jae    gettse1            ; ae = yes
  2535.     mov    bx,4            ; for DOS 2.1
  2536.     cmp    dosnum,210h        ; earlier than version 2.1?
  2537.     jae    gettse1            ; ae = no
  2538.     mov    al,','            ; use comma for old DOS's
  2539. gettse1:mov    al,tmpbuf[bx]        ; get thousands separator char
  2540.     mov    thsep,al        ; save it
  2541.     mov    al,tmpbuf        ; get time/date format code
  2542.     mov    tdfmt,al        ; save it
  2543.     ret
  2544. gettsep    endp
  2545.  
  2546. STAY    PROC    NEAR
  2547.     clc
  2548.     ret
  2549. STAY    ENDP
  2550.  
  2551. ; CHECK <build features>, returns success if feature is present
  2552. CHECK    proc    near
  2553.     mov    kstatus,kssuc        ; global status
  2554.     mov    ah,cmkey
  2555.     mov    dx,offset featab    ; feature table
  2556.     xor    bx,bx            ; table is help
  2557.     call    comnd
  2558.     jnc    check1            ; nc = success
  2559.     mov    kstatus,ksgen        ; general failure
  2560.     ret
  2561. check1:    push    bx
  2562.     mov    ah,cmeol
  2563.     call    comnd
  2564.     pop    bx
  2565.     jnc    check1a
  2566.     mov    kstatus,ksgen        ; general failure
  2567.     ret
  2568. check1a:mov    di,offset tmpbuf
  2569.     cmp    bx,1            ; graphics?
  2570.     jne    check2            ; ne = no
  2571.     mov    si,offset msggraph
  2572.     call    strcpy
  2573. ifdef    no_graphics
  2574.     mov    kstatus,ksgen
  2575.     mov    si,offset msgnot
  2576.     call    strcat
  2577. endif
  2578.     jmp    short check6
  2579.  
  2580. check2:    cmp    bx,2            ; tcp/ip?
  2581.     jne    check3            ; ne = no
  2582.     mov    si,offset msgtcpip
  2583.     call    strcpy
  2584. ifdef    no_tcp
  2585.     mov    kstatus,ksgen
  2586.     mov    si,offset msgnot
  2587.     call    strcat
  2588. endif
  2589.     jmp    short check6
  2590.  
  2591. check3:    cmp    bx,3            ; networks?
  2592.     jne    check4            ; ne = no
  2593.     mov    si,offset msgnetwork
  2594.     call    strcpy
  2595. ifdef    no_network
  2596.     mov    kstatus,ksgen
  2597.     mov    si,offset msgnot
  2598.     call    strcat
  2599. endif
  2600.     jmp    short check6
  2601.  
  2602. check4:    cmp    bx,4            ; terminals?
  2603.     jne    check5            ; ne = no
  2604.     mov    si,offset msgterm    ; terminals
  2605.     call    strcpy
  2606. ifdef    no_terminal
  2607.     mov    kstatus,ksgen
  2608.     mov    si,offset msgnot
  2609.     call    strcat
  2610. endif
  2611.     jmp    short check6
  2612.  
  2613. check5:    mov    si,offset msgif        ; IF statements
  2614.     call    strcpy
  2615.  
  2616. check6:    mov    si,offset msgavail
  2617.     call    strcat
  2618.     cmp    taklev,0        ; at top level?
  2619.     jne    checkx            ; ne = no, be quiet
  2620.     mov    dx,offset tmpbuf    ; show msg
  2621.     mov    ah,prstr
  2622.     int    dos
  2623. checkx:    ret                ; return status
  2624. CHECK    endp
  2625.  
  2626. TESTCOM    proc    near
  2627.     mov    kstatus,kssuc        ; global status
  2628.     mov    ah,cmkey
  2629.     mov    dx,offset chktab    ; check comm port table
  2630.     xor    bx,bx            ; table is help
  2631.     call    comnd
  2632.     jnc    testc1            ; nc = success
  2633.     mov    kstatus,ksgen        ; general failure
  2634.     ret
  2635. testc1:    mov    al,flags.comflg        ; save current comms port flag
  2636.     push    ax
  2637.     mov    flags.comflg,bl        ; port number, 1..4
  2638.     call    tstport            ; see if real UART, carry set if not
  2639.     pop    ax
  2640.     mov    flags.comflg,al        ; restore flag
  2641.     mov    dx,offset erms39    ; say UART
  2642.     jnc    testc2            ; nc = real UART
  2643.     mov    dx,offset erms38    ; say non-UART
  2644.     mov    kstatus,ksgen        ; set failure state for non-UART
  2645. testc2:    cmp    taklev,0        ; in a Take file or macro?
  2646.     je    testc3            ; e = no, display
  2647.     cmp    flags.takflg,0        ; Take echo off?
  2648.     je    testc4            ; e = yes, do not display
  2649. testc3:    mov    ah,prstr
  2650.     int    dos
  2651. testc4:    ret
  2652. TESTCOM endp
  2653.  
  2654. CLS    proc    near            ; Clear command level screen
  2655.     mov    ah,cmeol        ; get a confirmation
  2656.     call    comnd
  2657.     jc    cls1            ; c = failure
  2658.     call    cmblnk            ; blank the screen
  2659.     call    locate            ; put cursor at home position
  2660. cls1:    ret
  2661. CLS    endp
  2662.  
  2663. COMNT    PROC    NEAR            ; COMMENT command
  2664.     mov    ah,cmline
  2665.     mov    bx,offset tmpbuf
  2666.     xor    dx,dx            ; help
  2667.     call    comnd
  2668.     jc    comnt1
  2669.     mov    ah,cmeol
  2670.     call    comnd
  2671. comnt1:    ret
  2672. COMNT    ENDP
  2673.  
  2674. ; change working directory
  2675. cwdir    proc    near
  2676.     mov    kstatus,kssuc        ; global status
  2677.     mov    ah,cmword
  2678.     mov    bx,offset tmpbuf
  2679.     mov    dx,offset pthmsg
  2680.     mov    word ptr tmpbuf,0
  2681.     call    comnd            ; get drive/dir spec, if any
  2682.     mov    ah,cmeol
  2683.     call    comnd
  2684.     jnc    cwd1
  2685.     ret                ; c = failure
  2686. cwd1:    mov    si,offset tmpbuf    ; cdsr wants drive/path ptr in si
  2687.     call    cdsr            ; common CD sub-routine
  2688.     jnc    cwd2            ; nc = success
  2689.     mov    kstatus,ksgen        ; global status for unsuccess
  2690. cwd2:    cmp    taklev,0        ; in a Take file or macro?
  2691.     je    cwd3            ; e = no, do echo
  2692.     cmp    flags.takflg,0        ; ok to echo?
  2693.     je    cwd4            ; e = no
  2694. cwd3:    push    dx
  2695.     mov    dx,offset crlf        ; msgs from cdsr don't include this
  2696.     mov    ah,prstr        ; so let's do it now
  2697.     int    dos
  2698.     pop    dx
  2699.     call    prtasz            ; output current drive/path or err msg
  2700. cwd4:    clc
  2701.     ret
  2702. cwdir    endp
  2703.  
  2704. ; Erase specified file(s). Add protection of ignore hidden, subdir, volume
  2705. ; label and system files. 9 Jan 86 [jrd]
  2706. DELETE    PROC    NEAR            ; includes paths and "?*" wildcards
  2707.     mov    kstatus,kssuc        ; global status
  2708.     mov    si,offset delcmd    ; del command
  2709.     mov    di,offset tmpbuf
  2710.     call    strcpy
  2711.     mov    dx,offset tmpbuf
  2712.     call    strlen            ; get its length
  2713.     add    di,cx            ; point at terminator
  2714.     mov    temp,di            ; remember starting spot
  2715.     mov    ah,cmline        ; get a line
  2716.     mov    bx,di            ; where to place the file spec
  2717.     mov    dx,offset filmsg    ; help message
  2718.     call    comnd
  2719.     jc    delet0            ; c = failure
  2720.     push    ax
  2721.     mov    ah,cmeol
  2722.     call    comnd
  2723.     pop    ax
  2724.     jc    delet0
  2725.     cmp    apctrap,0        ; disable from APC
  2726.     jne    delet0            ; ne = yes
  2727.     or    ax,ax            ; anything given?
  2728.     jnz    delet1            ; nz = yes
  2729.     mov    ah,prstr
  2730.     mov    dx,offset ermes1    ; say need something
  2731.     int    dos
  2732.     clc                ; say success
  2733. delet0:    mov    kstatus,ksgen        ; global status
  2734.     ret
  2735.  
  2736. delet1:    mov    si,offset tmpbuf    ; source
  2737.     mov    di,temp            ; start of filespec
  2738.     xor    cl,cl            ; disk drive letter
  2739.     cmp    byte ptr [di+1],':'    ; drive specified?
  2740.     jne    delet2            ; ne = no
  2741.     mov    cl,[di]            ; get drive letter
  2742. delet2:    call    dskspace        ; compute space, get letter into CL
  2743.     jnc    delet3            ; nc = success
  2744.     mov    spcmsg3,cl        ; put drive letter in msg
  2745.     mov    dx,offset spcmsg2    ; error message
  2746.     call    prtasz
  2747.     mov    kstatus,ksgen        ; global status
  2748.     clc
  2749.     ret                ; and ignore this command
  2750. delet3:    mov    si,offset tmpbuf    ; del cmd
  2751.     jmp    crun            ; join run cmd from there
  2752. DELETE    ENDP
  2753.  
  2754. ; Space <optional drive letter>
  2755.  
  2756. CHKDSK    PROC    NEAR            ; Space command
  2757.     mov    kstatus,kssuc        ; global status
  2758.     mov    bx,offset tmpbuf    ; buffer
  2759.     mov    tmpbuf,0        ; init to null
  2760.     mov    dx,offset dskmsg    ; help message
  2761.     mov    ah,cmword        ; get optional drive letter
  2762.     call    comnd            ; ignore errors
  2763.     mov    ah,cmeol
  2764.     call    comnd
  2765.     jnc    chkdsk1            ; nc = success
  2766.     ret                ; failure
  2767. chkdsk1:mov    cl,tmpbuf        ; set drive letter
  2768.     call    dskspace        ; compute space, get letter into CL
  2769.     jnc    chkdsk2            ; nc = success
  2770.     and    cl,5fh            ; to upper case
  2771.     mov    spcmsg3,cl        ; insert drive letter
  2772.     mov    dx,offset spcmsg2    ; say drive not ready
  2773.     call    prtasz
  2774.     mov    kstatus,ksgen        ; global status
  2775.     clc
  2776.     ret
  2777.     
  2778. chkdsk2:mov    spcmsg1,cl        ; insert drive letter
  2779.     mov    di,offset tmpbuf    ; work space for lnout
  2780.     mov    word ptr[di],0a0dh    ; cr/lf
  2781.     mov    word ptr[di+2],'  '    ; add two spaces
  2782.     add    di,4
  2783.     call    lnouts            ; use thousands separator
  2784.     mov    si,offset spcmsg
  2785.     call    strcat            ; add text to end of message
  2786.     mov    dx,offset tmpbuf
  2787.     call    prtasz            ; print asciiz string
  2788.     clc
  2789.     ret
  2790. CHKDSK    ENDP
  2791.  
  2792.  
  2793. ; Get directory    listing
  2794. DIRECT    PROC    NEAR
  2795.     mov    kstatus,kssuc        ; global status
  2796.     mov    si,offset dircmd    ; dir command
  2797.     mov    di,offset tmpbuf
  2798.     call    strcpy
  2799.     mov    dx,offset tmpbuf
  2800.     call    strlen            ; get its length
  2801.     add    di,cx            ; point at terminator
  2802.     mov    temp,cx            ; remember length
  2803.     mov    ah,cmline        ; parse with cmline to allow switches
  2804.     mov    bx,di            ; next available byte
  2805.     mov    dx,offset filmsg    ; help message 
  2806.     call    comnd
  2807.     jnc    direct1            ; nc = success
  2808. direct0:mov    kstatus,ksgen        ; global status
  2809.     ret                ; failure
  2810. direct1:mov    ah,cmeol
  2811.     call    comnd
  2812.     jc    direct0
  2813.     mov    word ptr [bx],0        ; plant terminator
  2814.     mov    si,offset tmpbuf
  2815.     push    si
  2816.     add    si,temp            ; user's text after ' dir '
  2817.     mov    cl,curdsk        ; current drive number ('A'=1)
  2818.     add    cl,'A'-1        ; make a letter
  2819.     cmp    byte ptr [si+1],':'    ; drive specified?
  2820.     jne    direct2            ; ne = no, use current drive
  2821.     mov    cl,[si]            ; get drive letter from buffer
  2822. direct2:call    dskspace        ; check for drive ready
  2823.     pop    si
  2824.     jnc    direct3            ; nc = drive ready
  2825.     mov    spcmsg3,cl        ; insert letter
  2826.     mov    dx,offset spcmsg2    ; say drive is not ready
  2827.     call    prtasz
  2828.     mov    kstatus,ksgen        ; global status
  2829.     stc
  2830.     ret
  2831. direct3:jmp    crun            ; join run cmd from there
  2832. DIRECT    ENDP
  2833.  
  2834. ; This is the 'HELP' command.  It gives a list of the commands
  2835. ; And INTRO command
  2836. INTRO    proc    near
  2837.     mov    kstatus,kssuc        ; global status
  2838.     mov    ah,cmeol
  2839.     call    comnd            ; get a confirm
  2840.     jnc    intro1            ; nc = success
  2841.     ret                ; failure
  2842. intro1:
  2843. ifdef    no_terminal
  2844.     ret
  2845. else
  2846.     push    es
  2847.     mov    ax,seg intrhlp        ; all Intro text is in data1
  2848.     mov    es,ax
  2849.     mov    al,trans.escchr        ; Connect mode escape char
  2850.     cmp    al,' '            ; printable now?
  2851.     jae    intro2            ; ae = yes
  2852.     add    al,40h            ; make control visible
  2853. intro2:    mov    si,offset intrhlp1
  2854.     mov    es:[si],al
  2855.     mov    si,offset intrhlp2
  2856.     mov    es:[si],al
  2857.     mov    si,offset intrhlp    ; Intro text in seg data1
  2858.     xor    bx,bx            ; line counter
  2859.     cld
  2860.      jmp    short help2        ; common tail
  2861. endif    ; ifdef no_terminal
  2862. INTRO    endp
  2863.  
  2864. HELP    PROC    NEAR
  2865.     mov    kstatus,kssuc        ; global status
  2866.     mov    ah,cmeol
  2867.     call    comnd            ; get a confirm
  2868.     jnc    help1            ; nc = success
  2869.     ret                ; failure
  2870. help1:    mov    si,offset qckhlp    ; help text in seg data1
  2871.     xor    bx,bx            ; line counter
  2872.     push    es
  2873.     mov    ax,seg qckhlp        ; all help text is in data1
  2874.     mov    es,ax
  2875.     cld
  2876.  
  2877. HELP2:    mov    al,es:[si]        ; read a help msg byte
  2878.     inc    si
  2879.     cmp    al,'$'            ; end of message?
  2880.     je    help3            ; e = yes, stop
  2881.     mov    ah,conout
  2882.     mov    dl,al
  2883.     int    dos            ; display byte
  2884.     cmp    dl,LF            ; line break?
  2885.     jne    help2            ; ne = no
  2886.     inc    bl            ; count line
  2887.     cmp    bl,dos_bottom        ; (24) time for a more msg?
  2888.     jbe    help2            ; be = not yet
  2889.     xor    bl,bl            ; reset line count
  2890.     call    iseof            ; are we at EOF, such as from disk?
  2891.     jc    help2            ; c = yes, ignore more msg
  2892.     push    es
  2893.     push    si
  2894.     mov    ah,prstr
  2895.     mov    dx,offset moremsg    ; "... more..." msg
  2896.     int    dos
  2897.     pop    si
  2898.     pop    es
  2899.     mov    ah,coninq        ; read the char from file, not device
  2900.     int    dos
  2901.     cmp    al,3            ; a ^C?
  2902.     je    short help3        ; e = yes, stop the display
  2903.     cmp    al,'?'            ; query?
  2904.     je    helpquery        ; e = yes
  2905.     push    bx            ; save line counter
  2906.     push    es            ; and read pointer
  2907.     push    si
  2908.     call    ctlu            ; clear display's line, reuse it
  2909.     pop    si
  2910.     pop    es
  2911.     pop    bx
  2912.     jmp    short help2        ; continue
  2913. help3:    pop    es
  2914.     clc
  2915.     ret
  2916.  
  2917. helpquery:pop    es
  2918.     mov    ah,prstr        ; show help summary screen
  2919.     mov    dx,offset crlf        ; a few blank lines
  2920.     int    dos
  2921.     int    dos
  2922.     int    dos
  2923.     push    ds
  2924.     mov    dx,seg tophlp
  2925.     mov    ds,dx
  2926.     mov    dx,offset tophlp    ; show usual cryptic help
  2927.     int    dos
  2928.     pop    ds
  2929.     clc
  2930.     ret
  2931. HELP    ENDP
  2932.  
  2933. ; the version command - print our version number
  2934. prvers    proc    near
  2935.     mov    kstatus,kssuc        ; global status
  2936.     mov    ah,cmeol
  2937.     call    comnd
  2938.     jc    prvers1            ; c = failure
  2939.     mov    ah,prstr
  2940.     mov    dx,offset crlf
  2941.     int    dos
  2942.     mov    ah,prstr
  2943.     mov    dx,offset machnam    ; display machine name
  2944.     int    dos
  2945.     mov    ah,prstr        ; display the version header
  2946.     mov    dx,offset verident
  2947.     int    dos
  2948.     mov    ah,prstr
  2949.     mov    dx,offset copyright2    ; full copyright notice
  2950.     int    dos
  2951.     clc
  2952. prvers1:ret
  2953. prvers    endp
  2954.  
  2955. ; SHOW command dispatcher
  2956. showcmd    proc    near
  2957.     mov    ah,cmkey
  2958.     mov    dx,offset shotab
  2959.     xor    bx,bx            ; no canned help
  2960.     call    comnd
  2961.     jc    showc1            ; c = failure
  2962.     jmp    bx            ; execute the handler
  2963. showc1:    ret                ; failure
  2964. showcmd    endp
  2965.  
  2966. ; the type command - type out a file
  2967. typec    proc    near
  2968.     mov    kstatus,kssuc        ; global status
  2969.     mov    si,offset typcmd    ; type command
  2970.     mov    di,offset tmpbuf
  2971.     call    strcpy
  2972.     mov    dx,offset tmpbuf
  2973.     call    strlen            ; get its length
  2974.     add    di,cx            ; point at terminator
  2975.     mov    temp,di            ; save place for later
  2976.     mov    ah,cmline        ; parse with cmline, allows | more
  2977.     mov    bx,di            ; next available byte
  2978.     mov    dx,offset filmsg    ; In case user wants help
  2979.     call    comnd
  2980.     jc    typec1            ; c = failure
  2981.     push    ax
  2982.     mov    ah,cmeol
  2983.     call    comnd
  2984.     pop    ax
  2985.     jc    typec1
  2986.     or    ax,ax            ; any text given?
  2987.     jnz    typec2            ; nz = yes
  2988.     mov    ah,prstr
  2989.     mov    dx,offset ermes1    ; say need more info
  2990.     int    dos
  2991.     mov    kstatus,ksgen        ; global status
  2992.     clc
  2993. typec1:    ret
  2994. typec2:    mov    byte ptr [bx],0        ; plant terminator
  2995.     mov    si,temp            ; start of filespec
  2996.     xor    cl,cl            ; say local drive
  2997.     cmp    byte ptr [si+1],':'    ; drive given?
  2998.     jne    typec3            ; ne = no
  2999.     mov    cl,[si]            ; get drive letter
  3000. typec3:    call    dskspace        ; check for drive ready
  3001.     jnc    typec4
  3002.     mov    spcmsg3,cl        ; put drive letter in msg
  3003.     mov    dx,offset spcmsg2    ; error message
  3004.     call    prtasz
  3005.     mov    kstatus,ksgen        ; global status
  3006.     clc
  3007.     ret                ; and ignore this command
  3008. typec4:    mov    si,offset tmpbuf
  3009.     jmp    short crun        ; join run cmd from there
  3010. typec    endp
  3011.  
  3012. ; PUSH to DOS (run another copy of Command.com or equiv)
  3013. ; entry fpush (fast push...) pushes without waiting for a confirm
  3014. dopush    proc    near
  3015.     mov    ah,cmeol
  3016.     call    comnd
  3017.     jnc    fpush            ; nc = success
  3018.     ret                ; failure
  3019. fpush:    cmp    nopush_flag,0        ; pushing allowed?
  3020.     jne    fpush1            ; ne = no
  3021.     mov    si,offset tmpbuf    ; a dummy buffer
  3022.     mov    byte ptr [si],0        ; plant terminator
  3023.     mov    dx,offset cmspbuf    ; always use command.com
  3024.     cmp    shellbuf,0        ; SHELL= present?
  3025.     je    crun4            ; e = no, use COMSPEC= name
  3026.     mov    dx,offset shellbuf    ; use SHELL= name
  3027.     jmp    short crun4        ; go run it
  3028. fpush1:    stc                ; fail
  3029.     ret
  3030. dopush    endp
  3031.  
  3032. ; Run a program from within Kermit
  3033. RUN    PROC    NEAR
  3034.     mov    ah,cmline        ; get program name and any arguments
  3035.     mov    bx,offset tmpbuf    ; place for user's text
  3036.     mov    dx,offset runmsg    ; In case user wants help
  3037.     call    comnd
  3038.     jnc    run1            ; nc = success
  3039.     ret                ; failure
  3040. run1:    cmp    apctrap,0        ; disable from APC
  3041.     jne    run3            ; ne = yes, fail
  3042.     cmp    nopush_flag,0        ; pushing disabled?
  3043.     jne    run3            ; ne = yes, fail
  3044.     or    ax,ax            ; byte count
  3045.     jnz    run2            ; nz = have program name
  3046.     mov    ah,prstr        ; else complain
  3047.     mov    dx,offset ermes1    ; need more info
  3048.     int    dos
  3049.     clc
  3050.     ret
  3051. run2:    mov    si,offset tmpbuf    ; source of text
  3052.     jmp    short crun
  3053.  
  3054. run3:    stc                ; failure exit
  3055.     ret
  3056. RUN    ENDP
  3057.  
  3058. ; crun - run an arbitrary program.
  3059. ; Enter with ordinary ASCIIZ command in SI (such as Dir *.asm)
  3060. ; Append a c/r and a null terminator and then ask command.com to do it
  3061. ; Set errlev with DOS errorlevel from subprocess.
  3062. CRUN    proc    near
  3063.     mov    ah,prstr        ; output crlf before executing comnd
  3064.     mov    dx,offset crlf        ; [lba]
  3065.     int    dos
  3066.     mov    di,offset tmpbuf    ; where to put full command line text
  3067.     cmp    si,di            ; same place?
  3068.     je    crun1            ; e = yes, don't copy ourself
  3069.     call    strcpy            ; si holds source text
  3070. crun1:    mov    si,offset slashc    ; DOS command begins with slashc area
  3071.     mov    dx,offset slashc+1    ; si points to /c part of command line
  3072.     call    strlen            ; get its length into cx
  3073.     push    bx
  3074.     mov    bx,dx
  3075.     add    bx,cx
  3076.     mov    byte ptr [bx],cr    ; end string with a c/r for dos
  3077.     inc    cx            ; count the c/r
  3078.     mov    byte ptr [bx+1],0    ; and terminate
  3079.     pop    bx
  3080.     mov    [si],cl            ; put length of argument here
  3081.     mov    dx,offset cmspbuf    ; always use command.com
  3082. crun4:    mov    exearg+2,si        ; pointer to argument string
  3083.     mov    exearg+4,ds        ; segment of same
  3084.     cmp    lclsusp,0        ; sys dependent routine to call
  3085.     je    crun5            ; e = none
  3086.     mov    bx,lclsusp        ; address to call
  3087.     push    dx            ; preserve name in dx
  3088.     call    bx            ; call sys dependent suspend routine
  3089.     pop    dx
  3090. crun5:    push    dx            ; preserve name in dx
  3091.     call    serrst            ; reset serial port (if active)
  3092.     call    cbrestore        ; restore state of Control-Break Chk
  3093.     pop    dx
  3094.     mov    es,psp            ; point to psp again
  3095.     mov    exearg+8,es        ; segment of psp, use our def fcb's
  3096.     mov    exearg+12,es        ; segment of psp, ditto, for fcb 2
  3097.     mov    ax,es:word ptr [env]    ; get environment ptr
  3098.     mov    exearg,ax        ; put into argument block
  3099.     mov    ax,ds
  3100.     mov    es,ax            ; put es segment back
  3101.     mov    bx,offset exearg    ; es:bx points to exec parameter block
  3102.     mov    ax,ss            ; save ss:sp
  3103.     mov    word ptr ssave+2,ax
  3104.     mov    word ptr ssave,sp
  3105.     xor    al,al            ; 0 = load and execute (DX has name)
  3106.     mov    ah,exec
  3107.     int    dos            ; go run command.com
  3108.     mov    bx,data            ; restore segment registers
  3109.     mov    ds,bx            ; reset data segment
  3110.     mov    es,bx            ; and extra segment
  3111.     cli
  3112.     mov    bx,word ptr ssave+2
  3113.     mov    ss,bx            ; and stack segment
  3114.     mov    sp,word ptr ssave    ; restore stack ptr
  3115.     sti
  3116.     jnc    crun9            ; nc = no error
  3117.     mov    ah,prstr        ; failure, complain
  3118.     mov    dx,offset erms37
  3119.     int    dos
  3120.     mov    dx,offset cmspbuf    ; path\name of command.com
  3121.     call    prtasz            ; asciiz
  3122.     mov    kstatus,ksgen        ; global status
  3123. crun9:    mov    ah,setdma        ; restore dma buffer pointer
  3124.     mov    dx,offset buff
  3125.     int    dos            ; restore dma address!!
  3126.     call    cboff            ; turn off DOS BREAK check
  3127.     cmp    lclrest,0        ; sys dependent routine to call?
  3128.     je    crun10            ; e = none
  3129.     mov    bx,lclrest        ; get routine's address
  3130.     call    bx            ; call sys dependent restore routine
  3131. crun10:    clc
  3132.     ret
  3133. CRUN    ENDP
  3134. code    ends
  3135.  
  3136. code1    segment
  3137.     assume    cs:code1 
  3138.  
  3139. ; Write path and filename of current Take file to buffer cmdfile. 
  3140. ; Enter with current working filename offset in register dx.
  3141. save_cmdfile    proc far
  3142.     push    ax
  3143.     push    dx
  3144.     push    es
  3145.     mov    di,ds
  3146.     mov    es,di
  3147.     mov    di,offset cmdfile    ; destination
  3148.     mov    si,dx            ; source path
  3149.     mov    ax,[si]
  3150.     cmp    ah,':'            ; drive specified?
  3151.     jne    save_c1            ; ne = no
  3152.     and    al,not 20h        ; upper case the drive letter
  3153.     add    si,2            ; next byte to read
  3154.     jmp    short save_c2
  3155. save_c1:mov    al,curdsk        ; current drive letter
  3156.     add    al,'A'-1        ; number back to letter
  3157.     mov    ah,':'            ; and letter
  3158. save_c2:cld
  3159.     stosw                ; write to output
  3160.     xor    al,al
  3161.     mov    [di],al            ; terminate
  3162.     cmp    byte ptr [si],'\'    ; rooted path?
  3163.     je    save_c3            ; e = yes
  3164.     mov    al,'\'            ; get root indicator
  3165.     stosb                ; write to output
  3166.     mov    dl,cmdfile        ; get upper case drive letter
  3167.     sub    dl,'A'-1        ; A = 1
  3168.     push    si
  3169.     mov    si,di            ; gcd writes to si
  3170.     mov    ah,gcd            ; get current directory (path really)
  3171.     int    dos
  3172.     mov    dx,si
  3173.     call    strlen
  3174.     add    di,cx
  3175.     pop    si
  3176.     jcxz    save_c3            ; z = no directory, have \ already
  3177.     mov    al,'\'            ; path separator
  3178.     stosb
  3179.     mov    byte ptr [di],0        ; terminator
  3180. save_c3:call    strcpy            ; copy rest of string
  3181.     pop    es
  3182.     pop    dx
  3183.     pop    ax
  3184.     ret
  3185. save_cmdfile    endp
  3186.  
  3187. ; Replace Int 23h and Int 24h with our own handlers
  3188. ; Revised to ask DOS for original interrupt vector contents, as suggested by
  3189. ; Jack Bryans. 9 Jan 1986 jrd
  3190. ; Modified again 30 August 1986 [jrd]
  3191. SETINT    PROC    FAR
  3192.     push    es            ; save registers
  3193.     mov    al,23H            ; desired interrupt vector (^C)
  3194.     mov    ah,getintv        ; Int 21H, function 35H = Get Vector
  3195.     int    dos            ; get vector in es:bx
  3196.     mov    in3ad,bx        ; save offset of original vector
  3197.     mov    in3ad+2,es        ;   and its segment
  3198.     mov    al,24h            ; DOS critical error, Int 24h
  3199.     mov    ah,getintv
  3200.     int    dos
  3201.     mov    word ptr ceadr,bx    ; DOS's Critical Error handler, offset
  3202.     mov    word ptr ceadr+2,es    ;  and segment address
  3203.     push    ds            ; save ds around next DOS calls
  3204.     mov    ax,seg intbrk        ; compose full address of ^C routine
  3205.     mov    ds,ax            ; segment is the code segment
  3206.     mov    dx,offset intbrk    ;   and offset is intbrk
  3207.     mov    al,23H            ; on ^C, goto intbrk
  3208.     mov    ah,setintv        ; set interrupt address from ds:dx
  3209.     int    dos
  3210.     mov    dx,offset dosce        ; replacement Critical Error handler
  3211.     mov    al,24h            ; interrupt 24h
  3212.     mov    ah,setintv        ; replace it
  3213.     int    dos
  3214.     pop    ds
  3215.     mov    ax,3300h        ; get state of Control-Break Check
  3216.     int    dos
  3217.     mov    orgcbrk,dl        ; save state here
  3218.     pop    es
  3219.     ret
  3220. SETINT    ENDP
  3221.  
  3222. ; Control Break, Interrupt 23h replacement
  3223. ; Always return with a Continue (vs Abort) condition since Kermit will cope
  3224. ; with failures. [jrd]
  3225. intbrk:    push    ax
  3226.     push    ds    
  3227.     mov    ax,data            ; get Kermit's data segment
  3228.     mov    ds,ax
  3229.     mov    flags.cxzflg,'C'    ; say we saw a ^C
  3230.     mov    rstate,'E'
  3231.     mov    sstate,'E'
  3232.     pop    ds
  3233.     pop    ax
  3234.     iret               ; return to caller in a Continue condition
  3235.  
  3236. ; Kermit's DOS Critical Error Handler, Int 24h. [jrd]
  3237. ; Needed to avoid aborting Kermit with the serial port interrupt active and
  3238. ; the Control Break interrupt redirected. See the DOS Tech Ref Manual for
  3239. ; a start on this material; it is neither complete nor entirely accurate
  3240. ; The stack is the Kermit's stack, the data segment is unknown, interrupts
  3241. ; are off, and the code segment is Kermit's. Note: some implementations of
  3242. ; MS DOS may leave us in DOS's stack. Called by a DOS Int 21h function
  3243. dosce:    test    ah,80h        ; block device (disk drive)?
  3244.     jnz    dosce1        ; nz = no; serial device, memory, etc
  3245.     mov    al,3        ; tell DOS to Fail the Int 21h call
  3246.     iret            ; return to DOS
  3247. dosce1:    add    sp,6        ; pop IP, CS, Flags regs, from DOS's Int 24h
  3248.     pop    ax        ; restore original callers regs existing
  3249.     pop    bx        ;  just before doing Int 21h call
  3250.     pop    cx
  3251.     pop    dx
  3252.     pop    si
  3253.     pop    di
  3254.     pop    bp
  3255.     pop    ds
  3256.     pop    es        
  3257.     mov    al,0ffh        ; signal failure (usually) the DOS 1.x way
  3258.     push    bp        ; Kermit's IP, CS, and Flags are on the stack
  3259.     mov    bp,sp        ;  all ready for an iret, but first a word ..
  3260.     or    word ptr[bp+8],1 ; set carry bit, signals failure DOS 2+ way
  3261.     pop    bp        ; this avoids seeing the Interrupt flag bit
  3262.     iret            ; return to user, simulate return from Int 21h
  3263.  
  3264. ; Set DOS' Control-Break Check to off
  3265. cboff    proc    far
  3266.     push    ax
  3267.     push    dx
  3268.     mov    ax,3301h        ; set Control-Break Chk state
  3269.     xor    dl,dl            ; set state to off
  3270.     int    dos
  3271.     pop    dx
  3272.     pop    ax
  3273.     ret
  3274. cboff    endp
  3275.  
  3276. ; Restore DOS's Control-Break Check to startup value
  3277. cbrestore proc    far
  3278.     push    ax
  3279.     push    dx
  3280.     mov    ax,3301h        ; set Control-Break Chk state
  3281.     mov    dl,orgcbrk        ; restore state to startup value
  3282.     int    dos
  3283.     pop    dx
  3284.     pop    ax
  3285.     ret
  3286. cbrestore endp
  3287.  
  3288.  
  3289. ; CDSR processes both CD & REM CD.  Entered with si --> drive/path, it returns
  3290. ; dx --> ASCIIZ current drive/path, w/carry clear, if successful, or error msg
  3291. ; w/carry set, if not.
  3292. CDSR    PROC    FAR
  3293.     mov    kstatus,kssuc        ; global status
  3294.     xor    cx,cx            ; 0 for default drive, if none
  3295.     cmp    byte ptr[si],ch        ; any drive/path?
  3296.     je    cdsr4            ; e = no, format current drive/path
  3297.     cmp    byte ptr[si+1],':'    ; is drive specified?
  3298.     jne    cdsr1            ; ne = no
  3299.     mov    cl,[si]            ; drive letter
  3300. ;    cmp    byte ptr[si+2],ch    ; any path?
  3301. ;    jne    cdsr1            ; ne = yes
  3302. ;    mov    word ptr[si+2],'.'    ; append dot+null as path to kludge DOS
  3303. cdsr1:    call    dskspace        ; test for drive, spec'd by cl, ready
  3304.     jnc    cdsr2            ; nc = ready
  3305.     mov    spcmsg3,cl        ; insert drive letter ret'd by dskspace
  3306.     mov    dx,offset spcmsg2+2    ; in err msg.  dx --> msg w/o cr,lf
  3307.     mov    kstatus,ksgen        ; global status
  3308.     ret                ; carry is set
  3309.  
  3310. cdsr2:    push    cx            ; save drive letter part
  3311.     mov    dx,si
  3312. cdsr2a:    call    strlen
  3313.     mov    bx,cx            ; look at last char+1
  3314.     dec    bx            ; last byte
  3315.     cmp    cx,1            ; if any bytes
  3316.     jbe    cdsr2b            ; be = enough for 1 char
  3317.     cmp    byte ptr [si+bx],'\'    ; ends on backslash?
  3318.     jne    cdsr2b            ; ne = no
  3319.     cmp    byte ptr [si+bx-1],':'    ; ends as ":\"?
  3320.     je    cdsr2b            ; e = yes, leave intact for roots
  3321.     mov    byte ptr [si+bx],0    ; trim trailing backslash
  3322.     jmp    short cdsr2a        ; keep trimming
  3323. cdsr2b:    pop    cx            ; restore drive letter
  3324.     mov    dl,cl            ; uc drive letter ret'd by dskspace
  3325.     sub    dl,'A'            ; A = 0 for seldsk
  3326.     mov    ah,seldsk
  3327.     int    dos
  3328.     inc    dl            ; A = 1 for curdsk
  3329.     mov    curdsk,dl
  3330.     mov    dx,si            ; where chdir wants it
  3331.     cmp    byte ptr [si+1],':'    ; drive specified?
  3332.     jne    cdsr3            ; ne = no, just path
  3333.     add    dx,2            ; skip "drive:"
  3334.     cmp    byte ptr [si+2],0    ; any path?
  3335.     je    cdsr4            ; e = no
  3336. cdsr3:    mov    ah,chdir
  3337.     int    dos
  3338.     jnc    cdsr4            ; nc = success
  3339.     mov    dx,offset ermes4    ; ret carry set, dx --> err msg
  3340.     ret
  3341.  
  3342. cdsr4:    push    si            ; use caller's buffer for cur dr/path
  3343.     mov    ax,':@'            ; al = 'A' - 1, ah = ':'
  3344.     add    al,curdsk        ; al = drive letter
  3345.     mov    [si],ax            ; stash drive:
  3346.     inc    si
  3347.     inc    si
  3348.     mov    byte ptr[si],'\'    ; add \
  3349.     inc    si
  3350.     mov    ah,gcd            ; gcd fills in path as ASCIIZ
  3351.     xor    dl,dl            ; use current drive
  3352.     int    dos
  3353.     pop    dx            ; return caller's buffer pointer in dx
  3354.     clc
  3355.     ret
  3356. CDSR    ENDP
  3357. ; Compute disk free space (bytes) into long word dx:ax.
  3358. ; Enter with disk LETTER in CL (use null if current disk).
  3359. ; Returns uppercase drive letter in CL.
  3360. ; Returns carry set if drive access error. Changes AX, DX.
  3361.  
  3362. DSKSPACE PROC    FAR
  3363.     mov    dl,cl            ; desired disk letter, or null
  3364.     or    dl,dl            ; use current disk?
  3365.     jnz    dskspa1            ; nz = no
  3366.     mov    ah,gcurdsk        ; get current disk
  3367.     int    dos
  3368.     add    al,'A'            ; make 0 ==> A
  3369.     mov    dl,al
  3370. dskspa1:and    dl,5fh            ; convert to upper case
  3371.     mov    cl,dl            ; return upper case drive letter in CL
  3372.     sub    dl,'A'-1        ; 'A' is 1, etc
  3373.     push    bx
  3374.     push    cx
  3375.     mov    ah,36h            ; get disk free space, bx=sect/cluster
  3376.     int    dos            ; dx:ax=sectors, cx=bytes/sector
  3377.     cmp    ax,0ffffh        ; error response?
  3378.     jne    dskspa2            ; ne = no
  3379.     pop    cx
  3380.     pop    bx
  3381.     stc                ; return error
  3382.     ret
  3383. dskspa2:mul    bx            ; sectors/cluster * clusters = sectors
  3384.     mov    bx,dx            ; save high word of sectors (> 64K)
  3385.     mul    cx            ; bytes = sectors * bytes/sector
  3386.     push    ax            ; save low word of bytes
  3387.     mov    ax,bx            ; recall sectors high word
  3388.     mov    bx,dx            ; save current bytes high word
  3389.     mul    cx            ; high word sectors * bytes/sector
  3390.     add    ax,bx            ; new high bytes + old high bytes
  3391.     mov    dx,ax            ; store high word in dx
  3392.     pop    ax            ; space is in dx:ax as a long word
  3393.     pop    cx
  3394.     pop    bx
  3395.     clc
  3396.     ret
  3397. DSKSPACE ENDP
  3398.  
  3399. ; Enter with ds:ax pointing at asciiz filename string
  3400. ; Returns carry set if the file pointed to by ax does not exist, else reset
  3401. ; Returns status byte, fstat, with DOS status and high bit set if major error
  3402. ; Does a search-for-first to permit paths and wild cards
  3403. ; Examines All kinds of files (ordinary, subdirs, vol labels, system,
  3404. ;  and hidden). Upgraded to All kinds on 27 Dec 1985. Revised 30 Aug 86 [jrd]
  3405. ; All registers are preserved
  3406. ISFILE    PROC    FAR
  3407.     push    bx
  3408.     push    ax
  3409.     mov    bx,ax
  3410.     mov    ax,[bx]
  3411.     or    al,al            ; is string empty?
  3412.     jnz    isfil5            ; nz = no
  3413.     pop    ax
  3414.     pop    bx
  3415.     stc                ; return failure
  3416.     ret
  3417. isfil5:    and    ax,not 2020h        ; to upper
  3418.     cmp    ax,'UN'            ; look for DOS 5 NUL
  3419.     jne    isfil4            ; ne = mismatch
  3420.     mov    ax,[bx+2]
  3421.     and    al,not 20h
  3422.     cmp    ax,'L'+0
  3423.     jne    isfil4            ; ne = mismatch
  3424.     pop    ax
  3425.     pop    bx
  3426.     clc                ; say success
  3427.     ret
  3428. isfil4:    pop    ax
  3429.     pop    bx
  3430.     push    dx            ; save regs
  3431.     push    cx
  3432.     push    ax
  3433.     mov    byte ptr filtst.dta+21,0 ; clear old attribute bits
  3434.     mov    byte ptr filtst.fname,0    ; clear any old filenames
  3435.     mov    filtst.fstat,0        ; clear status byte
  3436.     mov     cx,3fH            ; look at all kinds of files
  3437.     mov    dx,offset filtst.dta    ; own own temporary dta
  3438.     mov    ah,setdma        ; set to new dta
  3439.     int    dos
  3440.     pop    dx            ; get ax (filename string ptr)
  3441.     push    dx            ; save it again
  3442.     mov    ah,first2        ; search for first
  3443.     int    dos
  3444.     pushf                ; save flags
  3445.     mov    dx,offset buff        ; reset dma
  3446.     mov    ah,setdma
  3447.     int    dos
  3448.     popf                ; recover flags
  3449.     jnc    isfil1            ; nc = file found
  3450.     mov    filtst.fstat,al        ; record DOS status
  3451.     cmp    al,2            ; just "File Not Found"?
  3452.     je    isfil2            ; e = yes
  3453.     cmp    al,3            ; "Path not found"?
  3454.     je    isfil2            ; e = yes
  3455.     cmp    al,18            ; "No more files"?
  3456.     je    isfil2            ; e = yes
  3457.     or    filtst.fstat,80h    ; set high bit for more serious error
  3458.     jmp    short isfil2    
  3459. isfil1:    cmp    byte ptr filtst.fname,0    ; did DOS fill in a name?
  3460.     je    isfil2            ; z = no
  3461.     clc
  3462.     jmp    short isfil3
  3463. isfil2:    stc                ; else set carry flag bit
  3464. isfil3:    pop    ax
  3465.     pop    cx
  3466.     pop    dx
  3467.     ret                ; DOS sets carry if file not found
  3468. ISFILE    ENDP
  3469.  
  3470.  
  3471. ; Allocate memory.  Passed a memory size in ax, allocates that many
  3472. ; bytes (actually rounds up to a paragraph) and returns its SEGMENT in ax
  3473. ; The memory is NOT initialized.  Written by [jrd] to allow memory to
  3474. ; be allocated anywhere in the 1MB address space
  3475. malloc    proc    far
  3476.     push    bx
  3477.     push    cx
  3478.     mov    bx,ax            ; bytes wanted
  3479.     add    bx,15            ; round up
  3480.     mov    cl,4
  3481.     shr    bx,cl            ; convert to # of paragraphs
  3482.     mov    cx,bx            ; remember quantity wanted
  3483.     mov    ah,alloc        ; DOS memory allocator
  3484.     int    dos
  3485.     jc    mallocx            ; c = fatal
  3486.     cmp    cx,bx            ; paragraphs wanted vs delivered
  3487.     jae    mallocx            ; ae = enough
  3488.     push    es
  3489.     mov    es,ax
  3490.     mov    ah,freemem        ; free the memory
  3491.     int    dos
  3492.     pop    es
  3493.     stc                ; fail
  3494. mallocx:pop    cx
  3495.     pop    bx
  3496.     ret                ; and return segment in ax
  3497. malloc    endp
  3498. code1    ends
  3499.  
  3500. code    segment
  3501.     assume    cs:code
  3502.  
  3503. ; initialize memory usage by returning to DOS anything past the end of kermit
  3504. memini    proc    near
  3505.     push    es
  3506.     mov    bx,_TEXT
  3507.     sub    bx,psp
  3508.     mov    totpar,bx        ; save for patcher's magic number
  3509.     mov    es,psp            ; address psp segment again
  3510.     mov    bx,offset msfinal + 15    ; end of pgm + roundup
  3511.     mov    cl,4
  3512.     shr    bx,cl            ; compute # of paragraphs in last seg
  3513.     mov    ax,_STACK        ; last segment
  3514.     sub    ax,psp            ; minus beginning
  3515.     add    bx,ax            ; # of paragraphs occupied
  3516.     mov    ah,setblk
  3517.     int    dos
  3518.     pop    es
  3519.     jnc    memin1
  3520.     mov    dx,offset ermes2
  3521.     mov    ah,prstr
  3522.     int    dos            ; complain
  3523.     jmp    krmend            ; exit Kermit now
  3524. memin1:    pop    dx            ; save return address here
  3525.     mov    ax,_STACK        ; move SS down to DGROUP, adj SP
  3526.     sub    ax,DGROUP        ; paragraphs to move
  3527.     mov    cl,4            ; convert to bytes
  3528.     shl    ax,cl
  3529.     mov    bx,SP            ; current SP offset
  3530.     add    bx,ax            ; new SP, same memory cell
  3531.     mov    ax,bx
  3532.     sub    ax,400            ; top 400 bytes = Kermit
  3533.     mov    tcptos,ax        ; report this as TCP's top of stack
  3534.     mov    ax,DGROUP        ; new SS
  3535.     cli
  3536.     mov    SS,ax
  3537.     mov    SP,bx            ; whew!
  3538.     sti
  3539.     push    dx            ; push return address
  3540.     clc
  3541.     ret
  3542. memini    endp
  3543.  
  3544. sbrk    proc    near            ; K & R, please forgive us
  3545.     call    malloc            ; allocate memory
  3546.     jc    sbrkx            ; c = failed
  3547.     ret                ; success
  3548. sbrkx:    mov    dx,offset mfmsg        ; assume not enough memory (ax = 8)
  3549.     cmp    ax,7            ; corrupted memory (ax = 7)?
  3550.     jne    sbrkx1            ; ne = no
  3551.     mov    dx,offset mf7msg    ; corrupted memory found
  3552. sbrkx1:    mov    ah,prstr
  3553.     int    dos
  3554.     jmp    krmend            ; exit Kermit now
  3555. sbrk    endp
  3556. code     ends
  3557.     end    start
  3558.