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