home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / victor9000cpm / viccpm.a86 next >
Text File  |  1988-08-23  |  165KB  |  4,987 lines
  1. ;************************** Version 1.1 *******************************
  2. ;
  3. ; [3]    Fix wildcard handling.
  4. ;    Assume first ^Z in last buffer from file is the end-of-file.
  5. ;     Barry Devlin. 25-November-83.
  6. ;
  7. ; [2]    Trim port reading routines to minimum to allow fastest possible
  8. ;    looping. Move ES set-up out of tightest loops.
  9. ;     Barry Devlin. 17-August-83.
  10. ;
  11. ; [1] CP/M-86 Version.
  12. ;      Remove assembler directives incompatible with ASM-86.
  13. ;    MS-DOS expects DOS function number in ah; CP/M-86 in cl.
  14. ;    To overcome this,define a new interrupt DOS at 40H which
  15. ;    saves cx,dx and transfers ah to cl and calls BDOS at 224.
  16. ;     Barry Devlin. 14-July-83.
  17. ;
  18. ;***********************************************************************
  19. ;                     CP/M-86 Version 1.0
  20. ;***********************************************************************
  21. ; [1] Initial changes for Sirius, try non-interrupt and VT52 built-in
  22. ;       sequences. Barry Devlin 3-June-1983.
  23. ;
  24. ;*****************************************************************************
  25. ;
  26. ;    SIRIUS I / VICTOR-9000 KERMIT
  27. ;
  28. ;    Barry Devlin
  29. ;    Computer Centre
  30. ;    University College Dublin
  31. ;    Belfield
  32. ;    Dublin 4
  33. ;    Republic of Ireland.
  34. ;
  35. ;***************************************************************************** 
  36. ; KERMIT - KL10 Error-free Reciprocal Micro Interconnect over TTY-lines
  37. ; 
  38. ;       Program Version 1.1, Kermit Protocol Version 2
  39. ;       April 4, 1983
  40. ; 
  41. ;       Based on the KERMIT Protocol.
  42. ; 
  43. ;       Copyright (C) 1982,1983 Trustees of Columbia University
  44. ;
  45. ;       Daphne Tzoar
  46. ;       Columbia University Computer Center
  47. ;       612 W. 115th St.
  48. ;       New York City, NY  10025
  49. ; 
  50. ;  Special thanks to Frank da Cruz, Bill Catchings, Steve Jensen,
  51. ;  Vace Kundakci, and Bernie Eiben for their help and contributions.
  52.  
  53.  
  54. ;  This file is the global data area for all the Kermit modules.
  55.  
  56.  
  57. SIRIUS  EQU     1               ; For Sirius I conditional assembly.
  58. IBMPC   EQU     0               ; For IBM PC conditional assembly.
  59. Z100    EQU     0               ; For Heath/Zenith Z-100.  [*]
  60. STEVE   EQU     0               ; For Steve's homebrew assembly.
  61.  
  62. BPGSTK    EQU    015H    ; BASE PAGE STACK SEGMENT STORAGE.
  63. BELL    EQU     07Q
  64. TAB     EQU     11Q
  65. LF      EQU     12Q
  66. FF      EQU     14Q
  67. CR      EQU     15Q
  68. XON     EQU     21Q
  69. XOFF    EQU     23Q
  70. ESC     EQU     33Q
  71. DEL     EQU     177Q
  72. BS      EQU     08H
  73.  
  74. DOS    EQU    40H
  75. BDOS     EQU     224
  76.  
  77. CONIN   EQU     01H
  78. CONOUT  EQU     02H
  79. RDRIN   EQU     03H
  80. PUNOUT  EQU     04H
  81. LSTOUT  EQU     05H
  82. DCONIO  EQU     06H
  83. GTIOB   EQU     07H
  84. PRSTR   EQU     09H
  85. CONSTAT EQU     0BH
  86. OPENF   EQU     0FH
  87. CLOSF   EQU     10H
  88. SFIRST  EQU     11H
  89. SNEXT   EQU     12H
  90. DELF    EQU     13H
  91. READF   EQU     14H             ; Read from the file.
  92. WRITEF  EQU     15H
  93. MAKEF   EQU     16H
  94. SETDMA  EQU     1AH
  95. CFLSZ   EQU     23H
  96.  
  97. MAXFIL    EQU    10        ; Maximum number of filenames in wildcard.
  98. MAXPKT  EQU     '~'-' '+2Q      ; Maximum size of a packet.
  99. MAXTRY  EQU     05Q             ; Default number of retries on a packet.
  100. IMXTRY  EQU     20Q             ; Default number of retries send initiate.
  101. DRPSIZ  EQU     5EH             ; Default receive packet size.
  102. DSPSIZ  EQU     20H             ; Default send packet size.
  103. DSTIME  EQU     08H             ; Default send time out interval.
  104. DRTIME  EQU     05H             ; Default receive time out interval.
  105. DSPAD   EQU     00H             ; Default send padding.
  106. DRPAD   EQU     00H             ; Default receive padding.
  107. DSPADC  EQU     00H             ; Default send padding char.
  108. DRPADC  EQU     00H             ; Default receive padding char.
  109. DSEOL   EQU     CR              ; Default send EOL char.
  110. DREOL   EQU     CR              ; Default receive EOL char.
  111. DSQUOT  EQU     '#'             ; Default send quote char.
  112. DRQUOT  EQU     '#'             ; Default receive quote char.
  113.  
  114. PAREVN  EQU     00H             ; Even parity.                  
  115. PARMRK  EQU     01H             ; Mark parity.
  116. PARNON  EQU     02H             ; No parity.    
  117. PARODD  EQU     03H             ; Odd parity.
  118. PARSPC  EQU     04H             ; Space parity.
  119. DEFPAR  EQU     PAREVN          ; Default parity (none.) 
  120. IBMPAR  EQU     PARMRK          ; IBM's parity (mark.)          
  121.  
  122. SOH     EQU     01H             ; Start of header char.
  123. BUFSIZ  EQU     80H             ; Size of DMA.
  124. DIASW   EQU     01H             ; Default is diagnostics on.
  125.  
  126. CMKEY   EQU     01H             ; Parse a keyword.
  127. CMIFI   EQU     02H             ; Parse an input file spec (can be wild).
  128. CMOFI   EQU     03H             ; Parse an output file spec.
  129. CMCFM   EQU     04H             ; Parse a confirm.
  130. CMTXT   EQU     05H             ; Parse arbitrary text up to CR.   
  131.  
  132. IF SIRIUS
  133. HWARE   EQU     0E000H          ;I/O ADDRESS BASE
  134. DEFESC  EQU     ']'-100Q        ;Default escape char.
  135. MPDATA  EQU     040H            ;Main Port data addr. offset.
  136. MPSTAT  EQU     042H            ;Main Port status addr. offset.
  137. MPINP   EQU     1               ;Input Ready Bit
  138. MPOVR    EQU    20H        ;Input Buffer Over-run
  139. MPTBE   EQU     4               ;Transmit buffer empty bit
  140. CRST    EQU    018H        ;Channel reset
  141. NVND    EQU    00H        ;Non-vectored,non-dma mode
  142. A1SNP    EQU    044H        ;Asynchronous,1 stop bit,no parity
  143. RE8B    EQU    0C1H        ;Receive enable,8 bits/word
  144. TE8B    EQU    0EAH        ;Transmit enable,8 bits/word
  145. BTIMER  EQU     023H            ;Baud rate timer control port
  146. BRATE   EQU     020H            ;Baud rate timer data port
  147. BSET    EQU     036H            ;Baud rate set word
  148. B0300    EQU    0001H        ; Baud rates.
  149. B0600    EQU    8000H
  150. B1200    EQU    4000H
  151. B2400    EQU    2000H
  152. B4800    EQU    1000H
  153. B9600    EQU    0800H
  154. ENDIF
  155. IF ibmpc
  156. BIOS    EQU     10H
  157. COMM    EQU     14H
  158. KEYB    EQU     16H
  159. DEFESC  EQU     ']'-100Q        ; The default escape character.
  160. MDMDAT  EQU     03F8H           ; Address of modem port (data).
  161. MDMSTS  EQU     03FDH           ; Address of modem port status.
  162. MDMCOM  EQU     03FBH           ; Address of modem port command.
  163. MDMINP  EQU     1               ; Input ready bit.
  164. MDMINTV EQU     0030H           ; Address of modem port interrupt vector.
  165. MDMINTO EQU     0EFH            ; Mask to enable interrupt for modem port.
  166. MDMINTC EQU     010H            ; Bit to set to disable interrupts for modem.
  167. INTCONT EQU     0021H           ; Address of 8259 interrupt controller ICW2-3.
  168. INTCON1 EQU     0020H           ; Address of 8259 ICW1.
  169. EOICOM  EQU     0064H           ; End of interrupt.
  170. TIMER   EQU     40H             ; Use to issue short beep.
  171. PORT_B  EQU     61H             ; Port B address.
  172.  
  173. B0300   EQU    180H             ; Variables for 300 baud, 1200, etc.
  174. B1200   EQU     60H
  175. B1800   EQU     40H
  176. B2400   EQU     30H
  177. B4800   EQU     18H
  178. B9600   EQU     0CH
  179. ENDIF
  180.  
  181. IF Z100
  182. DEFESC  EQU     '\'-100Q        ; The default escape character.
  183.  
  184. ; BIOS entry points
  185.  
  186. BIOS_SEG SEGMENT AT 40H         ; Define segment where BIOS really is
  187.  
  188.         ORG     6*3
  189. BIOS_AUXOUT LABEL FAR           ; AUX output routine
  190.  
  191.         ORG     26*3
  192. BIOS_AUXFUNC LABEL FAR          ; AUX: function
  193.  
  194. BIOS_SEG ENDS                   ; End of BIOS segment defs
  195.  
  196. ; Function codes for BIOS_AUXFUNC
  197. CHR_READ        EQU     1       ; Read character
  198. CHR_STATUS      EQU     2       ; Get status
  199.   CHR_SFGS      EQU     0       ; Get status subfunction
  200.   CHR_SFGC      EQU     1       ; Get config subfunction
  201. CHR_CONTROL     EQU     3       ; Control function
  202.  CHR_CFSU       EQU     0       ; Set new configuration parameters
  203.  
  204. B00455  EQU     0               ; 45.5 baud
  205. B0050   EQU     1               ; 50 baud
  206. B0075   EQU     2               ; 75 baud
  207. B0110   EQU     3               ; 110 baud
  208. B01345  EQU     4               ; 134.5 baud
  209. B0150   EQU     5               ; 150 baud
  210. B0300   EQU     6               ; 300 baud
  211. B0600   EQU     7               ; 600 baud
  212. B1200   EQU     8               ; 1200 baud
  213. B1800   EQU     9               ; 1800 baud
  214. B2000   EQU     10              ; 2000 baud
  215. B2400   EQU     11              ; 2400 baud
  216. B4800   EQU     12              ; 4800 baud
  217. B9600   EQU     13              ; 9600 baud
  218. B19200  EQU     14              ; 19200 baud
  219. B38400  EQU     15              ; 38400 baud
  220. ENDIF
  221.  
  222. SSEG
  223. STACK:
  224.     RW    100        ; INITIALIZE STACK.
  225. STK    DW    $
  226.  
  227. DSEG
  228.  
  229.  
  230.         ; Pure storage.
  231.  
  232. ORG    100H
  233. DATAS    EQU    $
  234. versio  db      'CUCCA'
  235. IF SIRIUS
  236.         db      ' Sirius I'
  237. ENDIF
  238. IF ibmpc
  239.         db      ' IBM-PC' 
  240. ENDIF
  241. IF Z100
  242.         db      '/Stevens Heath/Zenith Z-100'
  243. ENDIF
  244.         db      ' Kermit-86 - CP/M-86 ver 1.1 ',cr,lf,'$'
  245. kerm    db      'Kermit-86>$'
  246. spmes   db      'Spack:  $'
  247. rpmes   db      'Rpack:  $'
  248. hibit   db      'Warning - Non Ascii char$'
  249. tmp     rb      1
  250. foo     db      '$'
  251. crlf    db      cr,lf,'$'
  252. ender   db      bell,bell,'$'
  253. tmsg1   db      cr,lf,'[Connecting to host, type $' 
  254. tmsg3   db      ' C to return to PC]',cr,lf,'$'
  255. tmsg2   db      cr,lf,'[Back at micro]',cr,lf,'$'
  256. ermes1  db      cr,lf,'?Unregonized command$'
  257. ermes2  db      cr,lf,'?Illegal character$'
  258. ermes3  db      cr,lf,'?Not confirmed$'
  259. ermes4  db      'Unable to rename file$'
  260. ermes7  db      '?Unable to receive initiate$'
  261. ermes8  db      '?Unable to receive file name$'
  262. ermes9  db      '?Unable to receive end of file$'
  263. erms10  db      '?Unable to receive data$'
  264. erms11  db      '?Disk full$'
  265. erms14  db      '?Unable to receive an acknowledgement from the host$'
  266. erms15  db      '?Unable to find file$'
  267. erms17  db      'Record length exceeds size of buffer$'
  268. erms18  db      '?Unable to tell host that session is finished$'
  269. erms19  db      '?Unable to tell host to logout$'
  270. erms20    db    '?Too many files satisfy wildcard, 10 sent$'
  271. ermszz    db    '                                                $'
  272. dimsg1  db      '%Bad checksum$'
  273. infms0  db      'Waiting .....$'
  274. infms1  db      'Receiving ...$'
  275. infms2  db      'Sending .....$'
  276. infms3  db      'Completed    $'
  277. infms4  db      'Failed       $'
  278. infms5  db      'Renaming file to $'
  279.  
  280. cfrmes  db      ' Confirm with carriage return $'
  281. filhlp  db      ' Input file spec (possibly wild) $'
  282. esctl   db      'Control-$'
  283. spchar  db      24H,26H,23H,40H,21H,25H,27H,28H,29H,2DH
  284.         db      3CH,3EH,7BH,7DH,5FH,5CH,5EH,7EH,7CH,60H
  285. eschlp  db      cr,lf,'Enter literal value (ex: Cntrl ])  $'
  286. tophlp  db      cr,lf,'BYE to host (LOGOUT) and exit to DOS'
  287.         db      cr,lf,'CONNECT to host on selected port'
  288.         db      cr,lf,'EXIT to DOS'
  289.         db      cr,lf,'FINISH running Kermit on the host'
  290.         db      cr,lf,'HELP by giving this message'
  291.         db      cr,lf,'LOGOUT the host'
  292.         db      cr,lf,'RECEIVE file from host'
  293.         db      cr,lf,'SEND file to host'
  294.         db      cr,lf,'SET a parameter'
  295. ;        db      cr,lf,'SHOW the parameters'
  296.         db      cr,lf,'STATUS of Kermit$'
  297. sethlp  db      cr,lf,'BAUD rate'
  298.         db      cr,lf,'DEBUG'
  299.         db      cr,lf,'END-OF-LINE character'
  300.         db      cr,lf,'ESCAPE character change'
  301.         db      cr,lf,'FILE-WARNING'
  302.         db      cr,lf,'IBM'
  303.         db      cr,lf,'LOCAL-ECHO echoing (half-duplex)'
  304.         db      cr,lf,'PARITY type'
  305. ;        db      cr,lf,'RECEIVE parameter'
  306. ;        db      cr,lf,'SEND parameter'
  307. IF ibmpc
  308.         db      cr,lf,'VT52-EMULATION$'
  309. ENDIF
  310. IF Z100 OR SIRIUS
  311.         db      '$'
  312. ENDIF   
  313. stshlp  db      cr,lf,'PAD-CHAR'
  314.         db      cr,lf,'PADDING$'
  315. onhlp   db      cr,lf,'OFF      ON$'
  316. yeshlp  db      cr,lf,'NO       YES$'
  317. parhlp  db      cr,lf,'None   Mark   Odd   Even   Space$'
  318. IF ibmpc
  319. bdhlp   db      cr,lf,'300   1200   1800   2400   4800   9600$'
  320. ENDIF
  321. IF SIRIUS
  322. bdhlp   db      cr,lf,'300   600   1200   2400   4800   9600$'
  323. ENDIF
  324. IF Z100
  325. bdhlp   db      cr,lf,'45.5     50      75      110     134.5   150     300'
  326.         db      '       600     1200    1800'
  327.         db      cr,lf,' 2000    2400    4800    9600    19200   38400'
  328. ENDIF
  329. eolhlp  db      cr,lf,'Decimal digit between 0 and 31$'
  330. eolerr  db      cr,lf,'Illegal end-of-line character$'
  331. inthlp  db      cr,lf,'?  This message'
  332.     db    cr,lf,'B  BREAK signal sent'
  333.         db      cr,lf,'C  Close the connection'
  334.         db      cr,lf,'S  Status of the connection'
  335.         db      cr,lf,'Typing the escape character will send it to the host'
  336.         db      cr,lf,cr,lf,'Command>$'
  337. rechlp    db    cr,lf,'Carriage return or file name & carriage return$'
  338. locst   db      cr,lf,'Local echo on$'
  339. remst   db      cr,lf,'Local echo off$'
  340. IF ibmpc
  341. vtemst  db      cr,lf,'VT52 emulation on$'
  342. novtst  db      cr,lf,'VT52 emulation off$'
  343. ENDIF
  344. ibmst   db      cr,lf,'IBM on$'
  345. noibm   db      cr,lf,'IBM off$'
  346. pnonst  db      cr,lf,'No parity$' 
  347. poddst  db      cr,lf,'Odd parity$'
  348. pevnst  db      cr,lf,'Even parity$'
  349. pmrkst  db      cr,lf,'Mark parity$'
  350. pspcst  db      cr,lf,'Space parity$'
  351. IF Z100 
  352. b04st   db      cr,lf,'Baud rate is 45.5$'
  353. b05st   db      cr,lf,'Baud rate is 50$'
  354. b07st   db      cr,lf,'Baud rate is 75$'
  355. b11st   db      cr,lf,'Baud rate is 110$'
  356. b13st   db      cr,lf,'Baud rate is 134.5$'
  357. b15st   db      cr,lf,'Baud rate is 150$'
  358. b06st   db      cr,lf,'Baud rate is 600$'
  359. b20st   db      cr,lf,'Baud rate is 2000$'
  360. b19st   db      cr,lf,'Baud rate is 19200$'
  361. b38st   db      cr,lf,'Baud rate is 38400$'
  362. ENDIF
  363. b03st   db      cr,lf,'Baud rate is 300$'
  364. b06st    db    cr,lf,'Baud rate is 600$'
  365. b12st   db      cr,lf,'Baud rate is 1200$'
  366. b18st   db      cr,lf,'Baud rate is 1800$'
  367. b24st   db      cr,lf,'Baud rate is 2400$'
  368. b48st   db      cr,lf,'Baud rate is 4800$'
  369. b96st   db      cr,lf,'Baud rate is 9600$'
  370. debon   db      cr,lf,'Debug mode on$'
  371. deboff  db      cr,lf,'Debug mode off$' 
  372. flwon   db      cr,lf,'File Warning on$'
  373. flwoff  db      cr,lf,'File Warning off$'
  374. eolst   db      cr,lf,'End-of-line character is ^$'
  375. escmes  db      cr,lf,'Escape character is  $'
  376.  
  377.  
  378. outlin  db      cr,lf,'                CUCCA'
  379. IF ibmpc
  380.         db      ' IBM-PC'
  381. ENDIF
  382. IF SIRIUS
  383.         db      ' Sirius I'
  384. ENDIF
  385. IF Z100
  386.         db      '/Stevens Heath/Zenith Z-100'
  387. ENDIF
  388.         db      ' Kermit-86 CP/M-86 V1.1 ',cr,lf
  389.         db      cr,lf,'Number of packets        (hex)'
  390.         db      cr,lf,'Number of retries        (hex)'
  391.         db      cr,lf,'File name $'
  392. IF IBMPC OR Z100
  393. delstr  db      10O,' ',10O,10O,'$'     ; Delete string.
  394. clrspc  db      ' ',10O,'$'             ; Clear space.
  395. escspc  db      10O,' ',10O,'$'         ; Clear escape.
  396. ENDIF
  397. IF SIRIUS
  398. delstr    db    10Q,'$'            ; Delete string.
  399. clrspc    db    ' ',10Q,'$'        ; Clear space.
  400. escspc    db    ' ',10Q,'$'        ; Clear escape.
  401. ENDIF
  402. IF ibmpc
  403. clrlin  db      cr,'$'                  ; Clear line (just the cr part).
  404. ENDIF
  405. IF Z100 OR SIRIUS
  406. clrlin  db      cr,esc,'K$'             ; Clear line
  407. clreol  db      esc,'K$'                ; Clear to end of line
  408. clrscr  db      esc,'H',esc,'J$'        ; Home and clear screen
  409. homcur  db      esc,'H$'                ; Home cursor
  410. ENDIF
  411. prsp    db      ' $'                    ; Print a space.
  412.  
  413. ; Cursor addressing items.
  414.  
  415. IF ibmpc
  416. scrhi   dw      0434H                   ; Err when 8th bit is on.
  417. scrrpr  dw      0700H                   ; Prompt when Kermit ends.
  418. screrr  dw      0600H                   ; Place for error msgs. 
  419. scrfln  dw      050CH                   ; Place for file name.
  420. scrnrt  dw      0415H                   ; Place for number of retries.
  421. scrnp   dw      0315H                   ; Place for number of packets.
  422. scrfr   dw      0600H                   ; Rename file.
  423. scrst   dw      0334H                   ; Place for status.
  424. scrsp   dw      0800H                   ; Place for send packet.
  425. scrrp   dw      0A00H                   ; Place for receive packet.
  426.  
  427. ttab    label   word                    ; Table for cursor movement.
  428. ta      dw      curup                   ; Cursor up.
  429. tb      dw      curdwn                  ; Cursor down.
  430. tc      dw      currt                   ; Cursor right.
  431. td      dw      curlft                  ; Cursor left.
  432. te      dw      curskp                  ; Clear display.
  433. tf      dw      curskp                  ; Enter graphics mode.
  434. tg      dw      curskp                  ; Exit graphics mode.
  435. th      dw      curhm                   ; Cursor home.
  436. ti      dw      curup                   ; Reverse line feed.
  437. tj      dw      curscr                  ; Clear to end of screen.
  438. tk      dw      curln                   ; Clear to end of line.
  439. tl      dw      inslin                  ; Insert line.
  440. tm      dw      dellin                  ; Delete line.  
  441. ENDIF
  442.  
  443. IF Z100 OR SIRIUS
  444. scrhi   db      esc,'Y',23H,54H,lf,'$'  ; 8th bit on in character
  445. scrrpr  db      esc,'Y',27H,20H,'$'     ; Prompt when Kermit ends
  446. screrr  db      esc,'Y',26H,20H,'$'     ; Error messages
  447. scrfln  db      esc,'Y',25H,2CH,'$'     ; File name
  448. scrnrt  db      esc,'Y',23H,35H,lf,'$'  ; Number of retries
  449. scrnp   db      esc,'Y',23H,35H,'$'     ; Number of packets
  450. scrfr   db      esc,'Y',26H,20H,'$'     ; Rename file
  451. scrst   db      esc,'Y',23H,54H,'$'     ; Status
  452. scrsp   db      esc,'Y',28H,20H,'$'     ; send packet
  453. scrrp   db      esc,'Y',2AH,20H,'$'     ; Receive packet
  454. ENDIF
  455.  
  456.         ; COMND tables
  457.  
  458. comtab  db      0AH                     ; Ten entries.
  459.         db      03H,'BYE$'
  460.         dw      bye
  461.         db      07H,'CONNECT$'
  462.         dw      telnet
  463.         db      04H,'EXIT$'
  464.         dw      exit
  465.         db      06H,'FINISH$'
  466.         dw      finish
  467.         db      04H,'HELP$'
  468.         dw      help
  469.         db      06H,'LOGOUT$'
  470.         dw      logout
  471.         db      07H,'RECEIVE$'
  472.         dw      read
  473.         db      04H,'SEND$'
  474.         dw      send
  475.         db      03H,'SET$'
  476.         dw      setcom
  477.         db      06H,'STATUS$'
  478.         dw      status
  479.  
  480. IF ibmpc
  481. settab  db      09H             ; Nine entries.
  482. ENDIF
  483. IF Z100 OR SIRIUS
  484. settab  db      08H             ; Eight entries.
  485. ENDIF
  486.         db      04H,'BAUD$'
  487.         dw      baudst
  488.         db      05H,'DEBUG$'
  489.         dw      debst
  490.         db      0BH,'END-OF-LINE$'
  491.         dw      eolset
  492.         db      06H,'ESCAPE$'
  493.         dw      escape
  494.         db      0CH,'FILE-WARNING$'
  495.         dw      filwar
  496.         db      03H,'IBM$'
  497.         dw      ibmset
  498.         db      0AH,'LOCAL-ECHO$'
  499.         dw      lcal
  500.         db      06H,'PARITY$'
  501.         dw      setpar
  502. IF ibmpc
  503.         db      0EH,'VT52-EMULATION$'
  504.         dw      vt52em
  505. ENDIF
  506.  
  507. ontab   db      02H             ; Two entries.
  508.         db      02H,'ON$'
  509.         dw      01H
  510.         db      03H,'OFF$'
  511.         dw      00H
  512.  
  513. yestab  db      02H             ; Two entries.
  514.         db      02H,'NO$'
  515.         dw      00H
  516.         db      03H,'YES$'
  517.         dw      01H
  518.  
  519. partab  db      05H             ; Five entries.
  520.         db      04H,'EVEN$'
  521.         dw      PAREVN
  522.         db      04H,'MARK$'
  523.         dw      PARMRK
  524.         db      04H,'NONE$'
  525.         dw      PARNON
  526.         db      03H,'ODD$'
  527.         dw      PARODD
  528.         db      05H,'SPACE$'
  529.         dw      PARSPC
  530.  
  531. IF SIRIUS
  532. bdtab   db      06H             ;Six entries.
  533.         db      04H,'1200$'
  534.         dw      b1200
  535.         db      04H,'2400$'
  536.         dw      b2400
  537.     db    03H,'300$'
  538.     dw    b0300
  539.         db      04H,'4800$'
  540.         dw      b4800
  541.     db    03H,'600$'
  542.     dw    b0600
  543.         db      04H,'9600$'
  544.         dw      b9600
  545. ENDIF
  546. IF ibmpc
  547. bdtab   db      06H             ; Six entries.
  548.         db      04H,'1200$'
  549.         dw      B1200
  550.         db      04H,'1800$'
  551.         dw      B1800
  552.         db      04H,'2400$'
  553.         dw      B2400
  554.         db      03H,'300$'
  555.         dw      B0300
  556.         db      04H,'4800$'
  557.         dw      B4800
  558.         db      04H,'9600$'
  559.         dw      B9600
  560. ENDIF
  561. IF Z100
  562. bdtab   db      010H            ; 16 entries
  563.         db      03H,'110$'
  564.         dw      b0110
  565.         db      04H,'1200$'
  566.         dw      b1200
  567.         db      03H,'134$'
  568.         dw      b01345
  569.         db      03H,'150$'
  570.         dw      b0150
  571.         db      04H,'1800$'
  572.         dw      b1800
  573.         db      05H,'19200$'
  574.         dw      b19200
  575.         db      04H,'2000$'
  576.         dw      b2000
  577.         db      04H,'2400$'
  578.         dw      b2400
  579.         db      03H,'300$'
  580.         dw      b0300
  581.         db      05H,'38400$'
  582.         db      b38400
  583.         db      02H,'45$'
  584.         dw      b00455
  585.         db      04H,'4800$'
  586.         dw      b4800
  587.         db      02H,'50$'
  588.         dw      b0050
  589.         db      03H,'600$'
  590.         dw      b0600
  591.         db      02H,'75$'
  592.         dw      b0075
  593.         db      04H,'9600$'
  594.         dw      b9600
  595. ENDIF
  596.  
  597. ; COMND storage
  598.  
  599. cmer00  db      cr,lf,'?Program error   Invalid COMND call$'
  600. cmer01  db      cr,lf,'?Ambiguous$'
  601. cmer02  db      cr,lf,'?Illegal input file spec$'
  602. cmer03  db      cr,lf,'?Unrecognized instruction$'
  603. cmer04  db      cr,lf,'?Invalid command or operand$'
  604. cmin00  db      ' Confirm with carriage return$'
  605. cmcrlf  db      cr,lf,'$'
  606.  
  607. cmstat  rb      1               ; What is presently being parsed.
  608. cmaflg  rb      1               ; Non-zero when an action char has been found.
  609. cmccnt  rb      1               ; Non-zero if a significant char is found.
  610. cmsflg  rb      1               ; Non-zero when the last char was a space.
  611. cmostp  rw      1               ; Old stack pointer for reparse.
  612. cmrprs  rw      1               ; Address to go to on reparse.
  613. cmprmp  rw      1               ; Address of prompt.
  614. cmptab  rw      1               ; Address of present keyword table.
  615. cmhlp   rw      1               ; Address of present help.
  616. cmdbuf  rb      80H           ; Buffer for command parsing.
  617. cmfcb   rw      1               ; Pointer to FCB.
  618. cmfcb2  rw      1               ; Pointer to position in FCB.
  619. cmcptr  rw      1               ; Pointer for next char input.
  620. cmdptr  rw      1               ; Pointer into the command buffer.
  621. cmsiz   rw      1               ; Size info of user input.
  622. cmkptr  rw      1               ; Pointer to keyword.
  623. cmsptr  rw      1               ; Place to save a pointer.
  624. cmchr   rb      1               ; Save char when checking ambiguity.
  625.  
  626. ; Program storage.
  627.  
  628. oldstk  rw      1               ; Storage for system stack.
  629. oldsts  rw      1               ; System stack segment.
  630. ssp     dw      0               ; Save SP in Telnet.
  631. bufhex  dw      80H
  632. fcbnum  db      0        ; No. of files found for wildcard. [3]
  633. fcbblk  rb      maxfil*40H    ; Storage for FCBs during wildcard. [3]
  634. filsiz  dw      0               ; Double word for filesize (in bytes.)
  635.     dw    0
  636. filerc    db    0        ; File record count.
  637. fileex    db    0        ; File extent count.
  638. eoflag  rb      1               ; EOF flag; non-zero on EOF.
  639. wldflg  db      0               ; Assume no "*" in fn.
  640. debug   db      0               ; Debugging mode (default off).
  641. hierr   db      0               ; Non-ascii char (non-zero if yes).
  642. filflg  rb      1               ; Non-zero when nothing in DMA buffer.
  643. ecoflg  db      0               ; Local echo flag (default off).
  644. parflg  db      defpar          ; Parity flag (default none.)
  645. escflg  db      0               ; Escape flag (start off).
  646.  
  647. IF ibmpc
  648. vtflg   db      1               ; VT52 emulation flag (default on).
  649. baud    dw      B4800           ; Use default of 4800.
  650. ENDIF
  651. IF SIRIUS
  652. baud    dw      B1200           ;Default baud rate 1200
  653. ENDIF
  654. IF Z100
  655. auxcnf  rb      4              ; AUX port configuration info
  656. baud    rb      1               ; Baud rate
  657. auxcnf1 rb      12             ; Rest of configuration info
  658. ENDIF
  659.  
  660. flwflg  db      0               ; File warning flag (default off).
  661. ibmflg  db      0               ; IBM flag (default off).
  662. extflg  db      0               ; Exit flag (default off).
  663. escchr  db      defesc          ; Storage for the escape character.
  664. incnt   rw      1               ; Number of chars read in from port.
  665. chrcnt  rw      1               ; Number of chars in the file buffer.
  666. filcnt  rw      1               ; Number of chars left to fill.
  667. outpnt  rw      1               ; Position in packet.
  668. bufpnt  rw      1               ; Position in file buffer.
  669. fcbptr  rw      1               ; Position in FCB.
  670. datptr  rw      1               ; Position in packet data buffer.
  671. cbfptr  rw      1               ; Position in character buffer.
  672. pktptr  rw      1               ; Poistion in receive packet.
  673. siz     rw      1               ; Size of data from gtchr.
  674. spsiz   db      dspsiz          ; Send packet size.
  675. rpsiz   db      drpsiz          ; Receive packet size.
  676. stime   db      dstime          ; Send time out.
  677. rtime   db      drtime          ; Receive time out.
  678. spad    db      dspad           ; Send padding.
  679. rpad    db      drpad           ; Receive padding.
  680. spadch  db      dspadc          ; Send padding char.
  681. rpadch  db      drpadc          ; Receive padding char.
  682. seol    db      dseol           ; Send EOL char.
  683. reol    db      dreol           ; Receive EOL char.
  684. squote  db      dsquot          ; Send quote char.
  685. rquote  db      drquot          ; Receive quote char.
  686. pktnum  rw      1               ; Packet number.
  687. numpkt  rw      1               ; Total number of packets sent.
  688. numrtr  rw      1               ; Total number of retries.
  689. numtry  rb      1               ; Number of tries on this packet.
  690. oldtry  rb      1               ; Number of tries on previous packet.
  691. state   rb      1               ; Present state of the automaton.
  692. packet  rb      4               ; Packet (data is part of it).
  693. data    rb      5AH             ; Data and checksum field of packet.
  694. recpkt  rb      60H             ; Receive packet storage (use the following).
  695. filbuf  rb      60H             ; Character buffer.
  696. fcb     rb      25H             ; Use as our FCB.
  697. cpfcb   rb      25H             ; Save FCB in case of "*".
  698. buff    rb      80H             ; Use as our DAT.
  699. rrbuf   db      80H       
  700. cnt     dw      0
  701. temp    dw      0
  702. temp1   rw      1               ; Temporary storage.
  703. temp2   rw      1
  704. temp3   rw      1
  705. temp4   rw      1
  706. argblk  rw      1               ; For subroutine arguments.
  707. argbk1  rw      1
  708. argbk2  rw      1
  709. argbk3  rw      1
  710.  
  711.  
  712.  
  713. CSEG
  714. ;START   PROC  FAR
  715. START:
  716. ;        ASSUME  CS:MAIN,DS:DATAS,SS:STACK,ES:NOTHING
  717.  
  718.         push ds                 ; Save system data area.
  719.         sub ax,ax               ; Get a zero.
  720.         push ax                 ; Put zero return addr on stack.
  721.  
  722.  
  723. ;    lds ax,word ptr datas        ; Initialize DS.
  724.         sub ax,ax
  725.  
  726.         mov oldstk,sp           ; Save old stack pointer.
  727.     mov ax,ss        ; Save old SS.
  728.     mov oldsts,ax
  729.     
  730.     mov bx,offset bpgstk        ; Initialize SS.
  731.     mov ax,[bx]
  732.     mov ss,ax
  733.     mov sp,ss:offset stk        ; Initialize SP.
  734.     sub ax,ax
  735.     sub bx,bx        ; Set DOS interrupt vector.
  736.     push bx
  737.     pop es
  738.     mov es:word ptr .100h,offset int100
  739.     mov es:word ptr .102h,cs
  740. ;
  741. ;
  742.     call cmblnk        ; Clear screen.
  743.     call locate
  744.  
  745.  
  746.         mov ah,prstr            ; Print the version header.
  747.         mov dx,offset versio
  748.         int dos
  749.  
  750.         mov ah,setdma           ; Set disk transfer address.
  751.         mov dx,offset buff
  752.         int dos
  753.  
  754. IF SIRIUS
  755.     push bx
  756.     mov bx,hware
  757.     push bx
  758.     pop es
  759.     mov bl,bset
  760.     mov es:byte ptr .btimer,bl
  761.     mov bx,B1200
  762.     mov es:byte ptr .brate,bh
  763.     mov es:byte ptr .brate,bl        ; Initial baud rate is 1200.
  764.      mov es:byte ptr .mpstat,crst        ; Initialize port.
  765.     mov es:byte ptr .mpstat,02h
  766.      mov es:byte ptr .mpstat,nvnd
  767.      mov es:byte ptr .mpstat,04h
  768.      mov es:byte ptr .mpstat,a1snp
  769.      mov es:byte ptr .mpstat,03h
  770.      mov es:byte ptr .mpstat,re8b
  771.      mov es:byte ptr .mpstat,05h
  772.      mov es:byte ptr .mpstat,te8b
  773.     pop bx
  774. ENDIF
  775. IF ibmpc
  776.         mov dx,mdmcom           ; LCR -- Initialize baud rate.
  777.         in al,dx
  778.         mov bl,al
  779.         or ax,80H
  780.         out dx,al
  781.         mov dx,mdmdat
  782.         mov ax,baud
  783.         out dx,al
  784.         inc dx
  785.         mov al,ah
  786.         out dx,al
  787.         mov dx,mdmcom
  788.         mov al,bl
  789.         out dx,al
  790. ENDIF
  791. IF Z100
  792.         mov bx,ds               ; Set up pointer to config info
  793.         mov es,bx               ;  .  .  .
  794.         mov bx,offset auxcnf    ;  .  .  .
  795.         mov ah,chr_status       ; Get the function code
  796.         mov al,chr_sfgc         ; And the subfunction to get config
  797.         call bios_auxfunc       ; Get the block
  798. ENDIF
  799.  
  800. ; This is the main KERMIT loop.  It prompts for and gets the users commands.
  801.  
  802. kermit: mov dx,offset kerm
  803.         call prompt             ; Prompt the user.
  804.         mov dx,offset comtab
  805.         mov bx,offset tophlp
  806.         mov ah,cmkey
  807.         call comnd
  808.          jmp kermt2
  809.         call bx                 ; Call the routine returned.
  810.          jmp kermt3
  811.         cmp extflg,0            ;  Check if the exit flag is set.
  812.         jne krmend              ;  If so jump to KRMEND.
  813.         jmp kermit              ; Do it again.
  814.  
  815. kermt2: mov ah,prstr
  816.         mov dx,offset ermes1    ;  Give an error.
  817.         int dos
  818.         jmp kermit
  819.  
  820. kermt3: mov ah,prstr
  821.         mov dx,offset ermes3    ;  Give an error.
  822.         int dos
  823.         jmp kermit
  824.  
  825. krmend: 
  826.         mov ax,oldsts           ; Restore the old stack.
  827.         mov ss,ax
  828.         mov sp,oldstk
  829.     mov dl,0    ; System reset
  830.     mov ah,0
  831.     int dos
  832.  
  833. ;START   ENDP
  834.  
  835.  
  836. ; These are some utility routines.
  837. ;
  838. ;    Interrupt 40h. Points at BDOS with correct registers.
  839. ;    Save register values to simulate MS-DOS calls.
  840. ;    Only works for subset of DOS calls. ***********************
  841. ;
  842. int100:    push cx
  843.     push bx
  844.     push es
  845.     mov cl,ah
  846.     int bdos
  847.     pop es
  848.     pop bx
  849.     pop cx
  850.     iret
  851.  
  852.  
  853. ;       Abort
  854.  
  855. ;ABORT   PROC    NEAR
  856. ABORT:
  857.         mov state,'A'           ; Otherwise abort.
  858.         ret
  859. ;ABORT   ENDP
  860.  
  861. ;       NAK
  862.  
  863. ;NAK     PROC    NEAR
  864. NAK:
  865.         mov ax,pktnum           ; Get the packet number we're waiting for.
  866.         mov argblk,ax
  867.         mov argbk1,0
  868.         mov ah,'N'              ; NAK that packet.
  869.         call spack
  870.          jmp abort
  871.         ret                     ; Go around again.
  872. ;NAK     ENDP
  873.  
  874. ; Position cursor for an error message.
  875.  
  876. ;ERPOS   PROC    NEAR
  877. ERPOS:
  878. IF ibmpc
  879.         mov ah,2
  880.         mov bh,0
  881.         mov dx,screrr
  882.         int bios
  883.         ret
  884. ENDIF
  885. IF Z100 OR SIRIUS
  886.         mov dx,offset screrr    ; Get address of string to position cursor
  887.         mov ah,prstr            ; Get the function code
  888.         int dos                 ; Print the addressing string
  889.         ret                     ; And return
  890. ENDIF
  891. ;ERPOS   ENDP
  892.  
  893. ; Position cursor for number of retries message.
  894.  
  895. ;RTPOS   PROC    NEAR
  896. RTPOS:
  897. IF ibmpc
  898.         mov ah,2
  899.         mov bh,0
  900.         mov dx,scrnrt
  901.         int bios
  902.         ret
  903. ENDIF
  904. IF Z100 OR SIRIUS
  905.         mov ah,prstr            ; Get the function to print string
  906.         mov dx,offset scrnrt    ; Get the address of the string
  907.         int dos                 ; Print the string
  908.         ret                     ; And return
  909. ENDIF
  910. ;RTPOS   ENDP
  911.  
  912. ; Print err message that found a non-standard-Ascii char in the file.
  913.  
  914. ;BITERR  PROC    NEAR
  915. BITERR:
  916.         push bx
  917. IF ibmpc
  918.         mov ah,2
  919.         mov bh,0
  920.         mov dx,scrhi
  921.         int bios
  922. ENDIF
  923. IF Z100 OR SIRIUS
  924.         mov ah,prstr            ; Get the function to print string
  925.         mov dx,offset scrhi     ; Get the address of the string
  926.         int dos                 ; Print the string
  927. ENDIF
  928.         mov ah,prstr
  929.         mov dx,offset hibit
  930.         int dos
  931.         pop bx
  932.         ret
  933. ;BITERR  ENDP            
  934.  
  935. ;       This routine prints out the escape character in readable format.  
  936.  
  937. ;ESCPRT  PROC    NEAR
  938. ESCPRT:
  939.         mov dl,escchr
  940.         cmp dl,' '
  941.         jge escpr2
  942.         push dx
  943.         mov ah,prstr
  944.         mov dx,offset esctl
  945.         int dos
  946.         pop dx
  947.         add dl,040H             ; Make it printable.
  948. escpr2: mov ah,conout
  949.         int dos
  950.         ret
  951. ;ESCPRT  ENDP
  952.  
  953. ;       FCB must be remembered if found "*" in filename.
  954. ;       Copy from place addressed by BX to place addressed by DI.
  955. ;       Also use to get the filename to the FCB from the DTA.
  956.  
  957. ;FCBCPY  PROC    NEAR
  958. FCBCPY:
  959. fcbcp1: cmp cl,0
  960.         je fcbcp2
  961.         mov ah,[bx]
  962.         mov [di],ah
  963.         dec cl
  964.         inc bx
  965.         inc di
  966.         jmp fcbcp1
  967. fcbcp2: ret
  968. ;FCBCPY  ENDP    
  969.  
  970. ;       This routine sets up the data for init packet (either the
  971. ;       Send_init or ACK packet).
  972.  
  973. ;RPAR    PROC    NEAR
  974. RPAR:
  975.         mov ah,rpsiz            ; Get the receive packet size.
  976.         add ah,' '              ; Add a space to make it printable.
  977.         mov [bx],ah             ; Put it in the packet.
  978.         mov ah,rtime            ; Get the receive packet time out.
  979.         add ah,' '              ; Add a space.
  980.         mov 1[bx],ah            ; Put it in the packet.
  981.         mov ah,rpad             ; Get the number of padding chars.
  982.         add ah,' '
  983.         mov 2[bx],ah            ; Put it in the packet.
  984.         mov ah,rpadch           ; Get the padding char.
  985.         add ah,100O             ; Uncontrol it.
  986.         and ah,7FH
  987.         mov 3[bx],ah            ; Put it in the packet.
  988.         mov ah,reol             ; Get the EOL char.
  989.         add ah,' '
  990.         mov 4[bx],ah            ; Put it in the packet.
  991.         mov ah,rquote           ; Get the quote char.
  992.         mov 5[bx],ah            ; Put it in the packet.
  993.         mov ah,06H              ; Six pieces of data.
  994.         ret
  995. ;RPAR    ENDP
  996.  
  997. ;       This routine reads in all the send_init packet information.
  998.  
  999. ;SPAR    PROC    NEAR
  1000. SPAR:
  1001.         mov temp4,ax            ; Save the number of arguments.
  1002.         mov ah,[bx]             ; Get the max packet size.
  1003.         sub ah,' '              ; Subtract a space.
  1004.         mov spsiz,ah            ; Save it.
  1005.         mov ax,temp4
  1006.         cmp al,3                ; Fewer than three pieces?
  1007.         jge spar1
  1008.         ret                     ; If so we are done.
  1009. spar1:  mov ah,2[bx]            ; Get the number of padding chars.
  1010.         sub ah,' '
  1011.         mov spad,ah
  1012.         mov ax,temp4
  1013.         cmp al,4                ; Fewer than four pieces?
  1014.         jge spar2
  1015.         ret                     ; If so we are done.
  1016. spar2:  mov ah,3[bx]            ; Get the padding char.
  1017.         add ah,100O             ; Re-controlify it.
  1018.         and ah,7FH
  1019.         mov spadch,ah
  1020.         mov ax,temp4
  1021.         cmp al,5                ; Fewer than five pieces?
  1022.         jge spar3
  1023.         ret                     ; If so we are done.
  1024. spar3:  mov ah,4[bx]            ; Get the EOL char.
  1025.         sub ah,' '
  1026.         mov seol,ah
  1027.         mov ax,temp4
  1028.         cmp al,6                ; Fewer than six pieces?
  1029.         jge spar4
  1030.         ret                     ; If so we are done.
  1031. spar4:  mov ah,5[bx]            ; Get the quote char.
  1032.         mov squote,ah
  1033.         ret
  1034. ;SPAR    ENDP
  1035.  
  1036.  
  1037. ;       Initialize buffers and clear line.
  1038.  
  1039. ;INIT    PROC    NEAR
  1040. INIT:
  1041.         call cmblnk
  1042.         call locate
  1043.         mov ah,prstr            ; Put statistics headers on the screen.
  1044.         mov dx,offset outlin
  1045.         int dos
  1046.         call init1
  1047.         ret
  1048. ;INIT    ENDP
  1049.  
  1050. ;INIT1   PROC    NEAR
  1051. INIT1:
  1052.         mov chrcnt,bufsiz       ;* Number of chars left.
  1053.         mov bufpnt,offset buff         ; Addr for beginning.
  1054.         ret
  1055. ;INIT1   ENDP
  1056.  
  1057. ;  Clear out the old filename on the screen. 
  1058.  
  1059. ;CLRFLN  PROC    NEAR
  1060. CLRFLN:
  1061. IF ibmpc
  1062.         mov ah,2
  1063.         mov bh,0
  1064.         mov dx,scrfln
  1065.         int bios
  1066.         mov ax,0920H                    ; Clear out the old filename.
  1067.         mov bx,7
  1068.         mov cx,12
  1069.         int bios
  1070.         ret
  1071. ENDIF
  1072. IF Z100 OR SIRIUS
  1073.         mov ah,prstr            ; Get print string function
  1074.         mov dx,offset scrfln    ; and string to move cursor
  1075.         int dos                 ; Print the string
  1076.         mov ah,prstr            ; Get the function again
  1077.         mov dx,offset clreol    ; And the sequence to clear to EOL
  1078.         int dos                 ; Do it
  1079.         ret                     ; And return
  1080. ENDIF
  1081. ;CLRFLN  ENDP
  1082.  
  1083. ;  Put received packet number on screen.    [2]
  1084. ;
  1085. PNSCR:
  1086. IF ibmpc
  1087.         mov ah,2
  1088.         mov dx,scrnp
  1089.         mov bh,0
  1090.         int bios
  1091. ENDIF
  1092. IF Z100 OR SIRIUS
  1093.         mov ah,prstr            ; Get print string function
  1094.         mov dx,offset scrnp     ; and string to move cursor
  1095.         int dos                 ; Print the string
  1096. ENDIF
  1097.         mov ax,numpkt
  1098.         call nout               ; Write the number of packets.
  1099.     ret
  1100.  
  1101. ;       RECEIVE command
  1102.  
  1103. ;READ    PROC    NEAR
  1104. READ:
  1105.         mov bx,offset data      ; Where to put text (if any).
  1106.     mov dx,offset rechlp    ; Help message.
  1107.         mov ah,cmtxt
  1108.         call comnd              ; Get text or confirm.
  1109.          jmp kermt3
  1110.         cmp ah,0                ; Read in any chars?
  1111.         je read1                ; A regular receive.
  1112.         mov al,ah
  1113.         mov ah,0
  1114.         mov argbk1,ax           ; Remember number of chars we read.
  1115.         mov ah,'$'              ; Use for printing.
  1116.         mov [bx],ah
  1117.         call init               ; Clear line and initialize buffers.
  1118.         call clrfln             ; Prepare to print filename.
  1119.         mov ah,prstr
  1120.         mov dx,offset data      ; Print file name.
  1121.         int dos
  1122.         mov argblk,0            ; Start at packet zero.
  1123.         mov ah,'R'              ; Receive init packet.
  1124.         call spack              ; Send the packet.
  1125.          jmp kermt3
  1126.         jmp read12
  1127. read1:  call init               ; Clear the line and initialize the buffers.
  1128. read12: mov numpkt,0            ; Set the number of packets to zero.
  1129.         mov numrtr,0            ; Set the number of retries to zero.
  1130.         mov pktnum,0            ; Set the packet number to zero.
  1131.         mov numtry,0            ; Set the number of tries to zero.
  1132.     call pnscr        ; Print packet no.
  1133.         call rtpos              ; Position cursor.
  1134.         mov ax,numrtr
  1135.         call nout               ; Write the number of retries.
  1136.         mov state,'R'           ; Set the state to receive initiate.
  1137. read2:  
  1138. ;IF ibmpc
  1139. ;        mov ah,2                ; Position cursor.
  1140. ;        mov dx,scrst
  1141. ;        mov bh,0
  1142. ;        int bios
  1143. ;ENDIF
  1144. ;IF Z100 OR SIRIUS         ; [2 start] Don't print status.
  1145. ;        mov ah,prstr            ; Get print string function
  1146. ;        mov dx,offset scrst     ; and string to move cursor
  1147. ;        int dos                 ; Print the string
  1148. ;ENDIF
  1149. ;        mov ah,prstr            ; Be informative.
  1150. ;        mov dx,offset infms1
  1151. ;        int dos         ; [2 end]
  1152.         mov ah,state            ; Get the state.
  1153.         cmp ah,'D'              ; Are we in the data send state?
  1154.         jne read3
  1155.         call rdata
  1156.         jmp read2
  1157. read3:  cmp ah,'F'              ; Are we in the file receive state?
  1158.         jne read4
  1159.         call rfile              ; Call receive file.
  1160.         jmp read2
  1161. read4:  cmp ah,'R'              ; Are we in the receive initiate state?
  1162.         jne read5
  1163.         call rinit
  1164.         jmp read2
  1165. read5:  cmp ah,'C'              ; Are we in the receive complete state?
  1166.         jne read6
  1167. IF ibmpc
  1168.         mov ah,2                ; Position cursor.
  1169.         mov dx,scrst
  1170.         mov bh,0
  1171.         int bios
  1172. ENDIF
  1173. IF Z100 OR SIRIUS
  1174.         mov ah,prstr            ; Get print string function
  1175.         mov dx,offset scrst     ; and string to move cursor
  1176.         int dos                 ; Print the string
  1177. ENDIF
  1178.         mov ah,prstr
  1179.         mov dx,offset infms3    ; Plus a little cuteness.
  1180.         int dos
  1181.     mov ah,prstr
  1182.         mov dx,offset ender     ; Ring them bells.
  1183.         int dos
  1184. IF ibmpc
  1185.         mov ah,2
  1186.         mov dx,scrrpr           ; Put prompt here.
  1187.         mov bh,0
  1188.         int bios
  1189. ENDIF
  1190. IF Z100 OR SIRIUS
  1191.         mov ah,prstr            ; Get print string function
  1192.         mov dx,offset scrrpr    ; and string to move cursor
  1193.         int dos                 ; Print the string
  1194. ENDIF
  1195.         jmp rskp
  1196. read6:  
  1197. IF ibmpc
  1198.         mov ah,2                ; Position cursor.
  1199.         mov dx,scrst
  1200.         mov bh,0
  1201.         int bios
  1202. ENDIF
  1203. IF Z100 OR SIRIUS
  1204.         mov ah,prstr            ; Get print string function
  1205.         mov dx,offset scrst     ; and string to move cursor
  1206.         int dos                 ; Print the string
  1207. ENDIF
  1208.         mov ah,prstr
  1209.         mov dx,offset infms4    ; Plus a little cuteness.
  1210.         int dos
  1211.     mov ah,prstr
  1212.         mov dx,offset ender     ; Ring them bells.
  1213.         int dos
  1214. IF ibmpc
  1215.         mov ah,2
  1216.         mov dx,scrrpr
  1217.         mov bh,0
  1218.         int bios
  1219. ENDIF
  1220. IF Z100 OR SIRIUS
  1221.         mov ah,prstr            ; Get print string function
  1222.         mov dx,offset scrrpr    ; and string to move cursor
  1223.         int dos                 ; Print the string
  1224. ENDIF
  1225.         jmp rskp
  1226. ;READ    ENDP
  1227.  
  1228.  
  1229. ;       Receive routines
  1230.  
  1231. ;       Receive init
  1232.  
  1233. ;RINIT   PROC    NEAR
  1234. RINIT:
  1235.         mov ah,numtry           ; Get the number of tries.
  1236.         cmp ah,imxtry           ; Have we reached the maximum number of tries?
  1237.         jl rinit2
  1238.         call erpos              ; Position cursor.
  1239.         mov dx,offset ermes7
  1240.         mov ah,prstr
  1241.         int dos                 ; Print an error message.
  1242.         jmp abort               ; Change the state to abort.
  1243. rinit2: inc ah                  ; Increment it.
  1244.         mov numtry,ah           ; Save the updated number of tries.
  1245.         call rpack              ; Get a packet.
  1246.          jmp nak                ;  Trashed packet: nak, retry.
  1247.         cmp ah,'S'              ; Is it a send initiate packet?
  1248.         jne rinit3              ; If not see if its an error.
  1249.         mov ah,numtry           ; Get the number of tries.
  1250.         mov oldtry,ah           ; Save it.
  1251.         mov numtry,0            ; Reset the number of tries.
  1252.         mov ax,argblk           ; Returned packet number.  (Synchronize them.)
  1253.         inc ax                  ; Increment it.
  1254.         and ax,3FH              ; Turn off the two high order bits.
  1255.         mov pktnum,ax           ; Save modulo 64 of the number.
  1256.         mov bx,numpkt
  1257.         inc bx                  ; Increment the number of packets.
  1258.         mov numpkt,bx
  1259.         mov ax,argbk1           ; Get the number of arguments received.
  1260.         mov bx,offset data      ; Get a pointer to the data.
  1261.         call spar               ; Get the data into the proper variables.
  1262.         mov bx,offset data      ; Get a pointer to our data block.
  1263.         call rpar               ; Set up the receive parameters.
  1264.         xchg ah,al
  1265.         mov ah,0
  1266.         mov argbk1,ax           ; Store the returned number of arguments.
  1267.     call pnscr        ; [2] B.D. Print packet no.
  1268.         mov ah,'Y'              ; Acknowledge packet.
  1269.         call spack              ; Send the packet.
  1270.          jmp abort
  1271.         mov ah,'F'              ; Set the state to file send.
  1272.         mov state,ah
  1273.         ret
  1274. rinit3: cmp ah,'E'              ; Is it an error packet?
  1275.         jne rinit4
  1276.         call error
  1277. rinit4: jmp abort
  1278. ;RINIT   ENDP
  1279.  
  1280.  
  1281. ;       Receive file
  1282.  
  1283. ;RFILE   PROC    NEAR
  1284. RFILE:
  1285.         cmp numtry,maxtry       ; Have we reached the maximum number of tries?
  1286.         jl rfile1
  1287.         call erpos              ; Position cursor.
  1288.         mov dx,offset ermes8
  1289.         mov ah,prstr
  1290.         int dos                 ; Print an error message.
  1291.         jmp abort               ; Change the state to abort.
  1292. rfile1: inc numtry              ; Save the updated number of tries.
  1293.         call rpack              ; Get a packet.
  1294.          jmp nak                ;  Trashed packet: nak, retry.
  1295.         cmp ah,'S'              ; Is it a send initiate packet?
  1296.         jne rfile2              ;  No, try next type.
  1297.         cmp oldtry,imxtry       ; Have we reached the maximum number of tries?
  1298.         jl rfil12               ; If not proceed.
  1299.         call erpos              ; Position cursor.
  1300.         mov dx,offset ermes7
  1301.         mov ah,prstr
  1302.         int dos                 ; Print an error message.
  1303.         jmp abort               ; Change the state to abort.
  1304. rfil12: inc oldtry              ; Save the updated number of tries.
  1305.         mov ax,pktnum           ; Get the present packet number.
  1306.         dec ax                  ; Decrement.
  1307.         cmp ax,argblk           ; Is the packet's number one less than now?
  1308.         je rfil13
  1309.         jmp nak                 ; No, NAK and try again.
  1310. rfil13: call rtpos              ; Position cursor.
  1311.         inc numrtr              ; Increment the number of retries.
  1312.         mov ax,numrtr
  1313.         call nout               ; Write the number of retries.
  1314.         mov numtry,0            ; Reset the number of tries.
  1315.         mov bx,offset data      ; Get a pointer to our data block.
  1316.         call rpar               ; Set up the parameter information.
  1317.         xchg ah,al
  1318.         mov ah,0
  1319.         mov argbk1,ax           ; Save the number of arguments.
  1320.     call pnscr        ; [2] B.D. Print packet no.
  1321.         mov ah,'Y'              ; Acknowledge packet.
  1322.         call spack              ; Send the packet.
  1323.          jmp abort
  1324.         ret
  1325. rfile2: cmp ah,'Z'              ; Is it an EOF packet?
  1326.         jne rfile3              ;  No, try next type.
  1327.         cmp oldtry,maxtry       ; Have we reached the maximum number of tries?
  1328.         jl rfil21               ; If not proceed.
  1329.         call erpos              ; Position cursor.
  1330.         mov dx,offset ermes9
  1331.         mov ah,prstr
  1332.         int dos                 ; Print an error message.
  1333.         jmp abort               ; Change the state to abort.
  1334. rfil21: inc oldtry              ; Increment it.
  1335.         mov ax,pktnum           ; Get the present packet number.
  1336.         dec ax                  ; Decrement.
  1337.         cmp ax,argblk           ; Is the packet's number one less than now?
  1338.         je rfil24
  1339.         jmp nak                 ; No, NAK and try again.
  1340. rfil24: call rtpos              ; Position cursor.
  1341.         inc numrtr              ; Increment the number of retries
  1342.         mov ax,numrtr
  1343.         call nout               ; Write the number of retries.
  1344.         mov numtry,0
  1345.         mov argbk1,0            ; No data.  (The packet number is in argblk.)
  1346.     call pnscr        ; [2] B.D. Print packet no.
  1347.         mov ah,'Y'              ; Acknowledge packet.
  1348.         call spack              ; Send the packet.
  1349.          jmp abort
  1350.         ret
  1351. rfile3: cmp ah,'F'              ; Start of file?
  1352.         jne rfile4
  1353.         mov ax,argblk           ; Get the packet number.
  1354.         cmp ax,pktnum           ; Is it the right packet number?
  1355.         je rfil32
  1356.         jmp nak                 ; No, NAK it and try again.
  1357. rfil32: inc ax                  ; Increment the packet number.
  1358.         and ax,3FH              ; Turn off the two high order bits.
  1359.         mov pktnum,ax           ; Save modulo 64 of the number.
  1360.         inc numpkt              ; Increment the number of packets.
  1361.         call gofil              ; Get a file to write to.
  1362.          jmp abort
  1363.         call init1              ; Initialize all the buffers.
  1364.         mov ah,numtry           ; Get the number of tries.
  1365.         mov oldtry,ah           ; Save it.
  1366.         mov numtry,0            ; Reset the number of tries.
  1367.         mov argbk1,0            ; No data.  (The packet number is in argblk.)
  1368.     call pnscr        ; [2] B.D. Print packet no.
  1369.         mov ah,'Y'              ; Acknowledge packet.
  1370.         call spack              ; Send the packet.
  1371.          jmp abort
  1372.         mov state,'D'           ; Set the state to data receive.
  1373.         ret
  1374. rfile4: cmp ah,'B'              ; End of transmission.
  1375.         jne rfile5
  1376.         mov ax,pktnum
  1377.         cmp ax,argblk           ; Do we match?
  1378.         je rfil41
  1379.         jmp nak                 ; No, NAK it and try again.
  1380. rfil41: mov argbk1,0            ; No data.  (Packet number already in argblk).
  1381.     call pnscr        ; [2] B.D. Print packet no.
  1382.         mov ah,'Y'              ; Acknowledge packet.
  1383.         call spack              ; Send the packet.
  1384.          jmp abort
  1385.         mov state,'C'           ; Set the state to complete.
  1386.         ret
  1387. rfile5: cmp ah,'E'              ; Is it an error packet.
  1388.         jne rfile6
  1389.         call error
  1390. rfile6: jmp abort
  1391. ;RFILE   ENDP
  1392.  
  1393.  
  1394. ;       Receive data
  1395.  
  1396. ;RDATA   PROC    NEAR
  1397. RDATA:
  1398.         cmp numtry,maxtry       ; Get the number of tries.
  1399.         jl rdata1
  1400.         call erpos              ; Position cursor.
  1401.         mov dx,offset erms10
  1402.         mov ah,prstr
  1403.         int dos                 ; Print an error message.
  1404.         jmp abort               ; Change the state to abort.
  1405. rdata1: inc numtry              ; Save the updated number of tries.
  1406.         call rpack              ; Get a packet.
  1407.          jmp nak                ;  Trashed packet: nak, retry.
  1408.         cmp ah,'D'              ; Is it a data packet?
  1409.         je rdat11
  1410.         jmp rdata2              ;  No, try next type.
  1411. rdat11: mov ax,pktnum           ; Get the present packet number.
  1412.         cmp ax,argblk           ; Is the packet's number correct?
  1413.         jz rdat14
  1414.         cmp oldtry,maxtry       ; Have we reached the maximum number of tries?
  1415.         jl rdat12               ; If not proceed.
  1416.         call erpos              ; Position cursor.
  1417.         mov dx,offset erms10
  1418.         mov ah,prstr
  1419.         int dos                 ; Print an error message.
  1420.         jmp abort               ; Change the state to abort.
  1421. rdat12: inc oldtry              ; Save the updated number of tries.
  1422.         dec pktnum              ; Decrement present packet number.
  1423.         mov ax,pktnum
  1424.         cmp ax,argblk           ; Is the packet's number one less than now?
  1425.         je rdat13
  1426.         jmp nak                 ; No, NAK it and try again.
  1427. rdat13: call rtpos              ; Position cursor.
  1428.         inc numrtr              ; Increment the number of retries
  1429.         mov ax,numrtr
  1430.         call nout               ; Write the number of retries.
  1431.         mov numtry,0            ; Reset number of tries.
  1432.         mov argbk1,0            ; No data.  (The packet number is in argblk.)
  1433.     call pnscr        ; [2] B.D. Print packet no.
  1434.         mov ah,'Y'              ; Acknowledge packet.
  1435.         call spack              ; Send the packet.
  1436.          jmp abort
  1437.         ret
  1438. rdat14: inc ax                  ; Increment the packet number.
  1439.         and ax,3FH              ; Turn off the two high order bits.
  1440.         mov pktnum,ax           ; Save modulo 64 of the number.
  1441.         inc numpkt              ; Increment the number of packets.
  1442.         mov ah,numtry           ; Get the number of tries.
  1443.         mov oldtry,ah           ; Save it.
  1444.         mov ax,argbk1           ; Get the length of the data.
  1445.         call ptchr
  1446.          jmp abort              ;  Unable to write out chars; abort.
  1447.         mov numtry,0            ; Reset the number of tries.
  1448.         mov argbk1,0            ; No data.  (Packet number still in argblk.)
  1449.     call pnscr        ; [2] B.D. Print packet no.
  1450.         mov ah,'Y'              ; Acknowledge packet.
  1451.         call spack              ; Send the packet.
  1452.          jmp abort
  1453.         ret
  1454. rdata2: cmp ah,'F'              ; Start of file?
  1455.         jne rdata3              ;  No, try next type.
  1456.         cmp oldtry,maxtry       ; Have we reached the maximum number of tries?
  1457.         jl rdat21               ; If not proceed.
  1458.         call erpos              ; Position cursor.
  1459.         mov dx,offset ermes8
  1460.         mov ah,prstr
  1461.         int dos                 ; Print an error message.
  1462.         jmp abort               ; Change the state to abort.
  1463. rdat21: inc oldtry              ; Save the updated number of tries.
  1464.         mov ax,pktnum
  1465.         cmp ax,argblk           ; Is the packet's number one less than now?
  1466.         je rdat22
  1467.         jmp nak                 ; No, NAK it and try again.
  1468. rdat22: call rtpos              ; Position cursor.
  1469.         inc numrtr              ; Increment the number of retries
  1470.         mov ax,numrtr
  1471.         call nout               ; Write the number of retries.
  1472.         mov numtry,0            ; Reset number of tries.
  1473.         mov argbk1,0            ; No data.  (The packet number is in argblk.)
  1474.     call pnscr        ; [2] B.D. Print packet no.
  1475.         mov ah,'Y'              ; Acknowledge packet.
  1476.         call spack              ; Send the packet.
  1477.          jmp abort
  1478.         ret
  1479. rdata3: cmp ah,'Z'              ; Is it a EOF packet?
  1480.         je rdat3x
  1481.         jmp rdata4               ; Try and see if its an error.
  1482. rdat3x: mov ax,pktnum           ; Get the present packet number.
  1483.         cmp ax,argblk           ; Is the packet's number correct?
  1484.         je rdat32
  1485.         jmp nak                 ; No, NAK it and try again.
  1486. rdat32: inc ax                  ; Increment the packet number.
  1487.         and ax,3FH              ; Turn off the two high order bits.
  1488.         mov pktnum,ax           ; Save modulo 64 of the number.
  1489.         inc numpkt
  1490. rdat33: mov bx,bufpnt           ; Get the dma pointer.
  1491.         mov ax,80H
  1492.         sub ax,chrcnt           ; Get the number of chars left in the DMA.
  1493.         cmp ax,80H
  1494.         jne rdat34
  1495.         call outbuf             ; Write out buffer if no room for ^Z.
  1496.          jmp abort
  1497.         mov ax,0  
  1498. rdat34: mov cl,'Z'-100O         ; Put in a ^Z for EOF.
  1499.         mov [bx],cl
  1500.         inc ax
  1501.         dec chrcnt
  1502.         mov cx,chrcnt
  1503.         mov temp,cx
  1504.         inc bx
  1505. rdt3:   inc ax
  1506.         cmp ax,80H
  1507.         jg rdat35               ; Pad till full.
  1508.         mov cl,0                ; Use nulls.
  1509.         mov [bx],cl
  1510.         inc bx
  1511.         jmp rdt3
  1512. rdat35: call outbuf             ; Output the last buffer.
  1513.          jmp abort              ;  Give up if the disk is full.
  1514. ;       call fixfcb        ; *** MS-DOS only ***
  1515.         mov ah,closf            ; Close up the file.
  1516.         mov dx,offset fcb
  1517.         int dos
  1518.         mov ah,numtry           ; Get the number of tries.
  1519.         mov oldtry,ah           ; Save it.
  1520.         mov numtry,0            ; Reset the number of tries.
  1521.         mov argbk1,0            ; No data.  (The packet number is in argblk.)
  1522.     call pnscr        ; [2] B.D. Print packet no.
  1523.         mov ah,'Y'              ; Acknowledge packet.
  1524.         call spack              ; Send the packet.
  1525.          jmp abort
  1526.         mov state,'F'
  1527.         ret
  1528. rdata4: cmp ah,'E'                      ; Is it an error packet.
  1529.         jne rdata5
  1530.         call error
  1531. rdata5: jmp abort
  1532. ;RDATA   ENDP
  1533.  
  1534. ;FIXFCB  PROC    NEAR    
  1535. FIXFCB:
  1536.         mov bx,offset fcb+18
  1537.         mov di,offset filsiz
  1538.         mov ax,[bx]
  1539.         mov [di],ax
  1540.         mov bx,offset fcb+16
  1541.         mov ax,[bx]
  1542.         mov 2[di],ax
  1543.         mov ax,temp             ; Get number of chars in last buffer full.
  1544.         sub filsiz+2,ax         ; Get real file size.
  1545.         sbb filsiz,0
  1546.         mov bx,offset fcb+18
  1547.         mov di,offset filsiz
  1548.         mov ax,[di]
  1549.         mov [bx],ax
  1550.         mov bx,offset fcb+16
  1551.         mov ax,2[di]
  1552.         mov [bx],ax
  1553.         ret
  1554. ;FIXFCB  ENDP
  1555.  
  1556.  
  1557. ;       Send command
  1558.  
  1559. ;SEND    PROC    NEAR
  1560. SEND:
  1561.         mov ah,cmifi            ; Parse an input file spec.
  1562.         mov dx,offset fcb       ; Give the address for the FCB.
  1563.         call comnd
  1564.          jmp r                  ;  Give up on bad parse.
  1565. send1:  mov ah,cmcfm
  1566.         call comnd              ; Get a confirm.
  1567.          jmp r                  ;  Didn't get a confirm.
  1568. send11: mov ah,sfirst           ; Get the first file.
  1569.         mov dx,offset fcb
  1570.         int dos
  1571.         cmp al,0FFH             ; Any found?
  1572.         jne send12
  1573.         mov ah,prstr        ; Complain about no files found
  1574.         mov dx,offset crlf
  1575.         int dos
  1576.         mov ah,prstr
  1577.         mov dx,offset erms15
  1578.         int dos
  1579.         ret
  1580. send14:    call erpos        ; Tell that too many files match [3 start]
  1581.     mov ah,prstr        ; wildcard spec.
  1582.     mov dx,offset erms20
  1583.     int dos
  1584.     jmp send15
  1585. send12: cmp wldflg,0        ; Wildcard?
  1586.         je send16
  1587. send13:    rol al,1        ; Get offset into DMA buffer
  1588.     rol al,1
  1589.     rol al,1
  1590.     rol al,1
  1591.     rol al,1
  1592.     mov bx,ax
  1593.     add bx,offset buff
  1594.     mov si,offset fcb
  1595.     mov al,[si]
  1596.     mov [bx],al        ; Copy in disk name given in command.
  1597.     mov al,fcbnum
  1598.     cmp al,maxfil        ; Have we reached the max. number of files?
  1599.     jg send14
  1600.     mov cl,6        ; If not, copy from DMA buffer into
  1601.     rol al,cl        ; next slot in FCB storage area.
  1602.     mov di,offset fcbblk
  1603.     add di,ax
  1604.     mov cl,24H
  1605.     call fcbcpy
  1606.     inc fcbnum
  1607.     mov ah,snext        ; Get the next FCB
  1608.     mov dx,offset fcb
  1609.     int dos
  1610.     cmp al,0ffH        ; Any more files match wildcard?
  1611.     jne send13        ; If so, get next                [3 end]
  1612. send15:    dec fcbnum        ; We are ready to process first file,
  1613.     mov bx,offset fcbblk    ; so fetch it's FCB from storage.
  1614.     mov al,fcbnum
  1615.     mov cl,6
  1616.     rol al,cl
  1617.     mov ah,0
  1618.     add bx,ax
  1619.     mov di,offset fcb
  1620.     mov cl,24H
  1621.         call fcbcpy
  1622. send16: call init               ; Clear the line and initialize the buffers.
  1623.         mov pktnum,0            ; Set the packet number to zero.
  1624.         mov numtry,0            ; Set the number of tries to zero.
  1625.         mov numpkt,0            ; Set the number of packets to zero.
  1626.         mov numrtr,0            ; Set the number of retries to zero.
  1627.         call rtpos              ; Position cursor.
  1628.         mov ax,0
  1629.         call nout               ; Write the number of retries.
  1630.         mov state,'S'           ; Set the state to receive initiate.
  1631. send2:  
  1632. ;IF ibmpc             ; [2 start] B.D. 
  1633. ;        mov ah,2                ; Position cursor.
  1634. ;        mov bh,0
  1635. ;        mov dx,scrst
  1636. ;        int bios
  1637. ;ENDIF
  1638. ;IF Z100 OR SIRIUS
  1639. ;        mov ah,prstr            ; Get print string function
  1640. ;        mov dx,offset scrst     ; and string to move cursor
  1641. ;        int dos                 ; Print the string
  1642. ;ENDIF
  1643. ;        mov ah,prstr            ; Be informative.
  1644. ;        mov dx,offset infms2
  1645. ;        int dos         ; [2 end] B.D.
  1646. IF ibmpc
  1647.         mov ah,2
  1648.         mov dx,scrnp
  1649.         mov bh,0
  1650.         int bios
  1651. ENDIF
  1652. IF Z100 OR SIRIUS
  1653.         mov ah,prstr            ; Get print string function
  1654.         mov dx,offset scrnp     ; and string to move cursor
  1655.         int dos                 ; Print the string
  1656. ENDIF
  1657.         mov ax,numpkt
  1658.         call nout               ; Write the packet number.
  1659.         cmp state,'D'           ; Are we in the data send state?
  1660.         jne send3
  1661.         call sdata
  1662.         jmp send2
  1663. send3:  cmp state,'F'           ; Are we in the file send state?
  1664.         jne send4
  1665.         call sfile              ; Call send file.
  1666.         jmp send2
  1667. send4:  cmp state,'Z'           ; Are we in the EOF state?
  1668.         jne send5
  1669.         call seof
  1670.         jmp send2
  1671. send5:  cmp state,'S'           ; Are we in the send initiate state?
  1672.         jne send6
  1673.         call sinit
  1674.         jmp send2
  1675. send6:  cmp state,'B'           ; Are we in the eot state?
  1676.         jne send7
  1677.         call seot
  1678.         jmp send2
  1679. send7:  cmp state,'C'           ; Are we in the send complete state?
  1680.         jne send8
  1681. IF ibmpc
  1682.         mov ah,2                ; Position cursor.
  1683.         mov dx,scrst
  1684.         mov bh,0
  1685.         int bios
  1686. ENDIF
  1687. IF Z100 OR SIRIUS
  1688.         mov ah,prstr            ; Get print string function
  1689.         mov dx,offset scrst     ; and string to move cursor
  1690.         int dos                 ; Print the string
  1691. ENDIF
  1692.         mov ah,prstr
  1693.         mov dx,offset infms3    ; Plus a little cuteness.
  1694.         int dos
  1695.     mov ah,prstr
  1696.         mov dx,offset ender     ; Ring them bells.
  1697.         int dos
  1698. IF ibmpc
  1699.         mov ah,2
  1700.         mov dx,scrrpr
  1701.         mov bh,0
  1702.         int bios
  1703. ENDIF
  1704. IF Z100 OR SIRIUS
  1705.         mov ah,prstr            ; Get print string function
  1706.         mov dx,offset scrrpr    ; and string to move cursor
  1707.         int dos                 ; Print the string
  1708. ENDIF
  1709.         jmp rskp
  1710. send8:  
  1711. IF ibmpc
  1712.         mov ah,2                ; Position cursor.
  1713.         mov dx,scrst
  1714.         mov bh,0
  1715.         int bios
  1716. ENDIF
  1717. IF Z100 OR SIRIUS
  1718.         mov ah,prstr            ; Get print string function
  1719.         mov dx,offset scrst     ; and string to move cursor
  1720.         int dos                 ; Print the string
  1721. ENDIF
  1722.         mov ah,prstr
  1723.         mov dx,offset infms4    ; Plus a little cuteness.
  1724.         int dos
  1725.     mov ah,prstr
  1726.         mov dx,offset ender     ; Ring them bells.
  1727.         int dos
  1728. IF ibmpc
  1729.         mov ah,2
  1730.         mov dx,scrrpr
  1731.         mov bh,0
  1732.         int bios
  1733. ENDIF
  1734. IF Z100 OR SIRIUS
  1735.         mov ah,prstr            ; Get print string function
  1736.         mov dx,offset scrrpr    ; and string to move cursor
  1737.         int dos                 ; Print the string
  1738. ENDIF
  1739.         jmp rskp
  1740. ;SEND    ENDP
  1741.  
  1742.  
  1743. ;       Send routines
  1744.  
  1745. ;       Send initiate
  1746.  
  1747.  
  1748. ;SINIT   PROC    NEAR
  1749. SINIT:
  1750.         cmp numtry,imxtry       ; Have we reached the maximum number of tries?
  1751.         jl sinit2
  1752.         call erpos
  1753.         mov dx,offset erms14
  1754.         mov ah,prstr
  1755.         int dos                 ; Print an error message.
  1756.         jmp abort               ; Change the state to abort.
  1757. sinit2: inc numtry              ; Save the updated number of tries.
  1758.         mov bx,offset data      ; Get a pointer to our data block.
  1759.         call rpar               ; Set up the parameter information.
  1760.         xchg ah,al
  1761.         mov ah,0
  1762.         mov argbk1,ax           ; Save the number of arguments.
  1763.         mov ax,numpkt           ; Get the packet number.
  1764.         mov argblk,ax
  1765.         mov ah,'S'              ; Send initiate packet.
  1766.         call spack              ; Send the packet.
  1767.          jmp abort
  1768.         call rpack              ; Get a packet.
  1769.          jmp r                  ;  Trashed packet don't change state, retry.
  1770.         cmp ah,'Y'              ; ACK?
  1771.         jne sinit3              ; If not try next.
  1772.         mov ax,pktnum           ; Get the packet number.
  1773.         cmp ax,argblk           ; Is it the right packet number?
  1774.         je sini22
  1775.         ret                     ; If not try again.
  1776. sini22: inc ax                  ; Increment the packet number.
  1777.         and ax,3FH              ; Turn off the two high order bits.
  1778.         mov pktnum,ax           ; Save modulo 64 of the number.
  1779.         inc numpkt              ; Increment the number of packets.
  1780.         mov ax,argbk1           ; Get the number of pieces of data.
  1781.         mov bx,offset data      ; Pointer to the data.
  1782.         call spar               ; Read in the data.
  1783.         mov ah,numtry           ; Get the number of tries.
  1784.         mov oldtry,ah           ; Save it.
  1785.         mov numtry,0            ; Reset the number of tries.
  1786.         mov state,'F'           ; Set the state to file send.
  1787.         call getfil             ; Open the file.
  1788.          jmp abort              ;  Something is wrong, die.
  1789.         ret
  1790. sinit3: cmp ah,'N'              ; NAK?
  1791.         jne sinit4              ; If not see if its an error.
  1792.         call rtpos              ; Position cursor.
  1793.         inc numrtr              ; Increment the number of retries
  1794.         mov ax,numrtr
  1795.         call nout               ; Write the number of retries.
  1796.         mov ax,pktnum           ; Get the present packet number.
  1797.         inc ax                  ; Increment.
  1798.         cmp ax,argblk           ; Get the packet's number.
  1799.         je sini32
  1800.         ret                     ; If not assume its for this packet, go again.
  1801. sini32: mov numtry,0            ; Reset number of tries.
  1802.         mov state,'F'           ; Set the state to file send.
  1803.         ret
  1804. sinit4: cmp ah,'E'              ; Is it an error packet.
  1805.         jne sinit5
  1806.         call error
  1807. sinit5: jmp abort
  1808. ;SINIT   ENDP
  1809.  
  1810.  
  1811.  
  1812. ;       Send file header
  1813.  
  1814. ;SFILE   PROC    NEAR
  1815. SFILE:
  1816.         cmp numtry,maxtry       ; Have we reached the maximum number of tries?
  1817.         jl sfile1
  1818.         call erpos
  1819.         mov dx,offset erms14
  1820.         mov ah,prstr
  1821.         int dos                 ; Print an error message.
  1822.         jmp abort               ; Change the state to abort.
  1823. sfile1: inc numtry              ; Increment it.
  1824.         mov datptr,offset data  ; Get a pointer to our data block.
  1825.         mov bx,offset fcb+1             ; Pointer to file name in FCB.
  1826.         mov fcbptr,bx           ; Save position in FCB.
  1827.         mov cl,0                ; Counter for chars in file name.
  1828.         mov ch,0                ; Counter for number of chars in FCB.
  1829. sfil11: cmp ch,8H               ; Ninth char?
  1830.         jne sfil12
  1831.         mov ah,'.'
  1832.         mov bx,datptr
  1833.         mov [bx],ah             ; Put dot in data packet.       
  1834.         inc bx
  1835.         mov datptr,bx           ; Save new position in data packet.
  1836.         inc cl
  1837. sfil12: inc ch
  1838.         cmp ch,0CH              ; Twelve?
  1839.         jns sfil13
  1840.         mov bx,fcbptr
  1841.         mov ah,[bx]             ; Get char of filename.
  1842.         inc bx
  1843.         mov fcbptr,bx           ; Save position in FCB.
  1844.         cmp ah,'!'              ; Is it a good char?
  1845.         jl sfil11               ; If not, get the next.
  1846.         mov bx,datptr
  1847.         mov [bx],ah             ; Put char in data buffer.
  1848.         inc cl                  ; Increment counter.
  1849.         inc bx
  1850.         mov datptr,bx           ; Save new position. 
  1851.         jmp sfil11              ; Get another char.
  1852. sfil13: mov ch,0
  1853.         mov argbk1,cx           ; Save number of char in filename.
  1854.         mov bx,datptr
  1855.         mov ah,'$'
  1856.         mov [bx],ah             ; Put dollar sign for printing.
  1857.         call clrfln
  1858.         mov ah,prstr
  1859.         mov dx,offset data      ; Print file name.
  1860.         int dos
  1861.  
  1862.         mov ax,pktnum           ; Get the packet number.
  1863.         mov argblk,ax
  1864.         mov ah,'F'              ; File header packet.
  1865.         call spack              ; Send the packet.
  1866.          jmp abort
  1867.         call rpack              ; Get a packet.
  1868.          jmp r                  ;  Trashed packet don't change state, retry.
  1869.         cmp ah,'Y'              ; ACK?
  1870.         jne sfile2              ; If not try next.
  1871.         mov ax,pktnum           ; Get the packet number.
  1872.         cmp ax,argblk
  1873.         je sfil14
  1874.         ret                     ; If not hold out for the right one.
  1875. sfil14: inc ax                  ; Increment the packet number.
  1876.         and ax,3FH              ; Turn off the two high order bits.
  1877.         mov pktnum,ax           ; Save modulo 64 of the number.
  1878.         inc numpkt              ; Increment the number of packets.
  1879.         mov ah,numtry           ; Get the number of tries.
  1880.         mov oldtry,ah           ; Save it.
  1881.         mov numtry,0            ; Reset the number of tries.
  1882. ;* More file I/O.  Anything to do with the CP/M FCB must be checked for MS-DOS.
  1883. sfil15: mov ah,0                ; Get a zero.
  1884.         mov bx,offset fcb
  1885.         add bx,20H
  1886.         mov [bx],ah             ; Set the record number to zero.
  1887.         mov eoflag,ah           ; Indicate not EOF.
  1888.         mov ah,0FFH
  1889.         mov filflg,ah           ; Indicate file buffer empty.
  1890.         call gtchr
  1891.          jmp sfil16             ; Error go see if its EOF.
  1892.         jmp sfil17              ; Got the chars, proceed.
  1893. sfil16: cmp ah,0FFH             ; Is it EOF?
  1894.         je sfl161
  1895.         jmp abort               ; If not give up.
  1896. sfl161: mov ah,'Z'              ; Set the state to EOF.
  1897.         mov state,ah
  1898.         ret
  1899. sfil17: mov siz,ax
  1900. ;*
  1901.         mov state,'D'           ; Set the state to data send.
  1902.         ret
  1903. sfile2: cmp ah,'N'              ; NAK?
  1904.         jne sfile3              ; Try if error packet.
  1905.         call rtpos              ; Position cursor.
  1906.         inc numrtr              ; Increment the number of retries
  1907.         mov ax,numrtr
  1908.         call nout               ; Write the number of retries.
  1909.         mov ax,pktnum           ; Get the present packet number.
  1910.         inc ax                  ; Increment.
  1911.         cmp ax,argblk           ; Is the packet's number one more than now?
  1912.         jz sfil14               ; Just as good as a ACK; go to the ACK code.
  1913.         ret                     ; If not go try again.
  1914. sfile3: cmp ah,'E'              ; Is it an error packet.
  1915.         jne sfile4
  1916.         call error
  1917. sfile4: jmp abort
  1918. ;SFILE   ENDP
  1919.  
  1920.  
  1921. ;       Send data
  1922.  
  1923. ;SDATA   PROC    NEAR
  1924. SDATA:
  1925.         cmp numtry,maxtry       ; Have we reached the maximum number of tries?
  1926.         jl sdata1
  1927.         call erpos
  1928.         mov dx,offset erms14
  1929.         mov ah,prstr
  1930.         int dos                 ; Print an error message.
  1931.         jmp abort               ; Change the state to abort.
  1932. sdata1: inc numtry              ; Increment it.
  1933.         mov datptr,offset data  ; Get a pointer to our data block.
  1934.         mov cbfptr,offset filbuf ; Pointer to chars to be sent.
  1935.         mov cx,1                ; First char.
  1936. sdat11: mov bx,cbfptr
  1937.         mov ah,[bx]
  1938.         inc cbfptr
  1939.         mov bx,datptr
  1940.         mov [bx],ah             ; Put the char in the data packet.
  1941.         inc datptr              ; Save position in data packet.
  1942.         inc cx                  ; Increment the count.
  1943.         cmp cx,siz              ; Have we transfered that many?
  1944.         jle sdat11              ; If not get another.
  1945.         mov ax,siz              ; Number of char in char buffer.
  1946.         mov argbk1,ax
  1947.         mov ax,pktnum           ; Get the packet number.
  1948.         mov argblk,ax
  1949.         mov ah,'D'              ; Data packet.
  1950.         call spack              ; Send the packet.
  1951.          jmp abort
  1952.         call rpack              ; Get a packet.
  1953.          jmp r                  ;  Trashed packet don't change state, retry.
  1954.         cmp ah,'Y'              ; ACK?
  1955.         jne sdata2              ; If not try next.
  1956.         mov ax,pktnum           ; Get the packet number.
  1957.         cmp ax,argblk           ; Is it the right packet number?
  1958.         jz sdat12
  1959.         ret                     ; If not hold out for the right one.
  1960. sdat12: inc ax                  ; Increment the packet number.
  1961.         and ax,3FH              ; Turn off the two high order bits.
  1962.         mov pktnum,ax           ; Save modulo 64 of the number.
  1963.         inc numpkt              ; Increment the number of packets.
  1964.         mov ah,numtry           ; Get the number of tries.
  1965.         mov oldtry,ah           ; Save it.
  1966.         mov numtry,0            ; Reset the number of tries.
  1967.         call gtchr
  1968.          jmp sdat13             ; Error go see if its EOF.
  1969.         mov siz,ax              ; Save the size of the data gotten.
  1970.         ret
  1971. ;* File I/O.
  1972. sdat13: cmp ah,0FFH             ; Is it EOF?
  1973.         je sdt131
  1974.         jmp abort               ; If not give up.
  1975. ;*
  1976. sdt131: mov state,'Z'           ; Set the state to EOF.
  1977.         ret
  1978. sdata2: cmp ah,'N'              ; NAK?
  1979.         jne sdata3              ; See if is an error packet.
  1980.         call rtpos              ; Position cursor.
  1981.         inc numrtr              ; Increment the number of retries
  1982.         mov ax,numrtr
  1983.         call nout               ; Write the number of retries.
  1984.         mov ax,pktnum           ; Get the present packet number.
  1985.         inc ax                  ; Increment.
  1986.         cmp ax,argblk           ; Is the packet's number one more than now?
  1987.         jz sdat12               ; Just as good as ACK; goto ACK code.
  1988.         ret                     ; If not go try again.
  1989. sdata3: cmp ah,'E'              ; Is it an error packet.
  1990.         jne sdata4
  1991.         call error
  1992. sdata4: jmp abort
  1993. ;SDATA   ENDP
  1994.  
  1995.  
  1996. ;       Send EOF
  1997.  
  1998. ;SEOF    PROC    NEAR
  1999. SEOF:
  2000.         cmp numtry,maxtry       ; Have we reached the maximum number of tries?
  2001.         jl seof1
  2002.         call erpos              ; Position cursor.
  2003.         mov dx,offset erms14
  2004.         mov ah,prstr
  2005.         int dos                 ; Print an error message.
  2006.         jmp abort               ; Change the state to abort.
  2007. seof1:  inc numtry              ; Increment it.
  2008.         mov ax,pktnum           ; Get the packet number.
  2009.         mov argblk,ax
  2010.         mov argbk1,0            ; No data.
  2011.         mov ah,'Z'              ; EOF packet.
  2012.         call spack              ; Send the packet.
  2013.          jmp abort
  2014.         call rpack              ; Get a packet.
  2015.          jmp r                  ;  Trashed packet don't change state, retry.
  2016.         cmp ah,'Y'              ; ACK?
  2017.         jne seof2               ; If not try next.
  2018.         mov ax,pktnum           ; Get the packet number.
  2019.         cmp ax,argblk           ; Is it the right packet number?
  2020.         jz seof12
  2021.         ret                     ; If not hold out for the right one.
  2022. seof12: inc ax                  ; Increment the packet number.
  2023.         and ax,3FH              ; Turn off the two high order bits.
  2024.         mov pktnum,ax           ; Save modulo 64 of the number.
  2025.         inc numpkt              ; Increment the number of packets.
  2026.         mov ah,numtry           ; Get the number of tries.
  2027.         mov oldtry,ah           ; Save it.
  2028.         mov numtry,0            ; Reset the number of tries.
  2029.         mov ah,closf            ; Close the file.
  2030.         mov dx,offset fcb
  2031.         int dos
  2032. ;* Check if successful
  2033.         call gtnfil             ; Get the next file.
  2034.          jmp seof13             ;  No more.
  2035.         mov state,'F'           ; Set the state to file send.
  2036.         ret
  2037. seof13: mov state,'B'           ; Set the state to EOT.
  2038.         ret
  2039. seof2:  cmp ah,'N'              ; NAK?
  2040.         jne seof3               ; Try and see if its an error packet.
  2041.         call rtpos              ; Position cursor.
  2042.         inc numrtr              ; Increment the number of retries
  2043.         mov ax,numrtr
  2044.         call nout               ; Write the number of retries.
  2045.         mov ax,pktnum           ; Get the present packet number.
  2046.         inc ax                  ; Increment.
  2047.         cmp ax,argblk           ; Is the packet's number one more than now?
  2048.         jz seof12               ; Just as good as a ACK; go to the ACK code.
  2049.         ret                     ; If not go try again.
  2050. seof3:  cmp ah,'E'              ; Is it an error packet?
  2051.         jne seof4
  2052.         call error
  2053. seof4:  jmp abort
  2054. ;SEOF    ENDP
  2055.  
  2056.  
  2057. ;       Send EOT
  2058.  
  2059. ;SEOT    PROC    NEAR
  2060. SEOT:
  2061.         cmp numtry,maxtry       ; Have we reached the maximum number of tries?
  2062.         jl seot1
  2063.         call erpos             ; Position cursor.
  2064.         mov dx,offset erms14
  2065.         mov ah,prstr
  2066.         int dos                 ; Print an error message.
  2067.         jmp abort               ; Change the state to abort.
  2068. seot1:  inc numtry              ; Increment it.
  2069.         mov ax,pktnum           ; Get the packet number.
  2070.         mov argblk,ax
  2071.         mov argbk1,0            ; No data.
  2072.         mov ah,'B'              ; EOF packet.
  2073.         call spack              ; Send the packet.
  2074.          jmp abort
  2075.         call rpack              ; Get a packet.
  2076.          jmp r                  ; Trashed packet don't change state, retry.
  2077.         cmp ah,'Y'              ; ACK?
  2078.         jne seot2               ; If not try next.
  2079.         mov ax,pktnum           ; Get the packet number.
  2080.         cmp ax,argblk           ; Is it the right packet number?
  2081.         jz seot12
  2082.         ret                     ; If not hold out for the right one.
  2083. seot12: inc ax                  ; Increment the packet number.
  2084.         and ax,3FH              ; Turn off the two high order bits.
  2085.         mov pktnum,ax           ; Save modulo 64 of the number.
  2086.         inc numpkt              ; Increment the number of packets.
  2087.         mov ah,numtry           ; Get the number of tries.
  2088.         mov oldtry,ah           ; Save it.
  2089.         mov numtry,0            ; Reset the number of tries.
  2090.         mov state,'C'           ; Set the state to file send.
  2091.         ret
  2092. seot2:  cmp ah,'N'              ; NAK?
  2093.         jne seot3               ; Is it error.
  2094.         call rtpos              ; Position cursor.
  2095.         inc numrtr              ; Increment the number of retries
  2096.         mov ax,numrtr
  2097.         call nout               ; Write the number of retries.
  2098.         mov ax,pktnum           ; Get the present packet number.
  2099.         inc ax                  ; Increment.
  2100.         cmp ax,argblk           ; Is the packet's number one more than now?
  2101.         jz seot12               ; Just as good as a ACK; go to the ACK code.
  2102.         ret                     ; If not go try again.
  2103. seot3:  cmp ah,'E'              ; Is it an error packet.
  2104.         jne seot4
  2105.         call error
  2106. seot4:  jmp abort
  2107. ;SEOT    ENDP
  2108.  
  2109.  
  2110. ;* Here is the bulk of the file I/O.  Good luck.
  2111.  
  2112. ;       File routines
  2113.  
  2114. ;       Output the chars in a packet.
  2115.  
  2116. ;FILEIO  PROC    NEAR    
  2117. FILEIO:
  2118.  
  2119. ptchr:  mov temp1,ax            ; Save the size.
  2120.         mov bx,offset data      ; Beginning of received packet data.
  2121.         mov outpnt,bx           ; Remember where we are.
  2122.         mov ch,rquote           ; Quote char.
  2123. ptchr1: dec temp1               ; Decrement # of chars in packet.
  2124.         jnl pt1
  2125.         jmp rskp                ; Return successfully if done.
  2126. pt1:    dec chrcnt              ; Decrement number of chars in dta.
  2127.         jns ptchr2              ; Continue if space left.
  2128.         call outbuf             ; Output it if full.
  2129.          jmp r                  ;  Error return if disk is full.
  2130. ptchr2: mov bx,outpnt           ; Get position in output buffer.
  2131.         mov ah,[bx]                     ; Grab a char.
  2132.         inc bx
  2133.         mov outpnt,bx           ; and bump pointer.
  2134.         cmp ah,ch               ; Is it the quote char?
  2135.         jne ptchr4              ; If not proceed.
  2136.         mov ah,[bx]                     ; Get the quoted character
  2137.         inc bx
  2138.         mov outpnt,bx           ; and bump pointer.
  2139.         dec temp1               ; Decrement # of chars in packet.
  2140.         mov dh,ah               ; Save the char.
  2141.         and ah,80H                      ; Turn off all but the parity bit.
  2142.         mov dl,ah               ; Save the parity bit.
  2143.         mov ah,dh                       ; Get the char.
  2144.         and ah,7FH                      ; Turn off the parity bit.
  2145.         cmp ah,ch               ; Is it the quote char?
  2146.         jz ptchr3               ; If so just go write it out.
  2147.         mov ah,dh                       ; Get the char.
  2148.         add ah,40H                      ; Make it a control char again.
  2149.         and ah,7FH                      ; Modulo 128.
  2150. ptchr3: or ah,dl                ; Or in the parity bit.
  2151. ptchr4: mov bx,bufpnt           ; Destination buffer.
  2152.         mov [bx],ah                     ; Store it.
  2153.         inc bx
  2154.         mov bufpnt,bx           ; Update the pointer
  2155.         jmp ptchr1              ; and loop to next char.
  2156.  
  2157.  
  2158.         ; output the buffer, reset bufpnt and chrcnt
  2159.  
  2160. outbuf: push bx
  2161.         mov ah,writef           ; The write code.
  2162.         mov dx,offset fcb
  2163.         int dos                  ; Write the record.
  2164.         pop bx
  2165.         cmp al,0                        ; Successful.
  2166.         jz outbf1
  2167.         cmp al,01
  2168.         jz outbf0
  2169.         call erpos
  2170.         mov ah,prstr
  2171.         mov dx,offset erms17    ; Record length exceeds dta.
  2172.         int dos
  2173.         ret
  2174. outbf0: call erpos
  2175.         mov ah,prstr            ; Tell about it.
  2176.         mov dx,offset erms11    ; Disk full error.
  2177.         int dos
  2178.         ret
  2179. outbf1: mov bx,offset buff      ; Addr for beginning.
  2180.         mov bufpnt,bx           ; Store addr for beginning.
  2181.         mov ax,bufsiz-1         ; Buffer size.
  2182.         mov chrcnt,ax           ; Number of chars left.
  2183.         jmp rskp
  2184.  
  2185.  
  2186. ;       Get the chars from the file.
  2187.  
  2188. gtchr:  mov ch,squote           ; Keep quote char in c.
  2189.         mov ah,filflg           ; Get the file flag.
  2190.         cmp ah,0                        ; Is there anything in the DMA?
  2191.         jz gtchr0               ; Yup, proceed.
  2192.         mov cl,0                ; No chars yet.
  2193.         call inbuf
  2194.          jmp gtceof             ; No more chars, go return EOF.
  2195. gtchr0: mov al,spsiz            ; Get the maximum packet size.
  2196.         sub al,5                ; Subtract the overhead.
  2197.         mov ah,0
  2198.         mov temp1,ax            ; Number of chars we're to get.
  2199.         mov bx,offset filbuf            ; Where to put the data.
  2200.         mov cbfptr,bx           ; Remember where we are.
  2201.         mov cl,0                ; No chars.
  2202. gtchr1: dec temp1               ; Decrement the number of chars left.
  2203.         jns gtchr2              ; Go on if there is more than one left.
  2204.         mov al,cl                       ; Return the count in A.
  2205.         mov ah,0
  2206.         jmp rskp
  2207. gtchr2: mov ax,chrcnt
  2208.         dec ax
  2209.         jl gtchr3
  2210.         mov chrcnt,ax
  2211.         jmp gtchr4
  2212. gtchr3: call inbuf              ; Get another buffer full.
  2213.          jmp gtceof
  2214.         cmp chrcnt,0
  2215.         jne gtchr4
  2216.         sub cl,2                ; Don't count controllified Z.
  2217.         mov al,cl
  2218.         mov ah,0
  2219.         jmp rskp
  2220. gtchr4: mov bx,bufpnt           ; Position in DMA.
  2221.         mov ah,[bx]                     ; Get a char from the file.
  2222.         inc bx
  2223.         mov bufpnt,bx
  2224.         mov dh,ah               ; Save the char.
  2225.         and ah,80H                      ; Turn off all but parity.
  2226.         mov dl,ah               ; Save the parity bit.
  2227.         mov ah,dh                       ; Restore the char.
  2228.         and ah,7FH                      ; Turn off the parity.
  2229.         cmp ah,' '                      ; Compare to a space.
  2230.         jl gtchr5               ; If less then its a control char, handle it.
  2231.         cmp ah,del                      ; Is the char a delete?
  2232.         jz gtchr5               ; Go quote it.
  2233.         cmp ah,ch               ; Is it the quote char?
  2234.         jne gtchr8              ; If not proceed.
  2235.         dec temp1               ; Decrement the char total remaining.
  2236.         mov bx,cbfptr           ; Position in character buffer.
  2237.         mov [bx],ah                     ; Put the char in the buffer.
  2238.         inc bx
  2239.         mov cbfptr,bx
  2240.         inc cl                  ; Increment the char count.
  2241.         jmp gtchr8
  2242. gtchr5: or ah,dl                ; Turn on the parity bit.
  2243.         cmp ah,('Z'-100O)               ; Is it a ^Z?
  2244.         jne gtchr7              ; If not just proceed.
  2245.         mov ah,eoflag           ; EOF flag set?
  2246.         cmp ah,0
  2247.         jz gtchr6               ; If not just go on.
  2248.         mov bx,bufpnt
  2249.         mov ax,chrcnt
  2250.         mov dh,al               ; Get number of chars left in DMA.
  2251. gtch51: dec dh
  2252.         mov ah,dh
  2253.         mov chrcnt,0            ; Assume end-of-file at ^Z. [2]****************
  2254.         mov al,cl               ; Return the count in A.
  2255.         mov ah,0
  2256.         jmp rskp
  2257. gtchr6: mov ah,('Z'-100O)       ; Restore the ^Z.
  2258. gtchr7: xchg ah,al
  2259.         mov ah,0
  2260.         mov temp2,ax            ; Save the char.
  2261.         dec temp1               ; Decrement char counter.
  2262.         mov bx,cbfptr           ; Position in character buffer.
  2263.         mov [bx],ch                     ; Put the quote in the buffer.
  2264.         inc bx
  2265.         mov cbfptr,bx
  2266.         inc cl                  ; Increment the char count.
  2267.         mov ax,temp2            ; Get the control char back.
  2268.         xchg al,ah
  2269.         add ah,40H                      ; Make the non-control.
  2270.         and ah,7fH                      ; Modulo 200 octal.
  2271. gtchr8: mov bx,cbfptr           ; Position in character buffer.
  2272.         or ah,dl                ; Or in the parity bit.
  2273.         mov [bx],ah                     ; Put the char in the buffer.
  2274.         inc bx
  2275.         mov cbfptr,bx
  2276.         inc cl                  ; Increment the char count.
  2277.         jmp gtchr1              ; Go around again.
  2278.  
  2279. gtceof: cmp cl,0                ; Had we gotten any data?
  2280.         je gteof0               ; Nope.
  2281.         mov al,cl
  2282.         mov ah,0
  2283.         jmp rskp
  2284. gteof0: mov ah,0FFH             ; Get a minus one.
  2285.         ret
  2286.  
  2287.  
  2288. inbuf:  mov ah,eoflag           ; Have we reached the end?
  2289.         cmp ah,0
  2290.         jz inbuf0
  2291.         ret                     ; Return if set.
  2292. ;****** CP/M-86 rewrite ********* B.D.
  2293. inbuf0: push bx                 
  2294.         push cx
  2295.     cmp filflg,0        ; Ever used DMA?
  2296.     jz inbuf1        ; Yes, then go fix buffer size.
  2297.     mov filflg,0        ; Otherwise, zero flag and
  2298.     mov chrcnt,bufsiz    ;  set character count to 80H.
  2299.     jmp inbuf2
  2300. inbuf1:    mov chrcnt,bufsiz-1    ; Boundary error fixed. 
  2301. inbuf2: mov bx,offset buff
  2302.     mov bufpnt,bx
  2303.     mov ah,readf        ; Read the record.
  2304.     mov dx,offset fcb
  2305.     int dos
  2306.     pop cx
  2307.     pop bx
  2308.     dec filerc        ; Another 128 chars. sent.
  2309.     jz inbf21        ; Is this the last record in the extent?
  2310.     jmp rskp        ; No.
  2311. inbf21:    cmp fileex,0        ; Any more extents?
  2312.     jz inbuf3        ; No more, go set EOF flag.
  2313.     dec fileex
  2314.     mov filerc,bufsiz    ; Reset record count to 128 records.
  2315.     jmp rskp
  2316. inbuf3:    mov eoflag,0ffh        ; Set EOF flag.
  2317.     jmp rskp
  2318. ;****** CP/M-86 rewrite end. *******
  2319.  
  2320. getfil: mov ah,0FFH
  2321.         mov filflg,ah           ; Nothing in the DMA.
  2322.         mov ax,0
  2323.         mov eoflag,ah           ; Not the end of file.
  2324.         mov bx,offset fcb+0CH
  2325.         mov [bx],ax             ; Zero the current block number.
  2326.         mov bx,offset fcb+0EH
  2327.         mov [bx],ax             ; Ditto for Lrecl.
  2328.         mov bx,offset fcb+20H
  2329.         mov [bx],ah             ; Zero the current record (of block).
  2330.         inc bx
  2331.         mov [bx],ax             ; Same for record (of file). 
  2332.         mov bx,offset fcb+23H
  2333.         mov [bx],ax
  2334.         mov ah,openf            ; Open the file.
  2335.         mov dx,offset fcb
  2336.         int dos
  2337. ;****** CP/M-86 rewrite ****** B.D.
  2338.     mov ah,cflsz        ; Calculate file-size.
  2339.     mov dx, offset fcb
  2340.     int dos
  2341.     mov bx,offset fcb+21h    ; Get R0
  2342.     mov al,[bx]
  2343.     cmp al,0
  2344.     jl getfi1
  2345.     mov ah,0
  2346.     jmp getfi2
  2347. getfi1:    mov ah,1
  2348. getfi2:    and al,07fh
  2349.     mov filerc,al
  2350.     mov bx,offset fcb+22h    ; Get R1
  2351.     mov al,[bx]
  2352.     rcl al,1
  2353.     or al,ah
  2354.     mov fileex,al
  2355.     jmp rskp
  2356. ;******    CP/M-86 rewrite end. (Taken from CP/M-80 version) ******
  2357.  
  2358.  
  2359. gtnfil: cmp wldflg,0            ; Was there a "*"?              [3 start]
  2360.         je gtn5                 ; Nope.
  2361.     mov di,offset fcb    ; Fetch next FCB from storage.
  2362.     mov bx,offset fcbblk
  2363.     dec fcbnum
  2364.     mov al,fcbnum
  2365.     cmp al,0
  2366.     jl gtn5
  2367.     mov cl,6
  2368.     rol al,cl
  2369.     mov ah,0
  2370.     add bx,ax
  2371.     mov cl,24H
  2372.         call fcbcpy        ;                               [3 end]
  2373.         call getfil             ; Initialize
  2374.          jmp r
  2375.         jmp rskp                        
  2376. gtn5:   mov wldflg,0            ; Reset wild card flag.
  2377.         ret
  2378.  
  2379.  
  2380. ;       Get the file name (including host to micro translation)
  2381.  
  2382. gofil:  mov bx,offset data      ; Get the address of the file name.
  2383.         mov datptr,bx           ; Store the address.
  2384.         mov bx,offset fcb+1            ; Address of the FCB.
  2385.         mov fcbptr,bx           ; Save it.
  2386.         mov ax,0
  2387.         mov temp1,ax            ; Initialize the char count.
  2388.         mov temp2,ax
  2389.         mov si,offset fcb
  2390.         mov [si],ah             ; Set the drive to default to current.
  2391.         mov ch,' '
  2392. gofil1: mov [bx],ch                     ; Blank the FCB.
  2393.         inc bx
  2394.         inc ah
  2395.         cmp ah,0BH                      ; Twelve?
  2396.         jl gofil1
  2397. gofil2: mov bx,datptr           ; Get the NAME field.
  2398.         mov ah,[bx]
  2399.         inc bx
  2400.         mov datptr,bx
  2401.         cmp ah,'.'                      ; Seperator?
  2402.         jne gofil3
  2403.         mov bx,offset fcb+9H
  2404.         mov fcbptr,bx
  2405.         mov ax,temp1
  2406.         mov temp2,ax
  2407.         mov temp1,9H
  2408.         jmp gofil6
  2409. gofil3: cmp ah,0                        ; Trailing null?
  2410.         jz gofil7               ; Then we're done.
  2411.         mov bx,fcbptr
  2412.         mov [bx],ah
  2413.         inc bx
  2414.         mov fcbptr,bx
  2415.         mov ax,temp1            ; Get the char count.
  2416.         inc ax
  2417.         mov temp1,ax
  2418.         cmp ax,8H                       ; Are we finished with this field?
  2419.         jl gofil2
  2420. gofil4: mov temp2,ax
  2421.         mov bx,datptr
  2422.         mov ah,[bx]
  2423.         inc bx
  2424.         mov datptr,bx
  2425.         cmp ah,0
  2426.         jz gofil7
  2427.         cmp ah,'.'                      ; Is this the terminator?
  2428.         jne gofil4              ; Go until we find it.
  2429. gofil6: mov bx,datptr           ; Get the TYPE field.
  2430.         mov ah,[bx]
  2431.         inc bx
  2432.         mov datptr,bx
  2433.         cmp ah,0                        ; Trailing null?
  2434.         jz gofil7               ; Then we're done.
  2435.         mov bx,fcbptr
  2436.         mov [bx],ah
  2437.         inc bx
  2438.         mov fcbptr,bx
  2439.         inc temp1               ; Increment char count.
  2440.         cmp temp1,0CH                   ; Are we finished with this field?
  2441.         jl gofil6
  2442. gofil7: mov bx,datptr
  2443.         mov ah,'$'
  2444.         mov [bx],ah             ; Put in a dollar sign for printing.
  2445.         call clrfln
  2446.         mov ah,prstr            ; Print the file name.
  2447.         mov dx,offset data
  2448.         int dos
  2449.         mov ah,flwflg           ; Is file warning on?
  2450.         cmp ah,0
  2451.         jnz gf7x
  2452.         jmp gofil9              ; If not, just proceed.
  2453. gf7x:   mov ah,openf            ; See if the file exists.
  2454.         mov dx,offset fcb
  2455.         int dos
  2456.         cmp al,0FFH             ; Does it exist?
  2457.         jnz gf8x
  2458.         jmp gofil9               ; If not create it.
  2459. gf8x:   
  2460. IF ibmpc
  2461.         mov ah,2                ; Position cursor.
  2462.         mov dx,scrfr
  2463.         mov bh,0
  2464.         int bios
  2465. ENDIF
  2466. IF Z100 OR SIRIUS
  2467.         mov ah,prstr            ; Get print string function
  2468.         mov dx,offset scrfr     ; and string to move cursor
  2469.         int dos                 ; Print the string
  2470. ENDIF
  2471.         mov ah,prstr            ; Inform the user we are renaming the file.
  2472.         mov dx,offset infms5
  2473.         int dos
  2474.         mov ax,temp2            ; Get the number of chars in the file name.
  2475.         cmp ax,0
  2476.         jne gofil8
  2477.         mov ax,temp1
  2478.         mov temp2,ax
  2479. gofil8: mov ch,0
  2480.         mov cl,al
  2481.         mov al,0                        ; Says if first field is full.
  2482.         cmp cl,9H                       ; Is the first field full?
  2483.         jne gofl81
  2484.         mov al,0FFH             ; Set a flag saying so.
  2485.         dec cl
  2486. gofl81: mov bx,offset fcb              ; Get the FCB.
  2487.         add bx,cx               ; Add in the character number.
  2488.         mov ah,'&'
  2489.         mov [bx],ah             ; Replace the char with an ampersand.
  2490.         push ax
  2491.         push bx
  2492.         mov ah,openf            ; See if the file exists.
  2493.         mov dx,offset fcb
  2494.         int dos
  2495.         pop bx
  2496.         cmp al,0FFH             ; Does it exist?
  2497.         pop ax
  2498.         jz gofl89               ; If not create it.
  2499.         cmp al,0                      ; Get the flag.
  2500.         jz gofl83
  2501.         dec cl                  ; Decrement the number of chars.
  2502.         cmp cl,0
  2503.         jz gofl88               ; If no more, die.
  2504.         jmp gofl81
  2505. gofl83: inc cl                  ; Increment the number of chars.
  2506.         cmp cl,9H                       ; Are we to the end?
  2507.         jl gofl81               ; If not try again ; else fail. 
  2508.  
  2509. gofl88: call erpos              ; Position cursor.
  2510.         mov ah,prstr            ; Tell the user that we can't rename it.
  2511.         mov dx,offset ermes4
  2512.         int dos
  2513.         ret
  2514.  
  2515. gofl89: mov bx,offset fcb+0CH          ; Point past the end of the file name.
  2516.         mov dh,[bx]                     ; Save the present contents.
  2517.         mov ah,'$'
  2518.         mov [bx],ah             ; Put in a dollar sign.
  2519.         push dx
  2520.         mov ah,prstr            ; Print the file name.
  2521.         mov dx,offset fcb+1
  2522.         int dos
  2523.         pop dx
  2524.         mov bx,offset fcb+0CH          ; Restore over the dollar sign.
  2525.         mov [bx],dh
  2526. gofil9: mov ah,delf             ; Delete the file if it exists.
  2527.         mov dx,offset fcb
  2528.         int dos
  2529.         mov ax,0
  2530.         mov si,offset fcb+0CH
  2531.         mov [si],ax             ; Zero current block.
  2532.         mov si,offset fcb+0EH
  2533.         mov [si],ax             ; Same for Lrecl.
  2534.         mov si,offset fcb+20H
  2535.         mov [si],ah             ; Zero the current record (within block).
  2536.         inc si
  2537.         mov [si],ax             ; Zero record (within file).
  2538.         mov si,offset fcb+23H
  2539.         mov [si],ax
  2540.         mov ah,makef            ; Now create it.
  2541.         mov dx,offset fcb
  2542.         int dos
  2543.         cmp al,0FFH             ; Is the disk full?
  2544.         je gf9x
  2545.         jmp rskp
  2546. gf9x:   call erpos              ; Position cursor.
  2547.         mov ah,prstr            ; If so tell the user.
  2548.         mov dx,offset erms11
  2549.         int dos
  2550.         ret
  2551.  
  2552. ;FILEIO  ENDP
  2553. ;*
  2554.  
  2555.  
  2556. ;       Packet routines
  2557.  
  2558. ; Send_Packet
  2559. ; This routine assembles a packet from the arguments given and sends it
  2560. ; to the host.
  2561. ;
  2562. ; Expects the following:
  2563. ;       AH     - Type of packet (D,Y,N,S,R,E,F,Z,T)
  2564. ;       ARGBLK - Packet sequence number
  2565. ;       ARGBK1 - Number of data characters
  2566. ; Returns: +1 always
  2567.  
  2568. ;SPKT    PROC    NEAR
  2569. SPKT:
  2570.  
  2571. spack:  push ax                 ; Save the packet type.
  2572.         mov bx,offset packet    ; Get address of the send packet.
  2573.         mov ah,soh              ; Get the start of header char.
  2574.         mov [bx],ah             ; Put in the packet.
  2575.         inc bx                  ; Point to next char.
  2576.         mov ax,argbk1           ; Get the number of data chars.
  2577.         xchg ah,al
  2578.         add ah,' '+3            ; Real packet character count made printable.
  2579.         mov [bx],ah             ; Put in the packet.
  2580.         inc bx                  ; Point to next char.
  2581.         mov cl,ah               ; Start the checksum.
  2582.     mov ax,argblk        ; Get the packet number.
  2583.         xchg ah,al
  2584.         add ah,' '              ; Add a space so the number is printable.
  2585.         mov [bx],ah             ; Put in the packet.
  2586.         inc bx                  ; Point to next char.
  2587.         add cl,ah               ; Add the packet number to the checksum.
  2588.         pop ax                  ; Get the packet type.
  2589.         mov [bx],ah             ; Put in the packet.
  2590.         inc bx                  ; Point to next char.
  2591.         add cl,ah               ; Add the type to the checksum.
  2592.         mov dx,argbk1           ; Get the packet size.
  2593. spack2: cmp dx,0                ; Are there any chars of data?
  2594.          jz spack3              ;  No, finish up.
  2595.         dec dx                  ; Decrement the char count.
  2596.         mov ah,[bx]             ; Get the next char.
  2597.         inc bx                  ; Point to next char.
  2598.         add cl,ah               ; Add the char to the checksum.
  2599.         cmp ah,0
  2600.         jns spack2
  2601.         mov hierr,0FFH          ; set err flag. 
  2602.         jmp spack2              ; Go try again.
  2603. spack3: cmp hierr,0
  2604.         je sp3x                 ; Nothing special to do.
  2605.         call biterr
  2606.         mov hierr,0             ; Reset.
  2607. sp3x:   mov ah,cl               ; Get the character total.
  2608.         mov ch,cl               ; Save here too (need 'cl' for shift).
  2609.         and ah,0C0H             ; Turn off all but the two high order bits.
  2610.         mov cl,6
  2611.         shr ah,cl               ; Shift them into the low order position.
  2612.         mov cl,ch
  2613.         add ah,cl               ; Add it to the old bits.
  2614.         and ah,3FH              ; Turn off the two high order bits.  (MOD 64)
  2615.         add ah,' '              ; Add a space so the number is printable.
  2616.         mov [bx],ah             ; Put in the packet.
  2617.         inc bx                  ; Point to next char.
  2618.         mov ah,seol             ; Get the EOL the other host wants.
  2619.         mov [bx],ah             ; Put in the packet.
  2620.         inc bx                  ; Point to next char.
  2621.         mov ah,0                ; Get a null.
  2622.         mov [bx],ah             ; Put in the packet.
  2623.         cmp debug,0             ; debug mode.
  2624.         je spack4
  2625.         inc bx
  2626.         mov ah,'$'
  2627.         mov [bx],ah
  2628. IF ibmpc        
  2629.         mov ah,2
  2630.         mov dx,scrsp
  2631.         mov bh,0
  2632.         int bios
  2633. ENDIF
  2634. IF Z100 OR SIRIUS
  2635.         mov ah,prstr            ; Get print string function
  2636.         mov dx,offset scrsp     ; and string to move cursor
  2637.         int dos                 ; Print the string
  2638. ENDIF
  2639.         mov ah,prstr
  2640.         mov dx,offset spmes
  2641.         int dos
  2642.         mov dx,offset packet
  2643.         mov ah,prstr
  2644.         int dos                 ; debug end.
  2645. spack4:
  2646. IF SIRIUS            ; [3 start] B.D.
  2647.     mov dx,hware
  2648.     push dx
  2649.     pop es            ; Set up ES pointing to PORT.
  2650. sp4x:    mov al,es:byte ptr .mpstat    ; Input port status.
  2651.     and al,mpinp        ; Character ready?
  2652.     jz sp4y            ; No.
  2653.     mov al,es:byte ptr .mpdata    ; Otherwise, go get it.
  2654.     jmp sp4x        ; Try for another.
  2655. sp4y:    mov al,es:byte ptr .mpstat
  2656.     and al,mpovr        ; Overflow set?
  2657.     jz sp4z            ; No, then go for output.
  2658.     mov es:byte ptr .mpstat,30h    ; Error reset.
  2659.     call erpos        ; Position cursor.
  2660.     mov ah,prstr        ; Tell the world.
  2661.     mov dx,offset erms20
  2662.     int dos
  2663.                 ; No action on overflow for now.
  2664. sp4z:
  2665. ENDIF                ; [3 end] B.D.
  2666.     call outpkt             ; Call the system dependent routine.
  2667.          jmp r
  2668.         jmp rskp
  2669.  
  2670. ;SPKT    ENDP 
  2671. ;       Write out a packet.
  2672.  
  2673. ;OUTPKT  PROC    NEAR
  2674. OUTPKT:
  2675. IF SIRIUS            ; [2 start] B.D.
  2676.     mov dx,hware
  2677.     push dx
  2678.     pop es            ; Set up ES once for packet. 
  2679. ENDIF                ; [2 end]
  2680.         mov dh,spad             ; Get the number of padding chars.
  2681. outpk2: dec dh
  2682.         cmp dh,0
  2683.         jl outpk3               ; If none left proceed.
  2684.         mov ah,spadch           ; Get the padding char.
  2685.         call outchr             ; Output it.
  2686.         jmp outpk2
  2687. outpk3: mov bx,offset packet    ; Point to the packet.
  2688. outlup: mov ah,[bx]             ; Get the next character.
  2689.         cmp ah,0                ; Is it a null?
  2690.         jnz outlp2
  2691.         jmp rskp
  2692. outlp2: call outchr             ; Output the character.
  2693.          jmp r
  2694.         inc bx                  ; Increment the char pointer.
  2695.         jmp outlup
  2696. ;OUTPKT  ENDP
  2697.  
  2698.  
  2699. ;************************System Dependent****************************
  2700. ;       Put a char in AH to the port.
  2701. ;PORT    PROC  NEAR 
  2702. PORT:
  2703. IF SIRIUS
  2704. outchr:
  2705.         mov al,ah               ;Char in al.
  2706.         mov cx,0
  2707.         call dopar              ;Set parity.
  2708. outch1: mov dl,es:byte ptr .mpstat        ;Port status
  2709.         and dl,mptbe            ;Ready to transmit?
  2710.         jz outch1               ;no - loop
  2711.         mov es:byte ptr .mpdata,al        ;ok - transmit it
  2712.         jmp rskp
  2713. ENDIF
  2714. IF ibmpc
  2715. outchr: mov al,ah               ; Char must be in al.
  2716.         mov cx,0
  2717.         call dopar              ; Set parity appropriately.
  2718. outch1: mov ah,1                ; Output it.
  2719.         mov dx,0
  2720.         int comm
  2721.         cmp ah,00H
  2722.         je outch3
  2723.         loop outch1
  2724.          jmp r
  2725. outch3: jmp rskp
  2726. ENDIF
  2727. IF Z100
  2728. outchr: mov al,ah               ; Yes, get the character into al
  2729.         mov cx,0
  2730.         call dopar              ; Set parity appropriately.
  2731. outch1: call bios_auxout        ; Send the character
  2732.         jmp rskp
  2733. ENDIF
  2734.  
  2735. ;************************System Dependent****************************
  2736. ;
  2737. ;       Get a char from the port and return in AH.
  2738.  
  2739. inchr:  
  2740. IF SIRIUS
  2741.     mov al,es:byte ptr .mpstat    ; Port status.
  2742.         and al,mpinp            ;input char. ready?
  2743.         jnz inchr3              ;yes - get it.
  2744. ENDIF
  2745. IF ibmpc
  2746.         mov dx,mdmsts           ; Get port status.
  2747.         in al,dx
  2748.         test al,mdminp          ; Data available?
  2749.         jnz inchr3              ; Read char ok.
  2750. ENDIF
  2751. IF Z100
  2752.         push    bx              ; Save BX
  2753.         mov ah,chr_status       ; Get the function
  2754.         mov al,chr_sfgs         ; And the subfunction
  2755.         call bios_auxfunc       ; Determine if anything to input
  2756.         cmp bl,0                ; Is there?
  2757.         jnz inchr3              ; Yes, go get it
  2758.         pop bx                  ; And restore BX
  2759. ENDIF
  2760.         mov ah,constat          ; Is a char on the console?
  2761.         int dos
  2762.         cmp al,0
  2763.         jz inchr                ; If not go look for another char.
  2764.         mov ah,conin            ; Get the char.
  2765.         int dos
  2766.         mov ah,al 
  2767.         cmp ah,cr                       ; Is it a carriage return?
  2768.         je inchr4              ; If not go look for another char.
  2769.         jmp inchr               ; Wait for some kind of input.
  2770. inchr4: ret
  2771. inchr3: 
  2772. IF SIRIUS
  2773.     mov al,es:byte ptr .mpdata    ; Read in the character.
  2774. ENDIF
  2775. IF ibmpc
  2776.         mov dx,mdmdat           ; Read in the char.
  2777.         in al,dx
  2778. ENDIF
  2779. IF Z100
  2780.         mov ah,chr_read         ; Get the function to read
  2781.         call bios_auxfunc       ; Get a character
  2782.         pop bx                  ; Restore BX
  2783. ENDIF
  2784.         mov ah,al
  2785.         cmp parflg,parnon       ; Is the parity none?
  2786.         je inchr5               ; We're done.
  2787.         and ah,7FH                      ; Turn off the parity bit.
  2788. inchr5: jmp rskp
  2789.  
  2790. ; Set parity for character in Register AL.
  2791.  
  2792. dopar:  cmp parflg,parnon       ; No parity? 
  2793.         je parret               ; Just return
  2794.         cmp parflg,parevn       ; Even parity?
  2795.         jne dopar0
  2796.         and al,07FH             ; Strip parity.
  2797.         jpe parret              ; Already even, leave it.
  2798.         or al,080H              ; Make it even parity.
  2799.         jmp parret
  2800. dopar0: cmp parflg,parmrk       ; Mark parity?
  2801.         jne dopar1
  2802.         or al,080H              ; Turn on the parity bit.
  2803.         jmp parret
  2804. dopar1: cmp parflg,parodd       ; Odd parity?   
  2805.         jne dopar2
  2806.         and al,07FH             ; Strip parity.
  2807.         jpo parret              ; Already odd, leave it.
  2808.         or al,080H              ; Make it odd parity.
  2809.         jmp parret
  2810. dopar2: and al,07FH             ; Space parity - turn off parity bit.
  2811. parret: ret 
  2812. ;PORT    ENDP
  2813. ;*
  2814.  
  2815.  
  2816. ; Receive_Packet
  2817. ; This routine waits for a packet arrive from the host.  It reads
  2818. ; chars until it finds a SOH.
  2819.  
  2820. ;RPACK   PROC    NEAR
  2821. RPACK:
  2822. IF ibmpc
  2823.         mov ah,2
  2824.         mov dx,scrst            ; Position cursor.
  2825.         mov bh,0
  2826.         int bios
  2827. ENDIF
  2828. ;IF Z100 OR SIRIUS         ; [2 start] Don't print status.
  2829. ;        mov ah,prstr            ; Get the function to print string
  2830. ;        mov dx,offset scrst     ; Get the string address
  2831. ;        int dos                 ; Position the cursor
  2832. ;ENDIF
  2833. ;        mov ah,prstr
  2834. ;        mov dx,offset infms0
  2835. ;        int dos
  2836. rpack5:
  2837. IF SIRIUS
  2838.     mov dx,hware 
  2839.     push dx            ; Set up ES only once.
  2840.     pop es            ; [2 end] B.D. 17-8-83.
  2841. ENDIF
  2842.     call inpkt              ; Read up to a carriage return.
  2843.          jmp r                  ;  Return bad.
  2844. rpack0: call getchr             ; Get a character.
  2845.          jmp r                  ;  Hit the carriage return, return bad.
  2846.         cmp ah,soh              ; Is the char the start of header char?
  2847.          jne rpack0             ;  No, go until it is.
  2848. rpack1: call getchr             ; Get a character.
  2849.          jmp r                  ;  Hit the carriage return, retuset infms0
  2850.         cmp ah,soh              ; Is the char the start of header char?
  2851.          jz rpack1              ;  Yes, then go start over.
  2852.         mov cl,ah               ; Start the checksum.
  2853.         sub ah,' '+3            ; Get the real data count.
  2854.         mov dh,ah               ; Save it for later.
  2855.         mov al,ah               ; Swap halves.
  2856.         mov ah,0
  2857.         mov argbk1,ax           ; Save the data count.
  2858.         call getchr             ; Get a character.
  2859.          jmp r                  ;  Hit the carriage return, return bad.
  2860.         cmp ah,soh              ; Is the char the start of header char?
  2861.          jz rpack1              ;  Yes, then go start over.
  2862.         add cl,ah               ; Add it to the checksum.
  2863.         sub ah,' '              ; Get the real packet number.
  2864.         mov al,ah               ; Swap halves.
  2865.         mov ah,0
  2866.         mov argblk,ax           ; Save the packet number.
  2867.         call getchr             ; Get a character.
  2868.          jmp r                  ;  Hit the carriage return, return bad.
  2869.         cmp ah,soh              ; Is the char the start of header char?
  2870.          jz rpack1              ;  Yes, then go start over.
  2871.         mov temp,ax             ; Save the message type.
  2872.         add cl,ah               ; Add it to the checksum.
  2873.         mov bx,offset data      ; Point to the data buffer.
  2874. rpack2: dec dh                  ; Any data characters?
  2875.          js rpack3              ;  If not go get the checksum.
  2876.         call getchr             ; Get a character.
  2877.          jmp r                  ;  Hit the carriage return, return bad.
  2878.         cmp ah,soh              ; Is the char the start of header char?
  2879.          jz rpack1              ;  Yes, then go start over.
  2880.         mov [bx],ah             ; Put the char into the packet.
  2881.         inc bx                  ; Point to the next character.
  2882.         add cl,ah               ; Add it to the checksum.
  2883.         jmp rpack2              ; Go get another.
  2884. rpack3: call getchr             ; Get a character.
  2885.          jmp r                  ;  Hit the carriage return, return bad.
  2886.         cmp ah,soh              ; Is the char the start of header char?
  2887.          jz rpack1              ;  Yes, then go start over.
  2888.         sub ah,' '              ; Turn the char back into a number.
  2889.         mov dh,cl               ; Get the character total.
  2890.         and dh,0C0H             ; Turn off all but the two high order bits.
  2891.         mov ch,cl
  2892.         mov cl,6
  2893.         shr dh,cl               ; Shift them into the low order position.
  2894.         mov cl,ch
  2895.         add dh,cl               ; Add it to the old bits.
  2896.         and dh,3FH              ; Turn off the two high order bits.  (MOD 64)
  2897.         cmp dh,ah               ; Are they equal?
  2898.          jz rpack4              ;  If so finish up.
  2899.         mov dx,offset dimsg1
  2900.         mov ah,prstr
  2901.         int dos                 ; Print a diagnostic message.
  2902.         ret
  2903. rpack4: mov ah,0
  2904.         mov [bx],ah             ; Put a null at the end of the data.
  2905.         mov ax,temp             ; Get the type.
  2906.         jmp rskp
  2907. ;RPACK   ENDP
  2908.  
  2909.  
  2910. ;INPKT   PROC    NEAR
  2911. INPKT:
  2912.         mov bx,offset recpkt    ; Point to the beginning of the packet.
  2913.         mov incnt,0
  2914. inpkt2: call inchr              ; Get a character.
  2915.          jmp r                  ;  Return failure.
  2916.         mov [bx],ah             ; Put the char in the packet.
  2917.         inc bx
  2918.         inc incnt
  2919.         cmp ah,reol             ; Is it the EOL char?
  2920.         jne inpkt2              ; If not loop for another.
  2921.         cmp incnt,1             ; Ignore bare CR.
  2922.         jne inpkt6
  2923.         mov incnt,0
  2924.         mov bx,offset recpkt
  2925.         jmp inpkt2
  2926. inpkt6: cmp ibmflg,0            ; Is this the (dumb) IBM mainframe?
  2927.         jz inpkt4               ; If not then proceed.
  2928. inpkt5: cmp state,'S'           ; Check if this is the Send-Init packet.
  2929.         jz inpkt4               ; If so don't wait for the XON.
  2930. inpkt3: call inchr              ; Wait for the turn around char.
  2931.          jmp inpkt4
  2932.         cmp ah,xon              ; Is it the IBM turn around character?
  2933.         jne inpkt3              ; If not, go until it is.
  2934. inpkt4: mov bx,offset recpkt
  2935.         mov pktptr,bx           ; Save the packet pointer.
  2936.         jmp rskp                ; If so we are done.
  2937. ;INPKT   ENDP
  2938.  
  2939.  
  2940. ;GETCHR  PROC    NEAR
  2941. GETCHR:
  2942.         push bx
  2943.         mov bx,pktptr           ; Get the packet pointer.
  2944.         mov ah,[bx]             ; Get the char.
  2945.         inc bx
  2946.         mov pktptr,bx
  2947.         pop bx                  ; Restore BX.
  2948.         cmp ah,reol             ; Is it the EOL char?
  2949.         jne getcr2              ; If not return retskp.
  2950.         ret                     ; If so return failure.
  2951. getcr2: jmp rskp
  2952. ;GETCHR  ENDP
  2953.  
  2954.  
  2955. ; This is where we go if we get an error packet.  A call to ERROR 
  2956. ; positions the cursor and prints the message.  A call to ERROR1
  2957. ; just prints a CRLF and then the message.
  2958.  
  2959. ;ERROR   PROC    NEAR
  2960. ERROR:
  2961.         mov state,'A'           ; Set the state to abort.
  2962.         call erpos              ; Position the cursor.
  2963.         jmp error2
  2964. error1: mov ah,prstr
  2965.         mov dx,offset crlf
  2966.         int dos
  2967. error2: mov bx,argbk1           ; Get the length of the data.
  2968.         add bx,offset data      ; Get to the end of the string.
  2969.         mov ah,'$'              ; Put a dollar sign at the end.
  2970.         mov [bx],ah
  2971.         mov ah,prstr            ; Print the error message.
  2972.         mov dx,offset data
  2973.         int dos
  2974.         ret
  2975. ;ERROR   ENDP
  2976.  
  2977. ; LOGOUT - tell remote KERSRV to logout.
  2978.  
  2979. ;LOGOUT  PROC    NEAR
  2980. LOGOUT:
  2981.         mov ah,cmcfm
  2982.         call comnd              ; Get a confirm.
  2983.          jmp r
  2984.         call logo
  2985.          jmp rskp               ; Go get another command whether we ....
  2986.         jmp rskp                ; .... succeed or fail.
  2987. ;LOGOUT  ENDP
  2988.  
  2989. ;LOGO    PROC    NEAR
  2990. LOGO:
  2991.         mov numtry,0            ; Initialize count.
  2992. logo1:  mov ah,numtry
  2993.         cmp ah,maxtry           ; Too many times?
  2994.         js logo3                ; No, try it.
  2995. logo2:  mov ah,prstr
  2996.         mov dx,offset erms19
  2997.         int dos
  2998.         ret
  2999. logo3:  inc numtry              ; Increment number of tries.
  3000.         mov argblk,0            ; Packet number zero.
  3001.         mov argbk1,1            ; One piece of data.
  3002.         mov bx,offset data
  3003.         mov ah,'L'
  3004.         mov [bx],ah             ; Logout the remote host.
  3005.         mov ah,'G'              ; Generic command packet.
  3006.         call spack
  3007.          jmp logo2              ; Tell user and die.
  3008.          nop
  3009.         call rpack5             ; Get ACK (w/o screen msgs.)
  3010.          jmp logo1              ; Go try again.
  3011.          nop
  3012.         cmp ah,'Y'              ; ACK?
  3013.         jne logo4
  3014.         jmp rskp
  3015. logo4:  cmp ah,'E'              ; Error packet? 
  3016.         jnz logo1               ; Try sending the packet again.
  3017.         call error1
  3018.         ret
  3019. ;LOGO    ENDP
  3020.  
  3021. ; FINISH - tell remote KERSRV to exit.
  3022.  
  3023. ;FINISH  PROC    NEAR
  3024. FINISH:
  3025.         mov ah,cmcfm            ; Parse a confirm.
  3026.         call comnd
  3027.          jmp r
  3028.         mov numtry,0            ; Initialize count.
  3029. fin1:   mov ah,numtry
  3030.         cmp ah,maxtry           ; Too many times?
  3031.         js fin3                 ; Nope, try it.
  3032. fin2:   mov ah,prstr
  3033.         mov dx,offset erms18
  3034.         int dos
  3035.         jmp rskp                ; Go home.
  3036. fin3:   inc numtry              ; Increment number of tries.
  3037.         mov argblk,0            ; Packet number zero.
  3038.         mov argbk1,1            ; One piece of data.
  3039.         mov bx,offset data
  3040.         mov ah,'F'
  3041.         mov [bx],ah             ; Finish running Kermit.
  3042.         mov ah,'G'              ; Generic command packet.
  3043.         call spack
  3044.          jmp fin2               ; Tell user and die.
  3045.          nop
  3046.         call rpack5             ; Get ACK (w/o screen stuff).
  3047.          jmp fin1               ; Go try again.
  3048.          nop
  3049.         cmp ah,'Y'              ; Got an ACK?
  3050.         jnz fin4
  3051.         jmp rskp                ; Yes, then we're done.
  3052. fin4:   cmp ah,'E'              ; Error packet?
  3053.         jnz fin1                ; Try sending it again.
  3054.         call error1
  3055.         jmp rskp
  3056. ;FINISH  ENDP
  3057.  
  3058. ; BYE command - tell remote KERSRV to logout & exits to DOS.  
  3059.  
  3060. ;BYE     PROC    NEAR
  3061. BYE:
  3062.         mov ah,cmcfm            ; Parse a confirm.
  3063.         call comnd
  3064.          jmp r
  3065.         call logo               ; Tell the mainframe to logout.
  3066.          jmp rskp               ; Failed - don't exit.
  3067.         mov extflg,1            ; Set exit flag.
  3068.         jmp rskp
  3069. ;BYE     ENDP
  3070.  
  3071. ; This is the 'exit' command.  It leaves KERMIT and returns to DOS.
  3072.  
  3073. ;EXIT    PROC    NEAR
  3074. EXIT:
  3075.         mov ah,cmcfm
  3076.         call comnd              ; Get a confirm.
  3077.          jmp r
  3078.         mov extflg,1            ;  Set the exit flag.
  3079.         jmp rskp                ; Then return to system.
  3080. ;EXIT    ENDP
  3081.  
  3082.  
  3083. ; This is the 'help' command.  It gives a list of the commands.
  3084.  
  3085. ;HELP    PROC    NEAR
  3086. HELP:
  3087.         mov ah,cmcfm
  3088.         call comnd              ; Get a confirm.
  3089.          jmp r
  3090.         mov ah,prstr            ; Print a string to the console.
  3091.         mov dx,offset tophlp    ; The address of the help message.
  3092.         int dos
  3093.         jmp rskp
  3094. ;HELP    ENDP
  3095.  
  3096. IF ibmpc
  3097. source  db      2048 DUP(?)     ; Buffer for data from port.
  3098. srcpnt  dw      0               ; Pointer in buffer (DI).
  3099. count   dw      0               ; Number of chars in int buffer.
  3100. savesi  dw      0               ; Save SI register here.        
  3101. ENDIF
  3102.  
  3103. ;       This is the CONNECT command.
  3104.  
  3105. ;TELNET  PROC    NEAR
  3106. TELNET:
  3107.         mov ah,cmcfm
  3108.         call comnd              ; Get a confirm.
  3109.          jmp r                  ;  Didn't get a confirm.
  3110.         mov ah,prstr            ; Output
  3111.         mov dx,offset crlf      ; a crlf.
  3112.         int dos
  3113.     mov ah,prstr
  3114.         mov dx,offset tmsg1
  3115.         int dos
  3116.         call escprt
  3117.         mov ah,prstr
  3118.         mov dx,offset tmsg3
  3119.         int dos
  3120.         cld                     ; Do increment in string operations.
  3121. IF ibmpc
  3122.         cli                     ; Disable interrupts.
  3123.         xor ax,ax
  3124.         mov cx,ds               ; Save DS in CX.
  3125.         mov ds,ax               ; Use low core.
  3126.         mov bx,mdmintv
  3127.         push [bx]               ; Serial Card Interrupt vector.
  3128.         mov bx,mdmintv+2
  3129.         push [bx]
  3130.         mov bx,6CH              ; "break" interrupt vector.
  3131.         push [bx]
  3132.         mov bx,6EH
  3133.         push [bx]
  3134.         mov bx,mdmintv
  3135.         mov ax,offset serint
  3136.         mov es,ax
  3137.         mov [bx],es             ; Setup int addr.
  3138.         mov bx,mdmintv+2
  3139.         mov [bx],cs
  3140.         mov bx,6CH
  3141.         mov ax,offset intret
  3142.         mov es,ax
  3143.         mov [bx],es             ; ignore break int's (pt to "iret").
  3144.         mov bx,6EH
  3145.         mov [bx],cs
  3146.         mov ds,cx
  3147.         mov ssp,sp              ; Save SP to make an easy return.
  3148.         lea ax,cs:source
  3149.         mov cs:srcpnt,ax
  3150.         mov cs:savesi,ax        ; Source of data starts at buffer head.
  3151.         mov cs:count,0  
  3152.         mov di,cs:srcpnt        ; Address (for int) to put chars.
  3153.         mov ax,cs
  3154.         mov es,ax
  3155.         mov si,0                ; Place to get chars from.
  3156.         in al,intcont           ; Set up 8259 interrupt controller.
  3157.         and al,mdminto          ; Enable INT4.
  3158.         out intcont,al
  3159.         mov dx,mdmcom           ; Set up baud, parity, etc.
  3160.         mov al,3                ; (baud set independently)
  3161.         out dx,al
  3162.         mov dx,03F9H            ; Interrupt enable register.
  3163.         mov al,1
  3164.         out dx,al
  3165.         mov dl,0FCH             ; Enable int's from serial card.
  3166.         mov al,0BH
  3167.         out dx,al
  3168.         sti                     ; Enable interrupts.
  3169.         mov dl,0F8H
  3170.         in al,dx
  3171. ENDIF
  3172. IF Z100 OR SIRIUS
  3173.         mov ssp,sp              ; Save current stack pointer.
  3174. ENDIF
  3175. IF SIRIUS            ; [2 start]
  3176.     mov dx,hware
  3177.     push dx
  3178.     pop es            ; Set ES only once.
  3179. ENDIF                ; [2 end] B.D.
  3180. telnoe: call plup               ; Char at port (type to console) ?
  3181. IF ibmpc
  3182.         cmp al,ESC
  3183.         jne telx
  3184.         jmp telesc
  3185. ENDIF
  3186. telx:   cmp al,DEL              ; Don't bother with deletes.
  3187.         je telnoe
  3188.         cmp al,XOFF             ; Skip all the following too.
  3189.         je telnoe
  3190.         cmp al,XON      
  3191.         je telnoe
  3192.         cmp al,00H              ; Null.
  3193.         je telnoe
  3194. IF ibmpc
  3195.         cmp al,BELL
  3196.         jne nobell
  3197.         call beep
  3198.         jmp telnoe
  3199. nobell: mov ah,14       
  3200.         mov bx,0
  3201.         int bios
  3202.         jmp telnoe
  3203. ENDIF
  3204. IF Z100 OR SIRIUS
  3205.         mov dl,al               ; Get the character
  3206.         mov ah,dconio           ; and the function
  3207.         int dos                 ; type the character
  3208.         jmp telnoe              ; Get next character
  3209. ENDIF
  3210. ;TELNET  ENDP
  3211.  
  3212.  
  3213. ;EXTLN   PROC    NEAR
  3214. EXTLN:
  3215. IF ibmpc
  3216.         cli                     ; Disable interrupts.
  3217. ;       push ax
  3218.         mov dx,03FCH    
  3219.         mov al,3                ; Disable modem interrupts.
  3220.         out dx,al
  3221.         in al,intcont           ; Interrupt control.
  3222.         or al,mdmintc           ; Inhibit IRQ4.
  3223.         out intcont,al
  3224.         mov sp,ssp
  3225.         xor bx,bx
  3226.         mov cx,ds               ; Save DS register.
  3227.         mov ds,bx               ; Address low memory.
  3228. ;       pop ax
  3229.         mov bx,6EH
  3230.         pop [bx]
  3231.         mov bx,6CH
  3232.         pop [bx]
  3233.         mov bx,mdmintv+2                ; Restore old interrupt vectors.
  3234.         pop [bx]
  3235.         mov bx,mdmintv
  3236.         pop [bx]
  3237.         mov ds,cx               ; Restore DS.
  3238.         xor bx,bx
  3239.         sti
  3240. ENDIF
  3241. IF Z100 OR SIRIUS
  3242.         mov sp,ssp      
  3243. ENDIF
  3244.         mov ah,prstr
  3245.         mov dx,offset tmsg2
  3246.         int dos
  3247.         jmp rskp
  3248. ;EXTLN   ENDP
  3249.  
  3250. ; *********** serial port interrupt routine ********
  3251.  
  3252. IF ibmpc
  3253. ;SERINT  PROC  NEAR
  3254. SERINT:
  3255.         push dx
  3256.         push ax
  3257.         push es
  3258.         push di
  3259.         cld
  3260.         mov di,cs:srcpnt        ; Registers for storing data.
  3261.         mov ax,cs
  3262.         mov es,ax
  3263.         mov dx,mdmsts           ; Asynch status port.
  3264.         in al,dx
  3265.         test al,mdminp          ; Data available?
  3266.         jz retint               ; Nope.
  3267.         mov dx,mdmdat
  3268.         in al,dx
  3269.         and al,7FH              ; Only want 7 bits.
  3270.         jz retint               ; Ignore nulls.
  3271.         cmp al,7FH              ; Ignore rubouts, too.
  3272.         jz retint
  3273.         stosb                   ; Store char in buffer.
  3274.         lea ax,cs:source
  3275.         sub di,ax
  3276.         and di,7FFH             ; Truncate buffer here.
  3277.         add di,ax
  3278.         inc cs:count
  3279. retint: mov cs:srcpnt,di
  3280.         sti
  3281.         mov al,eoicom
  3282.         out intcon1,al          ;Send End-of-Interrupt to 8259.
  3283.         pop di
  3284.         pop es
  3285.         pop ax
  3286.         pop dx
  3287. intret: iret
  3288. ;SERINT  ENDP;
  3289. ENDIF
  3290.  
  3291. ;PLUP    PROC    NEAR
  3292. PLUP:
  3293.         call prtchr
  3294.           ret                   ; Got a char.
  3295.           nop                   ; Use up three bytes.
  3296.           nop
  3297.         call conchr             ; See if char at cons (type to port).
  3298.           jmp extln             ; Go back to Kermit on micro.
  3299. IF Z100 OR SIRIUS
  3300.           nop                   ; Make sure we have 3 bytes.
  3301. ENDIF
  3302.         jmp plup 
  3303. ;PLUP    ENDP
  3304.  
  3305. ;************************System Dependent****************************
  3306.  
  3307. ;* These I/O routines are similar to those just above.
  3308.  
  3309. ;PRTCHR  PROC    NEAR
  3310. PRTCHR:
  3311. IF SIRIUS
  3312.         mov al,es:byte ptr .mpstat        ;Get port status
  3313.         and al,mpinp            ;Character ready?
  3314.         jnz prtch1              ;yes - go get it
  3315.         jmp rskp                ;no - give skip return
  3316. prtch1:    mov al,es:byte ptr .mpdata    ; Get character.
  3317.         and al,07FH             ;Strip parity
  3318.         ret
  3319. ENDIF
  3320. IF ibmpc
  3321.         cmp cs:count,0
  3322.         jnz prtch2
  3323.         jmp rskp                ; No data - check console.
  3324. prtch2: cli                     ; Disable int's.
  3325.         mov cx,ds
  3326.         mov ax,cs
  3327.         mov ds,ax
  3328.         mov si,cs:savesi
  3329.         lodsb                   ; Get char from buffer.
  3330.         lea dx,cs:source
  3331.         sub si,dx
  3332.         and si,7FFH             ; Truncate buffer after here.
  3333.         add si,dx
  3334.         dec cs:count
  3335.         mov cs:savesi,si 
  3336.         mov ds,cx
  3337.         sti                     ; Renable int's.
  3338.         ret
  3339. ENDIF
  3340. IF Z100
  3341.         push bx                 ; Save BX
  3342.         mov ah,chr_status       ; Get the function we want
  3343.         mov al,chr_sfgs         ; Get the subfunction to get status
  3344.         call bios_auxfunc       ; Perform the function
  3345.         cmp bl,0                ; Anything in queue?
  3346.         jne prtch1              ; Yes, go get it
  3347.         pop bx                  ; Restore BX
  3348.         jmp rskp                ; No, give skip return
  3349. prtch1: mov ah,chr_read         ; Want to read character
  3350.         call bios_auxfunc       ; Do it
  3351.         and al,07FH             ; Strip off parity bit
  3352.         pop bx                  ; And restore BX
  3353.         ret
  3354. ENDIF
  3355. ;PRTCHR  ENDP
  3356.  
  3357.  
  3358. ; Generate a short beep.
  3359.  
  3360. IF ibmpc
  3361. ;BEEP    PROC    NEAR
  3362. BEEP:
  3363.         mov al,10110110B        ; Gen a short beep (long one losses data.)
  3364.         out timer+3,al          ; Code snarfed from Technical Reference.
  3365.         mov ax,533H
  3366.         out timer+2,al
  3367.         mov al,ah
  3368.         out timer+2,al
  3369.         in al,port_b
  3370.         mov ah,al
  3371.         or al,03
  3372.         out port_b,al
  3373.         sub cx,cx
  3374.         mov bl,1
  3375. beep0:  loop beep0
  3376.         dec bl          
  3377.         jnz beep0
  3378.         mov al,ah
  3379.         out port_b,al
  3380.         ret
  3381. ;BEEP    ENDP 
  3382. ENDIF
  3383.  
  3384. ;CONCHR  PROC    NEAR
  3385. CONCHR:
  3386. IF ibmpc
  3387.         mov ah,1                ; Get keyboard status.
  3388.         int keyb
  3389.         jnz cnc0x       
  3390.         jmp rskp
  3391. cnc0x:  mov ah,0                ; Read a char.
  3392.         int keyb
  3393.         cmp al,0                ; Special char (cntrl-break)?
  3394.         jnz nobrk               ; Nope.
  3395.         cmp ah,3                ; 3 in ah means nul code.
  3396.         jz cnc1y                ; Skip nulls.
  3397.         cmp ah,0                ; Cntrl-Break?
  3398.         jne cnc1y
  3399.         xor cx,cx
  3400.         mov dx,03fbH
  3401.         in al,dx
  3402.         or al,40H               ; Set send-break bit
  3403.         out dx,al
  3404. pause:  loop pause
  3405.         xor al,40H
  3406.         out dx,al
  3407. cnc1y:  jmp rskp        
  3408. ENDIF
  3409. IF Z100 OR SIRIUS
  3410.         mov ah,dconio           ; Determine if character present
  3411.         mov dl,0ffH             ; Want input
  3412.         int dos                 ; Get status
  3413.         cmp al,00H              ; Any characters there?
  3414.         jne nobrk               ; if not, forget it
  3415.         jmp rskp                ; Give skip return
  3416. ENDIF
  3417.  
  3418. nobrk:  mov dl,al               ; Store char here.
  3419.         mov ah,escchr           ; Get the escape char.
  3420.         cmp ah,dl               ; Is it an escape char?
  3421.         jz intchr               ; If so go process it.
  3422.         call dopar              ; Set parity (if any).
  3423.         mov dx,ax
  3424.         push dx
  3425.         call prtout             ; Output the char to the port.
  3426.         pop dx
  3427.         mov ah,ecoflg           ; Get the echo flag.
  3428.         cmp ah,0                        ; Is it turned on?
  3429.         jnz cnc1x
  3430.         jmp rskp                 ; If not we're done here.
  3431. cnc1x:  and dl,7FH
  3432.         cmp dl,BS               ; Backspace?
  3433.         je cnc2x
  3434.         cmp dl,CR               ; Carriage return?
  3435.         je cnc2x
  3436. IF ibmpc
  3437.         cmp dl,BELL
  3438.         jne cnc2y
  3439.         call beep
  3440.         jmp rskp
  3441. ENDIF
  3442. cnc2y:  cmp dl,20H              ; Is it a control char?
  3443.         jge cnc2x       
  3444.         jmp rskp
  3445. cnc2x:  mov ah,dconio           ; Direct console output.
  3446.         int dos                 ; Echo the char.
  3447.         jmp rskp
  3448. ;CONCHR  ENDP
  3449.  
  3450. ;CONN    PROC    NEAR     
  3451. CONN:
  3452. intchr: mov ah,dconio           ; Direct console I/O.
  3453.         mov dl,0FFH             ; Input.
  3454.         int dos                 ; Get a char.
  3455.         mov ah,al
  3456.         cmp ah,0                        ; Is the char a null?
  3457.         jz intchr               ; If so, go until we get a char.
  3458.         mov bh,ah               ; Save the actual char.
  3459.         and ah,137O             ; Convert to upper case.
  3460.         cmp ah,'C'                      ; Is it close?
  3461.         jne intch0
  3462.         ret
  3463. intch0:
  3464. IF SIRIUS
  3465.     cmp ah,'B'        ; Is it BREAK?
  3466.     jne inc00x        ; Not BREAK.
  3467.     push bx            ; O/P BREAK signal.
  3468.     mov bx,hware
  3469.     push bx
  3470.     pop es
  3471.     mov es:byte ptr .mpstat, 5        ; Control reg 5 of port.
  3472.     mov es:byte ptr .mpstat, 0fah    ; Set BREAK.
  3473.     mov bx,0ffffh        ; Delay loop.
  3474. break0:    dec bx
  3475.     jnz break0
  3476.     mov es:byte ptr .mpstat, 5        ; Now turn off BREAK.
  3477.     mov es:byte ptr .mpstat, 0eah
  3478.     pop bx
  3479.     jmp rskp
  3480. inc00x:
  3481. ENDIF
  3482.     cmp ah,'S'        ; Is it status?
  3483.         jnz inc0x
  3484.         jmp stat01               ; If so, jump to stat01 (it will return).
  3485. inc0x:  mov ah,bh                       ; Get the char.
  3486.         cmp ah,'?'                      ; Is it help?
  3487.         jne intch1              ; If not, go to the next check.
  3488.         mov dx,offset inthlp    ; If so, get the address of the help message.
  3489.         mov ah,prstr            ; Print it.
  3490.         int dos
  3491.         jmp intchr              ; Get another char.
  3492. intch1: mov ch,ah               ; Put the char into another reg.
  3493.         mov ah,escchr           ; Get the escape char.
  3494.         cmp ah,ch               ; Is it the escape char?
  3495.         jne intch2              ; If not, go send a beep to the user.
  3496.         mov al,ch
  3497.         call dopar              ; Set parity.
  3498. intc11: mov dl,al
  3499.         call prtout             ; Output it.
  3500.         jmp rskp                ; Return, we are done here.
  3501. intch2: mov dl,'G'-100O         ; Otherwise send a beep.
  3502.         mov ah,dconio
  3503.         int dos
  3504.         jmp rskp
  3505.  
  3506. ;* Another similar I/O routine.
  3507.  
  3508. ;************************System Dependent****************************
  3509.  
  3510. prtout: mov al,dl               ; Char must be in al.
  3511. IF SIRIUS
  3512.         mov es:byte ptr .mpdata,al        ;Output character
  3513. ENDIF
  3514. IF ibmpc
  3515.         mov dx,mdmdat
  3516.         out dx,al
  3517. ENDIF
  3518. IF Z100
  3519.         call bios_auxout        ; Send the character
  3520. ENDIF
  3521.         ret
  3522. ;CONN    ENDP
  3523. ;*
  3524.  
  3525. ;TELESC  PROC    NEAR
  3526. TELESC:
  3527. IF ibmpc
  3528.         cmp vtflg,0             ; Is vt52 flag on?
  3529.         jne vt0
  3530.         jmp telnoe              ; Don't do escape stuff if it's off.
  3531. vt0:    call plup
  3532.         mov ah,al                       ; Get the char.
  3533.         cmp ah,'Y'              ; Special char - move cursor.
  3534.         jne vt1
  3535.         jmp movcur
  3536. vt1:    cmp ah,'A'                      ; Less than an 'A'?
  3537.         jl vtig                 ; Yes - ignore.
  3538.         cmp ah,'M'+1            ; Greater than 'M'?
  3539.         jns vtig                ; Yes - ignore.
  3540.         mov al,'A'
  3541.         sub ah,al               ; Else make into index.
  3542.         shl ah,1
  3543.         mov bx,offset ttab      ; Load base addr of table.
  3544.         mov cl,ah               ; Move a into cx.
  3545.         mov ch,00H              ; Zero out high byte.
  3546.         add bx,cx               ; Double add index+offset.
  3547.         mov bx,[bx]             ; Get address of routine to call.
  3548.         jmp bx
  3549. vtig:                           ; Ignore escape sequence.
  3550.         push ax                 ; Push the char to be output.
  3551.         mov dl,esc              ; Load an escape.
  3552.         mov ah,conout           ; The function code
  3553.         int dos                 ; and the syscal.
  3554.         pop ax                  ; Restore the character
  3555.         mov dl,ah               ; and move to output register.
  3556.         mov ah,conout           ; The function
  3557.         int dos                 ; and the syscall.
  3558. ENDIF
  3559.         jmp telnoe              ; Return home.
  3560. ;TELESC  ENDP
  3561.  
  3562. IF ibmpc
  3563. ;TEL     PROC    NEAR
  3564. TEL:
  3565. movcur: call plup
  3566.         sub al,32
  3567.         mov dh,al
  3568.         mov temp,dx             ; Save row position here.
  3569.         call plup
  3570.         mov dx,temp             ; Restore
  3571.         sub al,32               ; Comes with 37Q added on (& starts at 1).
  3572.         mov dl,al
  3573.         mov bh,0
  3574.         mov ah,2
  3575.         int bios
  3576.         jmp telnoe
  3577.  
  3578. curup:  mov ah,3                ; Cursor up function.
  3579.         mov bh,0
  3580.         int bios
  3581.         cmp dh,0
  3582.         je cup0
  3583.         sub dh,1
  3584.         mov ah,2
  3585.         int bios
  3586. cup0:   jmp telnoe
  3587.  
  3588. curdwn: mov ah,3                ; Cursor down.
  3589.         mov bh,0
  3590.         int bios
  3591.         cmp dh,24
  3592.         je cdn0
  3593.         add dh,1
  3594.         mov ah,2
  3595.         int bios
  3596. cdn0:   jmp telnoe
  3597.  
  3598. currt:  mov ah,3                ; Cursor right.
  3599.         mov bh,0
  3600.         int bios
  3601.         cmp dl,79
  3602.         je crt0
  3603.         add dl,1
  3604.         mov ah,2
  3605.         int bios
  3606. crt0:   jmp telnoe
  3607.  
  3608. curlft: mov ah,3                ; Cursor left.
  3609.         mov bh,0
  3610.         int bios
  3611.         cmp dl,0
  3612.         je clt0
  3613.         sub dl,1
  3614.         mov ah,2
  3615.         int bios
  3616. clt0:   jmp telnoe
  3617.  
  3618. curskp: jmp vtig                ; Ignore for now.
  3619.  
  3620. curhm:  call locate
  3621.         jmp telnoe
  3622.  
  3623. curscr: mov ah,3                ; Clear to end of screen.
  3624.         mov bh,0
  3625.         int bios
  3626.         cmp dx,0
  3627.         jne csr0
  3628.         call cmblnk
  3629.         jmp telnoe
  3630. csr0:   cmp dl,0
  3631.         je csr1
  3632.         push dx
  3633.         call curln
  3634.         pop dx
  3635.         add dh,1
  3636.         mov dl,0
  3637. csr1:   mov cx,dx
  3638.         mov dx,184FH
  3639.         mov bh,7
  3640. ;       mov al,25
  3641. ;       sub al,ch
  3642.         mov al,0
  3643.         mov ah,7
  3644.         int bios
  3645.         jmp telnoe
  3646.  
  3647. curln:  mov ah,3                ; Clear to end of line.
  3648.         mov bh,0
  3649.         int bios                ; Get current cursor position
  3650.         mov cx,dx
  3651.         mov dl,79
  3652.         mov ah,7
  3653.         mov al,0
  3654.         mov bh,7
  3655.         int bios
  3656.         jmp telnoe
  3657.  
  3658. inslin: mov ah,3                ; Get cursor position.
  3659.         mov bh,0
  3660.         int bios
  3661.         mov temp,dx             ; Save here.
  3662.         mov cx,dx
  3663.         mov cl,0                ; Start at beginning of row.
  3664.         mov dx,184FH            ; End at lower corner of screen.
  3665.         mov ax,0701H
  3666.         mov bh,7
  3667.         int bios                ; Scroll down one line.
  3668.         mov dx,temp             ; Get back where we were.
  3669.         mov dl,0
  3670.         mov ah,2
  3671.         mov bh,0
  3672.         int bios
  3673.         jmp telnoe
  3674.  
  3675. dellin: mov ah,3
  3676.         mov bh,0
  3677.         int bios                ; Get current cursor position. 
  3678.         mov temp,dx             ; Remember the place.
  3679.         mov ax,0601H            ; Scroll up one line.
  3680.         mov cx,dx
  3681.         mov cl,0                ; Start at beginning of row.
  3682.         mov dx,184FH
  3683.         mov bh,7
  3684.         int bios
  3685.         mov dx,temp
  3686.         mov dl,0
  3687.         mov ah,2
  3688.         mov bh,0
  3689.         int bios
  3690.         jmp telnoe
  3691. ;TEL     ENDP
  3692. ENDIF   
  3693.  
  3694. ;*
  3695.  
  3696. ; This is the SET command.
  3697.  
  3698. ;SETCOM  PROC    NEAR
  3699. SETCOM:
  3700.         mov dx,offset settab    ; Parse a keyword from the set table.
  3701.         mov bx,offset sethlp
  3702.         mov ah,cmkey
  3703.         call comnd
  3704.          jmp r
  3705.         call bx
  3706.         jmp rskp
  3707. ;SETCOM  ENDP
  3708.  
  3709.  
  3710. ;       This is the ESCAPE character SET subcommand.
  3711.  
  3712. ;ESCAPE  PROC    NEAR
  3713. ESCAPE:
  3714.         call cmgtch             ; Get a char.
  3715.         cmp ah,0
  3716.         jns es1                 ; Terminator or no?
  3717.         and ah,7FH              ; Turn off minus bit.
  3718.         cmp ah,'?'
  3719.         jne es0
  3720.         mov dx,offset eschlp
  3721.         mov ah,prstr
  3722.         int dos
  3723.     mov ah,prstr
  3724.         mov dx,offset crlf
  3725.         int dos
  3726.     mov ah,prstr
  3727.         mov dx,offset kerm
  3728.         int dos
  3729.         mov bx,cmdptr
  3730.         mov al,'$'
  3731.         mov [bx],al
  3732.         mov dx,offset cmdbuf
  3733.         int dos
  3734.         dec cmcptr              ; Ignore dollar sign.
  3735.         dec cmccnt
  3736.         mov cmaflg,0
  3737.         jmp repars
  3738. es0:    mov ah,prstr
  3739.         mov dx,offset ermes3
  3740.         int dos
  3741.         ret
  3742. es1:    mov temp,ax
  3743.         call cmcfrm
  3744.          jmp es0
  3745.          nop                    ; Take up 3 bytes.
  3746.         mov ax,temp
  3747.         mov escchr,ah           ; Save new value.
  3748.         ret
  3749. ;ESCAPE  ENDP
  3750.  
  3751. ;       This is the End-of-line character SET subcommand.
  3752.  
  3753. ;EOLSET  PROC    NEAR
  3754. EOLSET:
  3755.         call cmgtch             ; Get the first char into AH.
  3756.         cmp ah,0
  3757.         jns eol1
  3758.         cmp ah,0BFH             ; Question mark?
  3759.         je eol4
  3760.         jmp eol3
  3761. eol1:   sub ah,030H             ; Digit --> real number.
  3762.         mov temp,ax             ; Save the input.
  3763.         call cmcfrm
  3764.          jmp eol0               ; Got a char.
  3765.         mov ax,0
  3766.         mov bx,temp
  3767.         jmp eol2
  3768. eol0:   sub ah,030H             ; Digit --> real number.
  3769.         mov temp1,ax
  3770.         call cmcfrm
  3771.          jmp eol3               ; Too many chars.
  3772.         mov bx,temp1
  3773.         mov ax,temp
  3774.         xchg al,ah
  3775.         mov ah,0
  3776. eol2:   mov temp,ax             ; Save our registers.
  3777.         mov temp1,bx
  3778.         call cmcfrm
  3779.          jmp eol3
  3780.         mov bx,temp1
  3781.         mov ax,temp
  3782.         mov temp2,10            ; Get numerical value of char.
  3783.         mul temp2
  3784.         add al,bh
  3785.         mov ah,0
  3786.         cmp al,0
  3787.         jl eol3
  3788.         cmp al,1FH
  3789.         jg eol3
  3790.         mov seol,al             ; Use new eol char.
  3791.         ret
  3792. eol3:   mov ah,prstr
  3793.         mov dx,offset eolerr    ; Bad end-of-line char
  3794.         int dos
  3795.         jmp prserr
  3796. eol4:   mov ah,prstr
  3797.         mov dx,offset eolhlp
  3798.         int dos
  3799.     mov ah,prstr
  3800.         mov dx,offset crlf
  3801.         int dos
  3802.     mov ah,prstr
  3803.         mov dx,offset kerm
  3804.         int dos
  3805.         mov bx,cmdptr
  3806.         mov al,'$'
  3807.         mov [bx],al
  3808.     mov ah,prstr
  3809.         mov dx,offset cmdbuf
  3810.         int dos
  3811.         dec cmcptr                      ; Don't count the dollar sign.
  3812.         dec cmccnt                      ; Or the question mark.
  3813.         mov cmaflg,0                    ; Check for more input.
  3814.         jmp repars
  3815. ;EOLSET  ENDP
  3816.  
  3817. ;       This is the LOCAL echo SET subcommand.
  3818.  
  3819. ;LCAL    PROC    NEAR
  3820. LCAL:
  3821.         mov dx,offset ontab
  3822.         mov bx,offset onhlp
  3823.         mov ah,cmkey
  3824.         call comnd
  3825.          jmp r
  3826.         push bx                 ; Save the parsed value.
  3827.         mov ah,cmcfm
  3828.         call comnd              ; Get a confirm.
  3829.          jmp r                  ;  Didn't get a confirm.
  3830.         pop bx
  3831.         mov ecoflg,bl           ; Set the local echo flag.
  3832.         ret
  3833. ;LCAL    ENDP
  3834.  
  3835. ;       This is the VT52 emulation SET subcommand.
  3836.  
  3837. IF ibmpc
  3838. ;VT52EM  PROC    NEAR
  3839. VT52EM:
  3840.         mov dx,offset ontab
  3841.         mov bx,offset onhlp
  3842.         mov ah,cmkey
  3843.         call comnd
  3844.          jmp r
  3845.         push bx
  3846.         mov ah,cmcfm
  3847.         call comnd              ; Get a confirm.
  3848.          jmp r                  ;  Didn't get a confirm.
  3849.         pop bx
  3850.         mov vtflg,bl            ; Set the VT52 emulation flag.
  3851.         ret
  3852. ;VT52EM  ENDP
  3853. ENDIF
  3854.  
  3855. ;       This is the SET IBM command.
  3856.  
  3857. ;IBMSET  PROC    NEAR
  3858. IBMSET:
  3859.         mov dx,offset ontab
  3860.         mov bx,offset onhlp
  3861.         mov ah,cmkey
  3862.         call comnd
  3863.          jmp r
  3864.         push bx
  3865.         mov ah,cmcfm
  3866.         call comnd              ; Get a confirm.
  3867.          jmp r                  ;  Didn't get a confirm.
  3868.         pop bx
  3869.         mov ibmflg,bl           ; Set the IBM flag.
  3870.         cmp bl,0                ; Turning on or off?
  3871.         je ibmst1               ; If off, set parity & local echo to defaults.
  3872.         mov ah,ibmpar           ; Set IBM parity.
  3873.         mov al,1                ; Set local echo on.
  3874.         jmp ibmst2
  3875. ibmst1: mov ah,defpar           ; Reset parity to default.
  3876.         mov al,0                ; Turn off local echo.
  3877. ibmst2: mov parflg,ah           ; Set parity.
  3878.         mov ecoflg,al           ; And local echo.
  3879.         ret
  3880. ;IBMSET  ENDP
  3881.  
  3882. ;       This is the SET File-Warning command.
  3883.  
  3884. ;FILWAR  PROC    NEAR
  3885. FILWAR:
  3886.         mov dx,offset ontab
  3887.         mov bx,offset onhlp
  3888.         mov ah,cmkey
  3889.         call comnd
  3890.          jmp r
  3891.         push bx
  3892.         mov ah,cmcfm
  3893.         call comnd              ; Get a confirm.
  3894.          jmp r                  ;  Didn't get a confirm.
  3895.         pop bx
  3896.         mov flwflg,bl           ; Set the IBM flag.
  3897.         ret
  3898. ;FILWAR  ENDP
  3899.  
  3900. ;       This is the SET Parity command.
  3901.  
  3902. ;SETPAR  PROC    NEAR
  3903. SETPAR:
  3904.         mov dx,offset partab
  3905.         mov bx,offset parhlp
  3906.         mov ah,cmkey
  3907.         call comnd
  3908.          jmp r
  3909.         push bx
  3910.         mov ah,cmcfm
  3911.         call comnd              ; Get a confirm.
  3912.          jmp r                  ;  Didn't get a confirm.
  3913.         pop bx
  3914.         mov parflg,bl           ; Set the parity flag.
  3915.         ret
  3916. ;SETPAR  ENDP
  3917.  
  3918. ; Sets debugging mode on and off.
  3919.  
  3920. ;DEBST   PROC    NEAR
  3921. DEBST:
  3922.         mov dx,offset ontab
  3923.         mov bx,offset onhlp
  3924.         mov ah,cmkey
  3925.         call comnd
  3926.          jmp r
  3927.         push bx
  3928.         mov ah,cmcfm
  3929.         call comnd              ; Get a confirm.
  3930.          jmp r                  ;  Didn't get a confirm.
  3931.         pop bx
  3932.         mov debug,bl           ; Set the IBM flag.
  3933.         ret
  3934. ;DEBST   ENDP
  3935.  
  3936. ;  This function sets the baud rate.
  3937.  
  3938. ;BAUDST  PROC    NEAR
  3939. BAUDST:
  3940.         mov dx,offset bdtab
  3941.         mov bx,offset bdhlp
  3942.         mov ah,cmkey
  3943.         call comnd
  3944.          jmp r
  3945.         push bx
  3946.         mov ah,cmcfm
  3947.         call comnd              ; Get a confirm.
  3948.          jmp r                  ; Didn't get one.
  3949.         pop bx
  3950.         mov baud,bx           ; Set the IBM flag.
  3951. IF SIRIUS
  3952.     push bx
  3953.     mov bx,hware
  3954.     push bx
  3955.     pop es
  3956.     mov bl,bset
  3957.     mov es:byte ptr .btimer,bl
  3958.     mov bx,baud
  3959.     mov es:byte ptr .brate,bh
  3960.     mov es:byte ptr .brate,bl
  3961.     pop bx
  3962. ENDIF
  3963. IF ibmpc
  3964.         mov dx,03FBH            ; LCR
  3965.         in al,dx
  3966.         mov bl,al
  3967.         or ax,80H
  3968.         out dx,al
  3969.         mov dx,03F8H
  3970.         mov ax,baud
  3971.         out dx,al
  3972.         inc dx
  3973.         mov al,ah
  3974.         out dx,al
  3975.         mov dx,03FBH
  3976.         mov al,bl
  3977.         out dx,al
  3978. ENDIF
  3979. IF Z100 
  3980.         mov bx,ds               ; Set up pointer to config info
  3981.         mov es,bx               ;  .  .  .
  3982.         mov bx,offset auxcnf    ;  .  .  .
  3983.         mov ah,chr_control      ; Function is control
  3984.         mov al,chr_cfsu         ; Subfunction is set new config
  3985.         call bios_auxfunc       ; Set the configuration
  3986. ENDIF
  3987.         ret
  3988. ;BAUDST  ENDP
  3989.  
  3990. ;       This is the STATUS command.
  3991.  
  3992. ;STATUS  PROC    NEAR
  3993. STATUS:
  3994.         call stat0
  3995.          jmp r
  3996.         jmp rskp
  3997. ;STATUS  ENDP
  3998.  
  3999. ;STAT0   PROC    NEAR
  4000. STAT0:
  4001.         mov ah,cmcfm
  4002.         call comnd              ; Get a confirm.
  4003.          jmp r                  ;  Didn't get a confirm.
  4004. stat01: mov dx,offset locst     ; Assume local echo on.
  4005.         cmp ecoflg,0            ; Is the local echo flag on?
  4006.         jnz stat1               
  4007.         mov dx,offset remst     ; If not say so.
  4008. stat1:  mov ah,prstr            ; Print it.
  4009.         int dos
  4010. IF ibmpc
  4011.         mov dx,offset vtemst    ; Get address of the VT52 emulation string.
  4012.         cmp vtflg,0             ; Is the VT52 emulation flag on?
  4013.         jnz stat2
  4014.         mov dx,offset novtst    ; If not say so.
  4015. stat2:  mov ah,prstr            ; Print it.
  4016.         int dos
  4017. ENDIF
  4018.         mov dx,offset ibmst     ; Is IBM flag on?
  4019.         cmp ibmflg,0
  4020.         jnz stat3
  4021.         mov dx,offset noibm     ; Say it's not.
  4022. stat3:  mov ah,prstr
  4023.         int dos
  4024.         mov dx,offset deboff    ; Assume debug mode is off.
  4025.         cmp debug,0
  4026.         je stat4
  4027.         mov dx,offset debon
  4028. stat4:  mov ah,prstr
  4029.         int dos
  4030.         mov dx,offset flwon     ; Assume file-warning on.
  4031.         cmp flwflg,0
  4032.         jne stat5
  4033.         mov dx,offset flwoff
  4034. stat5:  mov ah,prstr
  4035.         int dos
  4036.         mov dx,offset pnonst    ; Assume no parity.
  4037.         cmp parflg,parnon
  4038.         je stat6
  4039.         mov dx,offset pmrkst    ; Mark parity?
  4040.         cmp parflg,parmrk
  4041.         je stat6
  4042.         mov dx,offset pevnst    ; Maybe it's even parity.
  4043.         cmp parflg,parevn
  4044.         je stat6
  4045.         mov dx,offset poddst    ; Odd parity?
  4046.         cmp parflg,parodd
  4047.         je stat6
  4048.         mov dx,offset pspcst
  4049. stat6:  mov ah,prstr
  4050.         int dos
  4051.         mov dx,offset eolst     ; Tell the end-of-line char used.
  4052.         mov ah,prstr
  4053.         int dos
  4054.         mov ah,conout
  4055.         mov dl,seol
  4056.         add dl,40H
  4057.         int dos
  4058.         mov ah,prstr
  4059.         mov dx,offset escmes                    ; Print escape character.
  4060.         int dos 
  4061.         call escprt
  4062.         mov dx,offset b48st     ; Assume 4800 baud.
  4063.         cmp baud,B4800
  4064.         jnz stat9a
  4065.         jmp stat9
  4066. stat9a: mov dx,offset b12st
  4067.         cmp baud,B1200
  4068.         jz stat9
  4069. IF SIRIUS
  4070.         jmp stat9c
  4071. ENDIF
  4072. IF IBMPC OR Z100
  4073.         mov dx,offset b18st
  4074.         cmp baud,B1800
  4075.         jz stat9
  4076. ENDIF
  4077. stat9c: mov dx,offset b24st
  4078.         cmp baud,B2400
  4079.         jz stat9
  4080.         mov dx,offset b96st
  4081.         cmp baud,B9600
  4082.         jz stat9
  4083.         mov dx,offset b03st
  4084. IF ibmpc
  4085.         jmp stat9
  4086. ENDIF
  4087.         cmp baud,B0300
  4088.         jz stat9
  4089. IF SIRIUS
  4090.         jmp stat9d
  4091. ENDIF
  4092. IF Z100
  4093.     mov dx,offset b04st
  4094.         cmp baud,B00455
  4095.         jz stat9
  4096.         mov dx,offset b05st
  4097.         cmp baud,B0050
  4098.         jz stat9
  4099.         mov dx,offset b07st
  4100.         cmp baud,b0075
  4101.         jz stat9
  4102.         mov dx,offset b11st
  4103.         cmp baud,B0110
  4104.         jz stat9
  4105.         mov dx,offset b13st
  4106.         cmp baud,B01345
  4107.         jz stat9
  4108.         mov dx,offset b15st
  4109.         cmp baud,B0150
  4110.         jz stat9
  4111. ENDIF
  4112. IF SIRIUS OR Z100
  4113. stat9d: mov dx,offset b06st
  4114.         cmp baud,B0600
  4115.         jz stat9
  4116. ENDIF
  4117. IF Z100
  4118.         mov dx,offset b20st
  4119.         jmp stat9
  4120.         cmp baud,B2000
  4121.         jz stat9
  4122.         mov dx,offset b19st
  4123.         cmp baud,B19200
  4124.         jz stat9
  4125.         mov dx,offset b38st
  4126. ENDIF
  4127. stat9:  mov ah,prstr
  4128.         int dos
  4129.         mov dx,offset cmcrlf    ; Get the address of a crlf.
  4130.         mov ah,prstr            ; Print it.
  4131.         int dos
  4132.         jmp rskp
  4133. ;STAT0   ENDP
  4134.  
  4135.  
  4136.  
  4137. ;       Utility routines
  4138.  
  4139. ; Jumping to this location is like retskp.  It assumes the instruction
  4140. ;   after the call is a jmp addr.
  4141.  
  4142. ;RSKP    PROC    NEAR
  4143. RSKP:
  4144.         pop bp
  4145.         add bp,3
  4146.         push bp
  4147.         ret
  4148. ;RSKP    ENDP
  4149.  
  4150. ; Jumping here is the same as a ret.
  4151.  
  4152. ;R       PROC    NEAR
  4153. R:
  4154.         ret
  4155. ;R       ENDP
  4156.  
  4157. ; This routine prints the number in AX on the screen.
  4158. ;       (Thanks to Jeff Damens)
  4159.  
  4160. ;NOUT    PROC    NEAR
  4161. NOUT:
  4162.         push bx                 ; Save some stuff.
  4163.         push cx
  4164.         push dx
  4165.         push ax
  4166.         mov bh,0                ; Don't print leading zeros.
  4167.         and ah,0F0H             ; Only want high order nibble.
  4168.         mov cl,4
  4169.         shr ah,cl
  4170.         call pdig               ; Print the digit.
  4171.         pop ax                  ; Restore argument.
  4172.         and ah,0FH              ; Just the low order nibble.
  4173.         call pdig
  4174.         mov ah,al
  4175.         and ah,0F0H             ; Only want high order nibble.
  4176.         mov cl,4
  4177.         shr ah,cl
  4178.         call pdig               ; Print the digit.
  4179.         mov ah,al
  4180.         and ah,0FH              ; Just the low order nibble.
  4181.         mov bh,0FFH             ; Make sure at least one zero is printed.
  4182.         call pdig
  4183.         pop dx                  ; Restore some stuff.
  4184.         pop cx
  4185.         pop bx
  4186.         ret
  4187. ;NOUT    ENDP
  4188.  
  4189.         ; print the digit in register AH
  4190.  
  4191. ;PDIG    PROC    NEAR
  4192. PDIG:
  4193.         push ax                 ; Save it.
  4194.         cmp ah,0
  4195.         jne pdig2
  4196.         cmp bh,0
  4197.         jne pdig2
  4198.         pop ax
  4199.         ret
  4200. pdig2:  mov bh,0FFH             ; Set the print zero flag.
  4201.         cmp ah,10               ; Do we use digits or a-f?
  4202.         jl usedig               ; Digit.
  4203.         add ah,'A'-10           ; Compute digit
  4204.         jmp havdig              ; and proceed.
  4205. usedig: add ah,'0'              ; Convert to digit
  4206. havdig: mov dl,ah
  4207.         mov ah,conout
  4208.         int dos
  4209.         pop ax
  4210.         ret
  4211. ;PDIG    ENDP
  4212.  
  4213.  
  4214. ;       This set of routines provides a user oriented way of parsing
  4215. ;       commands.  It is similar to that of the COMND JSYS in TOPS-20.
  4216.  
  4217.  
  4218. ;       This routine prints the prompt in DE and specifies the reparse
  4219. ;       address.
  4220.  
  4221. ;PROMPT  PROC  NEAR
  4222. PROMPT:
  4223.         pop bx                  ; Get the return address.
  4224.         push bx                 ; Put it on the stack again.
  4225.         mov cmrprs,bx           ; Save as addr to go to on reparse.
  4226.         mov bx,0                        ; Clear out register.
  4227.         add bx,sp               ; Get the present stack pointer.
  4228.         mov cmostp,bx           ; Save for later restoral.
  4229.         mov cmprmp,dx           ; Save pointer to the prompt.
  4230.         mov bx,offset cmdbuf
  4231.         mov cmcptr,bx           ; Initialize the command pointer.
  4232.         mov cmdptr,bx
  4233.         mov ah,0
  4234.         mov cmaflg,ah           ; Zero the flags.
  4235.         mov cmccnt,ah
  4236.         mov cmsflg,0FFH
  4237.         mov ah,prstr
  4238.         mov dx,offset cmcrlf
  4239.         int dos
  4240.         mov ah,prstr            ; Print the prompt.
  4241.         mov dx,cmprmp
  4242.         int dos
  4243.         ret
  4244. ;PROMPT  ENDP
  4245.  
  4246. ;       This address is jumped to on reparse.
  4247.  
  4248. ;PARSE   PROC NEAR 
  4249. PARSE:
  4250. repars: mov sp,cmostp           ; new sp <-- old sp
  4251.         mov bx,offset cmdbuf
  4252.         mov cmdptr,bx
  4253.         mov ah,0FFH
  4254.         mov cmsflg,ah
  4255.         mov bx,cmrprs           ; Get the reparse address.
  4256.         call bx                 ; Go there.
  4257.  
  4258. ;       This address can be jumped to on a parsing error.
  4259.  
  4260. prserr: mov sp,cmostp           ; Set new sp to old one.
  4261.         mov bx,offset cmdbuf
  4262.         mov cmcptr,bx           ; Initialize the command pointer.
  4263.         mov cmdptr,bx
  4264.         mov ah,0
  4265.         mov cmaflg,ah           ; Zero the flags.
  4266.         mov cmccnt,ah
  4267.         mov cmsflg,0FFH
  4268.         mov ah,prstr
  4269.         mov dx,offset cmcrlf
  4270.         int dos
  4271.         mov ah,prstr            ; Print the prompt.
  4272.         mov dx,cmprmp           ; Get the prompt.
  4273.         int dos
  4274. ;* Instead return to before the prompt call.
  4275.         mov bx,cmrprs
  4276.         call bx
  4277. ;PARSE   ENDP
  4278.  
  4279. ;       This routine parses the specified function in AH. Any additional
  4280. ;       information is in DX and BX.
  4281. ;       Returns +1 on success
  4282. ;               +4 on failure (assumes a JMP follows the call)
  4283.  
  4284. ;CMND    PROC NEAR
  4285. CMND:
  4286. comnd:  mov cmstat,ah           ; Save what we are presently parsing.
  4287.         call cminbf             ; Get chars until an action or a erase char.
  4288.         mov ah,cmstat           ; Restore 'ah' for upcoming checks.
  4289.         cmp ah,cmcfm            ; Parse a confirm?
  4290.         jz cmcfrm               ; Go get one.
  4291.         cmp ah,cmkey            ; Parse a keyword?
  4292.         jnz cm1
  4293.         jmp cmkeyw               ; Try and get one.
  4294. cm1:    cmp ah,cmifi            ; Parse an input file spec?
  4295.         jnz cm2
  4296.         jmp cmifil              ; Go get one.
  4297. cm2:    cmp ah,cmofi            ; Output file spec?
  4298.         jnz cm3
  4299.         jmp cmofil              ; Go get one.
  4300. cm3:    cmp ah,cmtxt            ; Parse arbitrary text.
  4301.         jnz cm4
  4302.         jmp cmtext
  4303. cm4:    mov ah,prstr            ; Else give error.
  4304.         mov dx,offset cmer00    ; "?Unrecognized COMND call"
  4305.         int dos
  4306.         ret
  4307.  
  4308. ; This routine gets a confirm.
  4309.  
  4310. cmcfrm: call cmgtch             ; Get a char.
  4311.         cmp ah,0                ; Is it negative (a terminator; a space or
  4312.                                 ; a tab will not be returned here as they
  4313.                                 ; will be seen as leading white space.)
  4314.         js cmcfr0
  4315.         ret                     ; If not, return failure.
  4316. cmcfr0: and ah,7FH                      ; Turn off the minus bit.
  4317.         cmp ah,esc                      ; Is it an escape?
  4318.         jne cmcfr2
  4319.         mov ah,conout
  4320.         mov dl,bell             ; Get a bell.
  4321.         int dos
  4322.         mov ah,0
  4323.         mov cmaflg,ah           ; Turn off the action flag.
  4324.         mov bx,cmcptr           ; Move the pointer to before thee scape.
  4325.         dec bx
  4326.         mov cmcptr,bx
  4327.         mov cmdptr,bx
  4328.         dec cmccnt              ; Decremrnt the char count.
  4329.         jmp cmcfrm              ; Try again.
  4330. cmcfr2: cmp ah,'?'                      ; Curious?
  4331.         jne cmcfr3
  4332.         mov ah,prstr            ; Print something useful.
  4333.         mov dx,offset cmin00
  4334.         int dos
  4335.         mov ah,prstr
  4336.         mov dx,offset cmcrlf            ; Print a crlf.
  4337.         int dos
  4338.         mov ah,prstr
  4339.         mov dx,cmprmp           ; Reprint the prompt.
  4340.         int dos
  4341.         mov bx,cmdptr           ; Get the pointer into the buffer.
  4342.         mov ah,'$'              ; Put a $ there for printing.
  4343.         mov [bx],ah
  4344.         mov bx,cmcptr
  4345.         dec bx                  ; Decrement & save the buffer pointer.
  4346.         mov  cmcptr,bx
  4347.         mov ah,prstr
  4348.         mov dx,offset cmdbuf
  4349.         int dos
  4350.         mov ah,0                        ; Turn off the action flag.
  4351.         mov cmaflg,ah
  4352.         jmp repars              ; Reparse everything.
  4353.  
  4354. cmcfr3: cmp ah,ff                       ; Is it a form feed?
  4355.         jne cmcfr4
  4356.         call cmblnk             ; If so blank the screen.
  4357. cmcfr4: jmp rskp
  4358.  
  4359. ;       This routine parses a keyword from the table pointed
  4360. ;       to in DX.  The format of the table is as follows:
  4361. ;
  4362. ;       addr:   db      n       ; Where n is the # of entries in the table.
  4363. ;               db      m       ; M is the size of the keyword.
  4364. ;               db      'string$' ; Where string is the keyword.
  4365. ;               dw      ab      ; Where ab is data to be returned.
  4366. ;
  4367. ;       The keywords must be in alphabetical order.
  4368.  
  4369.  
  4370. cmkeyw: mov cmhlp,bx            ; Save the help.
  4371.         mov cmptab,dx           ; Save the beginning of keyword table.
  4372.         mov bx,dx
  4373.         mov ch,[bx]                     ; Get number of entries in table.
  4374.         inc bx
  4375.         mov dx,cmdptr           ; Save command pointer.
  4376.         mov cmsptr,dx           ; Save pointer's here.
  4377. cmky1:  cmp ch,0                ; Any commands left to check?
  4378.         jne cmky2
  4379.         mov ah,prstr
  4380.         mov dx,offset cmer04    ; Complain.
  4381.         int dos
  4382.         ret                     ; Fail if not.
  4383. cmky2:  dec ch
  4384.         mov cl,0                ; Keep track of how many chars read in so far.
  4385.         call cmgtch             ; Get a char.
  4386.         cmp ah,0                ; Do we have a terminator?
  4387.         jns cmky2x 
  4388.         jmp cmky4               ; Negative number means we do.
  4389. cmky2x: inc bx                  ; Point to first letter of keyword.
  4390.         inc cl                  ; Read in another char.
  4391.         mov al,[bx]                   
  4392.         cmp ah,'a'              ; Less than a?
  4393.         jl cmky21               ; If so, don't capitalize.
  4394.         cmp ah,'z'+1            ; More than z?
  4395.         jns cmky21
  4396.         and ah,137O             ; Capitalize the letter.
  4397. cmky21: cmp ah,al
  4398.         je cmky3
  4399.         jg cmky2y
  4400.         jmp cmky41              ; Fail if ah preceeds al alphabetically.
  4401. cmky2y: jmp cmky6               ; Not this keyword - try the next.
  4402. cmky3:  inc bx                  ; We match here, how 'bout next char?
  4403.         mov al,[bx]
  4404.         cmp al,'$'               ; End of keyword?
  4405.         jne cmky3x
  4406.         jmp cmky7                ; Succeed.
  4407. cmky3x: mov dl,al               ; Save al's char here.
  4408.         call cmgtch
  4409.         inc cl                  ; Read in another char.
  4410.         mov al,dl
  4411.         cmp ah,'a'
  4412.         jl cmky31
  4413.         cmp ah,'z'+1
  4414.         jns cmky31
  4415.         and ah,137O
  4416. cmky31: cmp ah,9BH              ; Escape Recognition (escape w/minus bit on)?
  4417.         je cmky3y
  4418.         cmp ah,0BFH             ; A question mark?
  4419.         je cmky3y
  4420.         cmp ah,0A0H             ; A space?
  4421.         je cmky3y
  4422.         cmp ah,8DH              ; Carriage return?
  4423.         je cmky3y
  4424.         jmp cmky38
  4425. cmky3y: mov cmkptr,bx           ; Save bx here.
  4426.         mov cmsiz,cx            ; Save size info.
  4427.         mov cmchr,ah            ; Save char for latter.
  4428.         call cmambg             ; See if input is ambiguous or not.
  4429.          jmp cmky32             ; Succeeded (not ambiguous).
  4430.         mov ah,cmchr
  4431.         cmp ah,9BH              ; Escape?
  4432.         je cmky3z
  4433.         jmp cmky41              ; Fail.
  4434. cmky3z: mov ah,conout           ; Else, ring a bell.
  4435.         mov dl,bell
  4436.         int dos
  4437.         mov bx,cmcptr           ; Move pointer to before the escape.
  4438.         dec bx
  4439.         mov cmcptr,bx
  4440.         mov cmdptr,bx
  4441.         dec cmccnt              ; Decrement char count.
  4442.         mov bx,cmkptr           ; Failed - pretend user never typed ....
  4443.         mov cx,cmsiz            ; ... in a char.
  4444.         dec cl                  ; Don't count the escape.
  4445.         dec bx
  4446.         mov cmaflg,0            ; Reset the action flag.
  4447.         jmp cmky3               ; Keep checking.
  4448. cmky32: mov cx,cmsiz            ; Restore info.
  4449.         mov bx,cmkptr           ; Our place in the keyword table.
  4450.         cmp cmchr,0A0H          ; Space?
  4451.         je cmky35
  4452.         cmp cmchr,0BFH          ; Question mark?
  4453.         je cmky35
  4454.         cmp cmchr,8DH           ; Carriage return?
  4455.         je cmky35
  4456.         dec cmcptr              ; Pointer into buffer of input.
  4457.         mov dx,cmcptr
  4458. cmky33: mov ah,[bx]             ; Get next char in keyword.
  4459.         cmp ah,'$'              ; Are we done yet?
  4460.         jz cmky34
  4461.         mov di,dx
  4462.         mov [di],ah
  4463.         inc bx
  4464.         inc dx
  4465.         inc cmccnt
  4466.         jmp cmky33
  4467. cmky34: mov ah,' '
  4468.         mov di,dx
  4469.         mov [di],ah             ; Put a blank in the buffer.
  4470.         inc dx
  4471.         mov cx,cmcptr           ; Remember where we were (for printing below).
  4472.         mov cmcptr,dx           ; Update our pointers.
  4473.         mov cmdptr,dx
  4474.         mov ah,'$'
  4475.         mov di,dx
  4476.         mov [di],ah             ; Add '$' for printing.
  4477.         mov ah,prstr
  4478.         mov dx,cx               ; Point to beginning of filled in data.
  4479.         int dos
  4480.         inc bx                  ; Point to address we'll need.
  4481.         mov bx,[bx]
  4482.         mov cmaflg,0            ; Turn off action flag.
  4483.         jmp rskp
  4484.  
  4485. cmky35: inc bx
  4486.         mov ah,[bx]             ; Find end of keyword. 
  4487.         cmp ah,'$'
  4488.         jne cmky35      
  4489.         inc bx
  4490.         mov bx,[bx]             ; Address of next routine to call.
  4491. ;       mov cmaflg,0            ; Zero the action flag.
  4492.         jmp rskp
  4493.  
  4494. cmky38: cmp ah,al
  4495.     jne cmky39        ; Go to end of keyword and try next.
  4496.         jmp cmky3
  4497. cmky39:    jmp cmky6
  4498.            
  4499. cmky4:  and ah,7FH              ; Turn off minus bit.
  4500.         cmp ah,'?'              ; Need help?
  4501.         je cmky5
  4502.         cmp ah,' '              ; Just a space - no error.
  4503.         je cmky51
  4504.         cmp ah,cr
  4505.         je cmky51
  4506.         cmp ah,tab
  4507.         je cmky51 
  4508.         cmp ah,esc              ; Ignore escape?
  4509.         je cmky43
  4510. cmky41: mov ah,prstr
  4511.         mov dx,offset cmer03
  4512.         int dos
  4513.         jmp prserr              ; Parse error - give up.
  4514.  
  4515. cmky43: mov ah,conout           ; Ring a bell.
  4516.         mov dl,bell
  4517.         int dos
  4518.         mov bx,cmcptr
  4519.         dec bx
  4520.         mov cmcptr,bx
  4521.         mov cmdptr,bx
  4522.         dec cmccnt              ; Don't count the escape.
  4523.         mov cmaflg,0            ; Reset action flag.
  4524.         inc ch                  ; Account for a previous 'dec'.
  4525.         jmp cmky1               ; Start over.
  4526.  
  4527. cmky5:  mov ah,prstr
  4528.         mov dx,cmhlp            ; Print the help text.
  4529.         int dos
  4530.     mov ah,prstr
  4531.         mov dx,offset crlf
  4532.         int dos
  4533.     mov ah,prstr
  4534.         mov dx,offset kerm
  4535.         int dos
  4536.         mov bx,cmdptr           ; Get pointer into buffer.
  4537.         mov al,'$'
  4538.         mov [bx],al             ; Add dollar sign for printing.
  4539.     mov ah,prstr
  4540.         mov dx,offset cmdbuf
  4541.         int dos
  4542.         dec cmcptr              ; Don't keep it in the buffer.
  4543.         dec cmccnt              ; Don't conut it.
  4544.         mov cmaflg,0            ; Turn off the action flag.
  4545.         jmp repars
  4546.  
  4547. cmky51: jmp prserr
  4548.  
  4549. cmky6:  inc bx                  ; Find end of keyword.
  4550.         mov al,[bx]
  4551.         cmp al,'$'
  4552.         jne cmky6             
  4553.         inc bx                  ; Beginning of next command.
  4554.         inc bx
  4555.         inc bx
  4556.         mov dx,cmsptr           ; Get old cmdptr.
  4557.         mov cmdptr,dx           ; Restore.
  4558.         mov cmsflg,0FFH
  4559.         jmp cmky1               ; Keep trying.
  4560.  
  4561. cmky7:  call cmgtch             ; Get char.
  4562.         cmp ah,0
  4563.         js cmky71               ; Ok if a terminator.
  4564.         dec bx
  4565.         jmp cmky6               ; No match - try next keyword.
  4566. cmky71: inc bx                  ; Get necessary data.
  4567.         mov bx,[bx]
  4568.         cmp ah,9BH              ; An escape?
  4569.         jne cmky72
  4570.         mov ah,prstr
  4571.         mov dx,offset prsp      ; Print a space.
  4572.         int dos
  4573.         mov di,cmcptr
  4574.         dec di
  4575.         mov ah,20H
  4576.         mov [di],ah             ; Replace escape char with space.
  4577.         mov cmaflg,0
  4578.         mov cmsflg,0FFH         ; Pretend they typed a space.
  4579. cmky72: jmp rskp
  4580.  
  4581. ; See if keyword is unambiguous or not from what the user has typed in.
  4582.  
  4583. cmambg: cmp ch,0                ; Any keywords left to check?
  4584.         jne cmamb0
  4585.         ret                     ; If not then not ambiguous.
  4586. cmamb0: inc bx                  ; Go to end of keyword ...
  4587.         mov al,[bx]             ; So we can check the next one.
  4588.         cmp al,'$'
  4589.         jne cmamb0
  4590.         add bx,4                ; Point to start of next keyword.
  4591.         dec cl                  ; Don't count escape.
  4592.         mov dx,cmsptr           ; Buffer with input typed by user.
  4593. cmamb1: mov ah,[bx]             ; Keyword char. 
  4594.         mov di,dx
  4595.         mov al,[di]             ; Input char.
  4596.         cmp al,'a'              ; Do capitalizing.
  4597.         jl cmam11
  4598.         cmp al,'z'+1
  4599.         jns cmam11
  4600.         and al,137O
  4601. cmam11: cmp ah,al               ; Keyword bigger than input (alphabetically)?
  4602.         jle cmamb2              ; No - keep checking.
  4603.         ret                     ; Yes - not ambiguous.
  4604. cmamb2: inc bx                  ; Advance one char.
  4605.         inc dx
  4606.         dec cl
  4607.         jnz cmamb1
  4608.         jmp rskp                ; Fail - it's ambiguous.
  4609.  
  4610. cmifil: mov bx,dx               ; Get the fcb address in bx.
  4611.         mov cmfcb,bx            ; Save it.
  4612.         mov ch,0                ; Initialize char count.
  4613.         mov ah,0
  4614.         mov [bx],ah                     ; Set the drive to default to current.
  4615.         inc bx
  4616.         mov cmfcb2,bx
  4617.         mov cl,' '
  4618. cmifi0: mov [bx],cl                     ; Blank the FCB.
  4619.         inc bx
  4620.         inc ah
  4621.         cmp ah,0BH                      ; Twelve?
  4622.         jl cmifi0
  4623. cmifi1: call cmgtch             ; Get another char.
  4624.         cmp ah,0                        ; Is it an action character.
  4625.         jns cmifi2
  4626.         and ah,7FH                      ; Turn off the action bit.
  4627.         cmp ah,'?'                      ; A question mark?
  4628.         jne cmif12
  4629.         mov al,0
  4630.         mov cmaflg,al           ; Blank the action flag.
  4631.         dec cmcptr           ; Decrement the buffer pointer.
  4632.         dec cmccnt              ; Decrement count.
  4633. ;        jmp cmifi8              ; Treat like any other character.
  4634.         mov ah,prstr
  4635.         mov dx,offset filhlp    ; Help  message.
  4636.         int dos
  4637.     mov ah,prstr
  4638.         mov dx,offset crlf
  4639.         int dos
  4640.     mov ah,prstr
  4641.         mov dx,offset kerm
  4642.         int dos
  4643.         mov bx,cmdptr
  4644.         mov al,'$'
  4645.         mov [bx],al             ; Put in dollar sign for printing.
  4646.     mov ah,prstr
  4647.         mov dx,offset cmdbuf
  4648.         int dos
  4649.         jmp repars
  4650. cmif12: cmp ah,esc                      ; An escape?
  4651.         jne cmif13
  4652.         mov ah,0
  4653.         mov cmaflg,ah           ; Turn off the action flag.
  4654.         mov ah,conout
  4655.         mov dl,bell
  4656.         int dos         ; Ring the bell.
  4657.         mov bx,cmcptr           ; Move the pointer to before the escape.
  4658.         dec bx
  4659.         mov cmcptr,bx
  4660.         mov cmdptr,bx
  4661.         dec cmccnt              ; Decrement char count.
  4662.         jmp repars
  4663. cmif13: mov ah,ch                       ; It must be a terminator.
  4664.         cmp ah,0                        ; Test the length of the file name.
  4665.         jnz cmf3x
  4666.         jmp cmifi9               ; If zero complain.
  4667. cmf3x:  cmp ah,0DH
  4668.         js cmf3y
  4669.         jmp cmifi9              ; If too long complain.
  4670. cmf3y:  jmp rskp                ; Otherwise we have succeeded.
  4671. cmifi2: cmp ah,'.'
  4672.         jne cmifi3
  4673.         inc ch
  4674.         mov ah,ch
  4675.         cmp ah,1H                       ; Any chars yet?
  4676.         jnz cmf2x
  4677.         jmp cmifi9               ; No, give error.
  4678. cmf2x:  cmp ah,0AH                      ; Tenth char?
  4679.         js cmf2y
  4680.         jmp cmifi9              ; Past it, give an error.
  4681. cmf2y:  mov dl,9H
  4682.         mov dh,0
  4683.         mov bx,cmfcb
  4684.         add bx,dx               ; Point to file type field.
  4685.         mov cmfcb2,bx
  4686.         mov ch,9H               ; Say we've gotten nine.
  4687.         jmp cmifi1              ; Get the next char.
  4688. cmifi3: cmp ah,':'
  4689.         jne cmifi4
  4690.         inc ch
  4691.         cmp ch,2H                       ; Is it in right place for a drive?
  4692.         je cmif3x
  4693.         jmp cmifi9              ; If not, complain.
  4694. cmif3x: mov ch,0                ; Reset char count.
  4695.         mov bx,cmfcb2
  4696.         sub bx,1
  4697.         mov ah,[bx]                     ; Get the drive name.
  4698.         sub ah,'@'              ; Get the drive number.
  4699.         mov cmfcb2,bx
  4700.         mov bx,cmfcb
  4701.         mov [bx],ah                     ; Put it in the fcb.
  4702.         jmp cmifi1
  4703. cmifi4: cmp ah,'*'
  4704.         jne cmifi7
  4705.         mov ah,ch
  4706.         cmp ah,8H                       ; Is this in the name or type field?
  4707.         jz cmifi9               ; If its where the dot should be give up.
  4708.         jns cmifi5              ; Type.
  4709.         mov cl,8H               ; Eight chars.
  4710.         jmp cmifi6
  4711. cmifi5: mov cl,0CH              ; Three chars.
  4712. cmifi6: mov wldflg,0FFH         ; Remember we had a wildcard.
  4713.         mov bx,cmfcb2           ; Get a pointer into the FCB.
  4714.         mov ah,'?'
  4715.         mov [bx],ah                     ; Put a question mark in.
  4716.         inc bx
  4717.         mov cmfcb2,bx
  4718.         inc ch
  4719.         mov ah,ch
  4720.         cmp ah,cl
  4721.         jl cmifi6               ; Go fill in another.
  4722.         jmp cmifi1              ; Get the next char.
  4723. cmifi7: cmp ah,03DH             ; Equals sign (wildcard)?
  4724.         jne cmif7x
  4725.         mov ah,'?'
  4726.         mov wldflg,0FFH         ; Say we have a wildcard.
  4727.         jmp cmifi8              ; Put into FCB.
  4728. cmif7x: cmp ah,'0'
  4729.         jl cmif8x
  4730.         cmp ah,'z'+1
  4731.         jns cmif8x
  4732.         cmp ah,'A'                      ; Don't capitalize non-alphabetics.
  4733.         jl cmifi8
  4734.         and ah,137O             ; Capitalize.
  4735. cmifi8: mov bx,cmfcb2           ; Get the pointer into the FCB.
  4736.         mov [bx],ah                     ; Put the char there.
  4737.         inc bx
  4738.         mov cmfcb2,bx
  4739.         inc ch
  4740.         jmp cmifi1
  4741.  
  4742. cmif8x: push es
  4743.         mov cx,ds
  4744.         mov es,cx               ; Scan uses ES register.
  4745.         mov di,offset spchar    ; Special chars.
  4746.         mov cx,20               ; Twenty of them.
  4747.         mov al,ah               ; Char is in al.
  4748.         repnz scasb             ; Search string for input char.
  4749.         cmp cx,0                ; Was it there?
  4750.         pop es
  4751.         jnz cmifi8
  4752.  
  4753. cmifi9: mov ah,prstr
  4754.         mov dx,offset cmer02
  4755.         int dos
  4756.         ret
  4757.  
  4758. cmofil: jmp cmifil              ; For now, the same as CMIFI.
  4759.  
  4760. ; Parse arbitrary text up to a CR.  Put chars into data buffer sent to
  4761. ; the host (pointed to by BX).   Return updated pointer in BX and 
  4762. ; input size in AH.
  4763. ; Expects pointeer to help message in DX.
  4764.  
  4765. cmtext: mov cmptab,bx           ; Save pointer to data buffer.
  4766.     mov cmhlp,dx        ; Save pointer to help.
  4767.         mov cl,0                ; Init the char count.
  4768. cmtxt1: call cmgtch             ; Get a char.
  4769.         cmp ah,0                ; Terminator?
  4770.         jns cmtxt5              ; Nope, put into the buffer.
  4771.         and ah,07FH
  4772.         cmp ah,esc              ; An escape?
  4773.         jne cmtxt2
  4774.         mov ah,conout
  4775.         mov dl,bell             ; Ring a bell.
  4776.         int dos
  4777.         mov cmaflg,0            ; Reset action flag.
  4778.         dec cmcptr              ; Move pointer to before the escape.
  4779.         dec cmdptr
  4780.         dec cmccnt              ; Decrement count.
  4781.         jmp cmtxt1              ; Try again.
  4782. cmtxt2: cmp ah,'?'              ; Asking a question?
  4783.         jz cmtxt3
  4784.         cmp ah,ff               ; Formfeed?
  4785.         jne cmtx2x
  4786.         call cmblnk
  4787. cmtx2x: mov ah,cl               ; Return count in AH.
  4788.         mov bx,cmptab           ; Return updated pointer.
  4789.         jmp rskp
  4790. cmtxt3: mov cmaflg,0            ; Reset action flag to zero.
  4791.     dec cmcptr
  4792.     dec cmccnt
  4793.     mov ah,prstr
  4794.     mov dx,cmhlp        ; Help message.
  4795.     int dos
  4796.     mov ah,prstr
  4797.     mov dx,offset crlf
  4798.     int dos
  4799.     mov ah,prstr
  4800.     mov dx,offset kerm
  4801.     int dos
  4802.     mov bx,cmdptr
  4803.     mov al,'$'        ; Retype command line.
  4804.     mov [bx],al
  4805.     mov ah,prstr
  4806.     mov dx,offset cmdbuf
  4807.     int dos
  4808.     jmp repars
  4809. cmtxt5: inc cl                  ; Increment the count.
  4810.         mov bx,cmptab           ; Pointer into destination array.
  4811.         mov [bx],ah             ; Put char into the buffer.
  4812.         inc bx
  4813.         mov cmptab,bx
  4814.         jmp cmtxt1
  4815.  
  4816. cminbf: push dx
  4817.         push bx
  4818.         mov cx,dx               ; Save value here too.
  4819.         mov ah,cmaflg           ; Is the action char flag set?
  4820.         cmp ah,0
  4821.         je cminb1
  4822.         jmp cminb9              ; If so get no more chars.
  4823. cminb1: inc cmccnt              ; Increment the char count.
  4824.         mov ah,conin            ; Get a char.
  4825.         int dos
  4826.         mov ah,al               ; Keep char in 'ah'.
  4827.         mov bx,cmcptr           ; Get the pointer into the buffer.
  4828.         mov [bx],ah                     ; Put it in the buffer.
  4829.         inc bx
  4830.         mov cmcptr,bx
  4831.         cmp ah,25O                      ; Is it a ^U?
  4832.         jne cminb2
  4833. cmnb12: mov ah,prstr
  4834.         mov dx,offset clrlin
  4835.         int dos
  4836. IF ibmpc
  4837.         mov ax,0920H                    ; Write spaces.
  4838.         mov bx,7                   ; Clear the line.
  4839.         mov cx,80
  4840.         int bios
  4841. ENDIF
  4842.         mov ah,prstr
  4843.         mov dx,cmprmp           ; Print the prompt.
  4844.         int dos
  4845.         mov bx,offset cmdbuf
  4846.         mov cmcptr,bx           ; Reset the point to the start.
  4847.         mov cmccnt,0               ; Zero the count.
  4848.         mov dx,cx               ; Preserve original value of dx.
  4849.         jmp repars              ; Go start over.
  4850. cminb2: cmp ah,10O                      ; Or backspace?
  4851.         jz cminb3
  4852.         cmp ah,del                      ; Delete?
  4853.         jne cminb4
  4854.         mov ah,prstr            ; Print the delete string.
  4855.         mov dx,offset delstr
  4856.         int dos
  4857. cminb3: mov ah,cmccnt           ; Decrement the char count by two.
  4858.         dec ah
  4859.         dec ah
  4860.         cmp ah,0                        ; Have we gone too far?
  4861.         jns cmnb32              ; If not proceed.
  4862.         mov ah,conout           ; Ring the bell.
  4863.         mov dl,bell
  4864.         int dos
  4865.         jmp cmnb12              ; Go reprint prompt and reparse.
  4866. cmnb32: mov cmccnt,ah           ; Save the new char count.
  4867.         mov ah,prstr            ; Erase the character.
  4868.         mov dx,offset clrspc
  4869.         int dos
  4870.         mov bx,cmcptr           ; Get the pointer into the buffer.
  4871.         dec bx                  ; Back up in the buffer.
  4872.         dec bx
  4873.         mov cmcptr,bx
  4874.         jmp repars              ; Go reparse everything.
  4875. cminb4: cmp ah,'?'                      ; Is it a question mark.
  4876.         jz cminb6
  4877.         cmp ah,esc                      ; Is it an escape?
  4878.         jz cminb8
  4879.         cmp ah,cr                       ; Is it a carriage return?
  4880.         jz cminb5
  4881.         cmp ah,lf                       ; Is it a line feed?
  4882.         jz cminb5
  4883.         cmp ah,ff                       ; Is it a formfeed?
  4884.         jne cminb7
  4885.         call cmblnk
  4886.         call locate
  4887. cminb5: mov ah,cmccnt           ; Have we parsed any chars yet?
  4888.         cmp ah,1
  4889.         jnz cminb6
  4890.         jmp prserr               ; If not, just start over.
  4891. cminb6: mov ah,0FFH             ; Set the action flag.
  4892.         mov cmaflg,ah
  4893.         jmp cminb9
  4894. cminb7: jmp cminb1              ; Get another char.
  4895.  
  4896. cminb8: mov ah,prstr            ; Don't print the escape char.
  4897.         mov dx,offset escspc
  4898.         int dos
  4899.         jmp cminb6
  4900.  
  4901. cminb9: pop bx
  4902.         pop dx
  4903.         ret
  4904.  
  4905. cmgtch: push cx
  4906.         push bx
  4907.         push dx
  4908. cmgtc1: mov ah,cmaflg
  4909.         cmp ah,0                        ; Is it set.
  4910.         jne cmgt10
  4911.         call cminbf             ; If the action char flag is not set get more.
  4912. cmgt10: mov bx,cmdptr           ; Get a pointer into the buffer.
  4913.         mov ah,[bx]                     ; Get the next char.
  4914.         inc bx
  4915.         mov cmdptr,bx
  4916.         cmp ah,' '                      ; Is it a space?
  4917.         jz cmgtc2
  4918.         cmp ah,tab                      ; Or a tab?
  4919.         jne cmgtc3
  4920. cmgtc2: mov ah,cmsflg           ; Get the space flag.
  4921.         cmp ah,0                        ; Was the last char a space?
  4922.         jne cmgtc1              ; Yes, get another char.
  4923.         mov ah,0FFH             ; Set the space flag.
  4924.         mov cmsflg,ah
  4925.         mov ah,' '
  4926.         pop dx
  4927.         pop bx
  4928.         jmp cmgtc5
  4929. cmgtc3: mov al,0
  4930.         mov cmsflg,al           ; Zero the space flag.
  4931.         pop dx
  4932.         pop bx
  4933.         cmp ah,esc
  4934.         jz cmgtc5
  4935.         cmp ah,'?'                      ; Is the user curious?
  4936.         jz cmgtc4
  4937.         cmp ah,cr
  4938.         jz cmgtc4
  4939.         cmp ah,lf
  4940.         jz cmgtc4
  4941.         cmp ah,ff
  4942.         je cmgtc4
  4943.         pop cx
  4944.         ret                     ; Not an action char, just return.
  4945. cmgtc4: dec cmdptr
  4946. cmgtc5: or ah,80H               ; Make the char negative to indicate
  4947.         pop cx
  4948.         ret                     ; it is a terminator.
  4949. ;CMND    ENDP
  4950.  
  4951. ; This routine blanks the screen.
  4952.  
  4953. ;CMBLNK  PROC    NEAR            ; This is stolen from the IBM example.
  4954. CMBLNK:
  4955. IF ibmpc
  4956.         mov cx,0
  4957.         mov dx,184FH
  4958.         mov bh,7
  4959.         mov ax,600H
  4960.         int bios
  4961. ENDIF
  4962. IF Z100 OR SIRIUS
  4963.         mov ah,prstr            ; Get the function code
  4964.         mov dx,offset clrscr    ; Want to clear the screen
  4965.         int dos                 ; Do it
  4966. ENDIF
  4967.         ret
  4968. ;CMBLNK  ENDP
  4969.  
  4970. ; Cursor control.
  4971.  
  4972. ;LOCATE  PROC    NEAR
  4973. LOCATE:
  4974. IF ibmpc
  4975.         mov dx,0                ; Go to top left corner of screen.
  4976.         mov bh,0
  4977.         mov ah,2
  4978.         int bios
  4979. ENDIF
  4980. IF Z100 OR SIRIUS
  4981.         mov ah,prstr            ; Function is print string
  4982.         mov dx,offset homcur    ; Home cursor
  4983.         int dos                 ; do it
  4984. ENDIF
  4985.         ret
  4986. ;LOCATE  ENDP
  4987.