home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / msvp98b1.lzh / MSSKER.ASM < prev    next >
Assembly Source File  |  1993-05-14  |  78KB  |  2,440 lines
  1.     NAME    mssker
  2. ; File MSSKER.ASM
  3.     include mssdef.h
  4. ; Edit history:
  5. ; 23 Sept 1992 version 3.12
  6. ; Last edit 23 Sept 1992
  7. ;****************************** Version 3.10 ***************************** 
  8. ; KERMIT, Celtic for "free" 
  9. ;
  10. ; The name "Kermit" is a registered trade mark of Henson Associates, Inc.,
  11. ; used by permission.
  12. ;
  13. ;    MS-DOS Kermit Program Version 3.12, 23 Sept 1992
  14. ;    MS-DOS Kermit Program Version 3.11, 6 Sept 1991
  15. ;    MS-DOS Kermit Program Version 3.10, 2 March 1991
  16. ;    MS-DOS Kermit Program Version 3.02, development for 3.10, 1990-91
  17. ;    MS-DOS Kermit Program Version 3.01, 20 March 1990
  18. ;    MS-DOS Kermit Program Version 3.00, 16 Jan 1990 
  19. ;    Kermit-MS Program Version 2.32, 11 Dec 1988 
  20. ;    Kermit-MS Program Version 2.31, 1 July 1988
  21. ;       Kermit-MS Program Version 2.30, 1 Jan 1988
  22. ;    Kermit-MS Program Version 2.29, 26 May 1986, plus later revisions.
  23. ;       Kermit-MS Program Version 2.27, December 6,1984
  24. ;       Kermit-MS Program Version 2.26, July 27, 1984
  25. ;       PC-Kermit Program Version 1.20, November 4, 1983
  26. ;       PC-Kermit Program Version 1.0, 1982
  27. ; 
  28. ;       Based on the Columbia University KERMIT Protocol.
  29. ; 
  30. ;  Copyright (C) 1985, 1992, Trustees of Columbia University in the 
  31. ;  City of New York.  Permission is granted to any individual or institution
  32. ;  to use this software as long as it is not sold for profit.  This copyright
  33. ;  notice must be retained.  This software may not be included in commercial
  34. ;  products without written permission of Columbia University.
  35. ;
  36. ;       Original Authors (versions 1.0 through 2.28):
  37. ;         Daphne Tzoar, Jeff Damens
  38. ;         Columbia University Center for Computing Activities
  39. ;         612 West 115th Street
  40. ;         New York, NY  10025
  41. ;
  42. ;       Present author (version 2.29, 2.30, 2.31, 2.32, 3.00, 3.01, 3.02,
  43. ;            3.10, 3.11, 3.12):
  44. ;         Joe R. Doupnik
  45. ;      Dept of EE, and CASS
  46. ;      Utah State University
  47. ;      Logan, UT  84322, USA
  48. ;      E-Mail: JRD@CC.USU.EDU (Internet), JRD@USU (BITNET)
  49. ; 
  50. ; Special thanks to Christine Gianone, Frank da Cruz, Bill Catchings, 
  51. ; Bernie Eiben, Vace Kundakci, Terry Kennedy, Jack Bryans, and many many
  52. ; others for their help and contributions.
  53.  
  54.     public    dosnum, curdsk, fpush, isfile, sbrk, crun, errlev
  55.     public    takrd, takadr, taklev, filtst, maxtry, dskspace, thsep, tdfmt
  56.     public    lclsusp, lclrest, lclexit, cwdir, kstatus, verident, cdsr
  57.     public    spath, patched, oldtak, getenv, psp, dosctty, patchid
  58.  
  59.     public    tcptos
  60.  
  61. env    equ    2CH            ; environment address in psp
  62. cline    equ    80H            ; offset in psp of command line
  63. braceop    equ    7bh            ; opening curly brace
  64. bracecl    equ    7dh            ; closing curly brace
  65.  
  66. _STACK    SEGMENT                ; our stack
  67.     dw    1500 dup (0)        ; for TCP code
  68.     dw    200 dup(0)        ; for main Kermit code
  69. msfinal    label    word            ; top of stack
  70. _STACK    ENDS
  71.  
  72. data   segment
  73.     extrn    buff:byte, comand:byte, flags:byte, trans:byte,    prmptr:word
  74.     extrn    machnam:byte, decbuf:byte, rstate:byte, sstate:byte
  75.     extrn    mcctab:byte, rdbuf:byte
  76.  
  77. verident label    byte
  78.     verdef
  79. patchena db    '$patch level'
  80. patchid    db    ' 0 $'
  81. copyright db    cr,lf
  82.     db    'Copyright (C) Trustees of Columbia University 1982, 1992.'
  83.     db    cr,lf,'$'
  84. hlpmsg    db     cr,lf,'Type ? or HELP for help',cr,lf,'$'
  85. crlf    db      cr,lf,'$'
  86. ermes1    db    cr,lf,'?More parameters are needed$'
  87. ermes2    db    cr,lf,'?Unable to initialize memory$'
  88. ermes3  db      cr,lf,'?Command canceled$'
  89. ermes4    db    '?Unable to change directory',0            ; asciiz
  90. ermes5    db    cr,lf,'?Unable to complete initialization process$'
  91. ermes6    db    cr,lf,'Ignoring patch file MSKERMIT.PCH. '
  92.     db    'Version number mismatch.',cr,lf,'$'
  93. ermes7    db    cr,lf,'Patch file MSKERMIT.PCH was not found',cr,lf,'$'
  94. ermes8    db    cr,lf,'Fatal error in MSKERMIT.PCH! Please remove PATCH '
  95.     db    'command.',cr,lf,'$'
  96. erms30    db    cr,lf,'?Passed maximum nesting level for TAKE command$'
  97. erms31    db    cr,lf,'?Cannot find Take-file: $'
  98. erms34    db    cr,lf,'This program requires DOS 2.0 or above$'
  99. erms37    db    cr,lf,'?Unable to execute program$'
  100. badnam    db    cr,lf,'?No such file(s)$'
  101. filmsg    db    ' Filename$'
  102. dskmsg    db    ' disk drive letter or Return$'
  103. pthmsg    db    ' Name of new working directory and/or disk$'
  104. runmsg    db    ' program name and command line$'
  105. pathlp    db    ' optional path for file mskermit.pch$'
  106. stophlp    db    'Status value to be returned  msg, nothing if no new value$'
  107. tophlp    db    cr,lf
  108.     db    '  Ask, Askq (read keybd to variable) '
  109.     db    '  Open Read/Write/Append file  scripts'
  110.     db    cr,lf
  111.     db    '  Bye      (logout remote server)    '
  112.     db    '  Output text     (for scripts)'
  113.     db    cr,lf
  114.     db      '  C or Connect  (become a terminal)  '
  115.     db    '  Pause [seconds] (for scripts)'
  116.     db    cr,lf
  117.     db    '  Clear    (clear serial port buffer)'
  118.     db    '  Pop, End (exit current macro/Take file)'
  119.     db    cr,lf
  120.     db    '  Close    (logging and script file) '
  121.     db    '  Push     (go to DOS, keep Kermit)'
  122.     db    cr,lf
  123.     db    '  CLS (clear screen at command level)'
  124.         db      '  Quit     (leave Kermit)'
  125.     db    cr,lf
  126.     db    '  CWD or CD  (change dir &/or disk)  '
  127.         db      '  R or Receive  (opt local filename)'
  128.     db    cr,lf
  129.     db    '  Decrement/Increment variable number'
  130.     db    '  Read (line from a file to variable)'
  131.     db    cr,lf
  132.     db    '  Define/Assign   (a command macro)  '
  133.     db    '  Reinput  (script Input, reread buffer)'
  134.     db    cr,lf
  135.     db    '  Delete   (a file)                  '
  136.     db    '  Remote   (prefix for commands)'
  137.     db    cr,lf
  138.     db    '  Directory (filepsec)               '
  139.     db    '  Replay   (file through term emulator)'
  140.     db    cr,lf
  141.     db    '  Disable  (selected server commands)'
  142.     db    '  Run      (a program)'
  143.     db    cr,lf
  144.     db    '  Echo text (show line on screen)    '
  145.         db      '  S or Send  local file   new name'
  146.     db    cr,lf         
  147.     db    '  Enable   (selected server commands)'
  148.     db    '  Server [timeout] (become a server)'
  149.     db    cr,lf
  150.     db      '  EXIT     (leave Kermit)            '
  151.         db      '  Set      (most things)'
  152.     db    cr,lf
  153.     db    '  Finish   (to remote server)        '
  154.     db    '  Show     (most things)'
  155.     db    cr,lf
  156.     db    '  Get      (remote file opt new name)'
  157.     db    '  Space    (free on current disk)'
  158.     db    cr,lf
  159.     db    '  Goto    (label, Take file or Macro)'
  160.         db      '  Status   (show main conditions)'
  161.     db    cr,lf
  162.     db    '  Hangup   (drop DTR, hang up phone) '
  163.     db    '  Stop     (exit all Take files & macros)'
  164.     db    cr,lf
  165.     db    '  If [not] <condition> <command>     '
  166.     db    '  Take     (do a command file)'
  167.     db    cr,lf
  168.     db    '  I or Input [timeout] text (scripts)'
  169.     db    '  Transmit filespec [prompt] (raw upload)'
  170.     db    cr,lf
  171.     db    '  Log (Packet, Session, Transaction) '
  172.     db    '  Type     (a file)'
  173.     db    cr,lf
  174.     db    '  Logout   (remote server)           '
  175.     db    '  Wait [timeout] on modem \cd \cts \dsr'
  176.     db    cr,lf
  177.     db    '  Mail     (file to host Mailer)     '
  178.     db    '  Write  FILE or log file   text'
  179.     db    '$'
  180.  
  181. data    ends
  182.  
  183. data1    segment
  184. qckhlp    db cr,lf
  185.     db '                    Introduction to MS-DOS Kermit',cr,lf
  186.     db 'o An MS-Kermit command is a line of words separated by spaces and'
  187.     db ' ending with',cr,lf,'  a carriage return <the Enter key>.'
  188.     db '  Example: SET SPEED 2400<Enter>',cr,lf
  189.     db 'o Most words can be abbreviated and can be completed by pressing'
  190.     db ' the Esc key.',cr,lf
  191.     db '  Example: SET SPE 24<Enter>  or even  SET SPE<Esc> 24<Esc>'
  192.     db '<Enter>',cr,lf
  193.     db 'o Help (detailed, specific): press the "?" key where a word would'
  194.     db ' appear.',cr,lf
  195.     db 'o Edit lines using the Backspace key to delete characters,'
  196.     db ' Control-W to delete',cr,lf
  197.     db '  words, and Control-U to delete the line.  Control-C cancels the'
  198.     db ' command.',cr,lf
  199.     db 'o Frequently used MS-Kermit commands:',cr,lf
  200.     db '  EXIT           Leave the Kermit program. QUIT does the same'
  201.     db ' thing.',cr,lf
  202.     db '  SET            PORT, PARITY, SPEED, TERMINAL and many other'
  203.     db ' parameters.',cr,lf
  204.     db '  SHOW or STATUS Display groups of important parameters.'
  205.     db ' SHOW ? for categories.',cr,lf,lf
  206.     db '  CONNECT        Establish a terminal connection to a remote'
  207.     db ' system or a modem.',cr,lf
  208.     db '  Control-$'
  209. qckhlp1    db ' C    (Control-$'
  210. qckhlp2    db '  followed by "C")  Return to MS-Kermit> prompt.',cr,lf,lf
  211.     db '  SEND filename  Send the file(s) to Kermit on the other'
  212.     db ' computer.',cr,lf
  213.     db '  RECEIVE        Receive file(s), SEND them from Kermit on the'
  214.     db ' other computer.',cr,lf
  215.     db '  GET filename   Ask the remote Kermit server to send the file(s)'
  216.     db ' to us.',cr,lf
  217.     db '  FINISH         Shut down remote Kermit but stay logged into'
  218.     db ' remote system.',cr,lf
  219.     db '  BYE            FINISH and logout of remote system and exit'
  220.     db ' local Kermit.',cr,lf
  221.     db 'o Common startup sequence: SET SPEED 9600, CONNECT, login, start'
  222.     db ' remote Kermit,',cr,lf
  223.     db '  put it into Server mode, escape back with Control-$'
  224. qckhlp3    db ' C, transfer'
  225.     db ' files with',cr,lf
  226.     db '  SEND x.txt, GET b.txt, BYE. Read more about it in "Using MS-DOS'
  227.     db ' Kermit".'
  228.     db cr,lf
  229.     db ' - more -  Press the space bar for a functional summary of '
  230.     db 'Kermit commands. $'
  231.  
  232. qckhlp5    db    cr,lf,lf,lf,' MS-DOS Kermit commands, a functional summary:'
  233.     db    cr,lf
  234.     db    cr,lf,' Local file management:         '
  235.     db    'Kermit program management:'
  236.     db    cr,lf,'   DIR    (list files)          '
  237.     db    '  EXIT     (from Kermit, return to DOS)'
  238.     db    cr,lf,'   CD     (change directory)    '
  239.     db    '  QUIT     (same as EXIT)'
  240.     db    cr,lf,'   DELETE (delete files)        '      
  241.     db    '  TAKE     (execute Kermit commands from file)'
  242.     db    cr,lf,'   RUN    (a DOS command)       '
  243.     db    '  CLS      (clear screen)'
  244.     db    cr,lf,'   TYPE   (display a file)      '
  245.     db    '  PUSH     (enter DOS, EXIT returns to Kermit)'
  246.     db    cr,lf,'   SPACE  (show disk space)     '
  247.     db    '  Ctrl-C   (interrupt a command)'
  248.     db    cr,lf
  249.     db    cr,lf,' Communication settings:        '
  250.     db    'Terminal emulation:'
  251.     db    cr,lf,'   SET PORT, SET SPEED          '
  252.     db    '  CONNECT  (begin terminal emulation)'
  253.     db    cr,lf,'   SET PARITY                   '
  254.     db    '  HANGUP   (close connection)'
  255.     db    cr,lf,'   SET FLOW-CONTROL             '
  256.     db    '  Alt-X    (return to MS-Kermit> prompt)'
  257.     db    cr,lf,'   SET LOCAL-ECHO               '
  258.     db    '  SET KEY  (key mapping)'
  259.     db    cr,lf,'   SET ? to see others          '
  260.     db    '  SET TERMINAL TYPE, BYTESIZE, other parameters'
  261.     db    cr,lf,'   SHOW COMMUNICATIONS, MODEM   '
  262.     db    '  SHOW TERMINAL, SHOW KEY'
  263.     db    cr,lf,lf,' - more -$'
  264. qckhlp6    db    cr,'          '
  265.     db    cr,lf,' File transfer settings:        '
  266.     db    cr,lf,'   SET FILE CHARACTER-SET name  '  
  267.     db    '  SET TRANSFER CHARACTER-SET'
  268.     db    cr,lf,'   SET FILE TYPE TEXT, BINARY   '  
  269.     db    '  SET SEND or RECEIVE parameters'
  270.     db    cr,lf,'   SET FILE ? to see others     '  
  271.     db    '  SET WINDOWS (sliding windows)'
  272.     db    cr,lf,'   SHOW FILE                    '  
  273.     db    '  SHOW PROTOCOL, SHOW STATISTICS'
  274.     db    cr,lf
  275.     db    cr,lf,' Kermit file transfer:           '
  276.     db    'ASCII file transfer:'
  277.     db    cr,lf,'   SEND files (to RECEIVE)      '
  278.     db    '  LOG SESSION, CLOSE SESSION (download)'
  279.     db    cr,lf,'   RECEIVE    (from SEND)       '
  280.     db    '  TRANSMIT (upload)'
  281.     db    cr,lf,'   MAIL files (to RECEIVE)      '
  282.     db    '  SET TRANSMIT parameters'
  283.     db    cr,lf,lf,' - more - $'
  284. qckhlp7    db    cr,'          '
  285.     db    cr,lf,' Using a Kermit server:         '
  286.     db    'Being a kermit server:'
  287.     db    cr,lf,'   GET files    (from server)   '
  288.     db    '  SET SERVER TIMEOUT or LOGIN'
  289.     db    cr,lf,'   SEND or MAIL   (to server)   '
  290.     db    '  ENABLE or DISABLE features'
  291.     db    cr,lf,'   REMOTE command (to server)   '
  292.     db    '  SERVER'
  293.     db    cr,lf,'   FINISH, LOGOUT, BYE          '
  294.     db    '  SHOW SERVER'
  295.     db    cr,lf
  296.     db    cr,lf,' Script programming commands:   '
  297.     db    cr,lf,'   INPUT, REINPUT secs text     '
  298.     db    '  :label, GOTO label'
  299.     db    cr,lf,'   OUTPUT text                  '
  300.     db    '  IF [ NOT ] condition command'
  301.     db    cr,lf,'   DECREMENT or INCREMENT variable number'
  302.     db    cr,lf,'   ASK or ASKQ variable prompt  '
  303.     db    '  OPEN READ (or WRITE or APPEND) file'
  304.     db    cr,lf,'   DEFINE variable or macro     '
  305.     db    '  READ variable-name'
  306.     db    cr,lf,'   ASSIGN variable or macro     '
  307.     db    '  WRITE file-designator text'
  308.     db    cr,lf,'   [ DO ] macro arguments       '
  309.     db    '  CLOSE READ or WRITE file or logfile'
  310.     db    cr,lf,'   ECHO text                    '
  311.     db    '  END or POP from macro or file'
  312.     db    cr,lf,'   PAUSE time                   '
  313.     db    '  STOP all macros and command files'
  314.     db    cr,lf,'   WAIT time modem-signals      '
  315.     db    '  WRITE file-designator text'
  316.     db    cr,lf,'   SHOW SCRIPTS, SHOW MACROS    '
  317.     db    '  SHOW VARIABLES'
  318.     db    cr,lf,lf
  319.     db ' Use "?" within comands for help on what fits that word.',lf,'$'
  320. data1    ends
  321.  
  322. data    segment
  323.  
  324. comtab  db    67            ; COMND tables
  325.     mkeyw    'Asg',assign        ; synonym
  326.     mkeyw    'Ask',ask
  327.     mkeyw    'Askq',askq
  328.     mkeyw    'Assign',assign
  329.     mkeyw    'Bye',bye
  330.     mkeyw    'C',telnet
  331.     mkeyw    'CD',cwdir
  332.     mkeyw    'Clear',scclr
  333.     mkeyw    'Close',clscpt
  334.     mkeyw    'Comment',comnt
  335.     mkeyw    'Connect',telnet
  336.     mkeyw    'CLS',cls
  337.     mkeyw    'CWD',cwdir
  338.     mkeyw    'Define',dodef
  339.     mkeyw    'Decrement',decvar
  340.     mkeyw    'Delete',delete
  341.     mkeyw    'Directory',direct
  342.     mkeyw    'Disable',srvdsa
  343.     mkeyw    'Do',docom
  344.     mkeyw    'Echo',scecho
  345.     mkeyw    'Enable',srvena
  346.     mkeyw    'End',popcmd
  347.     mkeyw    'Exit',exit
  348.     mkeyw    'Finish',finish
  349.     mkeyw    'Get',get
  350.     mkeyw    'goto',sgoto
  351.     mkeyw    'H',help
  352.     mkeyw    'Hangup',dtrlow
  353.     mkeyw    'Help',help
  354.     mkeyw    'If',ifcmd
  355.     mkeyw    'I',scinp
  356.     mkeyw    'Increment',incvar
  357.     mkeyw    'Input',scinp
  358. ;;;    mkeyw    'Load',load
  359.     mkeyw    'Log',setcpt
  360.     mkeyw    'Logout',logout
  361.     mkeyw    'Mail',mail
  362.     mkeyw    'Open',vfopen
  363.     mkeyw    'O',scout        ; hidden synomym for OUTPUT
  364.     mkeyw    'Output',scout
  365.     mkeyw    'Pause',scpau
  366.     mkeyw    'Pop',popcmd
  367.     mkeyw    'Push',dopush
  368.     mkeyw    'Quit',exit
  369.     mkeyw    'R',read
  370.     mkeyw    'Read',vfread
  371.     mkeyw    'Receive',read
  372.     mkeyw    'Reinput',screinp
  373.     mkeyw    'Remote',remote
  374.     mkeyw    'Replay',replay
  375.     mkeyw    'Run',run
  376.     mkeyw    'S',send
  377.     mkeyw    'Send',send
  378.     mkeyw    'Server',server
  379.     mkeyw    'Set',setcom
  380.     mkeyw    'Show',showcmd
  381.     mkeyw    'Space',chkdsk
  382.     mkeyw    'Status',status
  383.     mkeyw    'Stay',stay
  384.     mkeyw    'Stop',takeqit
  385.     mkeyw    'Take',take
  386.     mkeyw    'Transmit',scxmit
  387.     mkeyw    'Type',typec
  388.     mkeyw    'Version',prvers
  389.     mkeyw    'Wait',scwait
  390.     mkeyw    'Write',write
  391.     mkeyw    ':',comnt        ; script labels, do not react
  392.     mkeyw    'Patch',patch
  393.  
  394. shotab    db    14            ; SHOW keyword
  395.     mkeyw    'Communications',shcom
  396.     mkeyw    'File',shfile
  397.     mkeyw    'Key',shokey
  398.     mkeyw    'Logging',shlog
  399.     mkeyw    'Macros',shomac
  400.     mkeyw    'Memory',shmem
  401.     mkeyw    'Modem',shomodem
  402.     mkeyw    'Protocol',shpro
  403.     mkeyw    'Scripts',shscpt
  404.     mkeyw    'Server',shserv
  405.     mkeyw    'Statistics',shosta
  406.     mkeyw    'Terminal',shterm
  407.     mkeyw    'Translation',shorx
  408.     mkeyw    'Variables',shovar
  409.                     ; Kermit initing from Environment
  410. nulprmpt db    0            ; null prompt
  411. initab    db    6            ; Environment phrase dispatch table
  412.     mkeyw    'INPUT-buffer-length',setinpbuf ; Script INPUT buffer length
  413.     mkeyw    'Rollback',setrollb    ; number of Terminal rollback screens
  414.     mkeyw    'COM1',com1port
  415.     mkeyw    'COM2',com2port
  416.     mkeyw    'COM3',com3port
  417.     mkeyw    'COM4',com4port
  418. patched    db    1        ; 1 = enable patching; 0 = disable or done
  419.  
  420.     even
  421. lclsusp    dw    0        ; address of routine to call when going to DOS
  422. lclrest    dw    0        ; address of routine to call when returning
  423. lclexit    dw    0        ; address of routine to call when exiting
  424. tcptos    dw    0        ; top of stack for TCP code
  425. ssave    dd    0        ; Original SS:SP when doing Command.com
  426. in3ad    dw    0,0        ; Original break interrupt addresses
  427. ceadr    dd    0        ; DOS Critical Error interrupt address
  428. orgcbrk    db    0        ; original Control-Break Check state
  429. psp    dw    0        ; segment of Program Segment Prefix
  430. exearg    dw    0        ; segment addr of environment (filled in below)
  431.     dd    0        ; ptr to cmd line (filled in below)
  432.     dw    5ch,0,6ch,0    ; our def fcb's; segment filled in later
  433. dosnum    dw    0        ; dos version number, major=low, minor=high
  434. dosctty    db    0        ; !=0 if DOS attempts using our comms line
  435. curdsk    db    0        ; Current disk
  436. origd    db    0        ; Original disk
  437. orgdir    db    64 dup (0)    ; original directory on original disk
  438. taklev    db    0        ; Take levels
  439. oldtak    db    0        ; Take level at start of command parse
  440. takadr    dw    takstr-(size takinfo) ; Pointer into structure
  441. takstr    db    (size takinfo) * maxtak dup(?)
  442. cmdlinetake db    0        ; non-zero if have DOS command line cmds
  443. filtst    filest    <>        ; file structure for procedure isfile
  444. maxtry    db    defmxtry    ; Retry limit for data packet send/rcv
  445. ininm2    db    'MSKERMIT.INI',0 ; init file name for 2.0
  446. ptchnam    db    'MSKERMIT.PCH',0 ; patch file name
  447. delcmd    db    ' del ',0    ; delete command
  448. dircmd    db    ' dir ',0    ; directory command
  449. typcmd    db    ' type ',0    ; type command
  450. kerenv    db    'KERMIT=',0,0    ; Kermit= environment variable, + 2 nulls
  451. pthnam    db    'PATH='        ; Path environment variable
  452. pthlen    equ    $-pthnam    ;  length of that string
  453. pthadr    dw    0        ; offset of PATH= string
  454.  
  455. slashc    db    ' /c '        ; slashc Must directly preceed tmpbuf
  456. tmpbuf    db    128 dup (0)    ; temp space for file names and comments
  457. cmspnam    db    'COMSPEC='    ; Environment variable
  458. cmsplen    equ    $-cmspnam
  459. cmspbuf    db    '\command.com',30 dup (0) ; default name plus additional space
  460. shellnam db    'SHELL='    ; Environment variable
  461. shellen    equ    $-shellnam
  462. shellbuf db    40 dup (0)    ; buffer for name
  463. eexit    db    cr,'exit',cr
  464. leexit    equ    $-eexit
  465. onexit    db    7,0,'ON_EXIT'    ; <length>on_exit macro name
  466. onexlen    equ    $-onexit-2    ; length of name
  467. mfmsg    db    '?Not enough memory to run Kermit$'
  468. mf7msg    db    '?Attempted to allocate a corrupted memory area$'
  469. spcmsg    db    ' bytes available on drive '
  470. spcmsg1    db    ' :',cr,lf,0
  471. spcmsg2    db    cr,lf,' Drive '
  472. spcmsg3    db    ' : is not ready',0
  473. errlev    db    0        ; DOS errorlevel to be returned
  474. kstatus    dw    0        ; command execution status (0 = success)
  475. thsep    db    0        ; thousands separator
  476. tdfmt    db    0        ; date/time format code
  477. totpar    dw    0
  478. temp    dw    0
  479.  
  480. segstr    db    'ABCDEFG'    ; segment "names" for patcher
  481. lsegstr    equ    $-segstr
  482.     even
  483. segtab    dw    code        ; segment values for patcher
  484.     dw    code1
  485.     dw    code2
  486.     dw    data
  487.     dw    data1
  488.     dw    _TEXT
  489.     dw    dgroup
  490.  
  491. exmacptr dw    offset exmacro,seg exmacro
  492. psetint    dw    offset setint,seg setint
  493. data   ends
  494.  
  495. code    segment
  496.     extrn    logout:near, mail:near, load:near, shovar:near
  497.     extrn    bye:near, telnet:near, finish:near, comnd:near, prompt:near
  498.     extrn    read:near, remote:near, send:near, status:near, get:near
  499.     extrn    serrst:near, setcom:near, dtrlow:near, cmblnk:near
  500.     extrn    clscpi:near, clscpt:near, scpini:near, setrollb:near
  501.     extrn    dodef:near, setcpt:near, docom:near, shomodem:near
  502.     extrn    server:near, lclini:near, shokey:near, shomac:near, shosta:near
  503.     extrn    strlen:near, strcpy:near, shserv:near, initibm:near
  504.     extrn    strcat:near, prtasz:near, shorx:near, lnout:near, lnouts:near
  505.     extrn    scout:near,scinp:near,scpau:near,scecho:near,scclr:near
  506.     extrn    scxmit:near, scwait:near, srvdsa:near, srvena:near
  507.     extrn    shcom:near, shlog:near, shpro:near, shterm:near, shscpt:near
  508.     extrn    shfile:near, takopen:near, takclos:near, ask:near, askq:near
  509.     extrn    assign:near, sgoto:near, screinp:near, ifcmd:near, write:near
  510.     extrn    setinpbuf:near, shmem:near, replay:near, atoi:near
  511.     extrn    katoi:near, com1port:near, com2port:near, com3port:near
  512.     extrn    com4port:near, popcmd:near, mprompt:near, locate:near
  513.     extrn    vfopen:near, vfread:near, decvar:near, incvar:near
  514.     extrn    fparse:near, cnvlin:near
  515.  
  516.         assume  cs:code, ds:data, ss:_stack, es:nothing
  517.  
  518. START    PROC    FAR
  519.     mov    ax,data            ; initialize DS
  520.         mov    ds,ax
  521.     mov    psp,es            ; remember psp address
  522.     mov    ah,dosver        ; get DOS version number (word)
  523.     int    dos
  524.     xchg    ah,al            ; major version to ah
  525.     mov    dosnum,ax        ; remember dos version
  526.     cmp    ax,200h            ; earlier than DOS 2.0?
  527.     jge    start1            ; ge = no
  528.     mov    ah,prstr
  529.     mov    dx,offset erms34    ; complain
  530.     int    dos
  531.     push    psp            ; set up exit for DOS 1
  532.     xor    ax,ax            ; and the IP
  533.     push    ax            ; make return addr of psp:0 for DOS 1
  534.     ret                ; and return far to exit now
  535. start1:
  536.     call    memini            ; initialize our memory usage
  537.     mov    ah,setdma        ; set disk transfer address
  538.     mov    dx,offset buff
  539.     int    dos
  540.     call    dword ptr psetint    ; ^C, DOS critical error interrupts
  541.     mov    ah,gcurdsk        ; get current disk
  542.     int    dos
  543.     inc    al            ; make 1 == A (not zero)
  544.     mov    curdsk,al
  545.     mov    origd,al        ; remember original disk we started on
  546.     mov    si,offset orgdir     ; place for directory path w/o drive code
  547.     add    al,'A'-1        ; make al alphabetic disk drive again
  548.     mov    [si],al            ; put it into original path descriptor
  549.     inc    si
  550.     mov    byte ptr [si],':'    ; add drive specifier too
  551.     inc    si
  552.     mov    byte ptr [si],'\'    ; add root indicator as well
  553.     inc    si
  554.     mov    ah,gcd            ; get current directory (path really)
  555.     xor    dl,dl            ; use current drive
  556.     int    dos
  557.     call    getpath            ; get the path from the environment
  558.     call    gettsep            ; get thousands separator, t/date code
  559.     mov    ah,gswitch
  560.     xor    al,al            ; pick up switch character
  561.     int    dos
  562.     mov    slashc+1,dl
  563.     and    maxtry,3fh        ; limit # packet retries
  564.     call    getcsp            ; get comspec from environment
  565.     call    getssp            ; get shellspec from environment
  566.     call    getparm            ; read "KERMIT=" Environment line
  567.     jc    start1b            ; c = fatal error
  568.     xor    cl,cl            ; counter, starts at 0
  569. start1a:mov    bx,offset kerenv+6    ; append "<digit>="  to "KERMIT"
  570.     mov    [bx],cl            ; binary digit
  571.     inc    cl
  572.     add    byte ptr [bx],'0'    ; to ascii
  573.     mov    byte ptr [bx+1],'='    ; append equals sign
  574.     call    getparm            ; read "KERMITn=" Environment line
  575.     jc    start1b            ; c = fatal error
  576.     cmp    cl,9            ; done all digits?
  577.     jbe    start1a            ; be = no
  578.                     ;
  579.     call    scpini            ; initialize script routines
  580.     jc    start1b            ; c = fatal error
  581.     call    lclini            ; do local initialization
  582.     cmp    flags.extflg,0        ; exit now?
  583.     je    start2            ; e = no
  584. start1b:mov    ah,prstr        ; announce our premature exit
  585.     mov    dx,offset ermes5    ; can't complete initialization
  586.     int    dos
  587.     jmp    krmend            ; quit immediately
  588. start2:    mov    word ptr comand.cmrprs,offset krmend ; offset of reparse addr
  589.     mov    ax,cs            ; our current code segment
  590.     mov    word ptr comand.cmrprs+2,ax ; segment of reparse address
  591.     mov    comand.cmostp,sp    ; save for reparse too
  592.     call    gcmdlin            ; read command line
  593.     cmp    taklev,0        ; in a Take file?
  594.     jne    start3            ; ne = yes, skip help msg
  595.     mov    ah,prstr
  596.     mov    dx,offset machnam    ; display machine name
  597.     int    dos
  598.         mov    dx,offset verident    ; display version header
  599.         int    dos
  600.     mov    dx,offset copyright    ; display copyright notice
  601.     int    dos
  602.     mov    dx,offset hlpmsg
  603.     int    dos
  604. start3:    mov    patchena,' '        ; let patch level show
  605.     call    serrst            ; reset serial port (if active)
  606.     call    initibm            ; define IBM macro
  607.     call    rdinit            ; read kermit init file
  608.  
  609.  ; This is the main KERMIT loop.  It prompts for and gets the users commands
  610.  
  611. kermit:    mov    ax,ds
  612.     mov    es,ax            ; convenient safety measure
  613.     mov    dx,prmptr        ; get prompt string address
  614.     call    mprompt              ; set master reparse address to here
  615.     cmp    flags.cxzflg,'C'    ; did someone want out?
  616.     jne    kermt9            ; ne = no
  617. kermt8:    cmp    taklev,0        ; are we in a Take file?
  618.     je    kermt9            ; e = no, ignore the signal
  619.     call    takclos            ; close take file, release buffer
  620.     jmp    short kermt8        ; close any other take files
  621. kermt9:    mov    flags.cxzflg,0        ; reset each time
  622.     and    flags.remflg,not dserver ; turn off server mode bit
  623.     cmp    dosctty,0        ; is DOS using our comms line?
  624.     je    kermt1            ; e = no
  625.     and    flags.remflg,not(dquiet+dregular+dserial)
  626.     or    flags.remflg,dquiet    ; set display to quiet mode
  627.     call    serrst            ; close port so CTTY can run
  628. kermt1:    mov    dx,offset comtab
  629.     mov    bx,offset tophlp
  630.     cmp    flags.extflg,0        ; exit flag set?
  631.     jne    krmend            ; ne = yes, jump to KRMEND
  632.     mov    comand.cmcr,1        ; allow bare CR's
  633.         mov    ah,cmkey
  634.     mov    comand.impdo,1        ; allow implied "DO macro"
  635.     call    comnd
  636.     jc    kermt3            ; c = failure
  637.     mov    comand.impdo,0        ; only on initial keyword, not here
  638.     mov    comand.cmcr,0        ; no more bare CR's
  639.     call    bx                  ; call the routine returned in BX
  640.     jc    kermt3            ; c = failure
  641.     cmp    flags.extflg,0        ; exit flag set?
  642.     jne    krmend            ; ne = yes, jump to KRMEND
  643.     jmp    short kermt5        ; do idle loop cleanup
  644.  
  645. kermt3:    cmp    flags.cxzflg,'C'    ; got here via Control-C?
  646.     jne    kermt7            ; ne = no
  647.     cmp    flags.extflg,0        ; exit flag set?
  648.     jne    kermt5            ; ne = yes, skip msg, do cleanup
  649.     mov    dx,offset ermes3    ; say command not executed
  650.     mov    ah,prstr        ; print    the error message in dx
  651.     int    dos
  652. kermt5:    cmp    flags.cxzflg,'C'    ; user Control-C abort?
  653.     jne    kermt7            ; ne = no, do normal operations
  654.     cmp    taklev,0        ; in a Take file?
  655.     je    kermt7            ; e = no        
  656.     call    takclos            ; close take file, release buffer
  657.     jmp    short kermt5        ; close any other take files
  658. kermt7:    cmp    flags.extflg,0        ; exit flag set?
  659.     jne    krmend            ; ne = yes, exit
  660.     jmp    kermit            ; e = no, get next command
  661.  
  662. krmend:    mov    flags.cxzflg,0        ; reset each time
  663.     mov    flags.extflg,0
  664.     mov    bx,lclexit        ; addr of sys dependent exit routine
  665.     or    bx,bx            ; sys dependent routines want service?
  666.     jz    krmend1            ; z = no
  667.     call    bx            ; call it
  668.     jnc    krmend1            ; nc = close
  669.     jmp    kermit            ; c = do not close
  670. krmend1:cmp    taklev,0        ; in a Take file?
  671.     je    krmend2            ; e = no        
  672.     call    takclos            ; close take file, release buffer
  673.     jmp    short krmend1        ; close any other take files
  674. krmend2:call    dword ptr exmacptr    ; find on_exit macro
  675.     jc    krmend3            ; c = not found
  676.                     ; perform ON_EXIT macro
  677. krmend2b:cmp    taklev,0        ; finished with macros?
  678.     je    krmend3            ; e = yes
  679.     mov    dx,prmptr        ; get prompt string address
  680.     call    mprompt              ; set master reparse address to here
  681.     mov    flags.cxzflg,0        ; reset each time
  682.     and    flags.remflg,not dserver ; turn off server mode bit
  683.     mov    dx,offset comtab    ; keyword table
  684.     xor    bx,bx            ; no help
  685.         mov    ah,cmkey
  686.     mov    comand.impdo,1        ; allow implied "DO macro"
  687.     mov    comand.cmcr,1        ; allow bare CR's
  688.     call    comnd
  689.     jc    krmend3            ; c = failure
  690.     mov    comand.impdo,0        ; only on initial keyword, not here
  691.     call    bx            ; call the routine returned in BX
  692.     jnc    krmend2b        ; nc = success, keep doing commands
  693. krmend3:                ; end of ON_EXIT macro processing
  694.     call    serrst            ; just in case the port wasn't reset
  695.     call    clscpi            ; close log files
  696.     mov    dl,origd        ; original disk drive
  697.     dec    dl            ; want A == 0
  698.     mov    ah,seldsk        ; reset original disk just in case
  699.     int    dos
  700.     mov    dx,offset orgdir    ; restore original directory
  701.     mov    ah,chdir
  702.     int    dos
  703.     push    ds            ; save ds around these DOS calls
  704.     mov    ax,cs            ; compose full address of ^C routine
  705.     mov    ds,ax            ; segment is the code segment
  706.     mov    dx,offset in3ad        ; restore Control-C interrupt vector
  707.     mov    al,23H            ; interrupt 23H
  708.     mov    ah,25H            ; set interrupt vector
  709.     int    dos            ; ah, that's better
  710.     mov    dx,offset ceadr        ; DOS's Critical Error handler
  711.     mov    al,24h            ; interrupt 24h
  712.     mov    ah,25h            ; do replacement (put it back)
  713.     int    dos
  714.     pop    ds
  715.     call    cbrestore        ; restore state of Control-Break Chk
  716.     mov    ah,4cH            ; terminate process
  717.     mov    al,errlev        ; return error level
  718.     int    dos
  719.     ret
  720. START    ENDP
  721.  
  722. ; This is the 'EXIT' command.  It leaves KERMIT and returns to DOS
  723.  
  724. EXIT    PROC    NEAR
  725.     mov    ah,cmeol
  726.     call    comnd            ; get a confirm
  727.     jc    exit1            ; c = failure
  728.     mov    flags.extflg,1        ; set the exit-Kermit flag
  729. exit1:    ret
  730. EXIT    ENDP
  731. code    ends
  732.  
  733. code1    segment
  734.     assume    cs:code1
  735. exmacro    proc    far            ; perform on_exit() macro
  736.     push    bx
  737.     push    cx
  738.     push    si
  739.     mov    bx,offset mcctab    ; table of macro names
  740.     mov    cl,[bx]            ; number of names in table
  741.     xor    ch,ch
  742.     jcxz    exmacx            ; z = empty table, do nothing
  743.     inc    bx            ; point to length of first name
  744. exmac2:    mov    ax,[bx]            ; length of this name
  745.     cmp    ax,onexlen        ; length same as desired keyword?
  746.     jne    exmac3            ; ne = no, search again
  747.     mov    si,bx
  748.     add    si,2            ; point at first char of name
  749.     push    cx            ; save name counter
  750.     push    di            ; save reg
  751.     mov    cx,onexlen        ; length of name
  752.     mov    di,offset onexit+2    ; point at desired macro name text
  753.     push    es            ; save reg
  754.     push    ds
  755.     pop    es            ; make es use data segment
  756.     cld
  757.     repe    cmpsb            ; match strings
  758.     pop    es            ; need current si below
  759.     pop    di
  760.     pop    cx            ; recover saved regs
  761.     jne    exmac3            ; ne = no match
  762.     mov    onexit+2,0        ; change name to be invisible
  763.     mov    byte ptr [bx+2],0    ; change macro table name too
  764.     jmp    short exmac4        ; e = matched
  765. exmac3:    add    bx,ax            ; step to next name, add name length
  766.     add    bx,4            ; + count and def word ptr
  767.     loop    exmac2            ; try next name
  768. exmacx:    pop    si            ; no macro, fail
  769.     pop    cx
  770.     pop    bx
  771.     stc                ; say failure
  772.     ret
  773.  
  774. exmac4:    cmp    taklev,maxtak        ; room in Take level?
  775.     jge    exmacx            ; ge = no, exit with no action
  776.     inc    taklev            ; increment take level
  777.     add    takadr,size takinfo    ; make a new Take entry/macro
  778.     mov    bx,takadr        ; point to current macro structure
  779.     mov    ax,ds            ; text is in our data seg
  780.     mov    [bx].takbuf,ax        ; seg of definition string struc
  781.     mov    [bx].takptr,offset onexit+2 ; where to read next command char
  782.     mov    [bx].takcnt,onexlen    ; number of chars in definition
  783.     mov    [bx].takargc,0        ; store macro argument count
  784.     mov    [bx].taktyp,0ffh    ; flag as a macro
  785.     pop    si
  786.     pop    cx
  787.     pop    bx
  788.     clc                ; say success
  789.     ret
  790. exmacro    endp
  791. code1    ends
  792.  
  793. code    segment
  794.     assume    cs:code
  795. ; TAKE commands    from a file, and allow a path name
  796. TAKE    PROC    NEAR
  797.     mov    kstatus,kssuc        ; global status, success
  798.     cmp    taklev,maxtak        ; at the limit?
  799.     jl    take1            ; l = no
  800.     mov    ah,prstr
  801.     mov    dx,offset erms30    ; complain
  802.     int    dos
  803.     stc                ; failure
  804.     ret
  805. take1:    mov    dx,offset tmpbuf    ; work buffer
  806.     mov    tmpbuf,0
  807.     mov    bx,offset filmsg    ; Help in case user types "?"
  808.     mov    comand.cmkeep,1        ; keep file open
  809.     mov    ah,cmword        ; get file name
  810.     call    comnd
  811.     jc    take1a            ; c = failure
  812.     mov    ah,cmeol
  813.     call    comnd
  814.     jc    take1a            ; c = failure
  815.     mov    ax,offset tmpbuf    ; point to name again
  816.     cmp    tmpbuf,0        ; empty filespec?
  817.     jne    take2            ; ne = no
  818.     mov    ah,prstr
  819.     mov    dx,offset ermes1    ; say more parameters needed
  820.     int    dos
  821.     stc
  822. take1a:    ret
  823.                     ; TAKE2: enter with ax=filename ptr
  824. TAKE2:    call    spath            ; is it around?
  825.     jc    take3            ; no, go complain
  826.     mov    dx,ax            ; point to name from spath
  827.     mov    ah,open2        ; open file
  828.     xor    al,al            ; 0 = open for reading
  829.     cmp    dosnum,300h        ; at or above DOS 3?
  830.     jb    take2a            ; b = no, so no shared access
  831.     or    al,40h            ; open for reading, deny none
  832. take2a:    int    dos
  833.     jnc    take4            ; nc = opened ok, keep going
  834.     mov    ax,dx            ; recover filename pointer
  835. take3:    push    ax
  836.     mov    ah,prstr
  837.     mov    dx,offset erms31
  838.     int    dos
  839.     pop    ax
  840.     mov    dx,ax            ; asciiz file name
  841.     call    prtasz            ; display it
  842.     mov    kstatus,kstake        ; status, Take failed
  843.     clc                ; we've done all error displays
  844.     ret
  845.                     ; TAKE4: enter with ax=filename ptr
  846. TAKE4:    call    takopen            ; open take buffer in macro space
  847.     jc    take6            ; c = failure
  848.     push    bx
  849.     mov    bx,takadr        ; get current frame ptr
  850.     mov    [bx].takhnd,ax        ; save file handle
  851.     mov    [bx].taktyp,0feh     ; mark as 2.0 file handle
  852.     pop    bx
  853.     cmp    flags.takflg,0        ; echoing Take files?
  854.     je    take5            ; e = no
  855.     mov    ah,prstr
  856.     mov    dx,offset crlf
  857.     int    dos
  858. take5:    call    takrd            ; get a buffer full of data
  859.     clc                ; success
  860. take6:    ret
  861. TAKE    ENDP
  862.  
  863. TAKRD    PROC    NEAR
  864.     push    ax
  865.     push    bx
  866.     push    cx    
  867.     push    dx
  868.     mov    bx,takadr
  869.     cmp    [bx].taktyp,0feh    ; get type of take (file?)
  870.     jne    takrd1            ; ne = no, do not read from disk
  871.     mov    cx,tbufsiz-2        ; # of bytes to read
  872.     mov    ax,[bx].takbuf        ; segment of Take buffer
  873.     push    bx            ; save frame address
  874.     mov    bx,[bx].takhnd        ; file handle is stored here
  875.     push    ds            ; save ds
  876.     mov    ds,ax            ; set ds to Take buffer segment
  877.     mov    dx,2            ; ds:dx = buffer, skip count word
  878.     mov    ah,readf2        ; read file
  879.     int    dos
  880.     pop    ds
  881.     pop    bx            ; restore frame address
  882.     jnc    takrd2            ; nc = successful read
  883. takrd1:    xor    ax,ax            ; error, say zero bytes read
  884. takrd2:    mov    [bx].takcnt,ax        ; number of bytes read
  885.     mov    [bx].takptr,2        ; offset of first new character
  886.     pop    dx
  887.     pop    cx
  888.     pop    bx
  889.     pop    ax
  890.     ret
  891. TAKRD    ENDP
  892.  
  893. ; TAKE-QUIT  (STOP)  Exit all Take files immediately but gracefully
  894.  
  895. TAKEQIT PROC    NEAR
  896.     xor    ax,ax
  897.     mov    errlev,al        ; return value in ERRORLEVEL
  898.     mov    kstatus,ax        ; and in STATUS
  899.     mov    ah,cmline        ; get optional error value and msg
  900.     mov    bx,offset rdbuf+1
  901.     mov    rdbuf,'\'        ; in case the user did not specify
  902.     mov    dx,offset stophlp    ; help on numerical argument
  903.     mov    comand.cmcr,1        ; bare c/r's allowed
  904.     call    comnd
  905.     mov    comand.cmcr,0        ; restore normal state
  906.     jc    takqit3            ; c = failure
  907.     mov    ah,cmeol        ; confirm
  908.     call    comnd
  909.     jc    takqit3
  910.     mov    si,offset rdbuf
  911.     cmp    byte ptr [si+1],'\'    ; user specified?
  912.     jne    takqit1            ; ne = no, use ours
  913.     inc    si            ; yes, use theirs
  914. takqit1:call    katoi            ; convert to number in ax
  915.     jnc    takqit4            ; nc = legal number
  916.     mov    si,offset rdbuf+1    ; reset to user string
  917.     jmp    short takqit5        ; keep current errorlevel and status
  918. takqit4:mov    errlev,al        ; return value in ERRORLEVEL
  919.     mov    kstatus,ax        ; and in STATUS
  920. takqit5:cld
  921.     lodsb                ; read a msg char
  922.     or    al,al            ; null terminator?
  923.     jz    takqit2            ; z = yes, empty string
  924.     cmp    al,' '            ; leading white space?
  925.     je    takqit5            ; e = leading white space, skip
  926.     dec    si            ; backup to non-white char
  927.     mov    di,si            ; msg pointer, convert in-place
  928.     call    cnvlin            ; convert braces and numbers
  929.     mov    dx,offset crlf
  930.     mov    ah,prstr
  931.     int    dos
  932.     mov    dx,si            ; message pointer
  933.     call    prtasz
  934. takqit2:xor    ch,ch
  935.     mov    cl,taklev        ; number of Take levels active
  936.     jcxz    takqit3            ; z = none
  937.     cmp    cmdlinetake,cl        ; have DOS level command line?
  938.     jae    takqit3            ; ae = yes, don't close it here
  939.     call    takclos            ; close current Take file
  940.     jmp    short takqit2        ; repeat until all are closed
  941. takqit3:clc                ; success
  942.     ret
  943. TAKEQIT    ENDP
  944.  
  945. ; put mskermit.ini onto take stack if it exists.  Just like
  946. ; the take command, except it doesn't read a filename
  947.  
  948. rdinit    proc    near            ; read Kermit init file
  949.     mov    ax,offset ininm2    ; default name to try
  950.     cmp    decbuf,0        ; alternate init file given?
  951.     je    rdini1            ; ne = no
  952.     mov    ax,offset decbuf    ; yes, use it
  953.     call    take2            ; let Take do error msgs
  954.     clc                ; force success
  955.     ret
  956. rdini1:    call    spath            ; is it around?
  957.     jc    rdini2            ; no, ignore file
  958.     mov    dx,ax            ; point to name from spath
  959.     mov    ah,open2        ; open file
  960.     xor    al,al            ; 0 = open for reading
  961.     cmp    dosnum,300h        ; at or above DOS 3?
  962.     jb    rdini1a            ; b = no, so no shared access
  963.     or    al,40h            ; open for reading, deny none
  964. rdini1a:int    dos
  965.     jc    rdini2            ; c = no ini file found, ignore
  966.     call    take4            ; use TAKE command to complete work
  967.     clc                ; ignore errors
  968. rdini2:    ret
  969. rdinit    endp
  970.  
  971. ; Patcher.  Patch file, MSKERMIT.PCH has the following format:
  972.  
  973. ; 301 \Xxxxx    Text to display upon successful patch load
  974. ; ;301 for V3.01.  For xxxx, see below
  975. ; ; optional comment lines may appear anywhere after the 1st
  976. ; ; xxxx in 1st line = total paragraphs in memory image.  Use \X if hex.
  977. ; DS:xxxx xx xx        ; optional comment.  DS (or CS) are case insensitive
  978. ; CS:xxxx xx xx xx    ; locations must be 4 hex chars, contents must be 2
  979. ;
  980. ; The 1st xx is the original value of the 1st byte @seg:offset for comparison.
  981. ; A 00 value says don't compare.  Subsequent xx's are replacement bytes.
  982. ; CS & DS lines may be intermixed.  AS & BS segments may be used when some
  983. ; external module sets words aseg & bseg to a seg-base.
  984. ; This mechanism expects file msscmd.obj to be linked first.
  985.  
  986. PATCH    proc
  987.     mov    dx,offset rdbuf        ; optional path prefix
  988.     mov    rdbuf,0
  989.     mov    bx,offset pathlp
  990.     mov    ah,cmword
  991.     call    comnd
  992.     jc    patch1
  993.     mov    ah,cmeol
  994.     call    comnd
  995.     jc    patch1
  996.     xor    ax,ax
  997.     xchg    al,patched        ; clear and test patched
  998.     test    al,al
  999.     jz    patch1            ; z = disabled or done
  1000.     xchg    ah,flags.takflg        ; clear take flag, don't echo patches
  1001.     mov    byte ptr temp,ah    ; but save it
  1002.     call    ptchr
  1003.     mov    al,byte ptr temp    ; restore take flag
  1004.     mov    flags.takflg,al
  1005.     jc    patch2            ; c = NG
  1006. patch1:    ret
  1007.  
  1008. patch2:    mov    dx,offset ermes8    ; Fatal error
  1009.     mov    ah,prstr
  1010.     int    dos
  1011.     jmp    krmend            ; force exit
  1012.  
  1013. ptchr:    mov    dx,offset rdbuf        ; optional path
  1014.     call    strlen            ; get length, if any
  1015.     jcxz    ptchr1            ; z = nothing
  1016.     mov    si,dx
  1017.     add    si,cx
  1018.     cmp    byte ptr [si-1],'\'    ; ends with path specifier?
  1019.     je    ptchr1            ; e = yes
  1020.     cmp    byte ptr [si-1],':'    ; or a drive specifier?
  1021.     je    ptchr1            ; e = yes
  1022.     mov    word ptr [si],'\'+0    ; add '\' + null
  1023. ptchr1:    mov    di,offset rdbuf+66    ; path goes here
  1024.     mov    si,offset rdbuf+140    ; filename goes here, discard
  1025.     mov    byte ptr [di],0        ; clear
  1026.     call    fparse            ; split optional path
  1027.     mov    si,offset ptchnam    ; add name of patch file
  1028.     call    strcat
  1029.     mov    ax,di            ; setup filename pointer for rdini1
  1030.     call    rdini1        ; let rdini try to find it & do take stuff
  1031.     jnc    ptch1            ; nc = file mskermit.pch was found
  1032.     mov    dx,offset ermes7    ; say file not found
  1033.     mov    ah,prstr
  1034.     int    dos
  1035.     clc
  1036.     ret
  1037.  
  1038. ptch1:    mov    al,taklev        ; remember initial take level
  1039.     mov    tmpbuf,al        ; when it changes it is EOF & done
  1040.     mov    comand.cmcr,1        ; bare cr's ok, to prevent prserr @EOF
  1041.     call    ptchrl            ; read 1st line's 1st 'word'
  1042.     jc    ptch2            ; c = trouble
  1043.     jz    ptch3            ; z = EOF
  1044.     mov    si,offset tmpbuf+1
  1045.     xchg    ah,al            ; line length to ah for atoi
  1046.     xor    al,al
  1047.     call    atoi            ; convert version string to integer
  1048.     jc    ptch2            ; c = bad number, or none
  1049.     cmp    ax,version        ; does it match this version?
  1050.     je    ptch4            ; e = yes
  1051. ptch2:    mov    al,tmpbuf        ; if take level has changed,
  1052.     xor    al,taklev        ;  we're already out of patch file
  1053.     jnz    ptch3            ; nz = change in take level
  1054.     call    takclos            ; close patch file
  1055. ptch3:    mov    dx,offset ermes6
  1056.     mov    ah,prstr        ; issue warning msg
  1057.     int    dos
  1058.     clc
  1059.     ret
  1060.  
  1061. ptch4:    mov    dx,offset tmpbuf+1
  1062.     call    ptchrw            ; read 2nd "word", 1st line
  1063.     jc    ptch2            ; c = NG
  1064.     mov    si,offset tmpbuf+1
  1065.     call    katoi            ; convert 2nd "magic number"
  1066.     jc    ptch2            ; c = NG
  1067.     cmp    ax,totpar    ; is it the total paragraphs memini computed?
  1068.     jne    ptch2            ; ne = no
  1069.     mov    bx,offset buff    ; place to stash 1st lines patch/version msg
  1070.     xor    dx,dx
  1071.     mov    ah,cmline        ; read it
  1072.     call    comnd
  1073.  
  1074. ptch5:    call    ptchrl            ; read CS:xxxx or DS:xxxx
  1075.     jc    ptch6
  1076.     jz    ptch7            ; z = EOF
  1077.     cmp    ax,7            ; were 7 chars read?
  1078.     jne    ptch6            ; ne = no
  1079.     mov    si,offset tmpbuf+1
  1080.     and    word ptr[si],not 2020h    ; convert to upper case
  1081.     cld
  1082.     lodsb                ; get the seg char
  1083.     cmp    word ptr[si],':S'     ; S:, actually
  1084.     je    ptch8            ; e = ok
  1085. ptch6:    stc                ; error exit
  1086.     ret
  1087.  
  1088. ptch7:    mov    ah,prstr
  1089.         mov    dx,offset verident    ; display version header
  1090.         int    dos
  1091.     clc
  1092.     ret
  1093.  
  1094. ptch8:    push    ds
  1095.     pop    es
  1096.     mov    di,offset segstr
  1097.     mov    cx,lsegstr        ; search for seg char in segstr
  1098.     repne    scasb
  1099.     jne    ptch6            ; ne = not found
  1100.     sub    di,offset segstr+1    ; distance spanned
  1101.     shl    di,1            ; make a word index
  1102.     mov    bx,segtab[di]        ; bx = seg-base
  1103.     or    bx,bx            ; seg-base = 0, disabled for patching
  1104.     jz    ptch6            ; z = 0, no patching
  1105.     mov    word ptr[si],'X\'     ; put '\X' in front of hex for katoi
  1106.     call    katoi            ; convert location
  1107.     jc    ptch6            ; c= NG
  1108.     push    bx            ; save seg being patched
  1109.     push    ax            ; save location being patched
  1110.     mov    tmpbuf+64,0        ; clear replacement byte count
  1111. ptch9:    mov    dx,offset tmpbuf+4
  1112.     call    ptchrw            ; read replacement byte follwing '\X'
  1113.     jnc    ptch11            ; nc = OK
  1114. ptch10:    pop    ax            ; clean stack & error return
  1115.     pop    bx
  1116.     stc
  1117.     ret
  1118.  
  1119. ptch11:    or    ax,ax            ; EOL?
  1120.     jnz    ptch13            ; nz = no
  1121.     mov    si,offset tmpbuf+64
  1122.     cld
  1123.     lodsb                ; replacement byte count
  1124.     cmp    al,2            ; gotta be at least 2
  1125.     jb    ptch10            ; b = too few
  1126.     xor    ch,ch
  1127.     mov    cl,al            ; replacement count
  1128.     pop    di            ; patch location
  1129.     pop    es            ; patch segment
  1130.     lodsb                ; al = comparison byte
  1131.     or    al,al            ; key value to ignore comparison?
  1132.     jz    ptch12            ; z = 0, yes
  1133.     cmp    byte ptr es:[di],al     ; do read check on memory image
  1134.     jne    ptch6            ; ne = no match, fail now
  1135. ptch12:    dec    cx            ; adjust for comparison byte
  1136.     rep    movsb            ; make patch
  1137.     jmp    ptch5            ; loop to read next line
  1138.  
  1139. ptch13:    cmp    al,2            ; 2 chars req'd for replacement byte
  1140.     jne    ptch10            ; ne = bad
  1141.     mov    si,offset tmpbuf+2    ; convert it
  1142.     call    katoi
  1143.     jc    ptch10            ; c = bad number or none
  1144.     mov    si,offset tmpbuf+64    ; --> replacement byte counted string
  1145.     inc    byte ptr[si]        ; bump count
  1146.     mov    bl,[si]
  1147.     xor    bh,bh
  1148.     mov    byte ptr[si+bx],al    ; stash replacement byte
  1149.     jmp    short ptch9        ; loop for next byte
  1150.  
  1151. ptchrl:    mov    dx,offset crlf        ; read 1st word, next line to tmpbuf+1
  1152.     call    prompt
  1153.     mov    dx,offset tmpbuf+1
  1154.     call    ptchrw
  1155.     jc    ptchrb            ; c = NG
  1156.     mov    dl,tmpbuf
  1157.     xor    dl,taklev
  1158.     jz    ptchra            ; z = not EOF
  1159.     xor    ax,ax            ; set z flag for EOF
  1160.     ret
  1161.  
  1162. ptchra:    or    ax,ax            ; empty or comment line?
  1163.     jz    ptchrl            ; z = empty or comment, ignore
  1164. ptchrb:    ret
  1165.  
  1166. ptchrw:    mov    ah,cmword
  1167.     mov    comand.cmper,1    ; prohibit substitution variable expansion
  1168.     xor    bx,bx            ; 'help' ptr
  1169.     call    comnd            ; line length is in ax
  1170.     ret
  1171. PATCH    endp
  1172.  
  1173. ; Get command line into a Take macro buffer. Allow "-f filspec" to override
  1174. ; normal mskermit.ini initialization filespec, allow command "stay" to
  1175. ; suppress automatic exit to DOS at end of command line execution. [jrd]
  1176.  
  1177. gcmdlin    proc    near
  1178.     mov    cmdlinetake,0        ; flag for DOS command line Take
  1179.     mov    word ptr decbuf,0    ; storage for new init filename
  1180.     push    es
  1181.     cld
  1182.     mov    es,psp            ; address psp
  1183.     xor    ch,ch
  1184.     mov    cl,es:byte ptr[cline]    ; length of cmd line from DOS
  1185.     jcxz    gcmdl1            ; z = empty line
  1186.     mov    si,cline+1        ; point to actual line
  1187. gcmdl0:    cmp    byte ptr es:[si],' '    ; skip over leading whitespace
  1188.     ja    gcmdl2            ; a = non-whitespace
  1189.     inc    si
  1190.     loop    gcmdl0            ; fall through on all whitespace
  1191. gcmdl1:    jmp    gcmdl14            ; common exit jump point
  1192. gcmdl2:    inc    cx            ; include DOS's c/r
  1193.     call    takopen            ; open take buffer in macro space
  1194.     mov    bx,takadr
  1195.     mov    byte ptr [bx].taktyp,0ffh ; mark as a macro
  1196.     mov    [bx].takcnt,0        ; length of text
  1197.     mov    es,[bx].takbuf        ; segment of buffer, from takopen
  1198.     mov    di,2            ; skip count word
  1199.     push    psp
  1200.     pop    ds            ; DS = PSP
  1201.     xor    dx,dx            ; clear brace count
  1202. gcmdl3:    or    cx,cx            ; anything left?
  1203.     jle    gcmdl10            ; le = no
  1204.     lodsb                ; get a byte from PSP's command line
  1205.     dec    cx            ; one less char in input string
  1206.     cmp    al,','            ; comma?
  1207.     jne    gcmdl4            ; no, keep going
  1208.     or    dx,dx            ; inside braces?
  1209.     jnz    gcmdl9            ; nz = yes, retain embedded commas
  1210.     mov    al,cr            ; convert to cr
  1211.     jmp    short gcmdl9        ; store it
  1212. gcmdl4:    call    bracechk        ; check for curly braces
  1213.     jc    gcmdl9            ; c = found and counted brace
  1214.     or    dx,dx            ; outside braces?
  1215.     jnz    gcmdl9            ; nz = no, ignore flag
  1216.     cmp    al,'-'            ; starting a flag?
  1217.     jne    gcmdl9            ; ne = no
  1218.     mov    ah,[si]            ; get flag letter
  1219.     or    ah,20h            ; convert to lower case
  1220.     cmp    ah,'f'            ; 'f' for init file replacement?
  1221.     jne    gcmdl9            ; ne = no
  1222.     inc    si            ; accept flag letter
  1223.     dec    cx
  1224. gcmdl5:    or    cx,cx            ; anything to read?
  1225.     jle    gcmdl10            ; le = exhausted supply
  1226.     lodsb                ; get filespec char from psp
  1227.     dec    cx            ; one less char in source buffer
  1228.     cmp    al,' '            ; in whitespace?
  1229.     jbe    gcmdl5            ; be = yes, scan it off
  1230.     dec    si            ; backup to real text
  1231.     inc    cx
  1232.                     ; copy filspec to buffer decbuf
  1233.     push    es            ; save current destination pointer
  1234.     push    di            ;  which is in es:di (Take buffer)
  1235.     mov    di,data            ; set es:di to regular decbuf
  1236.     mov    es,di
  1237.     lea    di,decbuf        ; where filespec part goes
  1238.     mov    word ptr es:[di],0    ; plant safety terminator
  1239. gcmdl6:    lodsb                ; get filespec char
  1240.     dec    cx            ; one less available
  1241.     cmp    al,' '            ; in printables?
  1242.     jbe    gcmdl7            ; be = no, all done
  1243.     cmp    al,','            ; comma command separator?
  1244.     je    gcmdl7            ; e = yes, all done
  1245.     stosb                ; store filespec char
  1246.     or    cx,cx            ; any chars left?
  1247.     jg    short gcmdl6        ; g = yes
  1248. gcmdl7:    mov    byte ptr es:[di],0    ; end filespec on a null
  1249.     pop    di            ; recover destination pointer es:di
  1250.     pop    es
  1251. gcmdl8:    or    cx,cx            ; strip trailing whitespace
  1252.     jle    gcmdl10            ; le = nothing left
  1253.     lodsb
  1254.     dec    cx
  1255.     cmp    al,' '            ; white space?
  1256.     jbe    gcmdl8            ; be = yes, strip it
  1257.     cmp    al,','            ; at next command?
  1258.     je    gcmdl10            ; e = yes, skip our own comma
  1259.     dec    si            ; back up to reread the char
  1260.     inc    cx
  1261.     jmp    gcmdl3            ; read more command text
  1262.                     ; end of flag analysis
  1263. gcmdl9:    stosb                ; deposit most recent char
  1264. gcmdl10:or    cx,cx            ; anything left to read?
  1265.     jg    gcmdl3            ; g = yes, loop
  1266.                     ;
  1267.     mov    ax,data            ; restore segment registers
  1268.     mov    ds,ax
  1269.     mov    si,[bx].takbuf        ; get segment of Take buffer
  1270.     mov    es,si
  1271.     mov    si,2            ; skip count word
  1272.     mov    cx,di            ; current end pointer, (save di)
  1273.     sub    cx,si            ; current ptr minus start offset
  1274.     mov    [bx].takcnt,cx        ; chars in buffer so far
  1275.     mov    es:word ptr [0],cx    ; store count word
  1276.     xor    dx,dx            ; brace count
  1277.     or    cx,cx
  1278.     jg    gcmdl11            ; g = material at hand
  1279.     call    takclos            ; empty take file
  1280.     jmp    short gcmdl14        ; finish up
  1281.                     ; scan for command "stay"
  1282. gcmdl11:mov    ax,es:[si]        ; get 2 bytes, cx and si are set above
  1283.     inc    si            ; increment by only one char
  1284.     dec    cx
  1285.     call    bracechk        ; check for braces
  1286.     jc    gcmdl12            ; c = brace found
  1287.     cmp    al,' '            ; separator?
  1288.     jbe    gcmdl12            ; be = yes, keep looking
  1289.     cmp    al,','             ; comma separator?
  1290.     je    gcmdl12            ; e = yes
  1291.     or    dx,dx            ; within braces?
  1292.     jnz    gcmdl12            ; nz = yes, skip STAY search
  1293.     or    ax,2020h        ; convert to lower case
  1294.     cmp    ax,'ts'            ; first two letters of stay
  1295.     jne    gcmdl12            ; ne = no match
  1296.     mov    ax,es:[si+1]        ; next two letters (stay vs status)
  1297.     or    ax,2020h        ; convert to lower case
  1298.     cmp    ax,'ya'            ; same as our pattern?
  1299.     jne    gcmdl12            ; ne = no match
  1300.     add    si,3            ; char after "stay"
  1301.     sub    cx,3
  1302.                     ; check for separator or end of macro
  1303.     cmp    byte ptr es:[si],' '    ; next char is a separator?
  1304.     jbe    gcmdl13            ; be = yes, found correct match
  1305.     cmp    byte ptr es:[si],','    ; or comma separator?
  1306.     je    gcmdl13            ; e = yes
  1307.     or    cx,cx            ; at end of macro?
  1308.     jle    gcmdl13            ; yes, consider current match correct
  1309. gcmdl12:or    cx,cx            ; done yet? ("stay" not found)
  1310.     jg    gcmdl11            ; g = not yet, look some more
  1311.     mov    cmdlinetake,1        ; remember doing DOS cmd line Take
  1312.     mov    si,offset eexit        ; append command "exit"
  1313.     mov    cx,leexit        ; length of string "exit"
  1314.     add    [bx].takcnt,cx
  1315.     rep    movsb            ; copy it into the Take buffer
  1316. gcmdl13:mov    [bx].takptr,2        ; init buffer ptr
  1317.     mov    cx,[bx].takcnt        ; count of bytes in buffer
  1318.     mov    es:[0],cx        ; count of bytes in Take buffer
  1319. gcmdl14:pop    es
  1320.     ret
  1321. gcmdlin    endp
  1322.  
  1323. ; Curly brace checker. Examine (and preserve) char in AL. Count up/down
  1324. ; braces in dx because DS is unknown here
  1325. bracechk proc    near
  1326.     cmp    al,braceop        ; opening brace?
  1327.     jne    bracech1        ; ne = no
  1328.     inc    dx            ; count up braces
  1329.     stc                ; say brace seen
  1330.     ret
  1331. bracech1:cmp    al,bracecl        ; closing brace
  1332.     jne    bracech3        ; ne = no
  1333.     sub    dx,1            ; count down with sign
  1334.     jns    bracech2        ; ns = no underflow
  1335.     xor    dx,dx            ; don't go below zero
  1336. bracech2:stc                ; say brace detected
  1337.     ret
  1338. bracech3:clc                ; say brace not found
  1339.     ret
  1340. bracechk endp
  1341.  
  1342. ; Enter with ax pointing to file name.  Searches path for given file,
  1343. ; returns with ax pointing to whole name, or carry set if file can't be found.
  1344. SPATH    proc    near
  1345.     call    isfile            ; does it exist as it is?
  1346.     jc    spath0            ; c = no, prepend path elements
  1347.     test    byte ptr filtst.dta+21,10H ; subdirectory name?
  1348.     jnz    spath0            ; nz = yes, not desired file
  1349.     clc
  1350.     ret
  1351. spath0:    push    es            ; save es around work
  1352.     push    bx
  1353.     push    si
  1354.     push    di
  1355.     mov    bx,ax            ; save filename pointer in bx
  1356.     mov    si,ax
  1357.     xor    dl,dl            ; no '\' seen yet
  1358.     cld
  1359. spath1:    lodsb
  1360.     cmp    al,2fh            ; contains fwd slash path characters?
  1361.     je    spath1a
  1362.     cmp    al,5ch            ; or backslash?
  1363.     jne    spath2            ; no, keep going
  1364. spath1a:mov    dl,1            ; remember we've seen them
  1365. spath2:    or    al,al
  1366.     jnz    spath1            ; copy name in
  1367.     or    dl,dl            ; look at flag
  1368.     jz    spath3            ; no path, keep looking
  1369.     jmp    short spath9        ; embedded path, fail
  1370.  
  1371. spath3:    mov    si,pthadr        ; offset of PATH= string in environment
  1372.     mov    es,psp
  1373.     mov    di,es:word ptr[env]    ; pick up environment segment
  1374.     mov    es,di
  1375. spath4:    cmp    byte ptr es:[si],0    ; end of PATH= string?
  1376.     je    spath9            ; e = yes, exit loop
  1377.     mov    di,offset decbuf+64    ; place to put name
  1378. spath5:    mov    al,byte ptr es:[si]    ; get a byte from environment string
  1379.     inc    si
  1380.     cmp    al,';'            ; end of this part?
  1381.     je    spath7            ; yes, break loop
  1382.     or    al,al            ; maybe end of string?
  1383.     jnz    spath6            ; nz = no, keep going
  1384.     dec    si            ; back up to null for later rereading
  1385.     jmp    short spath7        ; and break loop
  1386. spath6:    mov    byte ptr [di],al    ; else stick in dest string
  1387.     inc    di
  1388.     jmp    short spath5        ; and continue
  1389. spath7:    push    si            ; save this ptr
  1390.     mov    si,bx            ; this is user's file name
  1391.     cmp    byte ptr [di-1],2fh    ; does path end with switch char?
  1392.     je    spath8            ; yes, don't put one in
  1393.     cmp    byte ptr [di-1],5ch    ; how about this one?
  1394.     je    spath8            ; yes, don't put it in
  1395.     mov    byte ptr [di],5ch    ; else add one
  1396.     inc    di
  1397. spath8:    lodsb                ; get filename character
  1398.     mov    byte ptr [di],al    ; copy filename char to output buffer
  1399.     inc    di
  1400.     or    al,al            ; end of string?
  1401.     jnz    spath8            ; nz = no, copy rest of name
  1402.     pop    si            ; restore postion in path string
  1403.     mov    ax,offset decbuf+64
  1404.     call    isfile            ; is it a file?
  1405.     jc    spath4            ; c = no, keep looking
  1406.     test    byte ptr filtst.dta+21,10H ; subdirectory name?
  1407.     jnz    spath4            ; nz = yes
  1408.     pop    di
  1409.     pop    si
  1410.     pop    bx
  1411.     pop    es
  1412.     clc
  1413.     ret                ; return success (carry clear)
  1414. spath9:    mov    ax,bx            ; restore original filename pointer
  1415.     pop    di            ; restore regs
  1416.     pop    si
  1417.     pop    bx
  1418.     pop    es
  1419.     stc                ; no file found
  1420.     ret
  1421. spath    endp
  1422.  
  1423. ; Put offset of PATH= string in pthadr
  1424. getpath    proc    near
  1425.     push    bx
  1426.     push    cx
  1427.     push    dx
  1428.     mov    bx,offset pthnam    ; thing    to find
  1429.     mov    cx,pthlen        ; length of it
  1430.     mov    pthadr,0        ; init offset to zero
  1431.     call    getenv            ; get environment value
  1432.     mov    pthadr,dx
  1433.     pop    dx
  1434.     pop    cx
  1435.     pop    bx
  1436.     ret
  1437. getpath    endp
  1438.  
  1439. ; getcsp: copy COMSPEC= environment string into cmspbuf
  1440. ; getssp: copy SHELL=   environment string into shellbuf
  1441. getcsp    proc    near
  1442.     mov    bx,offset cmspnam    ; find COMSPEC=
  1443.     mov    cx,cmsplen        ; it's length
  1444.     mov    di,offset cmspbuf    ; where to store string
  1445.     jmp    short getccom        ; do common worker
  1446.  
  1447. getssp:    mov    bx,offset shellnam    ; find SHELL=
  1448.     mov    cx,shellen        ; it's length
  1449.     mov    di,offset shellbuf    ; where to store string
  1450.     
  1451. getccom:push    es
  1452.     call    getenv            ; get environment offset into dx
  1453.     mov    si,dx            ; address of COMSPEC= string
  1454.     mov    es,psp
  1455.     mov    bx,es:word ptr[env]    ; pick up environment address
  1456.     mov    es,bx
  1457.     push    ds            ; save ds
  1458.     push    ds            ; make ds point to environment seg
  1459.     push    es            ; make es point to data segment
  1460.     pop    ds
  1461.     pop    es
  1462.     cld
  1463. getcs1:    lodsb                ; get a byte from environment
  1464.     cmp    al,' '            ; space or less?
  1465.     jg    getcs2            ; g = no, keep copying
  1466.     xor    al,al            ; terminate string on spaces etc
  1467. getcs2:    stosb                ; store it in destination
  1468.     or    al,al            ; at end of string yet?
  1469.     jnz    getcs1            ; nz = no, keep copying
  1470.     pop    ds            ; recover ds
  1471.     pop    es
  1472.     ret
  1473. getcsp    endp
  1474.  
  1475. ; Get Kermit parameters from the Environment. Parameters are commands like
  1476. ; regular commands except they do not appear in the SET main table and are
  1477. ; separated from one another by semicolons. They appear after KERMIT=.
  1478. ; Do not allow Take/Macros to be created by any of these commands.
  1479. ; On fatal error exits with carry set and flags.extflg = 1
  1480. getparm    proc    near
  1481.     push    ax
  1482.     push    bx
  1483.     push    cx
  1484.     push    dx
  1485.     push    si
  1486.     push    di
  1487.     push    es
  1488.     mov    es,psp            ; segment of our PSP
  1489.     mov    ax,es:word ptr[env]    ; pick up environment address
  1490.     mov    es,ax
  1491.     mov    bx,offset kerenv    ; Environment word to find, asciiz
  1492.     mov    dx,bx
  1493.     call    strlen            ; length of its string to cx
  1494.     call    getenv            ; return dx = offset in environment
  1495.     jnc    getpar1            ; nc = success
  1496.     jmp    getpar9            ; c = not found
  1497. getpar1:push    ds            ; save regular DS
  1498.     push    dx            ; push Environment offset, then seg
  1499.     push    es
  1500.     call    takopen            ; open Take buffer in macro space
  1501.     jnc    getpar2            ; nc = success
  1502.     mov    flags.extflg,1        ; say exit now
  1503.     pop    es            ; clean stack
  1504.     pop    dx
  1505.     pop    ds
  1506.     jmp    getparx            ; exit with fatal error
  1507.  
  1508. getpar2:mov    bx,takadr        ; bx = Take data structure
  1509.     mov    byte ptr [bx].taktyp,0ffh ; mark as a macro
  1510.     mov    [bx].takcnt,0        ; length of text
  1511.     mov    es,[bx].takbuf        ; ES = segment of buffer, from takopen
  1512.     mov    di,2            ; skip count word field for es:di
  1513.     pop    ds            ; pop Environment segment (was in ES)
  1514.     pop    si            ;  and seg, DS:SI is now Environment
  1515.     xor    cx,cx            ; line length counter
  1516. getpar3:lodsb                ; read an Environment character
  1517.     or    al,al            ; null (EOL)?
  1518.     jz    getpar5            ; z = yes, stop here
  1519.     cmp    al,';'            ; semicolon separator?
  1520.     jne    getpar4            ; ne = no
  1521.     mov    al,CR            ; replace semicolon with carriage ret
  1522. getpar4:stosb                ; store char in Take buffer
  1523.     inc    cx            ; count line length
  1524.     jmp    short getpar3        ; get more text, until a null
  1525.  
  1526. getpar5:mov    al,CR            ; terminate line, regardless
  1527.     stosb
  1528.     inc    cx            ; count terminator
  1529.     pop    ds            ; restore regular DS
  1530.     mov    [bx].takcnt,cx        ; chars in Take/macro buffer
  1531.     mov    es:[0],cx        ; store count byte
  1532.     mov    [bx].takptr,2        ; init buffer read ptr to first char
  1533.     jcxz    getpar8            ; z = nothing left, exit
  1534.                     ; parse each item as a command
  1535. getpar6:mov    comand.cmquiet,1    ; no screen display
  1536.     mov    dx,offset nulprmpt    ; set null prompt
  1537.     call    prompt
  1538.     cmp    flags.extflg,0        ; exit flag set?
  1539.     jne    getpar8            ; ne = yes, exit this routine now
  1540.     mov    dx,offset initab    ; table of initialization routines
  1541.     xor    bx,bx            ; no explict help text
  1542.     mov    comand.cmcr,1        ; allow bare CR's
  1543.     mov    comand.impdo,0        ; do not search Macro table
  1544.         mov    ah,cmkey        ; match a keyword
  1545.     call    comnd
  1546.     jc    getpar7            ; c = failure
  1547.     mov    comand.cmcr,0        ; no more bare CR's
  1548.     call    bx            ; call the routine returned in BX
  1549.                     ; ignore failures (carry bit set)
  1550. getpar7:cmp    taklev,0        ; finished Take file?
  1551.     je    getpar8            ; e = yes
  1552.     cmp    flags.extflg,0        ; exit flag set?
  1553.     je    getpar6            ; e = no, finish all commands
  1554.  
  1555. getpar8:call    takclos            ; close our take file, if open
  1556. getpar9:mov    flags.extflg,0        ; do not leave this flag set
  1557.     clc                ; clear for success
  1558. getparx:mov    comand.cmquiet,0    ; regular screen echoing
  1559.     pop    es
  1560.     pop    di
  1561.     pop    si
  1562.     pop    dx
  1563.     pop    cx
  1564.     pop    bx
  1565.     pop    ax
  1566.     ret
  1567. getparm    endp
  1568.  
  1569. ; Locate string variable in Environment
  1570. ; bx = variable to find (usually including =), cx = length of variable name.
  1571. ; Returns dx = offset within Environment of char following the name and
  1572. ; carry clear, else carry set and dx unchanged.
  1573. getenv    proc    near
  1574.     push    ax
  1575.     push    cx
  1576.     push    si
  1577.     push    di
  1578.     push    es
  1579.     mov    es,psp
  1580.     mov    ax,es:word ptr[env]    ; pick up environment address
  1581.     mov    es,ax
  1582.     xor    di,di            ; start at offset 0 in segment
  1583. geten1:    cmp    es:byte ptr [di],0    ; end of environment?
  1584.     je    geten3            ; yes, forget it
  1585.     push    cx            ; save counter
  1586.     push    di            ; and offset
  1587.     mov    si,bx
  1588.     cld
  1589.     repe    cmpsb            ; search for name
  1590.     pop    di
  1591.     pop    cx            ; restore these
  1592.     je    geten2            ; found it, break loop
  1593. getenv5:push    cx            ; preserve again
  1594.     mov    cx,0ffffh        ; bogus length
  1595.     xor    al,al            ; 0 = marker to look for
  1596.     repne    scasb            ; search for it
  1597.     pop    cx            ; restore length
  1598.     jmp    short geten1        ; loop thru rest of environment
  1599. geten2:    add    di,cx            ; skip to definition
  1600. geten6:    mov    si,bx            ; name
  1601.     add    si,cx            ; length
  1602.     cmp    byte ptr [si-1],'='    ; caller wanted '=' as last char?
  1603.     je    geten7            ; e = yes, and we found it
  1604.     mov    al,es:[di]        ; get next char
  1605.     cmp    al,'='            ; at the equals sign?
  1606.     je    geten7            ; e = yes
  1607.     inc    di            ; point at next char
  1608.     cmp    al,' '            ; white space?
  1609.     jbe    geten6            ; be = yes, skip over this
  1610.     dec    di            ; backup
  1611.     jmp    short getenv5        ; not a match, keep looking
  1612. geten7:    mov    dx,di            ; store offset of string
  1613.     clc                ; carry clear for success
  1614.     jmp    short geten4
  1615. geten3:    stc                ; carry set for failure
  1616. geten4:    pop    es
  1617.     pop    di
  1618.     pop    si
  1619.     pop    cx
  1620.     pop    ax
  1621.     ret
  1622. getenv    endp
  1623.  
  1624. ; Get thousands separator from DOS Country Information
  1625. gettsep    proc    near
  1626.     mov    ah,38h            ; Get Country Information
  1627.     mov    dx,offset tmpbuf    ; temp buffer
  1628.     int    dos
  1629.     mov    bx,7            ; assume DOS 3+ position in buffer
  1630.     cmp    byte ptr dosnum+1,3    ; DOS 3 or above?
  1631.     jae    gettse1            ; ae = yes
  1632.     mov    bx,4            ; for DOS 2.1
  1633.     cmp    dosnum,210h        ; earlier than version 2.1?
  1634.     jae    gettse1            ; ae = no
  1635.     mov    al,','            ; use comma for old DOS's
  1636. gettse1:mov    al,tmpbuf[bx]        ; get thousands separator char
  1637.     mov    thsep,al        ; save it
  1638.     mov    al,tmpbuf        ; get time/date format code
  1639.     mov    tdfmt,al        ; save it
  1640.     ret
  1641. gettsep    endp
  1642.  
  1643. STAY    PROC    NEAR
  1644.     clc
  1645.     ret
  1646. STAY    ENDP
  1647.  
  1648. CLS    proc    near            ; Clear command level screen
  1649.     mov    ah,cmeol        ; get a confirmation
  1650.     call    comnd
  1651.     jc    cls1            ; c = failure
  1652.     call    cmblnk            ; blank the screen
  1653.     call    locate            ; put cursor at home position
  1654. cls1:    ret
  1655. CLS    endp
  1656.  
  1657. COMNT    PROC    NEAR            ; COMMENT command
  1658.     mov    ah,cmline
  1659.     mov    bx,offset tmpbuf
  1660.     xor    dx,dx
  1661.     call    comnd
  1662.     jc    comnt1
  1663.     mov    ah,cmeol
  1664.     call    comnd
  1665. comnt1:    ret
  1666. COMNT    ENDP
  1667.  
  1668. ; change working directory
  1669. cwdir    proc    near
  1670.     mov    kstatus,kssuc        ; global status
  1671.     mov    ah,cmword
  1672.     mov    dx,offset tmpbuf
  1673.     mov    bx,offset pthmsg
  1674.     mov    word ptr tmpbuf,0
  1675.     call    comnd            ; get drive/dir spec, if any
  1676.     mov    ah,cmeol
  1677.     call    comnd
  1678.     jnc    cwd1
  1679.     ret                ; c = failure
  1680. cwd1:    mov    si,offset tmpbuf    ; cdsr wants drive/path ptr in si
  1681.     call    cdsr            ; common CD sub-routine
  1682.     jnc    cwd2            ; nc = success
  1683.     mov    kstatus,ksgen        ; global status for unsuccess
  1684. cwd2:    cmp    taklev,0        ; in a Take file or macro?
  1685.     je    cwd3            ; e = no, do echo
  1686.     cmp    flags.takflg,0        ; ok to echo?
  1687.     je    cwd4            ; e = no
  1688. cwd3:    push    dx
  1689.     mov    dx,offset crlf        ; msgs from cdsr don't include this
  1690.     mov    ah,prstr        ; so let's do it now
  1691.     int    dos
  1692.     pop    dx
  1693.     call    prtasz            ; output current drive/path or err msg
  1694. cwd4:    clc
  1695.     ret
  1696. cwdir    endp
  1697.  
  1698. ; CDSR processes both CD & REM CD.  Entered with si --> drive/path, it returns
  1699. ; dx --> ASCIIZ current drive/path, w/carry clear, if successful, or error msg
  1700. ; w/carry set, if not.
  1701. CDSR    PROC
  1702.     mov    kstatus,kssuc        ; global status
  1703.     xor    cx,cx            ; 0 for default drive, if none
  1704.     cmp    byte ptr[si],ch        ; any drive/path?
  1705.     je    cdsr4            ; e = no, format current drive/path
  1706.     cmp    byte ptr[si+1],':'    ; is drive specified?
  1707.     jne    cdsr1            ; ne = no
  1708.     mov    cl,[si]            ; drive letter
  1709.     cmp    byte ptr[si+2],ch    ; any path?
  1710.     jne    cdsr1            ; ne = yes
  1711.     mov    word ptr[si+2],'.'    ; append dot+null as path to kludge DOS
  1712. cdsr1:    call    dskspace        ; test for drive, spec'd by cl, ready
  1713.     jnc    cdsr2            ; nc = ready
  1714.     mov    spcmsg3,cl        ; insert drive letter ret'd by dskspace
  1715.     mov    dx,offset spcmsg2+2    ; in err msg.  dx --> msg w/o cr,lf
  1716.     mov    kstatus,ksgen        ; global status
  1717.     ret                ; carry is set
  1718.  
  1719. cdsr2:    mov    dx,si            ; where chdir wants it
  1720.     mov    ah,chdir
  1721.     int    dos
  1722.     jnc    cdsr3            ; nc = success
  1723.     mov    dx,offset ermes4    ; ret carry set, dx --> err msg
  1724.     ret
  1725.  
  1726. cdsr3:    mov    dl,cl            ; uc drive letter ret'd by dskspace
  1727.     sub    dl,'A'            ; A = 0 for seldsk
  1728.     mov    ah,seldsk
  1729.     int    dos
  1730.     inc    dl            ; A = 1 for curdsk
  1731.     mov    curdsk,dl
  1732. cdsr4:    push    si            ; use caller's buffer for cur dr/path
  1733.     mov    ax,':@'            ; al = 'A' - 1, ah = ':'
  1734.     add    al,curdsk        ; al = drive letter
  1735.     mov    [si],ax            ; stash drive:
  1736.     inc    si
  1737.     inc    si
  1738.     mov    byte ptr[si],'\'    ; add \
  1739.     inc    si
  1740.     mov    ah,gcd            ; gcd fills in path as ASCIIZ
  1741.     xor    dl,dl            ; use current drive
  1742.     int    dos
  1743.     pop    dx            ; return caller's buffer pointer in dx
  1744.     clc
  1745.     ret
  1746. CDSR    ENDP
  1747.  
  1748. ; Erase specified file(s). Add protection of ignore hidden, subdir, volume
  1749. ; label and system files. 9 Jan 86 [jrd]
  1750. DELETE    PROC    NEAR            ; includes paths and "?*" wildcards
  1751.     mov    kstatus,kssuc        ; global status
  1752.     mov    si,offset delcmd    ; del command
  1753.     mov    di,offset tmpbuf
  1754.     call    strcpy
  1755.     mov    dx,offset tmpbuf
  1756.     call    strlen            ; get its length
  1757.     add    di,cx            ; point at terminator
  1758.     mov    temp,di            ; remember starting spot
  1759.     mov    ah,cmline        ; get a line
  1760.     mov    bx,di            ; where to place the file spec
  1761.     mov    dx,offset filmsg    ; help message
  1762.     call    comnd
  1763.     jc    delet0            ; c = failure
  1764.     push    ax
  1765.     mov    ah,cmeol
  1766.     call    comnd
  1767.     pop    ax
  1768.     jc    delet0
  1769.     or    ax,ax            ; anything given?
  1770.     jnz    delet1            ; nz = yes
  1771.     mov    ah,prstr
  1772.     mov    dx,offset ermes1    ; say need something
  1773.     int    dos
  1774.     clc                ; say success
  1775. delet0:    mov    kstatus,ksgen        ; global status
  1776.     ret
  1777.  
  1778. delet1:    mov    di,temp            ; start of filespec
  1779.     xor    cl,cl            ; disk drive letter
  1780.     cmp    byte ptr [di+1],':'    ; drive specified?
  1781.     jne    delet2            ; ne = no
  1782.     mov    cl,[di]            ; get drive letter
  1783. delet2:    call    dskspace        ; compute space, get letter into CL
  1784.     jnc    delet3            ; nc = success
  1785.     mov    spcmsg3,cl        ; put drive letter in msg
  1786.     mov    dx,offset spcmsg2    ; error message
  1787.     call    prtasz
  1788.     mov    kstatus,ksgen        ; global status
  1789.     clc
  1790.     ret                ; and ignore this command
  1791. delet3:    mov    si,offset tmpbuf    ; del cmd
  1792.     jmp    crun            ; join run cmd from there
  1793. DELETE    ENDP
  1794.  
  1795. ; Space <optional drive letter>
  1796.  
  1797. CHKDSK    PROC    NEAR            ; Space command
  1798.     mov    kstatus,kssuc        ; global status
  1799.     mov    dx,offset tmpbuf    ; buffer
  1800.     mov    tmpbuf,0        ; init to null
  1801.     mov    bx,offset dskmsg    ; help message
  1802.     mov    ah,cmword        ; get optional drive letter
  1803.     call    comnd            ; ignore errors
  1804.     mov    ah,cmeol
  1805.     call    comnd
  1806.     jnc    chkdsk1            ; nc = success
  1807.     ret                ; failure
  1808. chkdsk1:mov    cl,tmpbuf        ; set drive letter
  1809.     call    dskspace        ; compute space, get letter into CL
  1810.     jnc    chkdsk2            ; nc = success
  1811.     and    cl,5fh            ; to upper case
  1812.     mov    spcmsg3,cl        ; insert drive letter
  1813.     mov    dx,offset spcmsg2    ; say drive not ready
  1814.     call    prtasz
  1815.     mov    kstatus,ksgen        ; global status
  1816.     clc
  1817.     ret
  1818.     
  1819. chkdsk2:mov    spcmsg1,cl        ; insert drive letter
  1820.     mov    di,offset tmpbuf    ; work space for lnout
  1821.     mov    word ptr[di],0a0dh    ; cr/lf
  1822.     mov    word ptr[di+2],'  '    ; add two spaces
  1823.     add    di,4
  1824.     call    lnouts            ; use thousands separator
  1825.     mov    si,offset spcmsg
  1826.     call    strcat            ; add text to end of message
  1827.     mov    dx,offset tmpbuf
  1828.     call    prtasz            ; print asciiz string
  1829.     clc
  1830.     ret
  1831. CHKDSK    ENDP
  1832.  
  1833. ; Compute disk free space (bytes) into long word dx:ax.
  1834. ; Enter with disk LETTER in CL (use null if current disk).
  1835. ; Returns uppercase drive letter in CL.
  1836. ; Returns carry set if drive access error. Changes AX, DX.
  1837.  
  1838. DSKSPACE PROC    NEAR
  1839.     mov    dl,cl            ; desired disk letter, or null
  1840.     or    dl,dl            ; use current disk?
  1841.     jnz    dskspa1            ; nz = no
  1842.     mov    ah,gcurdsk        ; get current disk
  1843.     int    dos
  1844.     add    al,'A'            ; make 0 ==> A
  1845.     mov    dl,al
  1846. dskspa1:and    dl,5fh            ; convert to upper case
  1847.     mov    cl,dl            ; return upper case drive letter in CL
  1848.     sub    dl,'A'-1        ; 'A' is 1, etc
  1849.     push    bx
  1850.     push    cx
  1851.     mov    ah,36h            ; get disk free space, bx=sect/cluster
  1852.     int    dos            ; dx:ax=sectors, cx=bytes/sector
  1853.     cmp    ax,0ffffh        ; error response?
  1854.     jne    dskspa2            ; ne = no
  1855.     pop    cx
  1856.     pop    bx
  1857.     stc                ; return error
  1858.     ret
  1859. dskspa2:mul    bx            ; sectors/cluster * clusters = sectors
  1860.     mov    bx,dx            ; save high word of sectors (> 64K)
  1861.     mul    cx            ; bytes = sectors * bytes/sector
  1862.     push    ax            ; save low word of bytes
  1863.     mov    ax,bx            ; recall sectors high word
  1864.     mov    bx,dx            ; save current bytes high word
  1865.     mul    cx            ; high word sectors * bytes/sector
  1866.     add    ax,bx            ; new high bytes + old high bytes
  1867.     mov    dx,ax            ; store high word in dx
  1868.     pop    ax            ; space is in dx:ax as a long word
  1869.     pop    cx
  1870.     pop    bx
  1871.     clc
  1872.     ret
  1873. DSKSPACE ENDP
  1874.  
  1875. ; Get directory    listing
  1876. DIRECT    PROC    NEAR
  1877.     mov    kstatus,kssuc        ; global status
  1878.     mov    si,offset dircmd    ; dir command
  1879.     mov    di,offset tmpbuf
  1880.     call    strcpy
  1881.     mov    dx,offset tmpbuf
  1882.     call    strlen            ; get its length
  1883.     add    di,cx            ; point at terminator
  1884.     mov    temp,cx            ; remember length
  1885.     mov    ah,cmline        ; parse with cmline to allow switches
  1886.     mov    bx,di            ; next available byte
  1887.     mov    dx,offset filmsg    ; help message 
  1888.     call    comnd
  1889.     jnc    direct1            ; nc = success
  1890. direct0:mov    kstatus,ksgen        ; global status
  1891.     ret                ; failure
  1892. direct1:mov    ah,cmeol
  1893.     call    comnd
  1894.     jc    direct0
  1895.     mov    word ptr [bx],0        ; plant terminator
  1896.     mov    cl,curdsk        ; current drive number ('A'=1)
  1897.     add    cl,'A'-1        ; make a letter
  1898.     mov    si,offset tmpbuf
  1899.     push    si
  1900.     add    si,temp            ; user's text after ' dir '
  1901.     cmp    byte ptr [si+1],':'    ; drive specified?
  1902.     jne    direct2            ; ne = no, use current drive
  1903.     mov    cl,[si]            ; get drive letter from buffer
  1904. direct2:call    dskspace        ; check for drive ready
  1905.     pop    si
  1906.     jnc    direct3            ; nc = drive ready
  1907.     mov    spcmsg3,cl        ; insert letter
  1908.     mov    dx,offset spcmsg2    ; say drive is not ready
  1909.     call    prtasz
  1910.     mov    kstatus,ksgen        ; global status
  1911.     stc
  1912.     ret
  1913. direct3:jmp    crun            ; join run cmd from there
  1914. DIRECT    ENDP
  1915.  
  1916. ; This is the 'HELP' command.  It gives a list of the commands
  1917.  
  1918. HELP    PROC    NEAR
  1919.     mov    kstatus,kssuc        ; global status
  1920.     mov    ah,cmeol
  1921.     call    comnd            ; get a confirm
  1922.     jnc    help1            ; nc = success
  1923.     ret                ; failure
  1924.  
  1925. help1:    push    ds            ; changing data segments!
  1926.     push    es
  1927.     mov    ax,ds
  1928.     mov    es,ax            ; for escchr
  1929.     mov    ax,data1        ; new data segment
  1930.     mov    ds,ax
  1931.     ; warning
  1932.     assume    ds:data1
  1933.     mov    ah,prstr        ; show Quick help summary screen
  1934.     mov    dx,offset qckhlp
  1935.     int    dos
  1936.     mov    ah,conout
  1937.     mov    dl,es:trans.escchr    ; get Kermit escape character
  1938.     add    dl,40h            ; convert to printable
  1939.     push    dx            ; save it for repeats below
  1940.     int    dos
  1941.     mov    ah,prstr
  1942.     mov    dx,offset qckhlp1    ; more help text
  1943.     int    dos
  1944.     mov    ah,conout
  1945.     pop    dx
  1946.     push    dx
  1947.     int    dos
  1948.     mov    ah,prstr
  1949.     mov    dx,offset qckhlp2    ; more help text
  1950.     int    dos
  1951.     pop    dx            ; recover current escape char
  1952.     mov    ah,conout
  1953.     int    dos
  1954.     mov    ah,prstr
  1955.     mov    dx,offset qckhlp3    ; end of help message
  1956.     int    dos
  1957.     mov    ah,coninq        ; get a keystroke, quietly
  1958.     int    dos
  1959.     cmp    es:flags.cxzflg,'C'    ; Control-C?
  1960.     je    helpend            ; e = yes, quit now
  1961.     cmp    al,3
  1962.     je    helpend
  1963.     cmp    al,' '            ; space bar?
  1964.     je    help2            ; ne = no, skip second screen
  1965.     jmp    short helpend        ; switch data segments
  1966.  
  1967. help2:    mov    ah,prstr        ; show second Quick help summary
  1968.     mov    dx,offset qckhlp5
  1969.     int    dos
  1970.     mov    ah,coninq
  1971.     int    dos
  1972.     cmp    es:flags.cxzflg,'C'    ; Control-C?
  1973.     je    helpend            ; e = yes, quit now
  1974.     cmp    al,3
  1975.     je    helpend
  1976.     cmp    al,'?'            ; query mark?
  1977.     je    helpquery        ; e = yes do main query help
  1978.     mov    ah,prstr
  1979.     mov    dx,offset qckhlp6
  1980.     int    dos
  1981.     mov    ah,coninq
  1982.     int    dos
  1983.     cmp    es:flags.cxzflg,'C'    ; Control-C?
  1984.     je    helpend            ; e = yes, quit now
  1985.     cmp    al,3
  1986.     je    helpend
  1987.     cmp    al,'?'            ; query mark?
  1988.     je    helpquery        ; e = yes do main query help
  1989.     mov    ah,prstr
  1990.     mov    dx,offset qckhlp7
  1991.     int    dos
  1992. helpend:pop    es
  1993.     pop    ds            ; restore regular data seg data
  1994.     ; warning
  1995.     assume    ds:data
  1996.     clc
  1997.     ret
  1998. helpquery:
  1999.     pop    es
  2000.     pop    ds            ; restore regular data seg data
  2001.     ; warning
  2002.     assume    ds:data
  2003.     mov    ah,prstr        ; show help summary screen
  2004.     mov    dx,offset crlf        ; a few blank lines
  2005.     int    dos
  2006.     int    dos
  2007.     int    dos
  2008.     mov    dx,offset tophlp    ; show usual cryptic help
  2009.     int    dos
  2010. helpx:    clc
  2011.     ret
  2012. HELP    ENDP
  2013.  
  2014. ; the version command - print our version number
  2015. prvers    proc    near
  2016.     mov    kstatus,kssuc        ; global status
  2017.     mov    ah,cmeol
  2018.     call    comnd
  2019.     jc    prvers1            ; c = failure
  2020.     mov    ah,prstr
  2021.     mov    dx,offset crlf
  2022.     int    dos
  2023.     mov    ah,prstr
  2024.     mov    dx,offset machnam    ; display machine name
  2025.     int    dos
  2026.     mov    ah,prstr        ; display the version header
  2027.     mov    dx,offset verident
  2028.     int    dos
  2029.     clc
  2030. prvers1:ret
  2031. prvers    endp
  2032.  
  2033. ; SHOW command dispatcher
  2034. showcmd    proc    near
  2035.     mov    ah,cmkey
  2036.     mov    dx,offset shotab
  2037.     xor    bx,bx            ; no canned help
  2038.     call    comnd
  2039.     jc    showc1            ; c = failure
  2040.     jmp    bx            ; execute the handler
  2041. showc1:    ret                ; failure
  2042. showcmd    endp
  2043.  
  2044. ; the type command - type out a file
  2045. typec    proc    near
  2046.     mov    kstatus,kssuc        ; global status
  2047.     mov    si,offset typcmd    ; type command
  2048.     mov    di,offset tmpbuf
  2049.     call    strcpy
  2050.     mov    dx,offset tmpbuf
  2051.     call    strlen            ; get its length
  2052.     add    di,cx            ; point at terminator
  2053.     mov    temp,di            ; save place for later
  2054.     mov    ah,cmline        ; parse with cmline, allows | more
  2055.     mov    bx,di            ; next available byte
  2056.     mov    dx,offset filmsg    ; In case user wants help
  2057.     call    comnd
  2058.     jc    typec1            ; c = failure
  2059.     push    ax
  2060.     mov    ah,cmeol
  2061.     call    comnd
  2062.     pop    ax
  2063.     jc    typec1
  2064.     or    ax,ax            ; any text given?
  2065.     jnz    typec2            ; nz = yes
  2066.     mov    ah,prstr
  2067.     mov    dx,offset ermes1    ; say need more info
  2068.     int    dos
  2069.     mov    kstatus,ksgen        ; global status
  2070.     clc
  2071. typec1:    ret
  2072. typec2:    mov    byte ptr [bx],0        ; plant terminator
  2073.     mov    si,temp            ; start of filespec
  2074.     xor    cl,cl            ; say local drive
  2075.     cmp    byte ptr [si+1],':'    ; drive given?
  2076.     jne    typec3            ; ne = no
  2077.     mov    cl,[si]            ; get drive letter
  2078. typec3:    call    dskspace        ; check for drive ready
  2079.     jnc    typec4
  2080.     mov    spcmsg3,cl        ; put drive letter in msg
  2081.     mov    dx,offset spcmsg2    ; error message
  2082.     call    prtasz
  2083.     mov    kstatus,ksgen        ; global status
  2084.     clc
  2085.     ret                ; and ignore this command
  2086. typec4:    mov    si,offset tmpbuf
  2087.     jmp    short crun        ; join run cmd from there
  2088. typec    endp
  2089.  
  2090. ; PUSH to DOS (run another copy of Command.com or equiv)
  2091. ; entry fpush (fast push...) pushes without waiting for a confirm
  2092. dopush    proc    near
  2093.     mov    ah,cmeol
  2094.     call    comnd
  2095.     jnc    fpush            ; nc = success
  2096.     ret                ; failure
  2097. fpush:    mov    si,offset tmpbuf    ; a dummy buffer
  2098.     mov    byte ptr [si],0        ; plant terminator
  2099.     mov    dx,offset cmspbuf    ; always use command.com
  2100.     cmp    shellbuf,0        ; SHELL= present?
  2101.     je    crun4            ; e = no, use COMSPEC= name
  2102.     mov    dx,offset shellbuf    ; use SHELL= name
  2103.     jmp    short crun4        ; go run it
  2104. dopush    endp
  2105.  
  2106. ; Run a program from within Kermit
  2107. RUN    PROC    NEAR
  2108.     mov    ah,cmline        ; get program name and any arguments
  2109.     mov    bx,offset tmpbuf    ; place for user's text
  2110.     mov    dx,offset runmsg    ; In case user wants help
  2111.     call    comnd
  2112.     jnc    run1            ; nc = success
  2113.     ret                ; failure
  2114. run1:    or    ax,ax            ; byte count
  2115.     jnz    run2            ; nz = have program name
  2116.     mov    ah,prstr        ; else complain
  2117.     mov    dx,offset ermes1    ; need more info
  2118.     int    dos
  2119.     clc
  2120.     ret
  2121. run2:    mov    si,offset tmpbuf    ; source of text
  2122.     mov    di,si
  2123.     call    cnvlin            ; handle braces and \numbers
  2124.     jmp    short crun
  2125. RUN    ENDP
  2126.  
  2127. ; crun - run an arbitrary program.    Rewritten by [jrd]
  2128. ; Enter with ordinary asciiz command in si (such as Dir *.asm)
  2129. ; Append a c/r and a null terminator and then ask command.com to do it
  2130. ; Set errlev with DOS errorlevel from subprocess.
  2131. CRUN    proc    near
  2132.     mov    ah,prstr        ; output crlf before executing comnd
  2133.     mov    dx,offset crlf        ; [lba]
  2134.     int    dos
  2135.     mov    di,offset tmpbuf    ; where to put full command line text
  2136.     cmp    si,di            ; same place?
  2137.     je    crun1            ; e = yes, don't copy ourself
  2138.     call    strcpy            ; si holds source text
  2139. crun1:    mov    si,offset slashc    ; DOS command begins with slashc area
  2140.     mov    dx,offset slashc+1    ; si points to /c part of command line
  2141.     call    strlen            ; get its length into cx
  2142.     push    bx
  2143.     mov    bx,dx
  2144.     add    bx,cx
  2145.     mov    byte ptr [bx],cr    ; end string with a c/r for dos
  2146.     inc    cx            ; count the c/r
  2147.     mov    byte ptr [bx+1],0    ; and terminate
  2148.     pop    bx
  2149.     mov    [si],cl            ; put length of argument here
  2150.     mov    dx,offset cmspbuf    ; always use command.com
  2151. crun4:    mov    exearg+2,si        ; pointer to argument string
  2152.     mov    exearg+4,ds        ; segment of same
  2153.     cmp    lclsusp,0        ; sys dependent routine to call
  2154.     je    crun5            ; e = none
  2155.     mov    bx,lclsusp        ; address to call
  2156.     push    dx            ; preserve name in dx
  2157.     call    bx            ; call sys dependent suspend routine
  2158.     pop    dx
  2159. crun5:    push    dx            ; preserve name in dx
  2160.     call    serrst            ; reset serial port (if active)
  2161.     call    cbrestore        ; restore state of Control-Break Chk
  2162.     pop    dx
  2163.     mov    es,psp            ; point to psp again
  2164.     mov    exearg+8,es        ; segment of psp, use our def fcb's
  2165.     mov    exearg+12,es        ; segment of psp, ditto, for fcb 2
  2166.     mov    ax,es:word ptr [env]    ; get environment ptr
  2167.     mov    exearg,ax        ; put into argument block
  2168.     mov    ax,ds
  2169.     mov    es,ax            ; put es segment back
  2170.     mov    bx,offset exearg    ; es:bx points to exec parameter block
  2171.     mov    ax,ss            ; save ss:sp
  2172.     mov    word ptr ssave+2,ax
  2173.     mov    word ptr ssave,sp
  2174.     xor    al,al            ; 0 = load and execute (DX has name)
  2175.     mov    ah,exec
  2176.     int    dos            ; go run the program
  2177.     mov    ax,data            ; restore segment registers
  2178.     mov    ds,ax            ; reset data segment
  2179.     mov    es,ax            ; and extra segment
  2180.     cli
  2181.     mov    ax,word ptr ssave+2
  2182.     mov    ss,ax            ; and stack segment
  2183.     mov    sp,word ptr ssave    ; restore stack ptr
  2184.     sti
  2185.     jc    crun8            ; c = error, handle
  2186.     mov    ah,4dh            ; get subprocess return status
  2187.     int    dos
  2188.     mov    errlev,al        ; DOS errorlevel
  2189.     jmp    short crun9
  2190. crun8:    mov    ah,prstr        ; failure, complain
  2191.     mov    dx,offset erms37
  2192.     int    dos
  2193.     mov    kstatus,ksgen        ; global status
  2194. crun9:    mov    ah,setdma        ; restore dma buffer pointer
  2195.     mov    dx,offset buff
  2196.     int    dos            ; restore dma address!!
  2197.     call    cboff            ; turn off DOS BREAK check
  2198.     cmp    lclrest,0        ; sys dependent routine to call?
  2199.     je    crun10            ; e = none
  2200.     mov    bx,lclrest        ; get routine's address
  2201.     call    bx            ; call sys dependent restore routine
  2202. crun10:    clc
  2203.     ret
  2204. CRUN    ENDP
  2205. code    ends
  2206.  
  2207. code1    segment
  2208.     assume    cs:code1 
  2209. ; Replace Int 23h and Int 24h with our own handlers
  2210. ; Revised to ask DOS for original interrupt vector contents, as suggested by
  2211. ; Jack Bryans. 9 Jan 1986 jrd
  2212. ; Modified again 30 August 1986 [jrd]
  2213. SETINT    PROC    FAR
  2214.     push    es            ; save registers
  2215.     mov    al,23H            ; desired interrupt vector (^C)
  2216.     mov    ah,35H            ; Int 21H, function 35H = Get Vector
  2217.     int    dos            ; get vector in es:bx
  2218.     mov    in3ad,bx        ; save offset of original vector
  2219.     mov    in3ad+2,es        ;   and its segment
  2220.     mov    al,24h            ; DOS critical error, Int 24h
  2221.     mov    ah,35h
  2222.     int    dos
  2223.     mov    word ptr ceadr,bx    ; DOS's Critical Error handler, offset
  2224.     mov    word ptr ceadr+2,es    ;  and segment address
  2225.     push    ds            ; save ds around next DOS calls
  2226.     mov    ax,seg intbrk        ; compose full address of ^C routine
  2227.     mov    ds,ax            ; segment is the code segment
  2228.     mov    dx,offset intbrk    ;   and offset is intbrk
  2229.     mov    al,23H            ; on ^C, goto intbrk
  2230.     mov    ah,25H            ; set interrupt address from ds:dx
  2231.     int    dos
  2232.     mov    dx,offset dosce        ; replacement Critical Error handler
  2233.     mov    al,24h            ; interrupt 24h
  2234.     mov    ah,25h            ; replace it
  2235.     int    dos
  2236.     pop    ds
  2237.     mov    ax,3300h        ; get state of Control-Break Check
  2238.     int    dos
  2239.     mov    orgcbrk,dl        ; save state here
  2240.     pop    es
  2241.     ret
  2242. SETINT    ENDP
  2243.  
  2244. ; Control Break, Interrupt 23h replacement
  2245. ; Always return with a Continue (vs Abort) condition since Kermit will cope
  2246. ; with failures. [jrd]
  2247. intbrk:    push ax
  2248.     push    ds    
  2249.     mov    ax,data            ; get Kermit's data segment
  2250.     mov    ds,ax
  2251.     mov    flags.cxzflg,'C'    ; say we saw a ^C
  2252.     mov    rstate,'E'
  2253.     mov    sstate,'E'
  2254.     pop    ds
  2255.     pop    ax
  2256.     iret               ; return to caller in a Continue condition
  2257.  
  2258. ; Kermit's DOS Critical Error Handler, Int 24h. [jrd]
  2259. ; Needed to avoid aborting Kermit with the serial port interrupt active and
  2260. ; the Control Break interrupt redirected. See the DOS Tech Ref Manual for
  2261. ; a start on this material; it is neither complete nor entirely accurate
  2262. ; The stack is the Kermit's stack, the data segment is unknown, interrupts
  2263. ; are off, and the code segment is Kermit's. Note: some implementations of
  2264. ; MS DOS may leave us in DOS's stack. Called by a DOS Int 21h function
  2265. dosce:    test    ah,80h        ; block device (disk drive)?
  2266.     jnz    dosce1        ; nz = no; serial device, memory, etc
  2267.     mov    al,3        ; tell DOS to Fail the Int 21h call
  2268.     iret            ; return to DOS
  2269. dosce1:    add    sp,6        ; pop IP, CS, Flags regs, from DOS's Int 24h
  2270.     pop    ax        ; restore original callers regs existing
  2271.     pop    bx        ;  just before doing Int 21h call
  2272.     pop    cx
  2273.     pop    dx
  2274.     pop    si
  2275.     pop    di
  2276.     pop    bp
  2277.     pop    ds
  2278.     pop    es        
  2279.     mov    al,0ffh        ; signal failure (usually) the DOS 1.x way
  2280.     push    bp        ; Kermit's IP, CS, and Flags are on the stack
  2281.     mov    bp,sp        ;  all ready for an iret, but first a word ..
  2282.     or    word ptr[bp+8],1 ; set carry bit, signals failure DOS 2+ way
  2283.     pop    bp        ; this avoids seeing the Interrupt flag bit
  2284.     iret            ; return to user, simulate return from Int 21h
  2285. code1    ends
  2286.  
  2287. code    segment
  2288.     assume    cs:code
  2289.  
  2290. ; Set DOS' Control-Break Check to off
  2291. cboff    proc    near
  2292.     mov    ax,3301h        ; set Control-Break Chk state
  2293.     xor    dl,dl            ; set state to off
  2294.     int    dos
  2295.     ret
  2296. cboff    endp
  2297.  
  2298. ; Restore DOS's Control-Break Check to startup value
  2299. cbrestore proc    near
  2300.     push    dx
  2301.     mov    ax,3301h        ; set Control-Break Chk state
  2302.     mov    dl,orgcbrk        ; restore state to startup value
  2303.     int    dos
  2304.     pop    dx
  2305.     ret
  2306. cbrestore endp
  2307.  
  2308. ISFILE    PROC    NEAR
  2309. ; Enter with ds:ax pointing at asciiz filename string
  2310. ; Returns carry set if the file pointed to by ax does not exist, else reset
  2311. ; Returns status byte, fstat, with DOS status and high bit set if major error
  2312. ; Does a search-for-first to permit paths and wild cards
  2313. ; Examines All kinds of files (ordinary, subdirs, vol labels, system,
  2314. ;  and hidden). Upgraded to All kinds on 27 Dec 1985. Revised 30 Aug 86 [jrd]
  2315. ; All registers are preserved
  2316.     push    bx
  2317.     push    ax
  2318.     mov    bx,ax
  2319.     mov    ax,[bx]
  2320.     and    ax,not 2020h        ; to upper
  2321.     cmp    ax,'UN'            ; look for DOS 5 NUL
  2322.     jne    isfil4            ; ne = mismatch
  2323.     mov    ax,[bx+2]
  2324.     and    al,not 20h
  2325.     cmp    ax,'L'+0
  2326.     jne    isfil4            ; ne = mismatch
  2327.     pop    ax
  2328.     pop    bx
  2329.     clc                ; say success
  2330.     ret
  2331. isfil4:    pop    ax
  2332.     pop    bx
  2333.     push    dx            ; save regs
  2334.     push    cx
  2335.     push    ax
  2336.     mov    byte ptr filtst.dta+21,0 ; clear old attribute bits
  2337.     mov    byte ptr filtst.fname,0    ; clear any old filenames
  2338.     mov    filtst.fstat,0        ; clear status byte
  2339.     mov     cx,3fH            ; look at all kinds of files
  2340.     mov    dx,offset filtst.dta    ; own own temporary dta
  2341.     mov    ah,setdma        ; set to new dta
  2342.     int    dos
  2343.     pop    dx            ; get ax (filename string ptr)
  2344.     push    dx            ; save it again
  2345.     mov    ah,first2        ; search for first
  2346.     int    dos
  2347.     pushf                ; save flags
  2348.     mov    dx,offset buff        ; reset dma
  2349.     mov    ah,setdma
  2350.     int    dos
  2351.     popf                ; recover flags
  2352.     jnc    isfil1            ; nc = file found
  2353.     mov    filtst.fstat,al        ; record DOS status
  2354.     cmp    al,2            ; just "File Not Found"?
  2355.     je    isfil2            ; e = yes
  2356.     cmp    al,3            ; "Path not found"?
  2357.     je    isfil2            ; e = yes
  2358.     cmp    al,18            ; "No more files"?
  2359.     je    isfil2            ; e = yes
  2360.     or    filtst.fstat,80h    ; set high bit for more serious error
  2361.     jmp    short isfil2    
  2362. isfil1:    cmp    byte ptr filtst.fname,0    ; did DOS fill in a name?
  2363.     je    isfil2            ; z = no
  2364.     clc
  2365.     jmp    short isfil3
  2366. isfil2:    stc                ; else set carry flag bit
  2367. isfil3:    pop    ax
  2368.     pop    cx
  2369.     pop    dx
  2370.     ret                ; DOS sets carry if file not found
  2371. ISFILE    ENDP
  2372.  
  2373. ; initialize memory usage by returning to DOS anything past the end of kermit
  2374. memini    proc    near
  2375.     push    es
  2376.     mov    bx,_TEXT
  2377.     sub    bx,psp
  2378.     mov    totpar,bx        ; save for patcher's magic number
  2379.     mov    es,psp            ; address psp segment again
  2380.     mov    bx,offset msfinal + 15    ; end of pgm + roundup
  2381.     mov    cl,4
  2382.     shr    bx,cl            ; compute # of paragraphs in last seg
  2383.     mov    ax,_STACK        ; last segment
  2384.     sub    ax,psp            ; minus beginning
  2385.     add    bx,ax            ; # of paragraphs occupied
  2386.     mov    ah,setblk
  2387.     int    dos
  2388.     pop    es
  2389.     jnc    memin1
  2390.     mov    dx,offset ermes2
  2391.     mov    ah,prstr
  2392.     int    dos            ; complain
  2393.     jmp    krmend            ; exit Kermit now
  2394. memin1:    pop    dx            ; save return address here
  2395.     mov    ax,_STACK        ; move SS down to DGROUP, adj SP
  2396.     sub    ax,DGROUP        ; paragraphs to move
  2397.     mov    cl,4            ; convert to bytes
  2398.     shl    ax,cl
  2399.     mov    bx,SP            ; current SP offset
  2400.     add    bx,ax            ; new SP, same memory cell
  2401.     mov    ax,bx
  2402.     sub    ax,400            ; top 400 bytes = Kermit
  2403.     mov    tcptos,ax        ; report this as TCP's top of stack
  2404.     mov    ax,DGROUP        ; new SS
  2405.     cli
  2406.     mov    SS,ax
  2407.     mov    SP,bx            ; whew!
  2408.     sti
  2409.     push    dx            ; push return address
  2410.     clc
  2411.     ret
  2412. memini    endp
  2413.  
  2414. ; Allocate memory.  Passed a memory size in ax, allocates that many
  2415. ; bytes (actually rounds up to a paragraph) and returns its SEGMENT in ax
  2416. ; The memory is NOT initialized.  Written by [jrd] to allow memory to
  2417. ; be allocated anywhere in the 1MB address space
  2418. sbrk    proc    near            ; K & R, please forgive us
  2419.     mov    bx,ax            ; bytes wanted
  2420.     add    bx,15            ; round up
  2421.     mov    cl,4
  2422.     shr    bx,cl            ; convert to # of paragraphs
  2423.     mov    cx,bx            ; remember quantity wanted
  2424.     mov    ah,alloc        ; DOS memory allocator
  2425.     int    dos
  2426.     jc    sbrkx            ; c = fatal
  2427.     cmp    cx,bx            ; paragraphs wanted vs delivered
  2428.     jb    sbrkx            ; b = not enough, fatal error
  2429.     ret                ; and return segment in ax
  2430. sbrkx:    mov    dx,offset mfmsg        ; assume not enough memory (ax = 8)
  2431.     cmp    ax,7            ; corrupted memory (ax = 7)?
  2432.     jne    sbrkx1            ; ne = no
  2433.     mov    dx,offset mf7msg    ; corrupted memory found
  2434. sbrkx1:    mov    ah,prstr
  2435.     int    dos
  2436.     jmp    krmend            ; exit Kermit now
  2437. sbrk    endp
  2438. code     ends
  2439.     end    start
  2440.