home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / tandy2000.zip / ta2000.asm next >
Assembly Source File  |  1984-02-16  |  214KB  |  5,995 lines
  1. PAGE ,132
  2. TITLE KERMIT-86 Tandy 2000 version 1.0.0
  3.  
  4.      .XLIST
  5. ;******************** Version 1.21  ***********************************
  6. ; [21] changes for the tandy model 2000
  7. ;      (g) add graphics mode in other emulation. <ESC>g turns graphics
  8. ;      mode on and <ESC>r turns it off. In graphic mode the 7th bit
  9. ;      is set on all bytes read in.
  10. ;      (p) Mask off the 7th bit if parity mode is not none.
  11. ;      (m) In other mode add automatic margins.
  12. ;      (q) Fix problem in insertchar mode when the cursor moves past
  13. ;      right hand side of the screen.
  14. ;
  15. ;******************** Version 1.20  *********************************
  16. ; [20] (a) When in terminal emulation, if host sends an ESC-Z to
  17. ;      identify the terminal type being used, respond with "ESC / K".
  18. ;      (b) Allow ^X/^Z to interrupt sending a file or file group,
  19. ;      respectively.  (c) Ditto to interrupt receiving a file or file 
  20. ;      group.  (d) If get an error when receiving a file, clean up
  21. ;      and send an error packet.  Allow user to specify whether to
  22. ;      keep what made it over or to discard it.  (e) Before sending a
  23. ;      packet, clear the input buffer.  (f) Use one general routine
  24. ;      to send all error packets.  (g) Add U. of Arizona changes so
  25. ;      Kermit once again compiles on the Z100 (Joellen Windsor).  Move
  26. ;      IBM specific statements inside IBM conditional assembly blocks.
  27. ;      Daphne, 11/28/83
  28. ;******************** Version 1.19A *********************************
  29. ; [19] (a) Change NOUT to print numbers in decimal instead of hex.  
  30. ;      Routine is based on the one used in Generic Kermit.  Make a 
  31. ;      cosmetic change where print filenames & remove extraneous screen 
  32. ;      output.  Add "nop" in NAK because the jump to ABORT is only 
  33. ;      2 bytes.  Change ONTAB so the valid values are in alphabetical
  34. ;      order.  Also, keep only one copy of the code that sets the baud
  35. ;      rate and prints it's value.  (b) Allow users to choose between 
  36. ;      COM1 (default) and COM2.  Also, remind the user about which
  37. ;      communications port they are using and at what baud rate when
  38. ;      connecting to another system.  (c) Add SET BACKARROW so can 
  39. ;      set backarrow to backspace or delete. (William Dair)  Also,
  40. ;      set default to ON for renaming files due to filename conflicts. 
  41. ;      (d) When connecting to host, only bump up cursor if on line 25.
  42. ;      (e) Clean up parsing error messages.  Change VT52 emulation
  43. ;      messages to Heath-19.
  44. ;      Daphne, 10/21/83
  45. ;******************** Version 1.18 ********************************** 
  46. ; [18] A NAK for the next packet is not the same as an ACK for the
  47. ;      current packet if we're in Send-Init.  Also, account for
  48. ;      wraparound when comparing packet numbers that are off by one.
  49. ;      Daphne, 7/13/83
  50. ;******************** Version 1.3A ********************************** 
  51. ; [17] (a) Make command to SET BELL ON/OFF when transfer is complete.
  52. ;          Changed variable name to be consistent with other flags. 
  53. ;      (b) Make it more like a Heath/Zenith H19 (I/D L/C,inverse,24x80).
  54. ;      (c) Fix Telflg to be in CS so Telnet works.
  55. ;      Dave King (CMU), 7/1/83
  56. ;******************** Version 1.3 ********************************** 
  57. ; [16] Make adjustments to XT changes so that things that used to work
  58. ;      still do: pass along characters with the eighth bit on, and in
  59. ;      OUTCHR, don't overwrite character after setting the appropriate 
  60. ;      parity.
  61. ;      Daphne, 6/17/83
  62. ; [15] Add tabs stop and clear screen support.  Don't give checksum 
  63. ;      warnings.  Give keyboard input higher scheduling priority than 
  64. ;      port input.  This allows users to ^S, ^O, ^C, etc. the output 
  65. ;      when the port is full of characters.  Add a CMU conditional
  66. ;      to swap control-backspace (delete) with backspace since TOPS-20
  67. ;      and VMS are more delete than backspace oriented.
  68. ;      Glenn Marcy, 6/8/83
  69. ; [14] Add CMU changes that allow Kermit to work on the XT.  Plus add
  70. ;      a statement omitted previously when comparing packet numbers.   
  71. ;      Daphne, 5/26/83  (changes by Dave King, CMU)
  72. ;******************** Version 1.2 ********************************** 
  73. ; [13] When closing received file, handle case where number of bytes is
  74. ;      divisible by 128.
  75. ;      Daphne, 5/2/83
  76. ;******************** Version 1.1 ********************************** 
  77. ; [12] If "SET IBM", set local echo, XON/XOFF, and default (mark) parity.
  78. ;      Daphne, 4/15/83
  79. ; [11] In RPACK, don't push packet type, but store in temp variable.
  80. ;      If push and get an error, you pick up packet type as return addr.
  81. ;      Daphne, 4/15/83 
  82. ; [10] Add Set Parity Command.
  83. ;      Daphne, 4/12/83
  84. ; [9]  Allow single-character wildcard in filenames, use "=".
  85. ;      Daphne, 4/4/83
  86. ; [8]  Add Kermit server support.
  87. ;      Daphne, 3/17/83
  88. ; [7]  Allow wildcards in filename.
  89. ;      Daphne, 3/15/83
  90. ; [6]  Make format of "Set Escape" look like the other commands.
  91. ;      Daphne, 3/14/83
  92. ; [5]  Add Set "End-of-Line" (to the char used to terminate packets I send).
  93. ;      Daphne, 3/7/83
  94. ; [4]  Ring bell when done (when succeed and when fail).
  95. ;      Daphne, 2/10/83
  96. ; [3]  Match keyword if "?" is the terminator.
  97. ;      Daphne, 2/9/83
  98. ; [2]  Change "Inpkt" so ignores bare CR from any system. 
  99. ;      Daphne, 2/9/83
  100. ; [1]  Add "cmer04" - print error message if run off list of commands allowed.
  101. ;      Daphne, 2/9/83     
  102.  
  103. ;******************** Version 1.0 ********************************** 
  104. ; KERMIT - KL10 Error-free Reciprocal Micro Interconnect over TTY-lines
  105. ; 
  106. ;       Program Version 1.20, Kermit Protocol Version 2
  107. ;       November 4, 1983
  108. ; 
  109. ;       Based on the KERMIT Protocol.
  110. ; 
  111. ;       Copyright (C) 1982,1983 Trustees of Columbia University
  112. ;
  113. ;       Daphne Tzoar
  114. ;       Columbia University Computer Center
  115. ;       612 W. 115th St.
  116. ;       New York City, NY  10025
  117. ; 
  118. ;  Special thanks to Frank da Cruz, Bill Catchings, Steve Jensen,
  119. ;  Vace Kundakci, and Bernie Eiben for their help and contributions.
  120.  
  121.  
  122. ;  This file is the global data area for all the Kermit modules.
  123.  
  124.  
  125. T2000    EQU    1        ; TANDY 2000 conditional assembly. [21]
  126. CMU     EQU     0               ; CMU conditional assembly. [15]
  127. MSDOS    EQU    1        ; MS-DOS conditional asswmbly. [21]
  128. IBMPC   EQU     0               ; For IBM PC conditional assembly.
  129. Z100    EQU     0               ; For Heath/Zenith Z-100. 
  130. STEVE   EQU     0               ; For Steve's homebrew assembly.
  131.  
  132. BELL    EQU     07Q
  133. TAB     EQU     11Q
  134. LF      EQU     12Q
  135. FF      EQU     14Q
  136. CR      EQU     15Q
  137. XON     EQU     21Q
  138. XOFF    EQU     23Q
  139. ESC     EQU     33Q
  140. DEL     EQU     177Q
  141. BS      EQU     08H
  142.  
  143. DOS     EQU     21H
  144.  
  145. CONIN   EQU     01H
  146. CONOUT  EQU     02H
  147. RDRIN   EQU     03H
  148. PUNOUT  EQU     04H
  149. LSTOUT  EQU     05H
  150. DCONIO  EQU     06H
  151. GTIOB   EQU     07H
  152. PRSTR   EQU     09H
  153. CONSTAT EQU     0BH
  154. OPENF   EQU     0FH
  155. CLOSF   EQU     10H
  156. SFIRST  EQU     11H
  157. SNEXT   EQU     12H
  158. DELF    EQU     13H
  159. READF   EQU     14H             ; Read from the file.
  160. WRITEF  EQU     15H
  161. MAKEF   EQU     16H
  162. SETDMA  EQU     1AH
  163. CFLSZ   EQU     23H
  164.  
  165. MAXPKT  EQU     '~'-' '+2Q      ; Maximum size of a packet.
  166. MAXTRY  EQU     05Q             ; Default number of retries on a packet.
  167. IMXTRY  EQU     20Q             ; Default number of retries send initiate.
  168. DRPSIZ  EQU     5EH             ; Default receive packet size.
  169. DSPSIZ  EQU     20H             ; Default send packet size.
  170. DSTIME  EQU     08H             ; Default send time out interval.
  171. DRTIME  EQU     05H             ; Default receive time out interval.
  172. DSPAD   EQU     00H             ; Default send padding.
  173. DRPAD   EQU     00H             ; Default receive padding.
  174. DSPADC  EQU     00H             ; Default send padding char.
  175. DRPADC  EQU     00H             ; Default receive padding char.
  176. DSEOL   EQU     CR              ; Default send EOL char.
  177. DREOL   EQU     CR              ; Default receive EOL char.
  178. DSQUOT  EQU     '#'             ; Default send quote char.
  179. DRQUOT  EQU     '#'             ; Default receive quote char.
  180.  
  181. PAREVN  EQU     00H             ; Even parity.                  [10 start]
  182. PARMRK  EQU     01H             ; Mark parity.
  183. PARNON  EQU     02H             ; No parity.    
  184. PARODD  EQU     03H             ; Odd parity.
  185. PARSPC  EQU     04H             ; Space parity.
  186. DEFPAR  EQU     PARNON          ; Default parity (none.) 
  187. IBMPAR  EQU     PARMRK          ; IBM's parity (mark.)          [10 end]
  188.  
  189. SOH     EQU     01H             ; Start of header char.
  190. BUFSIZ  EQU     80H             ; Size of DMA.
  191. DIASW   EQU     01H             ; Default is diagnostics on.
  192.  
  193. CMKEY   EQU     01H             ; Parse a keyword.
  194. CMIFI   EQU     02H             ; Parse an input file spec (can be wild).
  195. CMOFI   EQU     03H             ; Parse an output file spec.
  196. CMCFM   EQU     04H             ; Parse a confirm.
  197. CMTXT   EQU     05H             ; Parse arbitrary text up to CR.   [8]
  198.  
  199. IF t2000
  200. BIOS    EQU    52H        ; Video Display BIOS call. [21]
  201. COMM    EQU    53H        ; Serial Communications BIOS call. [21]
  202. KEYB    EQU    51H        ; Keyboard BIOS call. [21]
  203. DEFESC  EQU     ']'-100Q        ; The default escape character.
  204. MDMINP  EQU     1               ; Input ready bit.
  205. BRKBIT  EQU     08H             ; Send-break bit. [20g]
  206. MDMCOM    EQU    12H        ; Comm command reg. [21]
  207. TIMER   EQU     40H             ; Use to issue short beep.
  208.  
  209. B0110    EQU    00H        ; Variables for 110 baud, 150, etc.
  210. B0150    EQU    20H
  211. B0300   EQU    40H
  212. B0600    EQU    60H
  213. B1200   EQU     80H
  214. B2400   EQU    0A0H
  215. B4800   EQU    0C0H
  216. B9600   EQU    0E0H
  217. NONEP    EQU    00H        ; Parity None.
  218. ODDP    EQU    08H        ; Parity Odd.
  219. EVENP    EQU    18H        ; Parity Even.
  220. SB1    EQU    00H        ; Stop Bits One.
  221. SB2    EQU    04H        ; Stop Bits Two.
  222. WORD5    EQU    00H        ; Word Lenth of 5 bits.
  223. WORD6    EQU    01H        ; Word Lenth of 6 bits.
  224. WORD7    EQU    02H        ; Word Lenth of 7 bits.
  225. WORD8    EQU    03H        ; Word Lenth of 8 bits.
  226. PROTR    EQU    00H        ; Comm Protocol XON/XOFF when Receiving
  227. PROTT    EQU    02H        ; Comm Protocol XON/XOFF when Xmiting.
  228.  
  229. KEYU     EQU    48H        ; Up arrow key extended code. [21]
  230. KEYD     EQU    50H        ; Down arrow. [21]
  231. KEYR    EQU    4DH        ; Right arrow. [21]
  232. KEYL    EQU    4BH        ; Left arrow. [21]
  233. KEYH    EQU    47H        ; Home key. [21]
  234. KEY1    EQU    3BH        ; Function key 1. [21]
  235. KEY2    EQU    3CH        ;    ""     "  2. [21]
  236. KEY3    EQU     3DH        ;    ""     "  3. [21]
  237. KEY4    EQU    3EH        ;    ""     "  4. [21]
  238. KEY5    EQU     3FH        ;    ""     "  5. [21]
  239. KEY6    EQU     40H        ;    ""     "  6. [21]
  240. KEY7    EQU    41H        ;    ""     "  7. [21]
  241. key8    EQU    42H        ;    ""     "  8. [21]
  242. KEY9    EQU    43H        ;    ""     "  9. [21]
  243. KEY10    EQU    44H        ;    ""     " 10. [21]
  244. KEY11    EQU    98H        ;    ""     " 11. [21]
  245. KEY12    EQU    99H        ;    ""     " 12. [21]
  246. KEYI    EQU    52H        ; Insert Key. [21]
  247. KEYIS    EQU    89H        ; Shift Insert Key. [21]
  248. KEYDEL    EQU    53H        ; Delete Key. [21]
  249. KEYDELS    EQU    8AH        ; Shift Delete Key. [21]
  250. KEYPGU    EQU    49H        ; PG UP key on keypad. [21]
  251. KEYPGD    EQU    51H        ; PG DN key on keypad. [21]
  252. KEYEND    EQU    4FH        ; END key on keypad. [21]
  253.  
  254. CURBIK    EQU    0dfffH        ; Cursor blinking. [21]
  255. CURON    EQU    0bfffH        ; Cursor on. [21]
  256. CURSTDY    EQU    2000H        ; Cursor steady. [21]
  257. CUROFF    EQU    4000H        ; Cursor invisible. [21]
  258. ENDIF
  259.  
  260. IF ibmpc
  261. BIOS    EQU     10H
  262. COMM    EQU     14H
  263. KEYB    EQU     16H
  264. DEFESC  EQU     ']'-100Q        ; The default escape character.
  265. MDMDAT1 EQU     03F8H           ; Address of modem port (data). [19b]
  266. MDMSTS1 EQU     03FDH           ; Address of modem port status. [19b]
  267. MDMCOM1 EQU     03FBH           ; Address of modem port command. [19b]
  268. MDMDAT2 EQU     02F8H           ; Port 2 address. [19b]
  269. MDMSTS2 EQU     02FDH           ; Port 2 status. [19b]
  270. MDMCOM2 EQU     02FBH           ; Port 2 command. [19b]
  271. MDMINP  EQU     1               ; Input ready bit.
  272.  
  273. BRKBIT  EQU     040H            ; Send-break bit. [20g]
  274. MDMINTV EQU     0030H           ; Address of modem port interrupt vector.
  275. MDINTV2 EQU     002CH           ; Address for port 2. [19b] 
  276. MDMINTO EQU     0EFH            ; Mask to enable interrupt for modem port.
  277. MDINTO2 EQU     0F7H            ; Enable interrupt level 3. [19b]
  278. MDMINTC EQU     010H            ; Bit to set to disable interrupts for modem.
  279. MDINTC2 EQU     008H            ; Disable IRQ3. [19b]
  280. INTCONT EQU     0021H           ; Address of 8259 interrupt controller ICW2-3.
  281. INTCON1 EQU     0020H           ; Address of 8259 ICW1.
  282. EOICOM  EQU     0064H           ; End of interrupt.
  283. EOICOM2 EQU     0063H           ; End of interrupt for COM2. [19b]
  284. TIMER   EQU     40H             ; Use to issue short beep.
  285. PORT_B  EQU     61H             ; Port B address.
  286.  
  287. B0300   EQU    180H             ; Variables for 300 baud, 1200, etc.
  288. B1200   EQU     60H
  289. B1800   EQU     40H
  290. B2400   EQU     30H
  291. B4800   EQU     18H
  292. B9600   EQU     0CH
  293. ENDIF
  294.  
  295. IF Z100
  296. MDMCOM  EQU     0EFH            ; Asynch port command register. [20g]
  297. BRKBIT  EQU     048H            ; Send-break bits. [20g]
  298. DEFESC  EQU     '\'-100Q        ; The default escape character.
  299.  
  300. ; BIOS entry points
  301.  
  302. BIOS_SEG SEGMENT AT 40H         ; Define segment where BIOS really is
  303.  
  304.         ORG     6*3
  305. BIOS_AUXOUT LABEL FAR           ; AUX output routine
  306.  
  307.         ORG     26*3
  308. BIOS_AUXFUNC LABEL FAR          ; AUX: function
  309.  
  310. BIOS_SEG ENDS                   ; End of BIOS segment defs
  311.  
  312. ; Function codes for BIOS_AUXFUNC
  313. CHR_READ        EQU     1       ; Read character
  314. CHR_STATUS      EQU     2       ; Get status
  315.   CHR_SFGS      EQU     0       ; Get status subfunction
  316.   CHR_SFGC      EQU     1       ; Get config subfunction
  317. CHR_CONTROL     EQU     3       ; Control function
  318.  CHR_CFSU       EQU     0       ; Set new configuration parameters
  319.  
  320. B00455  EQU     0               ; 45.5 baud
  321. B0050   EQU     1               ; 50 baud
  322. B0075   EQU     2               ; 75 baud
  323. B0110   EQU     3               ; 110 baud
  324. B01345  EQU     4               ; 134.5 baud
  325. B0150   EQU     5               ; 150 baud
  326. B0300   EQU     6               ; 300 baud
  327. B0600   EQU     7               ; 600 baud
  328. B1200   EQU     8               ; 1200 baud
  329. B1800   EQU     9               ; 1800 baud
  330. B2000   EQU     10              ; 2000 baud
  331. B2400   EQU     11              ; 2400 baud
  332. B4800   EQU     12              ; 4800 baud
  333. B9600   EQU     13              ; 9600 baud
  334. B19200  EQU     14              ; 19200 baud
  335. B38400  EQU     15              ; 38400 baud 
  336. ENDIF
  337.  
  338. STACK   SEGMENT PARA STACK 'STACK'
  339.         DW      100 DUP(0)      ; Initialize stack to all zeros.
  340. STK     EQU     THIS WORD
  341. STACK   ENDS
  342.  
  343. DATAS   SEGMENT PARA PUBLIC 'DATAS'
  344.  
  345.         ; Pure storage.
  346.  
  347. versio  db      'CUCCA'
  348. IF t2000
  349.     db    ' Tandy Model 2000'
  350. ENDIF
  351. IF ibmpc
  352.         db      ' IBM-PC' 
  353. ENDIF
  354. IF Z100
  355.         db      '/Stevens Heath/Zenith Z-100'
  356. ENDIF
  357.         db      ' Kermit-86 - ver 1.21',cr,lf,'$'       ;[19a]
  358. kerm    db      'Kermit-86>$'
  359. spmes   db      'Spack:  $'
  360. rpmes   db      'Rpack:  $'
  361. hibit   db      'Warning - Non Ascii char$'
  362. tmp     db      ?
  363. foo     db      '$'
  364. crlf    db      cr,lf,'$'
  365. ender   db      bell,bell,'$'                   ;  [4]
  366. tmsg1   db      cr,lf,'[Connecting to host, type $' 
  367. tmsg3   db      ' C to return to PC$'     ; [17b, 19b]
  368. tmsg2   db      cr,lf,'[Back at micro]',cr,lf,'$'
  369. tmsg4   db      ', connecting over port COM$'  ; [19b]
  370. ermes1  db      cr,lf,'?Unregonized command$'
  371. ermes2  db      cr,lf,'?Illegal character$'
  372. ermes3  db      cr,lf,'?Not confirmed$'
  373. ermes4  db      'Unable to rename file$'
  374. ermes7  db      '?Unable to receive initiate$'
  375. ermes8  db      '?Unable to receive file name$'
  376. ermes9  db      '?Unable to receive end of file$'
  377. erms10  db      '?Unable to receive data$'
  378. erms11  db      '?Disk full$'
  379. erms14  db      '?Unable to receive an acknowledgement from the host$'
  380. erms15  db      '?Unable to find file$'
  381. erms17  db      'Record length exceeds size of buffer$'
  382. erms18  db      cr,lf,'?Unable to tell host that session is finished$'
  383. erms19  db      cr,lf,'?Unable to tell host to logout$'
  384. infms0  db      'Waiting .....$'
  385. infms1  db      'Receiving ...$'
  386. infms2  db      'Sending .....$'
  387. infms3  db      'Completed    $'
  388. infms4  db      'Failed       $'
  389. infms5  db      'Renaming file to $'
  390. infms6  db      'Interrupted  $'                ; [20b]
  391. infms7  db      'File interrupt: OK  $'         ; [20b] 
  392. infms8  db      'File group interrupt: OK  $'   ; [20b] 
  393.  
  394. cfrmes  db      ' Confirm with carriage return $'
  395. filhlp  db      ' Input file spec (possibly wild) $'
  396. esctl   db      'Control-$'         ; [6]
  397. spchar  db      24H,26H,23H,40H,21H,25H,27H,28H,29H,2DH
  398.         db      3CH,3EH,7BH,7DH,5FH,5CH,5EH,7EH,7CH,60H
  399. eschlp  db      cr,lf,'Enter literal value (ex: Cntrl ])  $'
  400. tophlp  db      cr,lf,'BYE to host (LOGOUT) and exit to DOS'
  401.         db      cr,lf,'CONNECT to host on selected port'
  402.         db      cr,lf,'EXIT to DOS'
  403.         db      cr,lf,'FINISH running Kermit on the host'
  404.         db      cr,lf,'HELP by giving this message'
  405.         db      cr,lf,'LOGOUT the host'
  406.         db      cr,lf,'RECEIVE file from host'
  407.         db      cr,lf,'SEND file to host'
  408.         db      cr,lf,'SET a parameter'
  409. ;        db      cr,lf,'SHOW the parameters'
  410.         db      cr,lf,'STATUS of Kermit$'
  411. sethlp  db      cr,lf,'BACKARROW to'            ; [19c]
  412.         db      cr,lf,'BAUD rate'       
  413.         db      cr,lf,'BELL'    ; [17a]
  414.         db      cr,lf,'DEBUG'
  415. IF t2000
  416.     db    cr,lf,'EMULATION term type'    ; [21]
  417. ENDIF
  418.         db      cr,lf,'END-OF-LINE character'
  419.         db      cr,lf,'ESCAPE character change'
  420.         db      cr,lf,'FILE-WARNING'
  421. IF ibmpc
  422.         db      cr,lf,'HEATH-19'                ; [19e]
  423. ENDIF
  424.         db      cr,lf,'IBM'
  425.         db      cr,lf,'INCOMPLETE file'         ; [20d]
  426.         db      cr,lf,'LOCAL-ECHO echoing (half-duplex)'
  427.         db      cr,lf,'PARITY type'                     ; [10]
  428. IF ibmpc
  429.         db      cr,lf,'PORT for communication$'     ; [19b]
  430. ;        db      cr,lf,'VT52-EMULATION$'           ; [19e]
  431. ENDIF
  432. IF Z100
  433.         db      '$'
  434. ENDIF   
  435. stshlp  db      cr,lf,'PAD-CHAR'
  436.         db      cr,lf,'PADDING$'
  437. onhlp   db      cr,lf,'OFF      ON$'
  438. yeshlp  db      cr,lf,'NO       YES$'
  439. abfhlp  db      cr,lf,'DISCARD      KEEP$'              ; [20d]
  440. comphlp db      cr,lf,'1 (COM1)   2 (COM2)$'            ; [19b]
  441. parhlp  db      cr,lf,'None   Mark   Odd   Even   Space$'   ; [10]
  442. IF t2000
  443. emhlp    db    cr,lf,'VT-52    HEATH-19    OTHER$'    ; [21]
  444. bdhlp    db    cr,lf,'110  150  300  600  1200  2400  4800  9600$'
  445. ENDIF
  446. IF ibmpc
  447. bdhlp   db      cr,lf,'300   1200   1800   2400   4800   9600$'
  448. ENDIF
  449. IF Z100
  450. bdhlp   db      cr,lf,'45.5     50      75      110     134.5   150     300'
  451.         db      '       600     1200    1800'
  452.         db      cr,lf,' 2000    2400    4800    9600    19200   38400'
  453. ENDIF
  454. BShlp   db      cr,lf,'BACKSPACE      DELETE$'          ; [19c]
  455. eolhlp  db      cr,lf,'Decimal digit between 0 and 31$'   ; [5]
  456. eolerr  db      cr,lf,'Illegal end-of-line character$'  ; [5]
  457. inthlp  db      cr,lf,'?  This message'
  458.         db      cr,lf,'C  Close the connection'
  459.         db      cr,lf,'S  Status of the connection'
  460.         db      cr,lf,'B  Send a break'                 ; [20g]
  461.         db      cr,lf,'Typing the escape character will send it to the host'
  462.         db      cr,lf,cr,lf,'Command>$'
  463. locst   db      cr,lf,'Local echo on$'
  464. remst   db      cr,lf,'Local echo off$'
  465. belon   db      cr,lf,'Ring bell at end of transfer$'     ; [17a - DT]
  466. beloff  db      cr,lf,'No bell at end of transfer$'       ; [17a - DT]
  467. IF t2000
  468. em19    db    cr,lf,'Emulation is HEATH-19$'        ; [21]
  469. emother db    cr,lf,'Emulation is OTHER$'        ; [21]
  470. emvt52    db    cr,lf,'Emulation is VT-52$'        ; [21]
  471. ENDIF
  472. IF ibmpc                        ; [21]
  473. vtemst  db      cr,lf,'HEATH-19 emulation on$'          ; [19e]
  474. novtst  db      cr,lf,'HEATH-19 emulation off$'         ; [19e]
  475. ENDIF
  476. IF ibmpc
  477. cm1st   db      cr,lf,'Using communications port 1$'    ; [19b]
  478. cm2st   db      cr,lf,'Using communications port 2$'    ; [19b]
  479. ENDIF
  480. ibmst   db      cr,lf,'IBM on$'
  481. noibm   db      cr,lf,'IBM off$'
  482. pnonst  db      cr,lf,'No parity$'                      ; [10]
  483. poddst  db      cr,lf,'Odd parity$'                     ; [10]
  484. pevnst  db      cr,lf,'Even parity$'                    ; [10]
  485. pmrkst  db      cr,lf,'Mark parity$'                    ; [10]
  486. pspcst  db      cr,lf,'Space parity$'                   ; [10]
  487. IF Z100 
  488. b04st   db      cr,lf,'Baud rate is 45.5$'
  489. b05st   db      cr,lf,'Baud rate is 50$'
  490. b07st   db      cr,lf,'Baud rate is 75$'
  491. b11st   db      cr,lf,'Baud rate is 110$'
  492. b13st   db      cr,lf,'Baud rate is 134.5$'
  493. b15st   db      cr,lf,'Baud rate is 150$'
  494. b06st   db      cr,lf,'Baud rate is 600$'
  495. b20st   db      cr,lf,'Baud rate is 2000$'
  496. b19st   db      cr,lf,'Baud rate is 19200$'
  497. b38st   db      cr,lf,'Baud rate is 38400$'
  498. ENDIF
  499. IF t2000
  500. b11st    db    cr,lf,'Baud rate is 110$'        ; [21]
  501. b15st    db     cr,lf,'Baud rate is 150$'        ; [21]
  502. b06st    db    cr,lf,'Baud rate is 600$'        ; [21]
  503. ENDIF
  504. b03st   db      cr,lf,'Baud rate is 300$'
  505. b12st   db      cr,lf,'Baud rate is 1200$'
  506. b18st   db      cr,lf,'Baud rate is 1800$'
  507. b24st   db      cr,lf,'Baud rate is 2400$'
  508. b48st   db      cr,lf,'Baud rate is 4800$'
  509. b96st   db      cr,lf,'Baud rate is 9600$'
  510. debon   db      cr,lf,'Debug mode on$'
  511. deboff  db      cr,lf,'Debug mode off$' 
  512. flwon   db      cr,lf,'File Warning on$'
  513. flwoff  db      cr,lf,'File Warning off$'
  514. bkbs    db      cr,lf,'Backarrow sends a backspace $'   ; [19c] 
  515. bkdel   db      cr,lf,'Backarrow sends a delete $'      ; [19c] 
  516. abfdst  db      cr,lf,'Discard incoming file if incomplete $'  ;[20d]
  517. abfkst  db      cr,lf,'Keep incoming file if incomplete $'   ;[20d]
  518. eolst   db      cr,lf,'End-of-line character is ^$'     ; [5]
  519. escmes  db      cr,lf,'Escape character is  $'          ; [6]
  520.  
  521.  
  522. outlin  db      cr,lf,'                CUCCA'
  523. IF t2000
  524.     db    ' Tandy Model 2000'
  525. ENDIF
  526. IF ibmpc
  527.         db      ' IBM-PC'
  528. ENDIF
  529. IF Z100
  530.         db      '/Stevens Heath/Zenith Z-100'
  531. ENDIF
  532.         db      ' Kermit-86 V1.21',cr,lf
  533.         db      cr,lf,'Number of packets:   '    ; [19a]
  534.         db      cr,lf,'Number of retries:   '    ; [19a]
  535.         db      cr,lf,'File name $'
  536. delstr  db      10O,' ',10O,10O,'$'     ; Delete string.
  537. clrspc  db      ' ',10O,'$'             ; Clear space.
  538. escspc  db      10O,' ',10O,'$'         ; Clear escape.
  539. IF msdos
  540. clrlin  db      cr,'$'                  ; Clear line (just the cr part).
  541. ENDIF
  542. IF Z100
  543. clrlin  db      cr,esc,'K$'             ; Clear line on Z-100
  544. clreol  db      esc,'K$'                ; Clear to end of line
  545. clrscr  db      esc,'H',esc,'J$'        ; Home and clear screen
  546. homcur  db      esc,'H$'                ; Home cursor
  547. ENDIF
  548. prsp    db      ' $'                    ; Print a space.
  549.  
  550. ; Cursor addressing items.
  551.  
  552. IF msdos
  553. scrhi   dw      0434H                   ; Err when 8th bit is on.
  554. scrrpr  dw      0700H                   ; Prompt when Kermit ends.
  555. screrr  dw      0600H                   ; Place for error msgs. 
  556. scrfln  dw      050CH                   ; Place for file name.
  557. scrnrt  dw      0415H                   ; Place for number of retries.
  558. scrnp   dw      0315H                   ; Place for number of packets.
  559. scrfr   dw      0600H                   ; Rename file.
  560. scrst   dw      0334H                   ; Place for status.
  561. scrint  dw      0434H                   ; Acknowledge interrupt. [20b]
  562. scrsp   dw      0800H                   ; Place for send packet.
  563. scrrp   dw      0A00H                   ; Place for receive packet.
  564.  
  565. ttab    label   word                    ; Table for cursor movement.
  566. ta      dw      curup                   ; Cursor up.
  567. tb      dw      curdwn                  ; Cursor down.
  568. tc      dw      currt                   ; Cursor right.
  569. td      dw      curlft                  ; Cursor left.
  570. te      dw      curclr                  ; Clear display. [15]
  571. tf      dw      curskp                  ; Enter graphics mode.
  572. tg      dw      curskp                  ; Exit graphics mode.
  573. th      dw      curhm                   ; Cursor home.
  574. ti      dw      curup                   ; Reverse line feed.
  575. tj      dw      curscr                  ; Clear to end of screen.
  576. tk      dw      curln                   ; Clear to end of line.
  577. tl      dw      inslin                  ; Insert line.
  578. tm      dw      dellin                  ; Delete line.  
  579. tn      dw      delchr                  ; Delete character. [17b] 
  580. to      dw      insmox                  ; Cancel Insert Character. [17b] 
  581. ENDIF
  582.  
  583. IF Z100
  584. scrhi   db      esc,'Y',23H,54H,lf,'$'  ; 8th bit on in character
  585. scrrpr  db      esc,'Y',27H,20H,'$'     ; Prompt when Kermit ends
  586. screrr  db      esc,'Y',26H,20H,'$'     ; Error messages
  587. scrfln  db      esc,'Y',25H,2CH,'$'     ; File name
  588. scrnrt  db      esc,'Y',23H,35H,lf,'$'  ; Number of retries
  589. scrnp   db      esc,'Y',23H,35H,'$'     ; Number of packets
  590. scrfr   db      esc,'Y',26H,20H,'$'     ; Rename file
  591. scrst   db      esc,'Y',23H,54H,'$'     ; Status
  592. scrint  db      esc,'Y',24H,54H,'$'     ; Acknowledge interrupt. [20b]
  593. scrsp   db      esc,'Y',28H,20H,'$'     ; send packet
  594. scrrp   db      esc,'Y',2AH,20H,'$'     ; Receive packet
  595. ENDIF
  596.  
  597.     ; special function & arrow key tables. [21]
  598.  
  599. IF t2000
  600. keytab1    db    KEYU,2,esc,'A'
  601.     db    KEYD,2,esc,'B'
  602.     db    KEYR,2,esc,'C'
  603.     db    KEYL,2,esc,'D'
  604.     db    KEYH,2,esc,'H'
  605.     db    KEY1,2,esc,'S'
  606.     db    KEY2,2,esc,'T'
  607.     db    KEY3,2,esc,'U'
  608.     db    KEY4,2,esc,'V'
  609.     db    KEY5,2,esc,'W'
  610.     db    KEY6,2,esc,'P'
  611.     db    KEY7,2,esc,'Q'
  612.     db    KEY8,2,esc,'R'
  613.     db    KEY9,2,esc,'X'
  614.     db    KEY10,2,esc,'Z'
  615.     db    0,0,0,0,0        ; End of table. [21]
  616. keytab2    db    KEYU,2,esc,'A'
  617.     db    KEYD,2,esc,'B'
  618.     db    KEYR,2,esc,'C'
  619.     db    KEYL,2,esc,'D'
  620.     db    KEYH,2,esc,'H'
  621.     db    KEY1,2,esc,'S'
  622.     db    KEY2,2,esc,'T'
  623.     db    KEY3,2,esc,'U'
  624.     db    KEY4,2,esc,'V'
  625.     db    KEY5,2,esc,'W'
  626.     db    KEY6,2,esc,'P'
  627.     db    KEY7,2,esc,'Q'
  628.     db    KEY8,2,esc,'R'
  629.     db    KEY9,2,esc,'X'
  630.     db    KEY10,2,esc,'Z'
  631.     db    KEY11,2,esc,'N'        ; [21]
  632.     db    KEY12,1,'O'-40H        ; [21]
  633.     db    KEYI,1,'A'-40H        ; [21]
  634.     db    KEYDEL,1,'B'-40H    ; [21]
  635.     db    KEYPGU,3,esc,'A','G'-40H ; page up. [21]
  636.     db    KEYPGD,3,esc,'B','G'-40H ; page down. [21]
  637.     db    KEYEND,3,esc,'B','T'-40H ; end key. [21]
  638.     db    0,0,0,0,0        ; End of table. [21]
  639. keytab3    db    KEYU,2,esc,'A'
  640.     db    KEYD,1,'J'-40H
  641.     db    KEYR,1,'F'-40H
  642.     db    KEYL,1,'H'-40H
  643.     db    KEYH,1,'A'-40H
  644.     db    KEY10,3,'B'-40H,'0',cr
  645.     db    KEY1,3,'B'-40H,'1',cr
  646.     db    KEY2,3,'B'-40H,'2',cr
  647.     db    KEY3,3,'B'-40H,'3',cr
  648.     db    KEY4,3,'B'-40H,'4',cr
  649.     db    KEY5,3,'B'-40H,'5',cr
  650.     db    KEY6,3,'B'-40H,'6',cr
  651.     db    KEY7,3,'B'-40H,'7',cr
  652.     db    KEY8,3,'B'-40H,'8',cr
  653.     db    KEY9,3,'B'-40H,'9',cr
  654.     db    0,0,0,0,0,0
  655. ENDIF
  656.  
  657.         ; COMND tables
  658.  
  659. comtab  db      0AH                     ; Ten entries.
  660.         db      03H,'BYE$'
  661.         dw      bye
  662.         db      07H,'CONNECT$'
  663.         dw      telnet
  664.         db      04H,'EXIT$'
  665.         dw      exit
  666.         db      06H,'FINISH$'
  667.         dw      finish
  668.         db      04H,'HELP$'
  669.         dw      help
  670.         db      06H,'LOGOUT$'
  671.         dw      logout
  672.         db      07H,'RECEIVE$'
  673.         dw      read
  674.         db      04H,'SEND$'
  675.         dw      send
  676.         db      03H,'SET$'
  677.         dw      setcom
  678.         db      06H,'STATUS$'
  679.         dw      status
  680.  
  681. IF msdos
  682. settab  db      0DH             ; Thirteen entries. [17a][19b][19c][20d]
  683. ENDIF
  684. IF Z100
  685. settab  db      0BH             ; Eleven entries.   [10][17a][19c][20d]
  686. ENDIF
  687.         db      09H,'BACKARROW$'        ; [19c]
  688.         dw      BSset                   ; [19c]
  689.         db      04H,'BAUD$'
  690.         dw      baudst
  691.         db      04H,'BELL$'     ; [17a]
  692.         dw      bellst          ; [17a]
  693.         db      05H,'DEBUG$'
  694.         dw      debst
  695. IF t2000
  696.     db    09H,'EMULATION$'        ; [21]
  697.     dw    emset                ; [21]
  698. ENDIF
  699.     db    0BH,'END-OF-LINE$'    ; [5]
  700.     dw    eolset            ; [5]
  701.     db    06H,'ESCAPE$'
  702.     dw    escape
  703.     db    0CH,'FILE-WARNING$'
  704.     dw    filwar
  705. IF ibmpc                    ; [21]
  706.         db      0DH,'H19-EMULATION$'            ; [19e]
  707.         dw      vt52em                          ; [19e]
  708. ENDIF
  709.         db      03H,'IBM$'
  710.         dw      ibmset
  711.         db      0AH,'INCOMPLETE$'       ; [20d]
  712.         dw      abfset                  ; [20d]
  713.         db      0AH,'LOCAL-ECHO$'
  714.         dw      lcal
  715.         db      06H,'PARITY$'                           ; [10]
  716.         dw      setpar                                  ; [10]
  717. IF ibmpc
  718.         db      04H,'PORT$'                     ; [19b]
  719.         dw      comset                          ; [19b]
  720. ;        db      0EH,'VT52-EMULATION$'          ; [19e]
  721. ;        dw      vt52em                         ; [19e]
  722. ENDIF
  723.  
  724. ontab   db      02H             ; Two entries.
  725.         db      03H,'OFF$'      ; Should be alphabetized.  [19a]
  726.         dw      00H
  727.         db      02H,'ON$'
  728.         dw      01H
  729.  
  730. ; If abort when receiving files, can keep what we have or discard. [20d]
  731.  
  732. abftab  db      02H             ; Only two options. 
  733.         db      07H,'DISCARD$'
  734.         dw      01H
  735.         db      04H,'KEEP$'
  736.         dw      00H
  737.  
  738. ; Entries for terminal emulation. [21]
  739.  
  740. IF t2000
  741. termtab db    03H            ; Only types. [21]
  742.     db    08H,'HEATH-19$'
  743.     dw    01H
  744.     db    05H,'OTHER$'
  745.     dw    02H
  746.     db    05H,'VT-52$'
  747.     dw    00H
  748. ENDIF
  749.  
  750. ; Entries for choosing communications port. [19b]
  751.  
  752. comptab db      04H
  753.         db      01H,'1$'
  754.         dw      01H
  755.         db      01H,'2$'
  756.         dw      00H
  757.         db      04H,'COM1$'
  758.         dw      01H
  759.         db      04H,'COM2$'
  760.         dw      00H
  761.  
  762. yestab  db      02H             ; Two entries.
  763.         db      02H,'NO$'
  764.         dw      00H
  765.         db      03H,'YES$'
  766.         dw      01H
  767.  
  768. partab  db      05H             ; Five entries.                 [10 start]
  769.         db      04H,'EVEN$'
  770.         dw      PAREVN
  771.         db      04H,'MARK$'
  772.         dw      PARMRK
  773.         db      04H,'NONE$'
  774.         dw      PARNON
  775.         db      03H,'ODD$'
  776.         dw      PARODD
  777.         db      05H,'SPACE$'
  778.         dw      PARSPC                                          ;[10 end]
  779.  
  780. BStab   db      02H                     ;Two entries [19c start]
  781.         db      09H,'BACKSPACE$'
  782.         dw      00H
  783.         db      06H,'DELETE$'
  784.         dw      01H                     ;[19c]
  785.  
  786. IF t2000
  787. bdtab    db    08H        ; Eight entries. [21]
  788.     db    03H,'110$'
  789.     dw    B0110
  790.     db    04H,'1200$'
  791.     dw    B1200
  792.     db    03H,'150$'
  793.     dw    B0150
  794.     db    04H,'2400$'
  795.     dw    B2400
  796.     db    03H,'300$'
  797.     dw    B0300
  798.     db    04H,'4800$'
  799.     dw    B4800
  800.     db    03H,'600$'
  801.     dw    B0600
  802.     db    04H,'9600$'
  803.     dw    B9600
  804. ENDIF
  805.  
  806. IF ibmpc
  807. bdtab   db      06H             ; Six entries.
  808.         db      04H,'1200$'
  809.     dw    B1200
  810.         db      04H,'1800$'
  811.         dw      B1800
  812.         db      04H,'2400$'
  813.         dw      B2400
  814.         db      03H,'300$'
  815.         dw      B0300
  816.         db      04H,'4800$'
  817.         dw      B4800
  818.         db      04H,'9600$'
  819.         dw      B9600
  820. ENDIF
  821. IF Z100
  822. bdtab   db      010H            ; 16 entries
  823.         db      03H,'110$'
  824.         dw      b0110
  825.         db      04H,'1200$'
  826.         dw      b1200
  827.         db      03H,'134$'
  828.         dw      b01345
  829.         db      03H,'150$'
  830.         dw      b0150
  831.         db      04H,'1800$'
  832.         dw      b1800
  833.         db      05H,'19200$'
  834.         dw      b19200
  835.         db      04H,'2000$'
  836.         dw      b2000
  837.         db      04H,'2400$'
  838.         dw      b2400
  839.         db      03H,'300$'
  840.         dw      b0300
  841.         db      05H,'38400$'
  842.         dw      b38400
  843.         db      02H,'45$'
  844.         dw      b00455
  845.         db      04H,'4800$'
  846.         dw      b4800
  847.         db      02H,'50$'
  848.         dw      b0050
  849.         db      03H,'600$'
  850.         dw      b0600
  851.         db      02H,'75$'
  852.         dw      b0075
  853.         db      04H,'9600$'
  854.         dw      b9600
  855. ENDIF
  856.  
  857. ; COMND storage
  858.  
  859. cmer00  db      cr,lf,'?Program error   Invalid COMND call$'
  860. cmer01  db      cr,lf,'?Ambiguous$'
  861. cmer02  db      cr,lf,'?Illegal input file spec$'
  862. ;cmer03 db      cr,lf,'?Unrecognized instruction$'
  863. cmer03  db      cr,lf,'?Invalid command$'                ;  [19e]
  864. cmer04  db      cr,lf,'?Invalid command or operand$'     ;  [1]
  865. cmin00  db      ' Confirm with carriage return$'
  866. cmcrlf  db      cr,lf,'$'
  867.  
  868. cmstat  db      ?               ; What is presently being parsed.
  869. cmaflg  db      ?               ; Non-zero when an action char has been found.
  870. cmccnt  db      ?               ; Non-zero if a significant char is found.
  871. cmsflg  db      ?               ; Non-zero when the last char was a space.
  872. cmostp  dw      ?               ; Old stack pointer for reparse.
  873. cmrprs  dw      ?               ; Address to go to on reparse.
  874. cmprmp  dw      ?               ; Address of prompt.
  875. cmptab  dw      ?               ; Address of present keyword table.
  876. cmhlp   dw      ?               ; Address of present help.
  877. cmdbuf  db      80H DUP(?)      ; Buffer for command parsing.
  878. cmfcb   dw      ?               ; Pointer to FCB.
  879. cmfcb2  dw      ?               ; Pointer to position in FCB.
  880. cmcptr  dw      ?               ; Pointer for next char input.
  881. cmdptr  dw      ?               ; Pointer into the command buffer.
  882. cmsiz   dw      ?               ; Size info of user input.
  883. cmkptr  dw      ?               ; Pointer to keyword.
  884. cmsptr  dw      ?               ; Place to save a pointer.
  885. cmchr   db      ?               ; Save char when checking ambiguity.
  886.  
  887. ; Program storage.
  888.  
  889. oldstk  dw      ?               ; Storage for system stack.
  890. oldsts  dw      ?               ; System stack segment.
  891. ssp     dw      0               ; Save SP in Telnet.
  892. bufhex  dw      80H
  893. filsiz  dw      0,0             ; Double word for filesize (in bytes.)
  894. eoflag  db      ?               ; EOF flag; non-zero on EOF.
  895.     dw    0        ; blank
  896. wldflg  db      0               ; Assume no "*" in fn.         [7]
  897. ;telflg db      0               ; Are we acting as a terminal. [16] [17c]
  898. belflg  db      1               ; Use bell  [17a -- DT]
  899. comflg  db      1               ; Use COM1 by default. [19b]
  900. cxzflg  db      0               ; ^X/^Z to interrupt file x-fer. [20b] 
  901. abfflg  db      1               ; Discard incoming file if abort. [20d]
  902. debug   db      0               ; Debugging mode (default off).
  903. hierr   db      0               ; Non-ascii char (non-zero if yes).
  904. filflg  db      ?               ; Non-zero when nothing in DMA buffer.
  905. ecoflg  db      0               ; Local echo flag (default off).
  906. parflg  db      defpar          ; Parity flag (default none.)  [10]
  907. escflg  db      0               ; Escape flag (start off).
  908.  
  909. IF msdos
  910. vtflg   db      2               ; VT52 emulation flag (default on).
  911. incmod  db      0               ; Insert Character mode.  [17b] [20g]
  912. curatt  dw      0007H           ; Video attributes. [17b]
  913. baud    dw      B9600           ; Use default of 4800.
  914. ENDIF                ; [21]
  915.  
  916. IF t2000
  917. curflg    db    1        ; Set cursor on. [21]
  918. gphflg    db    0        ; Graphics mode switch 0 = off. [21g]
  919. curtyp    dw    000cH        ; Default cursor type. [21]
  920. ktable    dw    keytab1        ; Key table default. [21]
  921. mdcom    dw    MDMCOM        ; USART command port. [21]
  922. ENDIF
  923.  
  924. IF ibmpc            ; [21]
  925. mddat   dw      MDMDAT1         ; Default to port 1. [19b start]
  926. mdstat  dw      MDMSTS1         ; Ditto. 
  927. mdcom   dw      MDMCOM1         ; Here too. 
  928. mden    db      MDMINTO
  929. mddis   db      MDMINTC
  930. mdmeoi  db      EOICOM
  931. mdintv  dw      MDMINTV         ; [19b end]
  932. ENDIF
  933.  
  934. IF Z100
  935. auxcnf  db      4 dup(?)        ; AUX port configuration info
  936. baud    db      ?               ; Baud rate
  937. auxcnf1 db      12 dup(?)       ; Rest of configuration info
  938. mdcom   dw      MDMCOM          ; Use to send a break. [20g]
  939. ENDIF
  940.  
  941. flwflg  db      1               ; File warning flag (default on). [19c]
  942. ibmflg  db      0               ; IBM flag (default off).
  943. delflg  db      0               ; Do BS to DEL translation. [19c]
  944. extflg  db      0               ; Exit flag (default off).
  945. escchr  db      defesc          ; Storage for the escape character.
  946. incnt   dw      ?               ; Number of chars read in from port.
  947. chrcnt  dw      ?               ; Number of chars in the file buffer.
  948. filcnt  dw      ?               ; Number of chars left to fill.
  949. outpnt  dw      ?               ; Position in packet.
  950. bufpnt  dw      ?               ; Position in file buffer.
  951. fcbptr  dw      ?               ; Position in FCB.
  952. datptr  dw      ?               ; Position in packet data buffer.
  953. cbfptr  dw      ?               ; Position in character buffer.
  954. pktptr  dw      ?               ; Poistion in receive packet.
  955. siz     dw      ?               ; Size of data from gtchr.
  956. spsiz   db      dspsiz          ; Send packet size.
  957. rpsiz   db      drpsiz          ; Receive packet size.
  958. stime   db      dstime          ; Send time out.
  959. rtime   db      drtime          ; Receive time out.
  960. spad    db      dspad           ; Send padding.
  961. rpad    db      drpad           ; Receive padding.
  962. spadch  db      dspadc          ; Send padding char.
  963. rpadch  db      drpadc          ; Receive padding char.
  964. seol    db      dseol           ; Send EOL char.
  965. reol    db      dreol           ; Receive EOL char.
  966. squote  db      dsquot          ; Send quote char.
  967. rquote  db      drquot          ; Receive quote char.
  968. pktnum  dw      ?               ; Packet number.
  969. numpkt  dw      ?               ; Total number of packets sent.
  970. numrtr  dw      ?               ; Total number of retries.
  971. numtry  db      ?               ; Number of tries on this packet.
  972. oldtry  db      ?               ; Number of tries on previous packet.
  973. state   db      ?               ; Present state of the automaton.
  974. savsci  dw      ?               ; Save for serial port interrupt vector. [14]
  975. savscs  dw      ?               ; Ditto.  [14]  
  976. packet  db      ?,?,?,?         ; Packet (data is part of it).
  977. data    db      5AH DUP(?)      ; Data and checksum field of packet.
  978. recpkt  db      60H DUP(?)      ; Receive packet storage (use the following).
  979. filbuf  db      60H DUP(?)      ; Character buffer.
  980. fcb     db      25H DUP(?)      ; Use as our FCB.
  981. cpfcb   db      25H DUP(?)      ; Save FCB in case of "*".   [7]
  982. buff    db      80H DUP(?)      ; Use as our DAT.
  983. rdbuf   db      80H DUP(?)
  984. cnt     dw      0
  985. temp    dw      0
  986. temp1   dw      ?               ; Temporary storage.
  987. temp2   dw      ?
  988. temp3   dw      ?
  989. temp4   dw      ?
  990. argblk  dw      ?               ; For subroutine arguments.
  991. argbk1  dw      ?
  992. argbk2  dw      ?
  993. argbk3  dw      ?
  994.  
  995. DATAS   ENDS                    ; End data segment
  996.  
  997.  
  998. MAIN    SEGMENT PARA PUBLIC 'MAIN'
  999. START   PROC  FAR
  1000.         ASSUME  CS:MAIN,DS:DATAS,SS:STACK,ES:NOTHING
  1001.  
  1002.         push ds                 ; Save system data area.
  1003.         sub ax,ax               ; Get a zero.
  1004.         push ax                 ; Put zero return addr on stack.
  1005.  
  1006.         mov ax,datas            ; Initialize DS.
  1007.         mov ds,ax
  1008.         sub ax,ax
  1009.  
  1010.         mov oldstk,sp           ; Save old stack pointer.
  1011.  
  1012.         call cmblnk             ; Clear the screen.
  1013.         call locate
  1014.  
  1015.         mov ah,prstr            ; Print the version header.
  1016.         mov dx,offset versio
  1017.         int dos
  1018.  
  1019.         mov ah,setdma           ; Set disk transfer address.
  1020.         mov dx,offset buff
  1021.         int dos
  1022.  
  1023.         call dobaud             ; Set the baud rate. [19a, 20g]
  1024.  
  1025. ; This is the main KERMIT loop.  It prompts for and gets the users commands.
  1026.  
  1027. kermit: mov dx,offset kerm
  1028.         call prompt             ; Prompt the user.
  1029.         mov dx,offset comtab
  1030.         mov bx,offset tophlp
  1031.         mov ah,cmkey
  1032.         call comnd
  1033.          jmp kermt2
  1034.         call bx                 ; Call the routine returned.
  1035.          jmp kermt3
  1036.         cmp extflg,0            ;  Check if the exit flag is set.
  1037.         jne krmend              ;  If so jump to KRMEND.
  1038.         jmp kermit              ; Do it again.
  1039.  
  1040. kermt2: mov ah,prstr
  1041.         mov dx,offset ermes1    ;  Give an error.
  1042.         int dos
  1043.         jmp kermit
  1044.  
  1045. kermt3: mov ah,prstr
  1046.         mov dx,offset ermes3    ;  Give an error.
  1047.         int dos
  1048.         jmp kermit
  1049.  
  1050. krmend: 
  1051.         mov sp,oldstk
  1052.         ret
  1053.  
  1054. START   ENDP
  1055.  
  1056.  
  1057. ; These are some utility routines.
  1058.  
  1059. ;       Abort
  1060.  
  1061. ABORT   PROC    NEAR
  1062.         mov state,'A'           ; Otherwise abort.
  1063.         ret
  1064. ABORT   ENDP
  1065.  
  1066. ;       NAK
  1067.  
  1068. NAK     PROC    NEAR
  1069.         mov ax,pktnum           ; Get the packet number we're waiting for.
  1070.         mov argblk,ax
  1071.         mov argbk1,0
  1072.         mov ah,'N'              ; NAK that packet.
  1073.     call spack
  1074.          jmp abort
  1075.          nop                    ; So 'jmp rskp' in SPACK comes here. [19a]
  1076.         ret                     ; Go around again.
  1077. NAK     ENDP
  1078.  
  1079. ; Position cursor for an error message.
  1080.  
  1081. ERPOS   PROC    NEAR
  1082. IF msdos
  1083.         mov ah,2
  1084.         mov bh,0
  1085.         mov dx,screrr
  1086.         int bios
  1087.         ret
  1088. ENDIF
  1089. IF Z100
  1090.         mov dx,offset screrr    ; Get address of string to position cursor
  1091.         mov ah,prstr            ; Get the function code
  1092.         int dos                 ; Print the addressing string
  1093.         ret                     ; And return
  1094. ENDIF
  1095. ERPOS   ENDP
  1096.  
  1097. ; Position cursor for number of retries message.
  1098.  
  1099. RTPOS   PROC    NEAR
  1100. IF msdos
  1101.         mov ah,2
  1102.         mov bh,0
  1103.         mov dx,scrnrt
  1104.         int bios
  1105.         ret
  1106. ENDIF
  1107. IF Z100
  1108.         mov ah,prstr            ; Get the function to print string
  1109.         mov dx,offset scrnrt    ; Get the address of the string
  1110.         int dos                 ; Print the string
  1111.         ret                     ; And return
  1112. ENDIF
  1113. RTPOS   ENDP
  1114.  
  1115. ; Reassure user that we acknowledge his ^X/^Z.  [20b]
  1116. INTMSG  PROC    NEAR
  1117. IF msdos                        ; Tell user we acknowledge it.
  1118.         mov ah,2        
  1119.         mov dx,scrint
  1120.         mov bh,0
  1121.         int bios
  1122. ENDIF
  1123. IF Z100
  1124.         mov ah,prstr            ; Get print string function
  1125.         mov dx,offset scrint    ; and string to move cursor
  1126.         int dos                 ; Print the string
  1127. ENDIF
  1128.         mov dx,offset infms7    ; File interrupted?
  1129.         cmp cxzflg,'X'          ; Yes. 
  1130.         je int0
  1131.         mov dx,offset infms8    ; File group interrupted.
  1132. int0:   mov ah,prstr
  1133.         int dos
  1134.         ret
  1135. INTMSG  ENDP
  1136.  
  1137. ; Print err message that found a non-standard-Ascii char in the file.
  1138.  
  1139. BITERR  PROC    NEAR
  1140.         push bx
  1141. IF msdos
  1142.         mov ah,2
  1143.         mov bh,0
  1144.         mov dx,scrhi
  1145.         int bios
  1146. ENDIF
  1147. IF Z100
  1148.         mov ah,prstr            ; Get the function to print string
  1149.         mov dx,offset scrhi     ; Get the address of the string
  1150.         int dos                 ; Print the string
  1151. ENDIF
  1152.         mov ah,prstr
  1153.         mov dx,offset hibit
  1154.         int dos
  1155.         pop bx
  1156.         ret
  1157. BITERR  ENDP            
  1158.  
  1159. ;       This routine prints out the escape character in readable format.  
  1160.  
  1161. ESCPRT  PROC    NEAR            ; [6 start]
  1162.         mov dl,escchr
  1163.         cmp dl,' '
  1164.         jge escpr2
  1165.         push dx
  1166.         mov ah,prstr
  1167.         mov dx,offset esctl
  1168.         int dos
  1169.         pop dx
  1170.         add dl,040H             ; Make it printable
  1171. escpr2:    mov ah,conout
  1172.         int dos
  1173.         ret
  1174. ESCPRT  ENDP                    ; [6 end]
  1175.  
  1176. ;       FCB must be remembered if found "*" in filename.      [7 start]
  1177. ;       Copy from place addressed by BX to place addressed by DI.
  1178. ;       Also use to get the filename to the FCB from the DTA.
  1179.  
  1180. FCBCPY  PROC    NEAR
  1181. fcbcp1: cmp cl,0
  1182.         je fcbcp2
  1183.         mov ah,[bx]
  1184.         mov [di],ah
  1185.         dec cl
  1186.         inc bx
  1187.         inc di
  1188.         jmp fcbcp1
  1189. fcbcp2: ret
  1190. FCBCPY  ENDP    
  1191.  
  1192. ;       This routine sets up the data for init packet (either the
  1193. ;       Send_init or ACK packet).
  1194.  
  1195. RPAR    PROC    NEAR
  1196.         mov ah,rpsiz            ; Get the receive packet size.
  1197.         add ah,' '              ; Add a space to make it printable.
  1198.         mov [bx],ah             ; Put it in the packet.
  1199.         mov ah,rtime            ; Get the receive packet time out.
  1200.         add ah,' '              ; Add a space.
  1201.         mov 1[bx],ah            ; Put it in the packet.
  1202.         mov ah,rpad             ; Get the number of padding chars.
  1203.         add ah,' '
  1204.         mov 2[bx],ah            ; Put it in the packet.
  1205.         mov ah,rpadch           ; Get the padding char.
  1206.         add ah,100O             ; Uncontrol it.
  1207.         and ah,7FH
  1208.         mov 3[bx],ah            ; Put it in the packet.
  1209.         mov ah,reol             ; Get the EOL char.
  1210.         add ah,' '
  1211.         mov 4[bx],ah            ; Put it in the packet.
  1212.         mov ah,rquote           ; Get the quote char.
  1213.         mov 5[bx],ah            ; Put it in the packet.
  1214.         mov ah,06H              ; Six pieces of data.
  1215.         ret
  1216. RPAR    ENDP
  1217.  
  1218. ;       This routine reads in all the send_init packet information.
  1219.  
  1220. SPAR    PROC    NEAR
  1221.         mov temp4,ax            ; Save the number of arguments.
  1222.         mov ah,[bx]             ; Get the max packet size.
  1223.         sub ah,' '              ; Subtract a space.
  1224.         mov spsiz,ah            ; Save it.
  1225.         mov ax,temp4
  1226.         cmp al,3                ; Fewer than three pieces?
  1227.         jge spar1
  1228.         ret                     ; If so we are done.
  1229. spar1:  mov ah,2[bx]            ; Get the number of padding chars.
  1230.         sub ah,' '
  1231.         mov spad,ah
  1232.         mov ax,temp4
  1233.         cmp al,4                ; Fewer than four pieces?
  1234.         jge spar2
  1235.         ret                     ; If so we are done.
  1236. spar2:  mov ah,3[bx]            ; Get the padding char.
  1237.         add ah,100O             ; Re-controlify it.
  1238.         and ah,7FH
  1239.         mov spadch,ah
  1240.         mov ax,temp4
  1241.         cmp al,5                ; Fewer than five pieces?
  1242.         jge spar3
  1243.         ret                     ; If so we are done.
  1244. spar3:  mov ah,4[bx]            ; Get the EOL char.
  1245.         sub ah,' '
  1246.         mov seol,ah
  1247.         mov ax,temp4
  1248.         cmp al,6                ; Fewer than six pieces?
  1249.         jge spar4
  1250.         ret                     ; If so we are done.
  1251. spar4:  mov ah,5[bx]            ; Get the quote char.
  1252.         mov squote,ah
  1253.         ret
  1254. SPAR    ENDP
  1255.  
  1256.  
  1257. ;       Initialize buffers and clear line.
  1258.  
  1259. INIT    PROC    NEAR
  1260.         call cmblnk
  1261.         call locate
  1262.         mov ah,prstr            ; Put statistics headers on the screen.
  1263.         mov dx,offset outlin
  1264.         int dos
  1265.         call init1
  1266.         ret
  1267. INIT    ENDP
  1268.  
  1269. INIT1   PROC    NEAR
  1270.         mov chrcnt,bufsiz              ; Number of chars left.
  1271.         mov bufpnt,offset buff         ; Addr for beginning.
  1272.         ret
  1273. INIT1   ENDP
  1274.  
  1275. ;  Clear out message about interrupted file. [20b]
  1276. CXMSG   PROC    NEAR
  1277. IF msdos
  1278.         mov ah,2
  1279.         mov bh,0
  1280.         mov dx,scrint
  1281.         int bios
  1282.         mov ax,0920H
  1283.         mov bx,7
  1284.         mov cx,26
  1285.         int bios        
  1286.         ret
  1287. ENDIF
  1288. IF Z100
  1289.         mov ah,prstr
  1290.         mov dx,offset scrint    ; Move the cursor.
  1291.         int dos
  1292.         mov ah,prstr            ; Get the function again
  1293.         mov dx,offset clreol    ; And the sequence to clear to EOL
  1294.         int dos                 ; Do it
  1295.         ret
  1296. ENDIF
  1297. CXMSG   ENDP
  1298.  
  1299. ;  Clear out the old filename on the screen. 
  1300.  
  1301. CLRFLN  PROC    NEAR
  1302. IF msdos
  1303.         mov ah,2
  1304.         mov bh,0
  1305.         mov dx,scrfln
  1306.         int bios
  1307.         call clreol             ; Clear to end of line. [19a]
  1308.         ret
  1309. ENDIF
  1310. IF Z100
  1311.         mov ah,prstr            ; Get print string function
  1312.         mov dx,offset scrfln    ; and string to move cursor
  1313.         int dos                 ; Print the string
  1314.         mov ah,prstr            ; Get the function again
  1315.         mov dx,offset clreol    ; And the sequence to clear to EOL
  1316.         int dos                 ; Do it
  1317.         ret                     ; And return
  1318. ENDIF
  1319. CLRFLN  ENDP
  1320.  
  1321. ;       RECEIVE command
  1322.  
  1323. READ    PROC    NEAR
  1324.         mov bx,offset data      ; Where to put text (if any).  [8 start]
  1325.         mov ah,cmtxt
  1326.         call comnd              ; Get text or confirm.
  1327.          jmp kermt3
  1328.         cmp ah,0                ; Read in any chars?
  1329.         je read1                ; A regular receive.
  1330.         mov al,ah
  1331.         mov ah,0
  1332.         mov argbk1,ax           ; Remember number of chars we read.
  1333.         mov ah,'$'              ; Use for printing.
  1334.         mov [bx],ah
  1335.         call init               ; Clear line and initialize buffers.
  1336.         call clrfln             ; Prepare to print filename.
  1337.         mov ah,prstr
  1338.         mov dx,offset data      ; Print file name.
  1339.         int dos
  1340.         mov argblk,0            ; Start at packet zero.
  1341.         mov ah,'R'              ; Receive init packet.
  1342.         call spack              ; Send the packet.
  1343.          jmp kermt3
  1344.         jmp read12                                              ; [8 end]
  1345. read1:  call init               ; Clear the line and initialize the buffers.
  1346. read12: mov numpkt,0            ; Set the number of packets to zero.
  1347.         mov numrtr,0            ; Set the number of retries to zero.
  1348.         mov pktnum,0            ; Set the packet number to zero.
  1349.         mov numtry,0            ; Set the number of tries to zero.
  1350.         mov cxzflg,0            ; Reset ^X/^Z flag. [20c] 
  1351.         call serini             ; Initialize serial port. [14]
  1352.         call rtpos              ; Position cursor.
  1353.         mov ax,numrtr
  1354.         call nout               ; Write the number of retries.
  1355.         mov state,'R'           ; Set the state to receive initiate.
  1356. read2:  
  1357. IF msdos
  1358.         mov ah,2                ; Position cursor.
  1359.         mov dx,scrst
  1360.         mov bh,0
  1361.         int bios
  1362. ENDIF
  1363. IF Z100
  1364.         mov ah,prstr            ; Get print string function
  1365.         mov dx,offset scrst     ; and string to move cursor
  1366.         int dos                 ; Print the string
  1367. ENDIF
  1368.         mov ah,prstr            ; Be informative.
  1369.         mov dx,offset infms1
  1370.         int dos
  1371. IF msdos
  1372.         mov ah,2
  1373.         mov dx,scrnp
  1374.         mov bh,0
  1375.         int bios
  1376. ENDIF
  1377. IF Z100
  1378.         mov ah,prstr            ; Get print string function
  1379.         mov dx,offset scrnp     ; and string to move cursor
  1380.         int dos                 ; Print the string
  1381. ENDIF
  1382.         mov ax,numpkt
  1383.         call nout               ; Write the number of packets.
  1384.         mov ah,state            ; Get the state.
  1385.         cmp ah,'D'              ; Are we in the data send state?
  1386.         jne read3
  1387.         call rdata
  1388.         jmp read2
  1389. read3:  cmp ah,'F'              ; Are we in the file receive state?
  1390.         jne read4
  1391.         call rfile              ; Call receive file.
  1392.         jmp read2
  1393. read4:  cmp ah,'R'              ; Are we in the receive initiate state?
  1394.         jne read5
  1395.         call rinit
  1396.         jmp read2
  1397. read5:  cmp ah,'C'              ; Are we in the receive complete state?
  1398.         jne read6
  1399.         call serrst             ; Reset serial port. [14]
  1400. IF msdos
  1401.         mov ah,2                ; Position cursor.
  1402.         mov dx,scrst
  1403.         mov bh,0
  1404.         int bios
  1405. ENDIF
  1406. IF Z100
  1407.         mov ah,prstr            ; Get print string function
  1408.         mov dx,offset scrst     ; and string to move cursor
  1409.         int dos                 ; Print the string
  1410. ENDIF
  1411.         mov ah,prstr
  1412.         mov dx,offset infms3    ; Plus a little cuteness.
  1413.         cmp cxzflg,0            ; Completed or interrupted? [20c]
  1414.         je read13               ; Ended normally. [20c]
  1415.         mov dx,offset infms6    ; Say was interrupted. [20c]
  1416. read13: int dos
  1417.         cmp belflg,0            ; Bell desired?  [17a]
  1418.         je readnb               ; No.  [17a]
  1419.         mov dx,offset ender     ; Ring them bells.    [4]
  1420.         int dos                 ; [4]
  1421. readnb:                         ; [17a -- new label]
  1422. IF msdos
  1423.         mov ah,2
  1424.         mov dx,scrrpr           ; Put prompt here.
  1425.         mov bh,0
  1426.         int bios
  1427. ENDIF
  1428. IF Z100
  1429.         mov ah,prstr            ; Get print string function
  1430.         mov dx,offset scrrpr    ; and string to move cursor
  1431.         int dos                 ; Print the string
  1432. ENDIF
  1433.         jmp rskp
  1434. read6:  call serrst             ; Reset serial port. [14]
  1435. IF msdos
  1436.         mov ah,2                ; Position cursor.
  1437.         mov dx,scrst
  1438.         mov bh,0
  1439.         int bios
  1440. ENDIF
  1441. IF Z100
  1442.         mov ah,prstr            ; Get print string function
  1443.         mov dx,offset scrst     ; and string to move cursor
  1444.         int dos                 ; Print the string
  1445. ENDIF
  1446.         mov ah,prstr
  1447.         mov dx,offset infms4    ; Plus a little cuteness.
  1448.         int dos
  1449.         cmp belflg,0            ; Bell desired?  [17a]
  1450.         je read7                ; No.  [17a]
  1451.         mov dx,offset ender     ; Ring them bells.   [4]
  1452.         int dos                 ;  [4]
  1453. read7:
  1454. IF msdos
  1455.         mov ah,2
  1456.         mov dx,scrrpr
  1457.         mov bh,0
  1458.         int bios
  1459. ENDIF
  1460. IF Z100
  1461.         mov ah,prstr            ; Get print string function
  1462.         mov dx,offset scrrpr    ; and string to move cursor
  1463.         int dos                 ; Print the string
  1464. ENDIF
  1465.         jmp rskp
  1466. READ    ENDP
  1467.  
  1468.  
  1469. ;       Receive routines
  1470.  
  1471. ;       Receive init
  1472.  
  1473. RINIT   PROC    NEAR
  1474.         mov ah,numtry           ; Get the number of tries.
  1475.         cmp ah,imxtry           ; Have we reached the maximum number of tries?
  1476.         jl rinit2
  1477.         call erpos              ; Position cursor.
  1478.         mov dx,offset ermes7
  1479.         mov ah,prstr
  1480.         int dos                 ; Print an error message.
  1481.         jmp abort               ; Change the state to abort.
  1482. rinit2: inc ah                  ; Increment it.
  1483.         mov numtry,ah           ; Save the updated number of tries.
  1484.         call rpack              ; Get a packet.
  1485.          jmp nak                ;  Trashed packet: nak, retry.
  1486.         cmp ah,'S'              ; Is it a send initiate packet?
  1487.         jne rinit3              ; If not see if its an error.
  1488.         mov ah,numtry           ; Get the number of tries.
  1489.         mov oldtry,ah           ; Save it.
  1490.         mov numtry,0            ; Reset the number of tries.
  1491.         mov ax,argblk           ; Returned packet number.  (Synchronize them.)
  1492.         inc ax                  ; Increment it.
  1493.         and ax,3FH              ; Turn off the two high order bits.
  1494.         mov pktnum,ax           ; Save modulo 64 of the number.
  1495.         mov bx,numpkt
  1496.         inc bx                  ; Increment the number of packets.
  1497.         mov numpkt,bx
  1498.         mov ax,argbk1           ; Get the number of arguments received.
  1499.         mov bx,offset data      ; Get a pointer to the data.
  1500.         call spar               ; Get the data into the proper variables.
  1501.         mov bx,offset data      ; Get a pointer to our data block.
  1502.         call rpar               ; Set up the receive parameters.
  1503.         xchg ah,al
  1504.         mov ah,0
  1505.         mov argbk1,ax           ; Store the returned number of arguments.
  1506.         mov ah,'Y'              ; Acknowledge packet.
  1507.         call spack              ; Send the packet.
  1508.          jmp abort
  1509.         mov ah,'F'              ; Set the state to file send.
  1510.         mov state,ah
  1511.         ret
  1512. rinit3: cmp ah,'E'              ; Is it an error packet?
  1513.         jne rinit4
  1514.         call error
  1515. rinit4: jmp abort
  1516. RINIT   ENDP
  1517.  
  1518.  
  1519. ;       Receive file
  1520.  
  1521. RFILE   PROC    NEAR
  1522.         cmp numtry,maxtry       ; Have we reached the maximum number of tries?
  1523.         jl rfile1
  1524.         call erpos              ; Position cursor.
  1525.         mov dx,offset ermes8
  1526.         mov ah,prstr
  1527.         int dos                 ; Print an error message.
  1528.         jmp abort               ; Change the state to abort.
  1529. rfile1: inc numtry              ; Save the updated number of tries.
  1530.         call rpack              ; Get a packet.
  1531.          jmp nak                ;  Trashed packet: nak, retry.
  1532.         cmp ah,'S'              ; Is it a send initiate packet?
  1533.         jne rfile2              ;  No, try next type.
  1534.         cmp oldtry,imxtry       ; Have we reached the maximum number of tries?
  1535.         jl rfil12               ; If not proceed.
  1536.         call erpos              ; Position cursor.
  1537.         mov dx,offset ermes7
  1538.         mov ah,prstr
  1539.         int dos                 ; Print an error message.
  1540.         jmp abort               ; Change the state to abort.
  1541. rfil12: inc oldtry              ; Save the updated number of tries.
  1542.         mov ax,pktnum           ; Get the present packet number.
  1543.         cmp ax,0                ; Had we wrapped around? [18 start]
  1544.         jne rfilx 
  1545.         mov ax,64
  1546. rfilx:  dec ax                  ; Decrement.  [18 end -- new label]
  1547.         cmp ax,argblk           ; Is the packet's number one less than now?
  1548.         je rfil13
  1549.         jmp nak                 ; No, NAK and try again.
  1550. rfil13: call rtpos              ; Position cursor.
  1551.         inc numrtr              ; Increment the number of retries.
  1552.         mov ax,numrtr
  1553.         call nout               ; Write the number of retries.
  1554.         mov numtry,0            ; Reset the number of tries.
  1555.         mov bx,offset data      ; Get a pointer to our data block.
  1556.         call rpar               ; Set up the parameter information.
  1557.         xchg ah,al
  1558.         mov ah,0
  1559.         mov argbk1,ax           ; Save the number of arguments.
  1560.         mov ah,'Y'              ; Acknowledge packet.
  1561.         call spack              ; Send the packet.
  1562.          jmp abort
  1563.         ret
  1564. rfile2: cmp ah,'Z'              ; Is it an EOF packet?
  1565.         jne rfile3              ;  No, try next type.
  1566.         cmp oldtry,maxtry       ; Have we reached the maximum number of tries?
  1567.         jl rfil21               ; If not proceed.
  1568.         call erpos              ; Position cursor.
  1569.         mov dx,offset ermes9
  1570.         mov ah,prstr
  1571.         int dos                 ; Print an error message.
  1572.         jmp abort               ; Change the state to abort.
  1573. rfil21: inc oldtry              ; Increment it.
  1574.         mov ax,pktnum           ; Get the present packet number.
  1575.         cmp ax,0                ; Had we wrapped around? [18 start]
  1576.         jne rfily
  1577.         mov ax,64
  1578. rfily:  dec ax                  ; Decrement.  [18 end -- new label]
  1579.         cmp ax,argblk           ; Is the packet's number one less than now?
  1580.         je rfil24
  1581.         jmp nak                 ; No, NAK and try again.
  1582. rfil24: call rtpos              ; Position cursor.
  1583.         inc numrtr              ; Increment the number of retries
  1584.         mov ax,numrtr
  1585.         call nout               ; Write the number of retries.
  1586.         mov numtry,0
  1587.         mov argbk1,0            ; No data.  (The packet number is in argblk.)
  1588.         mov ah,'Y'              ; Acknowledge packet.
  1589.         call spack              ; Send the packet.
  1590.          jmp abort
  1591.         ret
  1592. rfile3: cmp ah,'F'              ; Start of file?
  1593.         jne rfile4
  1594.         mov ax,argblk           ; Get the packet number.
  1595.         cmp ax,pktnum           ; Is it the right packet number?
  1596.         je rfil32
  1597.         jmp nak                 ; No, NAK it and try again.
  1598. rfil32: inc ax                  ; Increment the packet number.
  1599.         and ax,3FH              ; Turn off the two high order bits.
  1600.         mov pktnum,ax           ; Save modulo 64 of the number.
  1601.         inc numpkt              ; Increment the number of packets.
  1602.         call gofil              ; Get a file to write to.
  1603.          jmp abort
  1604.         call init1              ; Initialize all the buffers.
  1605.         mov ah,numtry           ; Get the number of tries.
  1606.         mov oldtry,ah           ; Save it.
  1607.         mov numtry,0            ; Reset the number of tries.
  1608.         mov argbk1,0            ; No data.  (The packet number is in argblk.)
  1609.         mov ah,'Y'              ; Acknowledge packet.
  1610.         call spack              ; Send the packet.
  1611.          jmp abort
  1612.         mov state,'D'           ; Set the state to data receive.
  1613.         ret
  1614. rfile4: cmp ah,'B'              ; End of transmission.
  1615.         jne rfile5
  1616.         mov ax,pktnum
  1617.         cmp ax,argblk           ; Do we match?
  1618.         je rfil41
  1619.         jmp nak                 ; No, NAK it and try again.
  1620. rfil41: mov argbk1,0            ; No data.  (Packet number already in argblk).
  1621.         mov ah,'Y'              ; Acknowledge packet.
  1622.         call spack              ; Send the packet.
  1623.          jmp abort
  1624.         mov state,'C'           ; Set the state to complete.
  1625.         ret
  1626. rfile5: cmp ah,'E'              ; Is it an error packet.
  1627.         jne rfile6
  1628.         call error
  1629. rfile6: jmp abort
  1630. RFILE   ENDP
  1631.  
  1632.  
  1633. ;       Receive data
  1634.  
  1635. RDATA   PROC    NEAR
  1636.         cmp numtry,maxtry       ; Get the number of tries.
  1637.         jl rdata1
  1638.         call erpos              ; Position cursor.
  1639.         mov dx,offset erms10
  1640.         mov ah,prstr
  1641.         int dos                 ; Print an error message.
  1642.         jmp abort               ; Change the state to abort.
  1643. rdata1: inc numtry              ; Save the updated number of tries.
  1644.         call rpack              ; Get a packet.
  1645.          jmp nak                ;  Trashed packet: nak, retry.
  1646.         cmp ah,'D'              ; Is it a data packet?
  1647.         je rdat11
  1648.         jmp rdata2              ;  No, try next type.
  1649. rdat11: mov ax,pktnum           ; Get the present packet number.
  1650.         cmp ax,argblk           ; Is the packet's number correct?
  1651.         jz rdat14
  1652.         cmp oldtry,maxtry       ; Have we reached the maximum number of tries?
  1653.         jl rdat12               ; If not proceed.
  1654.         call erpos              ; Position cursor.
  1655.         mov dx,offset erms10
  1656.         mov ah,prstr
  1657.         int dos                 ; Print an error message.
  1658.         jmp abort               ; Change the state to abort.
  1659. rdat12: inc oldtry              ; Save the updated number of tries.
  1660. ;        dec pktnum              ; Decrement present packet number.  [14]
  1661.         mov ax,pktnum
  1662.         cmp ax,0                ; Had we wrapped around? [18 start]
  1663.         jne rdatx
  1664.         mov ax,64
  1665. rdatx:  dec ax                  ; [14] [18 end -- new label]
  1666.         cmp ax,argblk           ; Is the packet's number one less than now?
  1667.         je rdat13
  1668.         jmp nak                 ; No, NAK it and try again.
  1669. rdat13: call rtpos              ; Position cursor.
  1670.         inc numrtr              ; Increment the number of retries
  1671.         mov ax,numrtr
  1672.         call nout               ; Write the number of retries.
  1673.         mov numtry,0            ; Reset number of tries.
  1674.         mov argbk1,0            ; No data.  (The packet number is in argblk.)
  1675.         mov ah,'Y'              ; Acknowledge packet.
  1676.         call spack              ; Send the packet.
  1677.          jmp abort
  1678.         ret
  1679. rdat14: inc ax                  ; Increment the packet number.
  1680.         and ax,3FH              ; Turn off the two high order bits.
  1681.         mov pktnum,ax           ; Save modulo 64 of the number.
  1682.         inc numpkt              ; Increment the number of packets.
  1683.         mov ah,numtry           ; Get the number of tries.
  1684.         mov oldtry,ah           ; Save it.
  1685.         mov ax,argbk1           ; Get the length of the data.
  1686.         cmp cxzflg,0            ; Has the user typed a ^X or ^Z? [20c]
  1687.         jne rdat15              ; If yes don't write data out to file. [20c]
  1688.         call ptchr
  1689.          jmp abort              ;  Unable to write out chars; abort.
  1690. rdat15: mov numtry,0            ; Reset the number of tries.
  1691.         mov argbk1,0            ; No data.  (Packet number still in argblk.)
  1692.         cmp cxzflg,0            ; Interrupt file transfer? [20c]
  1693.         je rdat16               ; Nope. [20c] 
  1694.         mov bx,offset data      ; Send data in ACK in case remote... [20c] 
  1695.         mov ah,cxzflg           ; ... knows about ^X/^Z. [20c]
  1696.         mov [bx],ah             ; Put data into the packet. [20c]
  1697.         mov argbk1,1            ; Set data size to 1. [20c]
  1698. rdat16: mov ah,'Y'              ; Acknowledge packet.
  1699.         call spack              ; Send the packet.
  1700.          jmp abort
  1701.         ret
  1702. rdata2: cmp ah,'F'              ; Start of file?
  1703.         jne rdata3              ;  No, try next type.
  1704.         cmp oldtry,maxtry       ; Have we reached the maximum number of tries?
  1705.         jl rdat21               ; If not proceed.
  1706.         call erpos              ; Position cursor.
  1707.         mov dx,offset ermes8
  1708.         mov ah,prstr
  1709.         int dos                 ; Print an error message.
  1710.         jmp abort               ; Change the state to abort.
  1711. rdat21: inc oldtry              ; Save the updated number of tries.
  1712.         mov ax,pktnum
  1713.         cmp ax,0                ; Had we wrapped around? [18 start]
  1714.         jne rdaty
  1715.         mov ax,64
  1716. rdaty:  dec ax                  ; [14 Omitted accidentally - D.T.] [18 end]
  1717.         cmp ax,argblk           ; Is the packet's number one less than now?
  1718.         je rdat22
  1719.         jmp nak                 ; No, NAK it and try again.
  1720. rdat22: call rtpos              ; Position cursor.
  1721.         inc numrtr              ; Increment the number of retries
  1722.         mov ax,numrtr
  1723.         call nout               ; Write the number of retries.
  1724.         mov numtry,0            ; Reset number of tries.
  1725.         mov argbk1,0            ; No data.  (The packet number is in argblk.)
  1726.         mov ah,'Y'              ; Acknowledge packet.
  1727.         call spack              ; Send the packet.
  1728.          jmp abort
  1729.         ret
  1730. rdata3: cmp ah,'Z'              ; Is it a EOF packet?
  1731.         je rdat3x                               ; [13]
  1732.         jmp rdata4               ; Try and see if its an error. [13]
  1733. rdat3x: mov ax,pktnum           ; Get the present packet number. [13]
  1734.         cmp ax,argblk           ; Is the packet's number correct?
  1735.         je rdat32
  1736.         jmp nak                 ; No, NAK it and try again.
  1737. rdat32: inc ax                  ; Increment the packet number.
  1738.         and ax,3FH              ; Turn off the two high order bits.
  1739.         mov pktnum,ax           ; Save modulo 64 of the number.
  1740.         inc numpkt
  1741.         cmp cxzflg,0            ; Do we want to discard the file? [20c]
  1742.         jne rdt32x              ; Yes. [20c]
  1743.         cmp argbk1,1            ; One piece of data? [20c]
  1744.         jne rdat33              ; Nope - finish writing out file? [20c]
  1745.         mov bx,offset data      ; Get data area. [20c]
  1746.         mov ah,[bx]             ; Get the data. [20c]
  1747.         cmp ah,'D'              ; "D" for discard? [20c]
  1748.         jne rdat33              ; Nope - write out file. [20c]
  1749. rdt32x: mov ah,delf             ; Delete the file if opened. [20c]
  1750.         mov dx,offset fcb       ; Give the file parameters. [20c]
  1751.         int dos                 ; Kill it, ignore errors. [20c]
  1752.         cmp cxzflg,'X'          ; Kill one file or all? [20c]
  1753.         jne rdat36              ; No so leave flag alone. [20c]
  1754.         call cxmsg              ; Clear msg about interrupt. [20c]
  1755.         mov cxzflg,0            ; Reset - ^X only kills one file. [20c]
  1756.         jmp rdat36
  1757. rdat33: mov bx,bufpnt           ; Get the dma pointer.
  1758.         mov ax,80H
  1759.         sub ax,chrcnt           ; Get the number of chars left in the DMA.
  1760.         cmp ax,80H              ;   [13 start]
  1761.         jne rdat34
  1762.         call outbuf             ; Write out buffer if no room for ^Z.
  1763.          jmp abort
  1764.         mov ax,0                ;   [13 end]
  1765. rdat34: mov cl,'Z'-100O         ; Put in a ^Z for EOF.
  1766.         mov [bx],cl
  1767.         inc ax
  1768.         dec chrcnt
  1769.         mov cx,chrcnt
  1770.         mov temp,cx
  1771.         inc bx
  1772. rdt3:   inc ax
  1773.         cmp ax,80H
  1774.         jg rdat35               ; Pad till full.
  1775.         mov cl,0                ; Use nulls.
  1776.         mov [bx],cl
  1777.         inc bx
  1778.         jmp rdt3
  1779. rdat35: call outbuf             ; Output the last buffer.
  1780.          jmp abort              ;  Give up if the disk is full.
  1781.         call fixfcb
  1782.         mov ah,closf            ; Close up the file.
  1783.         mov dx,offset fcb
  1784.         int dos
  1785. rdat36: mov ah,numtry           ; Get the number of tries.
  1786.         mov oldtry,ah           ; Save it.
  1787.         mov numtry,0            ; Reset the number of tries.
  1788.         mov argbk1,0            ; No data.  (The packet number is in argblk.)
  1789.         mov ah,'Y'              ; Acknowledge packet.
  1790.         call spack              ; Send the packet.
  1791.          jmp abort
  1792.         mov state,'F'
  1793.         ret
  1794. rdata4: cmp ah,'E'                      ; Is it an error packet.
  1795.         jne rdata5
  1796.         call error
  1797. rdata5: jmp abort
  1798. RDATA   ENDP
  1799.  
  1800. FIXFCB  PROC    NEAR    
  1801.         mov bx,offset fcb+18
  1802.         mov di,offset filsiz
  1803.         mov ax,[bx]
  1804.         mov [di],ax
  1805.         mov bx,offset fcb+16
  1806.         mov ax,[bx]
  1807.         mov 2[di],ax
  1808.         mov ax,temp             ; Get number of chars in last buffer full.
  1809.         sub filsiz+2,ax         ; Get real file size.
  1810.         sbb filsiz,0
  1811.         mov bx,offset fcb+18
  1812.         mov di,offset filsiz
  1813.         mov ax,[di]
  1814.         mov [bx],ax
  1815.         mov bx,offset fcb+16
  1816.         mov ax,2[di]
  1817.         mov [bx],ax
  1818.         ret
  1819. FIXFCB  ENDP
  1820.  
  1821.  
  1822. ;       Send command
  1823.  
  1824. SEND    PROC    NEAR
  1825.         mov ah,cmifi            ; Parse an input file spec.
  1826.         mov dx,offset fcb       ; Give the address for the FCB.
  1827.         call comnd
  1828.          jmp r                  ;  Give up on bad parse.
  1829. send1:  mov ah,cmcfm
  1830.         call comnd              ; Get a confirm.
  1831.          jmp r                  ;  Didn't get a confirm.
  1832. send11: mov ah,sfirst           ; Get the first file.
  1833.         mov dx,offset fcb
  1834.         int dos
  1835.         cmp al,0FFH             ; Any found?
  1836.         jne send12
  1837.         mov ah,prstr
  1838.         mov dx,offset crlf
  1839.         int dos
  1840.         mov ah,prstr
  1841.         mov dx,offset erms15
  1842.         int dos
  1843.         ret
  1844. send12: cmp wldflg,0            ; Any wildcards.      [7 start]
  1845.         je send16               ; Nope, so no problem.
  1846.         mov bx,offset fcb       ; Remember what FCB looked like.
  1847.         mov di,offset cpfcb
  1848.         mov cl,37               ; Size of FCB.
  1849.         call fcbcpy
  1850.         mov di,offset fcb+1     ; Copy filename from DTA to FCB.
  1851.         mov bx,offset buff+1
  1852.         mov cl,11
  1853.         call fcbcpy                                     ; [7 end]
  1854. send16: call init               ; Clear the line and initialize the buffers.
  1855.         call serini             ; Initialize serial port. [14]
  1856.         mov pktnum,0            ; Set the packet number to zero.
  1857.         mov numtry,0            ; Set the number of tries to zero.
  1858.         mov numpkt,0            ; Set the number of packets to zero.
  1859.         mov numrtr,0            ; Set the number of retries to zero.
  1860.         call rtpos              ; Position cursor.
  1861.         mov ax,0
  1862.         call nout               ; Write the number of retries.
  1863.         mov state,'S'           ; Set the state to receive initiate.
  1864. send2:  
  1865. IF msdos 
  1866.         mov ah,2                ; Position cursor.
  1867.         mov bh,0
  1868.         mov dx,scrst
  1869.         int bios
  1870. ENDIF
  1871. IF Z100
  1872.         mov ah,prstr            ; Get print string function
  1873.         mov dx,offset scrst     ; and string to move cursor
  1874.         int dos                 ; Print the string
  1875. ENDIF
  1876.         mov ah,prstr            ; Be informative.
  1877.         mov dx,offset infms2
  1878.         int dos
  1879. IF msdos
  1880.         mov ah,2
  1881.         mov dx,scrnp
  1882.         mov bh,0
  1883.         int bios
  1884. ENDIF
  1885. IF Z100
  1886.         mov ah,prstr            ; Get print string function
  1887.         mov dx,offset scrnp     ; and string to move cursor
  1888.         int dos                 ; Print the string
  1889. ENDIF
  1890.         mov ax,numpkt
  1891.         call nout               ; Write the packet number.
  1892.         cmp state,'D'           ; Are we in the data send state?
  1893.         jne send3
  1894.         call sdata
  1895.         jmp send2
  1896. send3:  cmp state,'F'           ; Are we in the file send state?
  1897.         jne send4
  1898.         call sfile              ; Call send file.
  1899.         jmp send2
  1900. send4:  cmp state,'Z'           ; Are we in the EOF state?
  1901.         jne send5
  1902.         call seof
  1903.         jmp send2
  1904. send5:  cmp state,'S'           ; Are we in the send initiate state?
  1905.         jne send6
  1906.         call sinit
  1907.         jmp send2
  1908. send6:  cmp state,'B'           ; Are we in the eot state?
  1909.         jne send7
  1910.         call seot
  1911.         jmp send2
  1912. send7:  cmp state,'C'           ; Are we in the send complete state?
  1913.         jne send8
  1914.         call serrst             ; Reset serial port.  [14]
  1915. IF msdos
  1916.         mov ah,2                ; Position cursor.
  1917.         mov dx,scrst
  1918.         mov bh,0
  1919.         int bios
  1920. ENDIF
  1921. IF Z100
  1922.         mov ah,prstr            ; Get print string function
  1923.         mov dx,offset scrst     ; and string to move cursor
  1924.         int dos                 ; Print the string
  1925. ENDIF
  1926.         mov ah,prstr
  1927.         mov dx,offset infms3    ; Plus a little cuteness.
  1928.         cmp cxzflg,0            ; Completed or interrupted? [20b]
  1929.         je snd71                ; Ended normally. [20b]
  1930.         mov dx,offset infms6    ; Say was interrupted. [20b]
  1931. snd71:  int dos                 ; New label. [20b] 
  1932.         cmp belflg,0            ; Bell desired? [17a]
  1933.         je sendnb               ; [17a]
  1934.         mov dx,offset ender     ; Ring them bells.   [4]
  1935.         int dos                 ;  [4]
  1936. sendnb:                         ; [17a -- new label] 
  1937. IF msdos
  1938.         mov ah,2
  1939.         mov dx,scrrpr
  1940.         mov bh,0
  1941.         int bios
  1942. ENDIF
  1943. IF Z100
  1944.         mov ah,prstr            ; Get print string function
  1945.         mov dx,offset scrrpr    ; and string to move cursor
  1946.         int dos                 ; Print the string
  1947. ENDIF
  1948.         jmp rskp
  1949. send8:  call serrst             ; Reset serial port.  [14]
  1950. IF msdos
  1951.         mov ah,2                ; Position cursor.
  1952.         mov dx,scrst
  1953.         mov bh,0
  1954.         int bios
  1955. ENDIF
  1956. IF Z100
  1957.         mov ah,prstr            ; Get print string function
  1958.         mov dx,offset scrst     ; and string to move cursor
  1959.         int dos                 ; Print the string
  1960. ENDIF
  1961.         mov ah,prstr
  1962.         mov dx,offset infms4    ; Plus a little cuteness.
  1963.         int dos
  1964.         cmp belflg,0            ; Bell desired?  [17a]
  1965.         je send9                ; No.  [17a]
  1966.         mov dx,offset ender     ; Ring them bells.   [4]
  1967.         int dos                 ;  [4]
  1968. send9:
  1969. IF msdos
  1970.         mov ah,2
  1971.         mov dx,scrrpr
  1972.         mov bh,0
  1973.         int bios
  1974. ENDIF
  1975. IF Z100
  1976.         mov ah,prstr            ; Get print string function
  1977.         mov dx,offset scrrpr    ; and string to move cursor
  1978.         int dos                 ; Print the string
  1979. ENDIF
  1980.         jmp rskp
  1981. SEND    ENDP
  1982.  
  1983.  
  1984. ;       Send routines
  1985.  
  1986. ;       Send initiate
  1987.  
  1988.  
  1989. SINIT   PROC    NEAR
  1990.         cmp numtry,imxtry       ; Have we reached the maximum number of tries?
  1991.         jl sinit2
  1992.         call erpos
  1993.         mov dx,offset erms14
  1994.         mov ah,prstr
  1995.         int dos                 ; Print an error message.
  1996.         jmp abort               ; Change the state to abort.
  1997. sinit2: inc numtry              ; Save the updated number of tries.
  1998.         mov bx,offset data      ; Get a pointer to our data block.
  1999.         call rpar               ; Set up the parameter information.
  2000.         xchg ah,al
  2001.         mov ah,0
  2002.         mov argbk1,ax           ; Save the number of arguments.
  2003.         mov ax,numpkt           ; Get the packet number.
  2004.         mov argblk,ax
  2005.         mov ah,'S'              ; Send initiate packet.
  2006.         call spack              ; Send the packet.
  2007.          jmp abort
  2008.         call rpack              ; Get a packet.
  2009.          jmp r                  ;  Trashed packet don't change state, retry.
  2010.         cmp ah,'Y'              ; ACK?
  2011.         jne sinit3              ; If not try next.
  2012.         mov ax,pktnum           ; Get the packet number.
  2013.         cmp ax,argblk           ; Is it the right packet number?
  2014.         je sini22
  2015.         ret                     ; If not try again.
  2016. sini22: inc ax                  ; Increment the packet number.
  2017.         and ax,3FH              ; Turn off the two high order bits.
  2018.         mov pktnum,ax           ; Save modulo 64 of the number.
  2019.         inc numpkt              ; Increment the number of packets.
  2020.         mov ax,argbk1           ; Get the number of pieces of data.
  2021.         mov bx,offset data      ; Pointer to the data.
  2022.         call spar               ; Read in the data.
  2023.         mov ah,numtry           ; Get the number of tries.
  2024.         mov oldtry,ah           ; Save it.
  2025.         mov numtry,0            ; Reset the number of tries.
  2026.         mov state,'F'           ; Set the state to file send.
  2027.         call getfil             ; Open the file.
  2028.          jmp abort              ;  Something is wrong, die.
  2029.         ret
  2030. sinit3: cmp ah,'N'              ; NAK?
  2031.         jne sinit4              ; If not see if its an error.
  2032.         call rtpos              ; Position cursor.
  2033.         inc numrtr              ; Increment the number of retries
  2034.         mov ax,numrtr
  2035.         call nout               ; Write the number of retries.
  2036. ;        mov ax,pktnum           ; Get the present packet number. [18 start]
  2037. ;        inc ax                  ; Increment.
  2038. ;        cmp ax,argblk           ; Get the packet's number.
  2039. ;        je sini32
  2040. ;        ret                     ; If not assume its for this packet, go again.
  2041. ;sini32: mov numtry,0            ; Reset number of tries.
  2042. ;        mov state,'F'           ; Set the state to file send. [18 end]
  2043.         ret
  2044. sinit4: cmp ah,'E'              ; Is it an error packet.
  2045.        jne sinit5
  2046.         call error
  2047. sinit5: jmp abort
  2048. SINIT   ENDP
  2049.  
  2050.  
  2051.  
  2052. ;       Send file header
  2053.  
  2054. SFILE   PROC    NEAR
  2055.         cmp numtry,maxtry       ; Have we reached the maximum number of tries?
  2056.         jl sfile1
  2057.         call erpos
  2058.         mov dx,offset erms14
  2059.         mov ah,prstr
  2060.         int dos                 ; Print an error message.
  2061.         jmp abort               ; Change the state to abort.
  2062. sfile1: inc numtry              ; Increment it.
  2063.         mov cxzflg,0            ; Clear ^X,^Z flag.  [20b]
  2064.         mov datptr,offset data  ; Get a pointer to our data block.
  2065.         mov bx,offset fcb+1             ; Pointer to file name in FCB.
  2066.         mov fcbptr,bx           ; Save position in FCB.
  2067.         mov cl,0                ; Counter for chars in file name.
  2068.         mov ch,0                ; Counter for number of chars in FCB.
  2069. sfil11: cmp ch,8H               ; Ninth char?
  2070.         jne sfil12
  2071.         mov ah,'.'
  2072.         mov bx,datptr
  2073.         mov [bx],ah             ; Put dot in data packet.       
  2074.         inc bx
  2075.         mov datptr,bx           ; Save new position in data packet.
  2076.         inc cl
  2077. sfil12: inc ch
  2078.         cmp ch,0CH              ; Twelve?
  2079.         jns sfil13
  2080.         mov bx,fcbptr
  2081.         mov ah,[bx]             ; Get char of filename.
  2082.         inc bx
  2083.         mov fcbptr,bx           ; Save position in FCB.
  2084.         cmp ah,'!'              ; Is it a good char?
  2085.         jl sfil11               ; If not, get the next.
  2086.         mov bx,datptr
  2087.         mov [bx],ah             ; Put char in data buffer.
  2088.         inc cl                  ; Increment counter.
  2089.         inc bx
  2090.         mov datptr,bx           ; Save new position. 
  2091.         jmp sfil11              ; Get another char.
  2092. sfil13: mov ch,0
  2093.         mov argbk1,cx           ; Save number of char in filename.
  2094.         mov bx,datptr
  2095.         mov ah,'$'
  2096.         mov [bx],ah             ; Put dollar sign for printing.
  2097.         call clrfln
  2098.         mov ah,prstr
  2099.         mov dx,offset data      ; Print file name.
  2100.         int dos
  2101.  
  2102.         mov ax,pktnum           ; Get the packet number.
  2103.         mov argblk,ax
  2104.         mov ah,'F'              ; File header packet.
  2105.         call spack              ; Send the packet.
  2106.          jmp abort
  2107.         call rpack              ; Get a packet.
  2108.          jmp r                  ;  Trashed packet don't change state, retry.
  2109.         cmp ah,'Y'              ; ACK?
  2110.         jne sfile2              ; If not try next.
  2111.         mov ax,pktnum           ; Get the packet number.
  2112.         cmp ax,argblk
  2113.         je sfil14
  2114.         ret                     ; If not hold out for the right one.
  2115. sfil14: inc ax                  ; Increment the packet number.
  2116.         and ax,3FH              ; Turn off the two high order bits.
  2117.         mov pktnum,ax           ; Save modulo 64 of the number.
  2118.         inc numpkt              ; Increment the number of packets.
  2119.         mov ah,numtry           ; Get the number of tries.
  2120.         mov oldtry,ah           ; Save it.
  2121.         mov numtry,0            ; Reset the number of tries.
  2122.  
  2123. sfil15: mov ah,0                ; Get a zero.
  2124.         mov bx,offset fcb
  2125.         add bx,20H
  2126.         mov [bx],ah             ; Set the record number to zero.
  2127.         mov eoflag,ah           ; Indicate not EOF.
  2128.         mov ah,0FFH
  2129.         mov filflg,ah           ; Indicate file buffer empty.
  2130.         call gtchr
  2131.          jmp sfil16             ; Error go see if its EOF.
  2132.         jmp sfil17              ; Got the chars, proceed.
  2133. sfil16: cmp ah,0FFH             ; Is it EOF?
  2134.         je sfl161
  2135.         jmp abort               ; If not give up.
  2136. sfl161: mov ah,'Z'              ; Set the state to EOF.
  2137.         mov state,ah
  2138.         ret
  2139. sfil17: mov siz,ax
  2140.  
  2141.         mov state,'D'           ; Set the state to data send.
  2142.         ret
  2143. sfile2: cmp ah,'N'              ; NAK?
  2144.         jne sfile3              ; Try if error packet.
  2145.         call rtpos              ; Position cursor.
  2146.         inc numrtr              ; Increment the number of retries
  2147.         mov ax,numrtr
  2148.         call nout               ; Write the number of retries.
  2149.         mov ax,pktnum           ; Get the present packet number.
  2150.         inc ax                  ; Increment.
  2151.         and ax,03FH             ; Account for wraparound.  [18]
  2152.         cmp ax,argblk           ; Is the packet's number one more than now?
  2153.         jz sfil14               ; Just as good as a ACK; go to the ACK code.
  2154.         ret                     ; If not go try again.
  2155. sfile3: cmp ah,'E'              ; Is it an error packet.
  2156.         jne sfile4
  2157.         call error
  2158. sfile4: jmp abort
  2159. SFILE   ENDP
  2160.  
  2161.  
  2162. ;       Send data
  2163.  
  2164. SDATA   PROC    NEAR
  2165.         cmp cxzflg,0            ; Have we seen ^X or ^Z? [20b]
  2166.         je sdata0               ; Nope, just continue. [20b]
  2167.         mov state,'Z'           ; Else, abort sending the file. [20b]
  2168.         ret
  2169. sdata0: cmp numtry,maxtry       ; Have we reached the maximum number of tries?
  2170.         jl sdata1
  2171.         call erpos
  2172.         mov dx,offset erms14
  2173.         mov ah,prstr
  2174.         int dos                 ; Print an error message.
  2175.         jmp abort               ; Change the state to abort.
  2176. sdata1: inc numtry              ; Increment it.
  2177.         mov datptr,offset data  ; Get a pointer to our data block.
  2178.         mov cbfptr,offset filbuf ; Pointer to chars to be sent.
  2179.         mov cx,1                ; First char.
  2180. sdat11: mov bx,cbfptr
  2181.         mov ah,[bx]
  2182.         inc cbfptr
  2183.         mov bx,datptr
  2184.         mov [bx],ah             ; Put the char in the data packet.
  2185.         inc datptr              ; Save position in data packet.
  2186.         inc cx                  ; Increment the count.
  2187.         cmp cx,siz              ; Have we transfered that many?
  2188.         jle sdat11              ; If not get another.
  2189.         mov ax,siz              ; Number of char in char buffer.
  2190.         mov argbk1,ax
  2191.         mov ax,pktnum           ; Get the packet number.
  2192.         mov argblk,ax
  2193.         mov ah,'D'              ; Data packet.
  2194.         call spack              ; Send the packet.
  2195.          jmp abort
  2196.         call rpack              ; Get a packet.
  2197.          jmp r                  ;  Trashed packet don't change state, retry.
  2198.         cmp ah,'Y'              ; ACK?
  2199.         jne sdata2              ; If not try next.
  2200.         mov ax,pktnum           ; Get the packet number.
  2201.         cmp ax,argblk           ; Is it the right packet number?
  2202.         jz sdat12
  2203.         ret                     ; If not hold out for the right one.
  2204. sdat12: inc ax                  ; Increment the packet number.
  2205.         and ax,3FH              ; Turn off the two high order bits.
  2206.         mov pktnum,ax           ; Save modulo 64 of the number.
  2207.         inc numpkt              ; Increment the number of packets.
  2208.         mov ah,numtry           ; Get the number of tries.
  2209.         mov oldtry,ah           ; Save it.
  2210.           mov numtry,0            ; Reset the number of tries.
  2211.         cmp argbk1,1            ; Does the ACK contain data? [20b]
  2212.         jne sdt12x              ; Nope, so continue. [20b]
  2213.         mov bx,offset data      ; If yes, check the data field. [20b]
  2214.         mov ah,[bx]             ; Pick it up. [20b]
  2215.         cmp ah,'X'              ; Other side requests ^X? [20b]
  2216.         jne sdt12y              ; Nope. [20b]
  2217.         jmp sdt12z              ; And leave. [20b]
  2218. sdt12y: cmp ah,'Z'              ; Other side requests ^Z? [20b]
  2219.         jne sdt12x              ; Nope. [20b]
  2220. sdt12z: mov cxzflg,ah           ; Yes remember it. [20b]
  2221.         mov state,'Z'           ; Abort sending file(s). [20b]
  2222.         ret
  2223. sdt12x: call gtchr
  2224.          jmp sdat13             ; Error go see if its EOF.
  2225.         mov siz,ax              ; Save the size of the data gotten.
  2226.         ret
  2227.  
  2228. sdat13: cmp ah,0FFH             ; Is it EOF?
  2229.         je sdt131
  2230.         jmp abort               ; If not give up.
  2231.  
  2232. sdt131: mov state,'Z'           ; Set the state to EOF.
  2233.         ret
  2234. sdata2: cmp ah,'N'              ; NAK?
  2235.         jne sdata3              ; See if is an error packet.
  2236.         call rtpos              ; Position cursor.
  2237.         inc numrtr              ; Increment the number of retries
  2238.         mov ax,numrtr
  2239.         call nout               ; Write the number of retries.
  2240.         mov ax,pktnum           ; Get the present packet number.
  2241.         inc ax                  ; Increment.
  2242.         and ax,03FH             ; Account for wraparound.  [18]
  2243.         cmp ax,argblk           ; Is the packet's number one more than now?
  2244.         jz sdat12               ; Just as good as ACK; goto ACK code.
  2245.         ret                     ; If not go try again.
  2246. sdata3: cmp ah,'E'              ; Is it an error packet.
  2247.         jne sdata4
  2248.         call error
  2249. sdata4: jmp abort
  2250. SDATA   ENDP
  2251.  
  2252.  
  2253. ;       Send EOF
  2254.  
  2255. SEOF    PROC    NEAR
  2256.         cmp numtry,maxtry       ; Have we reached the maximum number of tries?
  2257.         jl seof1
  2258.         call erpos              ; Position cursor.
  2259.         mov dx,offset erms14
  2260.         mov ah,prstr
  2261.         int dos                 ; Print an error message.
  2262.         jmp abort               ; Change the state to abort.
  2263. seof1:  inc numtry              ; Increment it.
  2264.         mov ax,pktnum           ; Get the packet number.
  2265.         mov argblk,ax
  2266.         mov argbk1,0            ; No data.
  2267.         cmp cxzflg,0            ; Seen a ^X or ^Z? [20b]
  2268.         je seof11               ; Nope, send normal EOF packet. [20b]
  2269.         mov bx,offset data      ; Get data area of packet.
  2270.         mov ah,'D'              ; Use "D" for discard. [20b]
  2271.         mov [bx],ah             ; And add it to the packet. [20b]
  2272.         mov argbk1,1            ; Set data size to 1. [20b]
  2273. seof11: mov ah,'Z'              ; EOF packet.
  2274.         call spack              ; Send the packet.
  2275.          jmp abort
  2276.         call rpack              ; Get a packet.
  2277.          jmp r                  ;  Trashed packet don't change state, retry.
  2278.         cmp ah,'Y'              ; ACK?
  2279.         jne seof2               ; If not try next.
  2280.         mov ax,pktnum           ; Get the packet number.
  2281.         cmp ax,argblk           ; Is it the right packet number?
  2282.         jz seof12
  2283.         ret                     ; If not hold out for the right one.
  2284. seof12: inc ax                  ; Increment the packet number.
  2285.         and ax,3FH              ; Turn off the two high order bits.
  2286.         mov pktnum,ax           ; Save modulo 64 of the number.
  2287.         inc numpkt              ; Increment the number of packets.
  2288.         mov ah,numtry           ; Get the number of tries.
  2289.         mov oldtry,ah           ; Save it.
  2290.         mov numtry,0            ; Reset the number of tries.
  2291.         mov ah,closf            ; Close the file.
  2292.         mov dx,offset fcb
  2293.         int dos
  2294.         call gtnfil             ; Get the next file.
  2295.          jmp seof13             ;  No more.
  2296.         mov state,'F'           ; Set the state to file send.
  2297.         cmp cxzflg,'X'          ; Control-X seen? [20b]
  2298.         jne seof14
  2299.         call cxmsg              ; Clear out the interrupt msg. [20b]
  2300. seof14: mov cxzflg,0            ; Reset the flag. [20b]
  2301.         ret
  2302. seof13: mov state,'B'           ; Set the state to EOT.
  2303.         ret
  2304. seof2:  cmp ah,'N'              ; NAK?
  2305.         jne seof3               ; Try and see if its an error packet.
  2306.         call rtpos              ; Position cursor.
  2307.         inc numrtr              ; Increment the number of retries
  2308.         mov ax,numrtr
  2309.         call nout               ; Write the number of retries.
  2310.         mov ax,pktnum           ; Get the present packet number.
  2311.         inc ax                  ; Increment.
  2312.         and ax,03FH             ; Account for wraparound.  [18]
  2313.         cmp ax,argblk           ; Is the packet's number one more than now?
  2314.         jz seof12               ; Just as good as a ACK; go to the ACK code.
  2315.         ret                     ; If not go try again.
  2316. seof3:  cmp ah,'E'              ; Is it an error packet?
  2317.         jne seof4
  2318.         call error
  2319. seof4:  jmp abort
  2320. SEOF    ENDP
  2321.  
  2322.  
  2323. ;       Send EOT
  2324.  
  2325. SEOT    PROC    NEAR
  2326.         cmp numtry,maxtry       ; Have we reached the maximum number of tries?
  2327.         jl seot1
  2328.         call erpos             ; Position cursor.
  2329.         mov dx,offset erms14
  2330.         mov ah,prstr
  2331.         int dos                 ; Print an error message.
  2332.         jmp abort               ; Change the state to abort.
  2333. seot1:  inc numtry              ; Increment it.
  2334.         mov ax,pktnum           ; Get the packet number.
  2335.         mov argblk,ax
  2336.         mov argbk1,0            ; No data.
  2337.         mov ah,'B'              ; EOF packet.
  2338.         call spack              ; Send the packet.
  2339.          jmp abort
  2340.         call rpack              ; Get a packet.
  2341.          jmp r                  ; Trashed packet don't change state, retry.
  2342.         cmp ah,'Y'              ; ACK?
  2343.         jne seot2               ; If not try next.
  2344.         mov ax,pktnum           ; Get the packet number.
  2345.         cmp ax,argblk           ; Is it the right packet number?
  2346.         jz seot12
  2347.         ret                     ; If not hold out for the right one.
  2348. seot12: inc ax                  ; Increment the packet number.
  2349.         and ax,3FH              ; Turn off the two high order bits.
  2350.         mov pktnum,ax           ; Save modulo 64 of the number.
  2351.         inc numpkt              ; Increment the number of packets.
  2352.         mov ah,numtry           ; Get the number of tries.
  2353.         mov oldtry,ah           ; Save it.
  2354.         mov numtry,0            ; Reset the number of tries.
  2355.         mov state,'C'           ; Set the state to file send.
  2356.         ret
  2357. seot2:  cmp ah,'N'              ; NAK?
  2358.         jne seot3               ; Is it error.
  2359.         call rtpos              ; Position cursor.
  2360.         inc numrtr              ; Increment the number of retries
  2361.         mov ax,numrtr
  2362.         call nout               ; Write the number of retries.
  2363.         mov ax,pktnum           ; Get the present packet number.
  2364.         inc ax                  ; Increment.
  2365.         and ax,03FH             ; Account for wraparound.  [18]
  2366.         cmp ax,argblk           ; Is the packet's number one more than now?
  2367.         jz seot12               ; Just as good as a ACK; go to the ACK code.
  2368.         ret                     ; If not go try again.
  2369. seot3:  cmp ah,'E'              ; Is it an error packet.
  2370.         jne seot4
  2371.         call error
  2372. seot4:  jmp abort
  2373. SEOT    ENDP
  2374.  
  2375.  
  2376. ; Here is the bulk of the file I/O.  Good luck.
  2377. ;       File routines
  2378.  
  2379. ;       Output the chars in a packet.
  2380.  
  2381. FILEIO  PROC    NEAR    
  2382.  
  2383. ptchr:  mov temp1,ax            ; Save the size.
  2384.         mov bx,offset data      ; Beginning of received packet data.
  2385.         mov outpnt,bx           ; Remember where we are.
  2386.         mov ch,rquote           ; Quote char.
  2387. ptchr1: dec temp1               ; Decrement # of chars in packet.
  2388.         jnl pt1
  2389.         jmp rskp                ; Return successfully if done.
  2390. pt1:    dec chrcnt              ; Decrement number of chars in dta.
  2391.         jns ptchr2              ; Continue if space left.
  2392.         call outbuf             ; Output it if full.
  2393.          jmp r                  ;  Error return if disk is full.
  2394. ptchr2: mov bx,outpnt           ; Get position in output buffer.
  2395.         mov ah,[bx]                     ; Grab a char.
  2396.         inc bx
  2397.         mov outpnt,bx           ; and bump pointer.
  2398.         cmp ah,ch               ; Is it the quote char?
  2399.         jne ptchr4              ; If not proceed.
  2400.         mov ah,[bx]                     ; Get the quoted character
  2401.         inc bx
  2402.         mov outpnt,bx           ; and bump pointer.
  2403.         dec temp1               ; Decrement # of chars in packet.
  2404.         mov dh,ah               ; Save the char.
  2405.         and ah,80H                      ; Turn off all but the parity bit.
  2406.         mov dl,ah               ; Save the parity bit.
  2407.         mov ah,dh                       ; Get the char.
  2408.         and ah,7FH                      ; Turn off the parity bit.
  2409.         cmp ah,ch               ; Is it the quote char?
  2410.         jz ptchr3               ; If so just go write it out.
  2411.         mov ah,dh                       ; Get the char.
  2412.         add ah,40H                      ; Make it a control char again.
  2413.         and ah,7FH                      ; Modulo 128.
  2414. ptchr3: or ah,dl                ; Or in the parity bit.
  2415. ptchr4: mov bx,bufpnt           ; Destination buffer.
  2416.         mov [bx],ah                     ; Store it.
  2417.         inc bx
  2418.         mov bufpnt,bx           ; Update the pointer
  2419.         jmp ptchr1              ; and loop to next char.
  2420.  
  2421.  
  2422.         ; output the buffer, reset bufpnt and chrcnt
  2423.  
  2424. outbuf: push bx
  2425.         mov ah,writef           ; The write code.
  2426.         mov dx,offset fcb
  2427.         int dos                 ; Write the record.
  2428.         pop bx
  2429.         cmp al,0                ; Successful.
  2430.         jz outbf1
  2431.         push ax                 ; Remember the return code. [20d]
  2432.         call abfil              ; Fix things up before aborting. [20d]
  2433.         pop ax                  ; Retrive return code. [20d]
  2434.         cmp al,01
  2435.         jz outbf0
  2436.         call erpos
  2437.         mov ah,prstr
  2438.         mov dx,offset erms17    ; Record length exceeds dta.
  2439.         int dos
  2440.         ret
  2441. outbf0: call erpos
  2442.         mov ah,prstr            ; Tell about it.
  2443.         mov dx,offset erms11    ; Disk full error.
  2444.         int dos
  2445.         ret
  2446. outbf1: mov bx,offset buff      ; Addr for beginning.
  2447.         mov bufpnt,bx           ; Store addr for beginning.
  2448.         mov ax,bufsiz-1         ; Buffer size.
  2449.         mov chrcnt,ax           ; Number of chars left.
  2450.         jmp rskp
  2451.  
  2452. ;  Tidy up before aborting.     [20d]
  2453. ABFIL   PROC    NEAR
  2454.         mov ah,closf            ; Close the file.
  2455.         mov dx,offset fcb
  2456.         int dos
  2457.         cmp abfflg,1            ; Delete what got across or keep it?
  2458.         jne abfil0              ; Nope, keep it.
  2459.         mov ah,delf             ; Delete it.
  2460.         mov dx,offset fcb
  2461.         int dos
  2462. abfil0: mov bx,offset erms10    ; Text of message to send.
  2463.         call errpack            ; Send an error packet.
  2464.         ret
  2465. ABFIL   ENDP
  2466.  
  2467. ; General routine for sending an error packet.  Register BX should
  2468. ; point to the text of the message being sent in the packet. [20f]
  2469.  
  2470. ERRPACK PROC    NEAR
  2471.         mov di,offset data      ; Where to put the message.
  2472.         mov al,0
  2473. errp1:  mov ah,[bx]
  2474.         cmp ah,'$'              ; At end of message?
  2475.         je errp2
  2476.         inc al                  ; Remember number of chars in msg.
  2477.         mov [di],ah
  2478.         inc bx
  2479.         inc di
  2480.         jmp errp1
  2481. errp2:  mov ah,0
  2482.         mov argbk1,ax
  2483.         mov ah,'E'              ; And send an error packet.
  2484.         call spack
  2485.          ret                    ; Return if succeed or fail.
  2486.         nop
  2487.         nop
  2488.         ret
  2489. ERRPACK ENDP
  2490.  
  2491. ;       Get the chars from the file.
  2492.  
  2493. gtchr:  mov ch,squote           ; Keep quote char in c.
  2494.         mov ah,filflg           ; Get the file flag.
  2495.         cmp ah,0                        ; Is there anything in the DMA?
  2496.         jz gtchr0               ; Yup, proceed.
  2497.         mov cl,0                ; No chars yet.
  2498.         call inbuf
  2499.          jmp gtceof             ; No more chars, go return EOF.
  2500. gtchr0: mov al,spsiz            ; Get the maximum packet size.
  2501.         sub al,5                ; Subtract the overhead.
  2502.         mov ah,0
  2503.         mov temp1,ax            ; Number of chars we're to get.
  2504.         mov bx,offset filbuf            ; Where to put the data.
  2505.         mov cbfptr,bx           ; Remember where we are.
  2506.         mov cl,0                ; No chars.
  2507. gtchr1: dec temp1               ; Decrement the number of chars left.
  2508.         jns gtchr2              ; Go on if there is more than one left.
  2509.         mov al,cl                       ; Return the count in A.
  2510.         mov ah,0
  2511.         jmp rskp
  2512. gtchr2: mov ax,chrcnt
  2513.         dec ax
  2514.         jl gtchr3
  2515.         mov chrcnt,ax
  2516.         jmp gtchr4
  2517. gtchr3: call inbuf              ; Get another buffer full.
  2518.          jmp gtceof
  2519.         cmp chrcnt,0
  2520.         jne gtchr4
  2521.         sub cl,2                ; Don't count controllified Z.
  2522.         mov al,cl
  2523.         mov ah,0
  2524.         jmp rskp
  2525. gtchr4: mov bx,bufpnt           ; Position in DMA.
  2526.         mov ah,[bx]                     ; Get a char from the file.
  2527.         inc bx
  2528.         mov bufpnt,bx
  2529.         mov dh,ah               ; Save the char.
  2530.         and ah,80H                      ; Turn off all but parity.
  2531.         mov dl,ah               ; Save the parity bit.
  2532.         mov ah,dh                       ; Restore the char.
  2533.         and ah,7FH                      ; Turn off the parity.
  2534.         cmp ah,' '                      ; Compare to a space.
  2535.         jl gtchr5               ; If less then its a control char, handle it.
  2536.         cmp ah,del                      ; Is the char a delete?
  2537.         jz gtchr5               ; Go quote it.
  2538.         cmp ah,ch               ; Is it the quote char?
  2539.         jne gtchr8              ; If not proceed.
  2540.         dec temp1               ; Decrement the char total remaining.
  2541.         mov bx,cbfptr           ; Position in character buffer.
  2542.         mov [bx],ah                     ; Put the char in the buffer.
  2543.         inc bx
  2544.         mov cbfptr,bx
  2545.         inc cl                  ; Increment the char count.
  2546.         jmp gtchr8
  2547. gtchr5: or ah,dl                ; Turn on the parity bit.
  2548.         cmp ah,('Z'-100O)               ; Is it a ^Z?
  2549.         jne gtchr7              ; If not just proceed.
  2550.         mov ah,eoflag           ; EOF flag set?
  2551.         cmp ah,0
  2552.         jz gtchr6               ; If not just go on.
  2553.         mov bx,bufpnt
  2554.         mov ax,chrcnt
  2555.         mov dh,al               ; Get number of chars left in DMA.
  2556. gtch51: dec dh
  2557.         mov ah,dh
  2558.         jns gtch52              ; Any chars left?
  2559.         mov chrcnt,0            ; If not, say so.
  2560.         mov al,cl                       ; Return the count in A.
  2561.         mov ah,0
  2562.         jmp rskp
  2563. gtch52: mov ah,[bx]                     ; Get the next char.
  2564.         inc bx                  ; Move the pointer.
  2565.         cmp ah,('Z'-100O)               ; Is it a ^Z?
  2566.         jz gtch51               ; If so see if they rest are.
  2567.  
  2568. gtchr6: mov ah,('Z'-100O)       ; Restore the ^Z.
  2569. gtchr7: xchg ah,al
  2570.         mov ah,0
  2571.         mov temp2,ax            ; Save the char.
  2572.         dec temp1               ; Decrement char counter.
  2573.         mov bx,cbfptr           ; Position in character buffer.
  2574.         mov [bx],ch                     ; Put the quote in the buffer.
  2575.         inc bx
  2576.         mov cbfptr,bx
  2577.         inc cl                  ; Increment the char count.
  2578.         mov ax,temp2            ; Get the control char back.
  2579.         xchg al,ah
  2580.         add ah,40H                      ; Make the non-control.
  2581.         and ah,7fH                      ; Modulo 200 octal.
  2582. gtchr8: mov bx,cbfptr           ; Position in character buffer.
  2583.         or ah,dl                ; Or in the parity bit.
  2584.         mov [bx],ah                     ; Put the char in the buffer.
  2585.         inc bx
  2586.         mov cbfptr,bx
  2587.         inc cl                  ; Increment the char count.
  2588.         jmp gtchr1              ; Go around again.
  2589.  
  2590. gtceof: cmp cl,0                ; Had we gotten any data?
  2591.         je gteof0               ; Nope.
  2592.         mov al,cl
  2593.         mov ah,0
  2594.         jmp rskp
  2595. gteof0: mov ah,0FFH             ; Get a minus one.
  2596.         ret
  2597.  
  2598.  
  2599.      .LIST
  2600.  
  2601. inbuf:  mov ah,eoflag           ; Have we reached the end?
  2602.         cmp ah,0
  2603.         jz inbuf0
  2604.         ret                     ; Return if set.
  2605. inbuf0: push bx                 
  2606.         push cx
  2607.         mov bx,offset buff      ; Set the r/w buffer pointer.
  2608.         mov bufpnt,bx
  2609.         mov ah,readf            ; Read a record.
  2610.         mov dx,offset fcb
  2611.         int dos
  2612.         mov cx,filsiz
  2613.         cmp cx,0                ; Check for 128 chars or less left.
  2614.         jne inbuf1              ; Still have data left.
  2615. IF t2000
  2616.     mov cx,filsiz+2        ; get part 2. [21]
  2617.     cmp bufhex,cx        ; [21]
  2618.     jc inbuf1        ; Jmp if 128 < bufsiz
  2619. ELSE
  2620.         mov ax,ds
  2621.         mov es,ax
  2622.         mov si,offset filsiz+2
  2623.         mov di,offset bufhex
  2624.         cmps filsiz+2,es:bufhex
  2625.         jg inbuf1               ; More than 128 chars.
  2626. ENDIF
  2627.     mov eoflag,0FFH         ; Set End-of-file.
  2628.         mov cx,filsiz+2
  2629.         mov chrcnt,cx           ; Return proper number of chars.
  2630.         mov filflg,0            ; Buffer not empty.
  2631.         pop cx
  2632.         pop bx
  2633.         jmp rskp
  2634. inbuf1: sub filsiz+2,80H        ; Sent another 128 chars.
  2635.         sbb filsiz,0            ; Account for the doubleword.
  2636.         mov al,80H              ; Use as counter for number of chars read.
  2637.         pop cx
  2638.         pop bx
  2639.         cmp filflg,0            ; Ever used DMS?
  2640.         jnz inbf21              ; Nope, then don't change count.
  2641.         dec al                  ; Fix boundary error.
  2642. inbf21: mov ah,0                ; Zero the flag (buffer not empty).
  2643.         mov chrcnt,ax           ; Number of chars read from file.
  2644.         mov filflg,0            ; Buffer not empty.
  2645.         jmp rskp
  2646.  
  2647. getfil: mov ah,0FFH
  2648.         mov filflg,ah           ; Nothing in the DMA.
  2649.         mov ax,0
  2650.         mov eoflag,ah           ; Not the end of file.
  2651.         mov bx,offset fcb+0CH
  2652.         mov [bx],ax             ; Zero the current block number.
  2653.         mov bx,offset fcb+0EH
  2654.         mov [bx],ax             ; Ditto for Lrecl.
  2655.         mov bx,offset fcb+20H
  2656.         mov [bx],ah             ; Zero the current record (of block).
  2657.         inc bx
  2658.         mov [bx],ax             ; Same for record (of file). 
  2659.         mov bx,offset fcb+23H
  2660.         mov [bx],ax
  2661.         mov ah,openf            ; Open the file.
  2662.         mov dx,offset fcb
  2663.         int dos
  2664.         mov bx,offset fcb+18    ; File size in bytes (hi order word).
  2665.         mov di,offset filsiz    ; Where to put the info. 
  2666.         mov ax,[bx]
  2667.         mov [di],ax
  2668.         mov bx,offset fcb+16    ; Lo order word.
  2669.         mov ax,[bx]
  2670.         mov 2[di],ax
  2671.         sub filsiz+2,1          ; Don't count the ^Z.
  2672.         sbb filsiz,0
  2673.         jmp rskp
  2674.  
  2675.  
  2676.     .XLIST
  2677.  
  2678.  
  2679. gtnfil: cmp cxzflg,'Z'          ; Did we have a ^Z? [20b]
  2680.         je gtn5                 ; If yes, we're done sending files. [20b]
  2681.         cmp wldflg,0            ; Was there a "*"?              [7 start]
  2682.         je gtn5                 ; Nope.
  2683.         mov bx,offset cpfcb     ; Get FCB from last check for file.  
  2684.         mov di,offset fcb       ; Copy to FCB.
  2685.         mov cl,37               ; Size of FCB.
  2686.         call fcbcpy
  2687. gtn2:   mov ah,snext
  2688.         mov dx,offset fcb       ; More files?
  2689.         int dos
  2690.         cmp al,0FFH
  2691.         je gtn5
  2692.         mov bx,offset fcb
  2693.         mov di,offset cpfcb
  2694.         mov cl,37
  2695.         call fcbcpy             ; Copy from FCB.
  2696.         mov di,offset fcb+1     ; Get name of next file to send.
  2697.         mov bx,offset buff+1
  2698.         mov cl,11
  2699.         call fcbcpy
  2700.         call getfil             ; Initialize
  2701.          jmp r
  2702.         jmp rskp                        
  2703. gtn5:   mov wldflg,0            ; Reset wild card flag.
  2704.         ret                                             ;  [7 end]
  2705.  
  2706.  
  2707. ;       Get the file name (including host to micro translation)
  2708.  
  2709. gofil:  mov bx,offset data      ; Get the address of the file name.
  2710.         mov datptr,bx           ; Store the address.
  2711.         mov bx,offset fcb+1            ; Address of the FCB.
  2712.         mov fcbptr,bx           ; Save it.
  2713.         mov ax,0
  2714.         mov temp1,ax            ; Initialize the char count.
  2715.         mov temp2,ax
  2716.         mov si,offset fcb
  2717.         mov [si],ah             ; Set the drive to default to current.
  2718.         mov ch,' '
  2719. gofil1: mov [bx],ch                     ; Blank the FCB.
  2720.         inc bx
  2721.         inc ah
  2722.         cmp ah,0BH                      ; Twelve?
  2723.         jl gofil1
  2724. gofil2: mov bx,datptr           ; Get the NAME field.
  2725.         mov ah,[bx]
  2726.         inc bx
  2727.         mov datptr,bx
  2728.         cmp ah,'.'                      ; Seperator?
  2729.         jne gofil3
  2730.         mov bx,offset fcb+9H
  2731.         mov fcbptr,bx
  2732.         mov ax,temp1
  2733.         mov temp2,ax
  2734.         mov temp1,9H
  2735.         jmp gofil6
  2736. gofil3: cmp ah,0                        ; Trailing null?
  2737.         jz gofil7               ; Then we're done.
  2738.         mov bx,fcbptr
  2739.         mov [bx],ah
  2740.         inc bx
  2741.         mov fcbptr,bx
  2742.         mov ax,temp1            ; Get the char count.
  2743.         inc ax
  2744.         mov temp1,ax
  2745.         cmp ax,8H                       ; Are we finished with this field?
  2746.         jl gofil2
  2747. gofil4: mov temp2,ax
  2748.         mov bx,datptr
  2749.         mov ah,[bx]
  2750.         inc bx
  2751.         mov datptr,bx
  2752.         cmp ah,0
  2753.         jz gofil7
  2754.         cmp ah,'.'                      ; Is this the terminator?
  2755.         jne gofil4              ; Go until we find it.
  2756. gofil6: mov bx,datptr           ; Get the TYPE field.
  2757.         mov ah,[bx]
  2758.         inc bx
  2759.         mov datptr,bx
  2760.         cmp ah,0                        ; Trailing null?
  2761.         jz gofil7               ; Then we're done.
  2762.         mov bx,fcbptr
  2763.         mov [bx],ah
  2764.         inc bx
  2765.         mov fcbptr,bx
  2766.         inc temp1               ; Increment char count.
  2767.         cmp temp1,0CH                   ; Are we finished with this field?
  2768.         jl gofil6
  2769. gofil7: mov bx,datptr
  2770.         mov ah,'$'
  2771.         mov [bx],ah             ; Put in a dollar sign for printing.
  2772.         call clrfln
  2773.         mov ah,prstr            ; Print the file name.
  2774.         mov dx,offset data
  2775.         int dos
  2776.         mov ah,flwflg           ; Is file warning on?
  2777.         cmp ah,0
  2778.         jnz gf7x
  2779.         jmp gofil9              ; If not, just proceed.
  2780. gf7x:   mov ah,openf            ; See if the file exists.
  2781.         mov dx,offset fcb
  2782.         int dos
  2783.         cmp al,0FFH             ; Does it exist?
  2784.         jnz gf8x
  2785.         jmp gofil9               ; If not create it.
  2786. gf8x:   
  2787. IF msdos
  2788.         mov ah,2                ; Position cursor.
  2789.         mov dx,scrfr
  2790.         mov bh,0
  2791.         int bios
  2792. ENDIF
  2793. IF Z100
  2794.         mov ah,prstr            ; Get print string function
  2795.         mov dx,offset scrfr     ; and string to move cursor
  2796.         int dos                 ; Print the string
  2797. ENDIF
  2798.         mov ah,prstr            ; Inform the user we are renaming the file.
  2799.         mov dx,offset infms5
  2800.         int dos
  2801.         mov ax,temp2            ; Get the number of chars in the file name.
  2802.         cmp ax,0
  2803.         jne gofil8
  2804.         mov ax,temp1
  2805.         mov temp2,ax
  2806. gofil8: mov ch,0
  2807.         mov cl,al
  2808.         mov al,0                        ; Says if first field is full.
  2809.         cmp cl,9H                       ; Is the first field full?
  2810.         jne gofl81
  2811.         mov al,0FFH             ; Set a flag saying so.
  2812.         dec cl
  2813. gofl81: mov bx,offset fcb              ; Get the FCB.
  2814.         add bx,cx               ; Add in the character number.
  2815.         mov ah,'&'
  2816.         mov [bx],ah             ; Replace the char with an ampersand.
  2817.         push ax
  2818.         push bx
  2819.         mov ah,openf            ; See if the file exists.
  2820.         mov dx,offset fcb
  2821.         int dos
  2822.         pop bx
  2823.         cmp al,0FFH             ; Does it exist?
  2824.         pop ax
  2825.         jz gofl89               ; If not create it.
  2826.         cmp al,0                      ; Get the flag.
  2827.         jz gofl83
  2828.         dec cl                  ; Decrement the number of chars.
  2829.         cmp cl,0
  2830.         jz gofl88               ; If no more, die.
  2831.         jmp gofl81
  2832. gofl83: inc cl                  ; Increment the number of chars.
  2833.         cmp cl,9H                       ; Are we to the end?
  2834.         jl gofl81               ; If not try again ; else fail. 
  2835.  
  2836. gofl88: call erpos              ; Position cursor.
  2837.         mov ah,prstr            ; Tell the user that we can't rename it.
  2838.         mov dx,offset ermes4
  2839.         int dos
  2840.         mov bx,dx               ; Tell host can't rename.  [20f]
  2841.         call errpack            ; Send error packet before abort. [20f]
  2842.         ret
  2843.  
  2844. gofl89: mov bx,offset fcb+0CH          ; Point past the end of the file name.
  2845.         mov dh,[bx]                     ; Save the present contents.
  2846.         mov ah,'$'
  2847.         mov [bx],ah             ; Put in a dollar sign.
  2848.         push dx
  2849.         mov ah,prstr            ; Print the file name.
  2850.         mov dx,offset fcb+1
  2851.         int dos
  2852.         pop dx
  2853.         mov bx,offset fcb+0CH          ; Restore over the dollar sign.
  2854.         mov [bx],dh
  2855. gofil9: mov ah,delf             ; Delete the file if it exists.
  2856.         mov dx,offset fcb
  2857.         int dos
  2858.         mov ax,0
  2859.         mov si,offset fcb+0CH
  2860.         mov [si],ax             ; Zero current block.
  2861.         mov si,offset fcb+0EH
  2862.         mov [si],ax             ; Same for Lrecl.
  2863.         mov si,offset fcb+20H
  2864.         mov [si],ah             ; Zero the current record (within block).
  2865.         inc si
  2866.         mov [si],ax             ; Zero record (within file).
  2867.         mov si,offset fcb+23H
  2868.         mov [si],ax
  2869.         mov ah,makef            ; Now create it.
  2870.         mov dx,offset fcb
  2871.         int dos
  2872.         cmp al,0FFH             ; Is the disk full?
  2873.         je gf9x
  2874.         jmp rskp
  2875. gf9x:   call erpos              ; Position cursor.
  2876.         mov ah,prstr            ; If so tell the user.
  2877.         mov dx,offset erms11
  2878.         int dos
  2879.         ret
  2880.  
  2881. FILEIO  ENDP
  2882.  
  2883.  
  2884. ;       Packet routines
  2885.  
  2886. ; Send_Packet
  2887. ; This routine assembles a packet from the arguments given and sends it
  2888. ; to the host.
  2889. ;
  2890. ; Expects the following:
  2891. ;       AH     - Type of packet (D,Y,N,S,R,E,F,Z,T)
  2892. ;       ARGBLK - Packet sequence number
  2893. ;       ARGBK1 - Number of data characters
  2894. ; Returns: +1 always
  2895.  
  2896. SPKT    PROC    NEAR
  2897.  
  2898. spack:  push ax                 ; Save the packet type.
  2899. IF msdos
  2900.         call clrbuf             ; Clear the input buffer. [20e]
  2901. ENDIF
  2902.         mov bx,offset packet    ; Get address of the send packet.
  2903.         mov ah,soh              ; Get the start of header char.
  2904.         mov [bx],ah             ; Put in the packet.
  2905.         inc bx                  ; Point to next char.
  2906.         mov ax,argbk1           ; Get the number of data chars.
  2907.         xchg ah,al
  2908.         add ah,' '+3            ; Real packet character count made printable.
  2909.         mov [bx],ah             ; Put in the packet.
  2910.         inc bx                  ; Point to next char.
  2911.         mov cl,ah               ; Start the checksum.
  2912.         mov ax,argblk           ; Get the packet number.
  2913.         xchg ah,al
  2914.         add ah,' '              ; Add a space so the number is printable.
  2915.         mov [bx],ah             ; Put in the packet.
  2916.         inc bx                  ; Point to next char.
  2917.         add cl,ah               ; Add the packet number to the checksum.
  2918.         pop ax                  ; Get the packet type.
  2919.         mov [bx],ah             ; Put in the packet.
  2920.         inc bx                  ; Point to next char.
  2921.         add cl,ah               ; Add the type to the checksum.
  2922.         mov dx,argbk1           ; Get the packet size.
  2923. spack2: cmp dx,0                ; Are there any chars of data?
  2924.          jz spack3              ;  No, finish up.
  2925.         dec dx                  ; Decrement the char count.
  2926.         mov ah,[bx]             ; Get the next char.
  2927.         inc bx                  ; Point to next char.
  2928.         add cl,ah               ; Add the char to the checksum.
  2929.         cmp ah,0
  2930.         jns spack2
  2931.         mov hierr,0FFH          ; set err flag. 
  2932.         jmp spack2              ; Go try again.
  2933. spack3: cmp hierr,0
  2934.         je sp3x                 ; Nothing special to do.
  2935.         call biterr
  2936.         mov hierr,0             ; Reset.
  2937. sp3x:   mov ah,cl               ; Get the character total.
  2938.         mov ch,cl               ; Save here too (need 'cl' for shift).
  2939.         and ah,0C0H             ; Turn off all but the two high order bits.
  2940.         mov cl,6
  2941.         shr ah,cl               ; Shift them into the low order position.
  2942.         mov cl,ch
  2943.         add ah,cl               ; Add it to the old bits.
  2944.         and ah,3FH              ; Turn off the two high order bits.  (MOD 64)
  2945.         add ah,' '              ; Add a space so the number is printable.
  2946.         mov [bx],ah             ; Put in the packet.
  2947.         inc bx                  ; Point to next char.
  2948.         mov ah,seol             ; Get the EOL the other host wants.
  2949.         mov [bx],ah             ; Put in the packet.
  2950.         inc bx                  ; Point to next char.
  2951.         mov ah,0                ; Get a null.
  2952.         mov [bx],ah             ; Put in the packet.
  2953.         cmp debug,0             ; debug mode.
  2954.         je spack4
  2955.         inc bx
  2956.         mov ah,'$'
  2957.         mov [bx],ah
  2958. IF msdos        
  2959.         mov ah,2
  2960.         mov dx,scrsp
  2961.         mov bh,0
  2962.         int bios
  2963. ENDIF
  2964. IF Z100
  2965.         mov ah,prstr            ; Get print string function
  2966.         mov dx,offset scrsp     ; and string to move cursor
  2967.         int dos                 ; Print the string
  2968. ENDIF
  2969.         mov ah,prstr
  2970.         mov dx,offset spmes
  2971.         int dos
  2972.         mov dx,offset packet
  2973.         mov ah,prstr
  2974.         int dos                 ; debug end.
  2975. spack4: call outpkt             ; Call the system dependent routine.
  2976.          jmp r
  2977.         jmp rskp
  2978.  
  2979. SPKT    ENDP 
  2980. ;       Write out a packet.
  2981.  
  2982. OUTPKT  PROC    NEAR
  2983.         mov dh,spad             ; Get the number of padding chars.
  2984. outpk2: dec dh
  2985.         cmp dh,0
  2986.         jl outpk3               ; If none left proceed.
  2987.         mov ah,spadch           ; Get the padding char.
  2988.         call outchr             ; Output it.
  2989.         jmp outpk2
  2990. outpk3: mov bx,offset packet    ; Point to the packet.
  2991. outlup: mov ah,[bx]             ; Get the next character.
  2992.         cmp ah,0                ; Is it a null?
  2993.         jnz outlp2
  2994.         jmp rskp
  2995. outlp2: call outchr             ; Output the character.
  2996.          jmp r
  2997.         inc bx                  ; Increment the char pointer.
  2998.         jmp outlup
  2999. OUTPKT  ENDP
  3000.  
  3001.  
  3002. ;************************System Dependent****************************
  3003. ;       Put a char in AH to the port.
  3004. PORT    PROC  NEAR 
  3005. IF t2000
  3006. outchr:    xor cx,cx        ; Set timeout counter to zero. [21]
  3007.     mov al,ah        ; Parity routine works on AL. [21]
  3008.     call dopar        ; Set parity appropriately. [21]
  3009.     push ax            ; Save character. [21]
  3010. outch1:    mov ah,03H        ; Get status. [21]
  3011.     xor dx,dx        ; clear dx. [21]
  3012.     int comm        ; BIOS comm status call. [21]
  3013.     test ah,20H        ; Transmitter ready? [21]
  3014.     jne outch2        ; Yes. [21]
  3015.     loop outch1
  3016.      jmp r            ; Timeout. [21]
  3017. outch2:    pop ax            ; Get character into al. [21]
  3018.     mov ah,01H        ; BIOS function number. [21]
  3019.     xor dx,dx         ; Comm port  (not used). [21]
  3020.     int comm        ; Send character. [21]
  3021.     jmp rskp        ; [21]
  3022. ENDIF
  3023.  
  3024. IF ibmpc
  3025. outchr: sub cx,cx               ; [14 start]
  3026.         mov al,ah               ; Parity routine works on AL. [16]
  3027.         call dopar              ; Set parity appropriately.     [10]
  3028.         mov ah,al               ; Don't overwrite character with status. [16]
  3029.         mov dx,mdstat           ; Get port status. [19b]
  3030. outch1: in al,dx
  3031.         test al,20H             ; Transmitter ready?
  3032.         jnz outch2              ; Yes
  3033.         loop outch1
  3034.          jmp r                  ; Timeout
  3035. outch2: mov al,ah               ; Now send it out
  3036.         mov dx,mddat            ; [19b]
  3037.         out dx,al
  3038.         jmp rskp                ; [14 end]
  3039. ENDIF
  3040. IF Z100
  3041. outchr: mov al,ah               ; Yes, get the character into al
  3042.         mov cx,0
  3043.         call dopar              ; Set parity appropriately.   [10]
  3044. outch1: call bios_auxout        ; Send the character
  3045.         jmp rskp
  3046. ENDIF
  3047.  
  3048. ;************************System Dependent****************************
  3049. ;
  3050. ;       Get a char from the port and return in AH.
  3051.  
  3052. inchr:  
  3053. IF msdos
  3054.         call prtchr             ; Get character if ready.  [14]
  3055.          jmp inchr3             ; Got it in AL.  [14]
  3056. ENDIF
  3057. IF Z100
  3058.         push    bx              ; Save BX
  3059.         mov ah,chr_status       ; Get the function
  3060.         mov al,chr_sfgs         ; And the subfunction
  3061.         call bios_auxfunc       ; Determine if anything to input
  3062.         cmp bl,0                ; Is there?
  3063.         jnz inchr3              ; Yes, go get it
  3064.         pop bx                  ; And restore BX
  3065. ENDIF
  3066.         mov ah,constat          ; Is a char on the console?
  3067.         int dos
  3068.         cmp al,0
  3069.         jz inchr                ; If not go look for another char.
  3070.         mov ah,conin            ; Get the char.
  3071.         int dos
  3072.         mov ah,al 
  3073.         cmp ah,cr                       ; Is it a carriage return?
  3074.         je inchr4               ; If yes, then leave.
  3075.         cmp ah,'Z'-100O         ; Control-Z? [20b]
  3076.         je inchr2               ; Yes - flag it. [20b]
  3077.         cmp ah,'X'-100O         ; Control-X? [20b]
  3078.         je inchr2               ; Yes - flag it. [20b]
  3079.         jmp inchr               ; Wait for some kind of input.
  3080. inchr2: add ah,100O             ; Make it printable. [20b]
  3081.         mov cxzflg,ah           ; Remember what we saw. [20b]
  3082.         jmp inchr               ; Continue getting input. [20b]
  3083. inchr4: ret
  3084. inchr3:
  3085. IF Z100
  3086.      mov ah,chr_read         ; Get the function to read
  3087.         call bios_auxfunc       ; Get a character
  3088.         pop bx                  ; Restore BX
  3089. ENDIF
  3090.         cmp parflg,PARNON       ; Is the parity none?   [10]
  3091.         je inchr5               ; We're done.           [10]
  3092.         and al,7FH              ; Turn off the parity bit.
  3093. inchr5:
  3094.     mov ah,al        ; [21]
  3095.     jmp rskp
  3096.  
  3097. ; Set parity for character in Register AL.
  3098.  
  3099. dopar:  cmp parflg,parnon       ; No parity?                    [10 start]
  3100.         je parret               ; Just return
  3101.         cmp parflg,parevn       ; Even parity?
  3102.         jne dopar0
  3103.         and al,07FH             ; Strip parity.
  3104.         jpe parret              ; Already even, leave it.
  3105.         or al,080H              ; Make it even parity.
  3106.         jmp parret
  3107. dopar0: cmp parflg,parmrk       ; Mark parity?
  3108.         jne dopar1
  3109.         or al,080H              ; Turn on the parity bit.
  3110.         jmp parret
  3111. dopar1: cmp parflg,parodd       ; Odd parity?   
  3112.         jne dopar2
  3113.         and al,07FH             ; Strip parity.
  3114.         jpo parret              ; Already odd, leave it.
  3115.         or al,080H              ; Make it odd parity.
  3116.         jmp parret
  3117. dopar2: and al,07FH             ; Space parity - turn off parity bit.
  3118. parret: ret                                                     ; [10 end]
  3119. PORT    ENDP
  3120.  
  3121. ; Clear the input buffer before sending a packet. [20e]
  3122. IF msdos
  3123. CLRBUF  PROC    NEAR
  3124. IF t2000
  3125.     xor ax,ax        ; Clear ax. [21]
  3126.     mov ah,04H        ; BIOS function number. [21]
  3127.     xor dx,dx        ; Clear dx. [21]
  3128.     mov dh,03H        ; XON/XOFF protocol. [21]
  3129.     int comm
  3130.     ret
  3131. ENDIF
  3132. IF ibmpc
  3133.         lea ax,cs:source        ; Initialize the pointers
  3134.         mov cs:srcpnt,ax
  3135.         mov cs:savesi,ax
  3136.         mov cs:count,0
  3137.         mov di,cs:srcpnt        ; Where to store bytes
  3138.         mov ax,cs               ; Ready ES for string operations
  3139.         mov es,ax
  3140.         mov si,0                ; Where to fetch bytes
  3141.         ret
  3142. ENDIF
  3143. CLRBUF  ENDP
  3144. ENDIF
  3145.  
  3146. ; Receive_Packet
  3147. ; This routine waits for a packet arrive from the host.  It reads
  3148. ; chars until it finds a SOH.
  3149.  
  3150. RPACK   PROC    NEAR
  3151. IF msdos
  3152.         mov ah,2
  3153.         mov dx,scrst            ; Position cursor.
  3154.         mov bh,0
  3155.         int bios
  3156. ENDIF
  3157. IF Z100
  3158.         mov ah,prstr            ; Get the function to print string
  3159.         mov dx,offset scrst     ; Get the string address
  3160.         int dos                 ; Position the cursor
  3161. ENDIF
  3162.         mov ah,prstr
  3163.         mov dx,offset infms0
  3164.         int dos
  3165. rpack5: call inpkt              ; Read up to a carriage return.
  3166.          jmp r                  ;  Return bad.
  3167. rpack0: call getchr             ; Get a character.
  3168.          jmp r                  ;  Hit the carriage return, return bad.
  3169.         cmp ah,soh              ; Is the char the start of header char?
  3170.          jne rpack0             ;  No, go until it is.
  3171. rpack1: call getchr             ; Get a character.
  3172.          jmp r                  ;  Hit the carriage return, return bad.
  3173.         cmp ah,soh              ; Is the char the start of header char?
  3174.          jz rpack1              ;  Yes, then go start over.
  3175.         mov cl,ah               ; Start the checksum.
  3176.         sub ah,' '+3            ; Get the real data count.
  3177.         mov dh,ah               ; Save it for later.
  3178.         mov al,ah               ; Swap halves.
  3179.         mov ah,0
  3180.         mov argbk1,ax           ; Save the data count.
  3181.         call getchr             ; Get a character.
  3182.          jmp r                  ;  Hit the carriage return, return bad.
  3183.         cmp ah,soh              ; Is the char the start of header char?
  3184.          jz rpack1              ;  Yes, then go start over.
  3185.         add cl,ah               ; Add it to the checksum.
  3186.         sub ah,' '              ; Get the real packet number.
  3187.         mov al,ah               ; Swap halves.
  3188.         mov ah,0
  3189.         mov argblk,ax           ; Save the packet number.
  3190.         call getchr             ; Get a character.
  3191.          jmp r                  ;  Hit the carriage return, return bad.
  3192.         cmp ah,soh              ; Is the char the start of header char?
  3193.          jz rpack1              ;  Yes, then go start over.
  3194.         mov temp,ax             ; Save the message type. [11]
  3195.         add cl,ah               ; Add it to the checksum.
  3196.         mov bx,offset data      ; Point to the data buffer.
  3197. rpack2: dec dh                  ; Any data characters?
  3198.          js rpack3              ;  If not go get the checksum.
  3199.         call getchr             ; Get a character.
  3200.          jmp r                  ;  Hit the carriage return, return bad.
  3201.         cmp ah,soh              ; Is the char the start of header char?
  3202.          jz rpack1              ;  Yes, then go start over.
  3203.         mov [bx],ah             ; Put the char into the packet.
  3204.         inc bx                  ; Point to the next character.
  3205.         add cl,ah               ; Add it to the checksum.
  3206.         jmp rpack2              ; Go get another.
  3207. rpack3: call getchr             ; Get a character.
  3208.          jmp r                  ;  Hit the carriage return, return bad.
  3209.         cmp ah,soh              ; Is the char the start of header char?
  3210.          jz rpack1              ;  Yes, then go start over.
  3211.         sub ah,' '              ; Turn the char back into a number.
  3212.         mov dh,cl               ; Get the character total.
  3213.         and dh,0C0H             ; Turn off all but the two high order bits.
  3214.         mov ch,cl
  3215.         mov cl,6
  3216.         shr dh,cl               ; Shift them into the low order position.
  3217.         mov cl,ch
  3218.         add dh,cl               ; Add it to the old bits.
  3219.         and dh,3FH              ; Turn off the two high order bits.  (MOD 64)
  3220.         cmp dh,ah               ; Are they equal?
  3221.          jz rpack4              ;  If so finish up.
  3222.         ret
  3223. rpack4: mov ah,0
  3224.         mov [bx],ah             ; Put a null at the end of the data.
  3225.         mov ax,temp             ; Get the type.   [11]
  3226.         jmp rskp
  3227. RPACK   ENDP
  3228.  
  3229.  
  3230. INPKT   PROC    NEAR
  3231.         mov bl,cxzflg           ; Remember original value. [20b]
  3232.         mov tmp,bl              ; Store it here. [20b]
  3233.         mov bx,offset recpkt    ; Point to the beginning of the packet.
  3234.         mov incnt,0
  3235. inpkt2: call inchr              ; Get a character.
  3236.          jmp inpkt0             ;  Return failure. [20b]
  3237.          nop                    ;  Make it three bytes long. [20b] 
  3238.         mov [bx],ah             ; Put the char in the packet.
  3239.         inc bx
  3240.         inc incnt
  3241.         cmp ah,reol             ; Is it the EOL char?
  3242.         jne inpkt2              ; If not loop for another.
  3243.         cmp incnt,1             ; Ignore bare CR.   [2 start]
  3244.         jne inpkt6
  3245.         mov incnt,0
  3246.         mov bx,offset recpkt
  3247.         jmp inpkt2              ;                   [2 end]
  3248. inpkt6: cmp ibmflg,0            ; Is this the (dumb) IBM mainframe?
  3249.         jz inpkt4               ; If not then proceed.
  3250. inpkt5: cmp state,'S'           ; Check if this is the Send-Init packet.
  3251.         jz inpkt4               ; If so don't wait for the XON.
  3252. inpkt3: call inchr              ; Wait for the turn around char.
  3253.          jmp inpkt0             ;  Return failure. [20b]
  3254.          nop                    ;  Make it three bytes long.  [20b]
  3255.         cmp ah,xon              ; Is it the IBM turn around character?
  3256.         jne inpkt3              ; If not, go until it is.
  3257. inpkt4: mov bx,offset recpkt
  3258.         mov pktptr,bx           ; Save the packet pointer.
  3259.         mov bl,tmp              ; Get the original value. [20b]
  3260.         cmp bl,cxzflg           ; Did ^X/^Z flag change? [20b]
  3261.         je inpkx                ; If not, just return.  [20b]
  3262.         call intmsg             ; Else, say we saw the interrupt. [20b]
  3263. inpkx:  jmp rskp                ; If so we are done.
  3264. inpkt0: mov bl,tmp              ; Get the original value. [20b]
  3265.         cmp bl,cxzflg           ; Did ^X/^Z flag change? [20b]
  3266.         je inpky                ; If not, just return failure.  [20b]
  3267.         call intmsg             ; Else, say we saw the interrupt. [20b]
  3268. inpky:  jmp r
  3269. INPKT   ENDP
  3270.  
  3271. GETCHR  PROC    NEAR
  3272.         push bx
  3273.         mov bx,pktptr           ; Get the packet pointer.
  3274.         mov ah,[bx]             ; Get the char.
  3275.         inc bx
  3276.         mov pktptr,bx
  3277.         pop bx                  ; Restore BX.
  3278.         cmp ah,reol             ; Is it the EOL char?
  3279.         jne getcr2              ; If not return retskp.
  3280.         ret                     ; If so return failure.
  3281. getcr2: jmp rskp
  3282. GETCHR  ENDP
  3283.  
  3284.  
  3285. ; This is where we go if we get an error packet.  A call to ERROR 
  3286. ; positions the cursor and prints the message.  A call to ERROR1
  3287. ; just prints a CRLF and then the message.  [8]
  3288.  
  3289. ERROR   PROC    NEAR
  3290.         mov state,'A'           ; Set the state to abort.
  3291.         call erpos              ; Position the cursor.
  3292.         jmp error2
  3293. error1: mov ah,prstr
  3294.         mov dx,offset crlf
  3295.         int dos
  3296. error2: mov bx,argbk1           ; Get the length of the data.
  3297.         add bx,offset data      ; Get to the end of the string.
  3298.         mov ah,'$'              ; Put a dollar sign at the end.
  3299.         mov [bx],ah
  3300.         mov ah,prstr            ; Print the error message.
  3301.         mov dx,offset data
  3302.         int dos
  3303.         ret
  3304. ERROR   ENDP
  3305.  
  3306. ; LOGOUT - tell remote KERSRV to logout.
  3307.  
  3308. LOGOUT  PROC    NEAR                                            ; [8 start]
  3309.         mov ah,cmcfm
  3310.         call comnd              ; Get a confirm.
  3311.          jmp r
  3312.         call logo
  3313.          jmp rskp               ; Go get another command whether we ....
  3314.         jmp rskp                ; .... succeed or fail.
  3315. LOGOUT  ENDP
  3316.  
  3317. LOGO    PROC    NEAR
  3318.         mov numtry,0            ; Initialize count.
  3319.         call serini             ; Initialize port.  [14]
  3320. logo1:  mov ah,numtry
  3321.         cmp ah,maxtry           ; Too many times?
  3322.         js logo3                ; No, try it.
  3323. logo2:  mov ah,prstr
  3324.         mov dx,offset erms19
  3325.         int dos
  3326.         call serrst             ; Reset port.  [14]
  3327.         ret
  3328. logo3:  inc numtry              ; Increment number of tries.
  3329.         mov argblk,0            ; Packet number zero.
  3330.         mov argbk1,1            ; One piece of data.
  3331.         mov bx,offset data
  3332.         mov ah,'L'
  3333.         mov [bx],ah             ; Logout the remote host.
  3334.         mov ah,'G'              ; Generic command packet.
  3335.         call spack
  3336.          jmp logo2              ; Tell user and die.
  3337.          nop
  3338.         call rpack5             ; Get ACK (w/o screen msgs.)
  3339.          jmp logo1              ; Go try again.
  3340.          nop
  3341.         cmp ah,'Y'              ; ACK?
  3342.         jne logo4
  3343.         call serrst             ; Reset port.  [14]
  3344.         jmp rskp
  3345. logo4:  cmp ah,'E'              ; Error packet? 
  3346.         jnz logo1               ; Try sending the packet again.
  3347.         call error1
  3348.         call serrst             ; Reset port.  [14]
  3349.         ret
  3350. LOGO    ENDP
  3351.  
  3352. ; FINISH - tell remote KERSRV to exit.
  3353.  
  3354. FINISH  PROC    NEAR
  3355.         mov ah,cmcfm            ; Parse a confirm.
  3356.         call comnd
  3357.          jmp r
  3358.         mov numtry,0            ; Initialize count.
  3359.         call serini             ; Initialize port.  [14]
  3360. fin1:   mov ah,numtry
  3361.         cmp ah,maxtry           ; Too many times?
  3362.         js fin3                 ; Nope, try it.
  3363. fin2:   mov ah,prstr
  3364.         mov dx,offset erms18
  3365.         int dos
  3366.         call serrst             ; Reset port.  [14]
  3367.         jmp rskp                ; Go home.
  3368. fin3:   inc numtry              ; Increment number of tries.
  3369.         mov argblk,0            ; Packet number zero.
  3370.         mov argbk1,1            ; One piece of data.
  3371.         mov bx,offset data
  3372.         mov ah,'F'
  3373.         mov [bx],ah             ; Finish running Kermit.
  3374.         mov ah,'G'              ; Generic command packet.
  3375.         call spack
  3376.          jmp fin2               ; Tell user and die.
  3377.          nop
  3378.         call rpack5             ; Get ACK (w/o screen stuff).
  3379.          jmp fin1               ; Go try again.
  3380.          nop
  3381.         cmp ah,'Y'              ; Got an ACK?
  3382.         jnz fin4
  3383.         call serrst             ; Reset port. [14]
  3384.         jmp rskp                ; Yes, then we're done.
  3385. fin4:   cmp ah,'E'              ; Error packet?
  3386.         jnz fin1                ; Try sending it again.
  3387.         call error1
  3388.         call serrst             ; Reset port.  [14]
  3389.         jmp rskp
  3390. FINISH  ENDP
  3391.  
  3392. ; BYE command - tell remote KERSRV to logout & exits to DOS.  
  3393.  
  3394. BYE     PROC    NEAR
  3395.         mov ah,cmcfm            ; Parse a confirm.
  3396.         call comnd
  3397.          jmp r
  3398.         call logo               ; Tell the mainframe to logout.
  3399.          jmp rskp               ; Failed - don't exit.
  3400.         mov extflg,1            ; Set exit flag.
  3401.         jmp rskp                                        ; [8 end]
  3402. BYE     ENDP
  3403.  
  3404. ; This is the 'exit' command.  It leaves KERMIT and returns to DOS.
  3405.  
  3406. EXIT    PROC    NEAR
  3407.         mov ah,cmcfm
  3408.         call comnd              ; Get a confirm.
  3409.          jmp r
  3410.         mov extflg,1            ;  Set the exit flag.
  3411.         jmp rskp                ; Then return to system.
  3412. EXIT    ENDP
  3413.  
  3414.  
  3415. ; This is the 'help' command.  It gives a list of the commands.
  3416.  
  3417. HELP    PROC    NEAR
  3418.         mov ah,cmcfm
  3419.         call comnd              ; Get a confirm.
  3420.          jmp r
  3421.         mov ah,prstr            ; Print a string to the console.
  3422.         mov dx,offset tophlp    ; The address of the help message.
  3423.         int dos
  3424.         jmp rskp
  3425. HELP    ENDP
  3426.  
  3427. IF t2000
  3428. telflg    db    0        ; Are we acting as a terminal. [21]
  3429. ENDIF
  3430. IF ibmpc
  3431. source  db      2048 DUP(?)     ; Buffer for data from port.
  3432. srcpnt  dw      0               ; Pointer in buffer (DI).
  3433. count   dw      0               ; Number of chars in int buffer.
  3434. savesi  dw      0               ; Save SI register here.        
  3435. telflg  db      0               ; Are we acting as a terminal. [16] [17c]
  3436. mst     dw      0               ; Modem status address. [19b]
  3437. mdat    dw      0               ; Modem data address. [19b]
  3438. mdeoi   db      0               ; End-of-Interrupt value. [19b]
  3439. ENDIF
  3440.  
  3441. ;       This is the CONNECT command.
  3442.  
  3443. TELNET  PROC    NEAR
  3444.         mov ah,cmcfm
  3445.         call comnd              ; Get a confirm.
  3446.          jmp r                  ;  Didn't get a confirm.
  3447.         mov ah,prstr            ; Output
  3448.         mov dx,offset crlf      ; a crlf.
  3449.         int dos
  3450.         call dobaud             ; Set baud rate. [19a]
  3451. IF t2000
  3452.     mov ah,1
  3453.     mov cx,curtyp        ; Get cursor type. [21]
  3454.     int bios        ; Set cursor type. [21]
  3455. ENDIF                ; [21]
  3456.     call domsg        ; Reassure user. [19b]
  3457. IF msdos
  3458.         mov ah,3                ; Get cursor position. [17b start, 20g]
  3459.         mov bh,0
  3460.         int bios
  3461.         cmp dh,24               ; Are we on row 25? [19d]
  3462.         jne nobump              ; Nope, then leave where it is. [19d]
  3463.         dec dh                  ; Decrement ROW attribute. (DT)
  3464.         mov ah,2
  3465.         int bios                ; [17b end]
  3466. nobump: mov cs:telflg,0FFH      ; Turn on Telnet flag.  [16] [17c] [20g]
  3467. ENDIF                ; [21]
  3468. IF ibmpc            ; [21]
  3469.         call serini             ; Initialize serial port. [14]
  3470.         xor ax,ax
  3471.         mov cx,ds               ; Save DS in CX.
  3472.         mov ds,ax               ; Use low core.
  3473.         mov bx,6CH              ; "break" interrupt vector.
  3474.         push [bx]
  3475.         mov bx,6EH
  3476.         push [bx]
  3477.         mov bx,6CH
  3478.         mov ax,offset intret
  3479.         mov es,ax
  3480.         mov [bx],es             ; ignore break int's (pt to "iret").
  3481.         mov bx,6EH
  3482.         mov [bx],cs
  3483.         mov ds,cx
  3484. ;       mov ssp,sp              ; Save SP to make an easy return. [21]
  3485. ENDIF
  3486. ;    Save current stack pointer is needed for all versions. [21]
  3487. ;
  3488.     mov ssp,sp        ; Save current stack pointer. [21]
  3489.  
  3490. ;IF Z100            ; not needed now. [21]
  3491. ;       mov ssp,sp              ; Save current stack pointer. [21]
  3492. ;ENDIF                ; not needed now. [21]
  3493. telnoe: call plup               ; Char at port (type to console) ?
  3494.     cmp al,ESC
  3495. IF t2000
  3496.     jne telxxx        ; [21]
  3497.     jmp telesc        ; ESC seq. [21]
  3498. telxxx:    cmp gphflg,0        ; Are we in graphics mode? [21]
  3499.     je telxx        ; If not in graphics mode jmp over [21]
  3500.     cmp al,ESC+80H
  3501.     jne telxx
  3502.     jmp telesc
  3503. telxx:    cmp al,FF        ; check for FF [21]
  3504.     jne telx        ; nope [21]
  3505.     cmp vtflg,2        ; Check for emulation for other. [21]
  3506.     jne telx        ; Nope it's not other. [21]
  3507.     jmp curclr        ; Yep! so let's jmp to cls [21]
  3508. ELSE
  3509.     jne telx
  3510.     jmp telesc
  3511. ENDIF                ; [21]
  3512. telx:   cmp al,DEL              ; Don't bother with deletes.
  3513.         je telnoe
  3514.         cmp al,XOFF             ; Skip all the following too.
  3515.         je telnoe
  3516.         cmp al,XON      
  3517.         je telnoe
  3518.         cmp al,00H              ; Null.
  3519.         je telnoe
  3520. IF msdos
  3521.         cmp al,BELL
  3522.         jne nobell
  3523.         call beep
  3524.         jmp telnoe
  3525. nobell: cmp al,TAB              ; Tab ? [15]
  3526.         jne notab               ; No, skip the jump [15]
  3527.         call dotab              ; Yes, handle the tab [15]
  3528.         jmp telnoe              ; And get the next character [15]
  3529. notab:  call dotty              ; Use our own TTY I/O.  [17b]
  3530.         jmp telnoe
  3531. ENDIF
  3532. IF Z100
  3533.         mov dl,al               ; Get the character
  3534.         mov ah,dconio           ; and the function
  3535.         int dos                 ; type the character
  3536.         jmp telnoe              ; Get next character
  3537. ENDIF
  3538. TELNET  ENDP
  3539.  
  3540. ; Reassure user about connection to the host.  Tell him what escape
  3541. ; sequence to use to return and the communications port and baud
  3542. ; rate being used.   [19b] 
  3543.  
  3544. DOMSG   PROC    NEAR
  3545.         mov ah,prstr
  3546.         mov dx,offset tmsg1
  3547.         int dos
  3548.         call escprt
  3549.         mov ah,prstr
  3550.         mov dx,offset tmsg3
  3551.         int dos
  3552.         call baudprt            ; Say what baud rate we're using. [19a]
  3553. IF ibmpc
  3554.         mov ah,prstr
  3555.         mov dx,offset tmsg4
  3556.         int dos
  3557.         mov tmp,'1'             ; Assume COM1.
  3558.         cmp comflg,1
  3559.         je domsg0
  3560.         mov tmp,'2'             ; Nope, we're using COM2.
  3561. domsg0: mov dx,offset tmp
  3562.         int dos
  3563. ENDIF
  3564.         mov ah,prstr
  3565.         mov tmp,']'
  3566.         mov dx,offset tmp
  3567.         int dos
  3568.         mov dx,offset crlf      ; Output 3 CRLF's.
  3569.         int dos
  3570.         int dos
  3571.         int dos
  3572.         ret
  3573. DOMSG   ENDP
  3574.  
  3575. ; Put character in AL to the screen.  [17b start]
  3576. IF msdos 
  3577. DOTTY   PROC NEAR
  3578.         push ax
  3579.         mov ah,3                ;Get cursor
  3580.         mov bh,0
  3581.         int bios
  3582.         pop ax
  3583.         cmp al,8                ;Backspace?
  3584.         je dotty3
  3585.         cmp al,0DH              ;CR?
  3586.         je dotty4
  3587.         cmp al,0AH              ;LF?
  3588.         je dotty5
  3589.     cmp dl,79        ; Last col? [21q]
  3590.     jge dottyx        ; Yes act as if normal. [21q]
  3591.         cmp incmod,0            ;I/C?
  3592.         jne dotty7
  3593. dottyx: mov ah,9                ;Ordinary character
  3594.         mov bx,curatt
  3595.         mov cx,1
  3596.         int bios
  3597.         mov ah,2
  3598.         mov bh,0
  3599.         inc dl                  ;Step cursor
  3600.         cmp dl,80               ;Overflow?
  3601.         jne dotty2
  3602. IF t2000
  3603.     cmp vtflg,2        ; Is emulation other? [21m]
  3604.     je dotty0        ; Do automatic margins. [21m]
  3605.     ret            ; Nope stay in col 80. [21m]
  3606. dotty0:    mov dl,0        ; Move cursor to col 0. [21m]
  3607.     cmp dh,23               ;LF
  3608.         jl dotty1
  3609.         mov ah,8                ;Get attribute of last line
  3610.         int bios
  3611.         mov bh,ah
  3612.         mov ax,0601H            ;Scroll
  3613.         sub cx,cx
  3614.         mov dx,174FH
  3615.     int bios        ; Scroll screen. [21m]
  3616.     mov bh,0        ; Set page number. [21m]
  3617.     mov dx,1700H        ; put cursor on col 1 row 23. [21m]
  3618.         jmp dotty6        ; Move cursor. [21m]
  3619. ENDIF
  3620.         ret
  3621. dotty1: inc dh
  3622. dotty6: mov ah,2
  3623. dotty2: int bios
  3624.         ret
  3625. dotty3: dec dl                  ;BS
  3626.         jge dotty6
  3627.         ret
  3628. dotty4: mov dl,0                ;CR
  3629.         jmp dotty6
  3630. dotty5: cmp dh,23               ;LF
  3631.         jl dotty1
  3632.         mov ah,8                ;Get attribute of last line
  3633.         int bios
  3634.         mov bh,ah
  3635.         mov ax,0601H            ;Scroll
  3636.         sub cx,cx
  3637.         mov dx,174FH
  3638.         jmp dotty2
  3639. dotty7: mov temp,ax             ;DK6 Save the character
  3640.         mov temp1,dx            ;Save the cursor
  3641.         mov dl,78               ;Start shift at end of line
  3642.         mov temp2,dx
  3643.         mov ah,1                ;Turn off cursor
  3644. IF t2000            ; [21]
  3645.     or cx,CUROFF        ; Turn off cursor. [21]
  3646. ELSE                ; [21]
  3647.         mov ch,20H
  3648. ENDIF                ; [21]
  3649.         int bios
  3650. dotty8: mov ah,2                ;Position to col M
  3651.         mov bh,0
  3652.         mov dx,temp2
  3653.         int bios
  3654.         mov ah,8                ;Read char/attr
  3655.         int bios
  3656.         mov cx,ax               ;Save it
  3657.         mov ah,2                ;Position to col M+1
  3658.         inc dx
  3659.         int bios
  3660.         mov ah,9                ;Write char/attr
  3661.         mov al,cl
  3662.         mov bl,ch
  3663.         mov cx,1
  3664.         int bios
  3665.         dec dx
  3666.         dec temp2
  3667.         cmp dx,temp1
  3668.         jne dotty8
  3669.         mov ah,2                ;Position
  3670.         mov bh,0
  3671.         int bios
  3672.         mov ax,temp             ;Write the char
  3673.         mov ah,9
  3674.         mov bx,curatt           ;In the current video mode
  3675.         mov cx,1
  3676.         int bios
  3677.         mov ah,2                ;Step to next column
  3678.         inc dl
  3679.         int bios
  3680.     mov ah,1
  3681. IF t2000            ; [21]
  3682.     mov cx,curtyp        ; Get cursor type. [21]
  3683. ELSE                ; [21]
  3684.         mov cx,0B0CH
  3685. ENDIF                ; [21]
  3686.     int bios
  3687.      ret                     ; [17b end]
  3688. DOTTY   ENDP
  3689. ENDIF
  3690.  
  3691. EXTLN   PROC    NEAR
  3692. IF t2000
  3693.     mov sp,ssp        ; [21]
  3694. ENDIF
  3695. IF ibmpc
  3696.         call serrst             ; Reset serial port. [14]
  3697.         mov sp,ssp
  3698.         xor bx,bx
  3699.         mov cx,ds               ; Save DS register.
  3700.         mov ds,bx               ; Address low memory.
  3701.         mov bx,6EH
  3702.         pop [bx]
  3703.         mov bx,6CH
  3704.         pop [bx]
  3705. ;       mov bx,mdmintv+2                ; Restore old interrupt vectors.
  3706. ;       pop [bx]
  3707. ;       mov bx,mdmintv
  3708. ;       pop [bx]
  3709.         mov ds,cx               ; Restore DS.
  3710.         xor bx,bx
  3711.         mov cs:telflg,0      ; Not acting as terminal anymore. [16] [17c] [20g]
  3712. ;       sti
  3713. ENDIF
  3714. IF Z100
  3715.         mov sp,ssp      
  3716. ENDIF
  3717.         mov ah,prstr
  3718.         mov dx,offset tmsg2
  3719.         int dos
  3720.         jmp rskp
  3721. EXTLN   ENDP
  3722.  
  3723. ;[14 start]       Common initialization for using serial port.
  3724.  
  3725. SERINI  PROC    NEAR
  3726. IF ibmpc
  3727.         cli                     ; Disable interrupts
  3728.         cld                     ; Do increments in string operations
  3729.         xor ax,ax               ; Address low memory
  3730.         mov es,ax
  3731.         mov bx,mdintv           ; Save serial card interrupt vector. [19b]
  3732.         mov ax,es:[bx]
  3733.         mov savsci,ax
  3734.         mov ax,offset serint    ; And point it to my routine
  3735.         mov es:[bx],ax
  3736.         add bx,2                ; Save CS register too. [19b]
  3737.         mov ax,es:[bx]
  3738.         mov savscs,ax
  3739.         mov es:[bx],cs
  3740.         call clrbuf             ; Clear input buffer. [20e]
  3741.         mov ax,mdstat           ; [19b]
  3742.         mov cs:mst,ax           ; Use this address for status. [19b]
  3743.         mov ax,mddat            ; [19b]
  3744.         mov cs:mdat,ax          ; Use this address for data. [19b]
  3745.         mov al,mdmeoi           ; [19b]
  3746.         mov cs:mdeoi,al         ; Use to signify end-of-interrupt. [19b]
  3747.         in al,21H               ; Set up 8259 interrupt controller
  3748.         and al,mden             ; Enable INT3 or INT4. [19b]
  3749.         out 21H,al
  3750.         mov dx,mdcom            ; Set up the serial card. [19b]
  3751.         mov al,3
  3752.         out dx,al
  3753.         mov dl,0F9H             ; [19b]
  3754.         mov al,1                ; Set up interrupt enable register
  3755.         out dx,al
  3756.         mov dl,0FCH             ; Enable interrupts from serial card
  3757.         mov al,0BH
  3758.         out dx,al
  3759.         sti                     ; Allow interrupts
  3760.         mov dl,0F8H
  3761.         in al,dx
  3762. ENDIF
  3763.         ret
  3764. SERINI  ENDP
  3765.  
  3766. SERRST  PROC    NEAR
  3767. IF ibmpc
  3768.         cli                     ; Disable interrupts
  3769.         mov dx,03FCH            ; Disable modem interrupts
  3770.         cmp comflg,1            ; Using port 1 ? [19b]
  3771.         je srst0                ; Yes - continue. [19b]
  3772.         mov dh,02               ; Set for port 2. [19b]
  3773. srst0:  mov al,3                ; [new label - 19b]
  3774.         out dx,al
  3775.         in al,21H               ; Interrupt controller
  3776.         or al,mddis             ; Inhibit IRQ3 or IRQ4. [19b]
  3777.         out 21H,al
  3778.         xor bx,bx               ; Address low memory
  3779.         mov es,bx
  3780.         mov bx,mdintv           ; Restore the serial card int vector [19b]
  3781.         mov ax,savsci
  3782.         mov es:[bx],ax
  3783.         add bx,2                ; Restore CS too. [19b]
  3784.         mov ax,savscs
  3785.         mov es:[bx],ax
  3786.         sti
  3787. ENDIF
  3788.         ret
  3789. SERRST  ENDP                                    ; [14 end]
  3790.  
  3791. ; *********** serial port interrupt routine ********
  3792.  
  3793. IF ibmpc
  3794. SERINT  PROC  NEAR
  3795.         push dx
  3796.         push ax
  3797.         push es
  3798.         push di
  3799.         cld
  3800.         mov di,cs:srcpnt        ; Registers for storing data.
  3801.         mov ax,cs
  3802.         mov es,ax
  3803.         mov dx,cs:mst           ; Asynch status port. [19b]
  3804.         in al,dx
  3805.         test al,mdminp          ; Data available?
  3806.         jz retint               ; Nope.
  3807.         mov dx,cs:mdat          ; [19b]
  3808.         in al,dx
  3809.         mov ah,0FFH             ; Assume X-fer mode. [16 start]
  3810.         cmp cs:telflg,0         ; File transfer or terminal mode? [17c]
  3811.         jz srint0
  3812.         mov ah,7FH              ; Terminal mode (7 bits only). 
  3813. srint0: and al,ah               ; Fiddle with input. [16 end]
  3814.         jz retint               ; Ignore nulls.
  3815.         cmp al,7FH              ; Ignore rubouts, too.
  3816.         jz retint
  3817.         stosb                   ; Store char in buffer.
  3818.         lea ax,cs:source
  3819.         sub di,ax
  3820.         and di,7FFH             ; Truncate buffer here.
  3821.         add di,ax
  3822.         inc cs:count
  3823. retint: mov cs:srcpnt,di
  3824.         sti
  3825.         mov al,mdeoi            ; [19b]
  3826.         out intcon1,al          ; Send End-of-Interrupt to 8259.
  3827.         pop di
  3828.         pop es
  3829.         pop ax
  3830.         pop dx
  3831. intret: iret
  3832. SERINT  ENDP
  3833. ENDIF
  3834.  
  3835. PLUP    PROC    NEAR
  3836.         call conchr             ; Check keyboard.   [15 begin]
  3837.          jmp extln              ; Exit from Telnet
  3838.          nop                    ; In case it is a short jump (Z100)
  3839.         call prtchr             ; Check serial port
  3840.          ret                    ; Got a character
  3841.          nop                    ; Use up three bytes.  [15 end] 
  3842.          nop
  3843.         jmp plup
  3844. PLUP    ENDP
  3845.  
  3846. ;************************System Dependent****************************
  3847.  
  3848. ; These I/O routines are similar to those just above.
  3849.  
  3850. PRTCHR  PROC    NEAR
  3851. IF t2000
  3852.     mov ah,03H        ; BIOS function number. [21]
  3853.     xor dx,dx        ; Clear dx. [21]
  3854.     int comm        ; Get status. [21]
  3855.     test ah,01H        ; Is data ready? [21]
  3856.     jnz prtch2        ; Go get data. [21]
  3857.     jmp rskp        ; Check keyboard. [21]
  3858. prtch2: mov ah,02H        ; BIOS function number. [21]
  3859.     xor dx,dx        ; Clear dx. [21]
  3860.     int comm        ; Get data. [21]
  3861.     cmp parflg,PARNON    ; Is parity enabled?
  3862.     je prtch3        ; NO jmp to return. [21]
  3863.     and al,7FH        ; Yes remove parity bit. [21]
  3864. prtch3: or al,gphflg        ; Set graphice bit. [21]
  3865.     ret            ; Return with data in AL. [21]
  3866. ENDIF
  3867.  
  3868. IF ibmpc
  3869.         cmp cs:count,0
  3870.         jnz prtch2
  3871.         jmp rskp                ; No data - check console.
  3872. prtch2: cli                     ; Disable int's.
  3873.         mov cx,ds
  3874.         mov ax,cs
  3875.         mov ds,ax
  3876.         mov si,cs:savesi
  3877.         lodsb                   ; Get char from buffer.
  3878.         lea dx,cs:source
  3879.         sub si,dx
  3880.         and si,7FFH             ; Truncate buffer after here.
  3881.         add si,dx
  3882.         dec cs:count
  3883.         mov cs:savesi,si 
  3884.         mov ds,cx
  3885.         sti                     ; Renable int's.
  3886.         ret
  3887. ENDIF
  3888. IF Z100
  3889.         push bx                 ; Save BX
  3890.         mov ah,chr_status       ; Get the function we want
  3891.         mov al,chr_sfgs         ; Get the subfunction to get status
  3892.         call bios_auxfunc       ; Perform the function
  3893.         cmp bl,0                ; Anything in queue?
  3894.         jne prtch1              ; Yes, go get it
  3895.         pop bx                  ; Restore BX
  3896.         jmp rskp                ; No, give skip return
  3897. prtch1: mov ah,chr_read         ; Want to read character
  3898.         call bios_auxfunc       ; Do it
  3899.         and al,07FH             ; Strip off parity bit
  3900.         pop bx                  ; And restore BX
  3901.         ret
  3902. ENDIF
  3903. PRTCHR  ENDP
  3904.  
  3905.  
  3906. ; Generate a short beep.
  3907.  
  3908. IF msdos
  3909. BEEP    PROC    NEAR
  3910. IF t2000
  3911.     push ax            ; Save all registers. [21]
  3912.     push bx            ; [21]
  3913.     push dx            ; [21]
  3914.     mov dl,bell        ; Load bell. [21]
  3915.     mov ah,dconio        ; Function code. [21]
  3916.     int dos            ; Make call. [21]
  3917.     pop dx            ; Restore registers. [21]
  3918.     pop bx            ; Same. [21]
  3919.     pop ax            ; Same. [21]
  3920.     ret
  3921. ENDIF
  3922.  
  3923. IF ibmpc            ; [21]
  3924.         mov al,10110110B        ; Gen a short beep (long one losses data.)
  3925.         out timer+3,al          ; Code snarfed from Technical Reference.
  3926.         mov ax,533H
  3927.         out timer+2,al
  3928.         mov al,ah
  3929.         out timer+2,al
  3930.         in al,port_b
  3931.         mov ah,al
  3932.         or al,03
  3933.         out port_b,al
  3934.         sub cx,cx
  3935.         mov bl,1
  3936. beep0:  loop beep0
  3937.         dec bl          
  3938.         jnz beep0
  3939.         mov al,ah
  3940.         out port_b,al
  3941.         ret
  3942. ENDIF                ; [21]
  3943. BEEP    ENDP 
  3944. ENDIF
  3945.  
  3946. CONCHR  PROC    NEAR
  3947. IF msdos
  3948.         mov ah,1                ; Get keyboard status.
  3949.         int keyb
  3950.         jnz cnc0x       
  3951.         jmp rskp
  3952. cnc0x:  mov ah,0                ; Read a char.
  3953.         int keyb
  3954.         cmp al,0                ; Special char (cntrl-break)?
  3955.         jnz nobrk               ; Nope.
  3956.         cmp ah,3                ; 3 in ah means nul code.
  3957.         jz nobrk                ; Pass nulls.  [14]
  3958.         cmp ah,9DH              ; SHIFT  Del Key?  [14][21d]
  3959.         je cnc1r                ; Yes - send a rubout. [14]
  3960.         cmp ah,0                ; Cntrl-Break?
  3961. IF t2000            ; [21]
  3962.     jne cnc2z        ; Must be a special key. [21]
  3963. ELSE
  3964.         jne cnc1y
  3965. ENDIF                ; [21]
  3966.         call sendbr             ; Send a break. [20g]
  3967. cnc1y:  jmp rskp        
  3968. ENDIF                ; End of msdos IF. [21]
  3969. IF t2000            ; [21]
  3970. cnc2z:    call speckey        ; Process special keys. [21]
  3971.     jmp rskp        ; Return. [21]
  3972. ENDIF                ; [21]
  3973. IF Z100
  3974.         mov ah,dconio           ; Determine if character present
  3975.         mov dl,0ffH             ; Want input
  3976.         int dos                 ; Get status
  3977.         cmp al,00H              ; Any characters there?
  3978.         jne nobrk               ; if not, forget it
  3979.         jmp rskp                ; Give skip return
  3980. ENDIF
  3981.  
  3982. cnc1r:  cmp delflg,0            ; Translate BS to DEL? [19c]
  3983.         je dobs                 ; Nope, BS=BS [19c]     
  3984.         mov al,BS               ; BS (will be converted to DEL) [15]
  3985.         jmp nobrk
  3986. dobs:   mov al,07FH             ; ASCII rubout.  [14]
  3987. nobrk:  mov dl,al               ; Store char here.
  3988.         mov ah,escchr           ; Get the escape char.
  3989.         cmp ah,dl               ; Is it an escape char?
  3990.         jz intchr               ; If so go process it.
  3991.         cmp delflg,0            ; Translate BS to DEL?  [19c]
  3992.         je dobs1                ; Nope, BS=BS  [19c]
  3993.         cmp dl,BS               ; Is it a backspace ? [15 begin]
  3994.         jnz cch0                ; No, check for delete
  3995.         mov dl,DEL              ; Yes, get a delete
  3996.         jmp cch1                ; And send that instead
  3997. cch0:   cmp dl,DEL              ; Is it a delete ?
  3998.         jnz cch1                ; No, done checking then
  3999.         mov dl,BS               ; Yes, use a backspace
  4000. cch1:   mov ax,dx               ; Copy character back to AX  [15 end]
  4001. dobs1:  call dopar              ; Set parity (if any).   [10]
  4002.         mov dx,ax
  4003.         push dx
  4004.         call prtout             ; Output the char to the port.
  4005.         pop dx
  4006.         mov ah,ecoflg           ; Get the echo flag.
  4007.         cmp ah,0                        ; Is it turned on?
  4008.         jnz cnc1x
  4009.         jmp rskp                 ; If not we're done here.
  4010. cnc1x:  and dl,7FH
  4011.         cmp dl,BS               ; Backspace?
  4012.         je cnc2x
  4013.         cmp dl,CR               ; Carriage return?
  4014.         je cnc2x
  4015. IF ibmpc            ; [21]
  4016.         cmp dl,BELL
  4017.         jne cnc2y
  4018.         call beep
  4019.         jmp rskp
  4020. ENDIF
  4021. cnc2y:  cmp dl,20H              ; Is it a control char?
  4022.         jge cnc2x       
  4023.         jmp rskp
  4024. cnc2x:  mov ah,dconio           ; Direct console output.
  4025.         int dos                 ; Echo the char.
  4026.         jmp rskp
  4027. CONCHR  ENDP
  4028.  
  4029. ; One routine to send a break for the IBM-PC and Z100. [20g]
  4030. SENDBR  PROC    NEAR
  4031.         push cx
  4032.         push dx
  4033.         push ax
  4034.         xor cx,cx               ; Clear loop counter.
  4035.         mov dx,mdcom            ; Port address.  [19b]
  4036.         in al,dx                ; Get current setting.
  4037.         or al,BRKBIT            ; Set send-break bit(s).
  4038.         out dx,al               ; Start the break.
  4039. pause:  loop pause              ; Wait a while.
  4040.         xor al,BRKBIT           ; Clear send-break bit(s).
  4041.         out dx,al               ; Stop the break.
  4042.         pop ax
  4043.         pop dx
  4044.         pop cx
  4045.         ret                     ; And return.
  4046. SENDBR  ENDP
  4047.  
  4048. CONN    PROC    NEAR     
  4049. intchr: mov ah,dconio           ; Direct console I/O.
  4050.         mov dl,0FFH             ; Input.
  4051.         int dos                 ; Get a char.
  4052.         mov ah,al
  4053.         cmp ah,0                ; Is the char a null?
  4054.         jz intchr               ; If so, go until we get a char.
  4055.         mov bh,ah               ; Save the actual char.
  4056.         and ah,137O             ; Convert to upper case.
  4057.         cmp ah,'C'                      ; Is it close?
  4058.         jne intch0
  4059.         ret
  4060. intch0: cmp ah,'S'                      ; Is it status?
  4061.         jnz inc0x
  4062.         jmp stat01              ; If so, jump to stat01 (it will return).
  4063. inc0x:  cmp ah,'B'              ; Send a break? [20g]
  4064.         jne inc1x               ; No. [20g]
  4065.         call sendbr             ; Yes, so send a break. [20g]
  4066.         jmp rskp                ; And return.  [20g]
  4067. inc1x:  mov ah,bh                       ; Get the char.
  4068.         cmp ah,'?'                      ; Is it help?
  4069.         jne intch1              ; If not, go to the next check.
  4070.         mov dx,offset inthlp    ; If so, get the address of the help message.
  4071.         mov ah,prstr            ; Print it.
  4072.         int dos
  4073.         jmp intchr              ; Get another char.
  4074. intch1: mov ch,ah               ; Put the char into another reg.
  4075.         mov ah,escchr           ; Get the escape char.
  4076.         cmp ah,ch               ; Is it the escape char?
  4077.         jne intch2              ; If not, go send a beep to the user.
  4078.         mov al,ch
  4079.         call dopar              ; Set parity.     [10] 
  4080. intc11: mov dl,al
  4081.         call prtout             ; Output it.
  4082.         jmp rskp                ; Return, we are done here.
  4083. intch2: mov dl,'G'-100O         ; Otherwise send a beep.
  4084.         mov ah,dconio
  4085.         int dos
  4086.         jmp rskp
  4087.  
  4088. ; Another similar I/O routine.
  4089.  
  4090. ; Routine to process special keys. [21]
  4091. IF t2000            ; [21]
  4092. SPECKEY    PROC    NEAR
  4093.     push cx            ; Save cx. [21]
  4094.     push bx            ; Save Reg. [21]
  4095.     push dx            ; Same. [21]
  4096.     cmp vtflg,0        ; Skip if emulation is vt52. [21]
  4097.     je spcke        ; If vt52 then exit. [21]
  4098.     mov bx,ktable        ; Get table address. [21]
  4099. spck1:    mov al,[bx]        ; Get key from table. [21]
  4100.     inc bx            ; Point dx to lenght byte. [21]
  4101.     xor cx,cx        ; Clear cx. [21]
  4102.     mov cl,[bx]        ; Get length byte. [21]
  4103.     cmp al,0        ; Check for end of table. [21]
  4104.     je spcke        ; Jump to exit. [21]
  4105.     cmp ah,al        ; Is it the key? [21]
  4106.     je spck2        ; Jump if yes. [21]
  4107.     add bx,cx        ; Skip. [21]
  4108.     inc bx            ; Bump to next key. [21]
  4109.     jmp spck1        ; Try next key. [21]
  4110. spck2:    inc bx            ; [21]
  4111.     mov al,[bx]        ; Get char from table. [21]
  4112.     push dx            ; Save it. [21]
  4113.     push cx            ; Same. [21]
  4114.     push bx            ; Same. [21]
  4115.     call dopar        ; Set parity (if any). [21]
  4116.     mov dl,al        ; Put char in dl for ouput. [21]
  4117.     call prtout        ; Send character. [21]
  4118.     pop bx            ; Restore. [21]
  4119.     pop cx            ; Restore cx. [21]
  4120.     pop dx            ; Restore dx. [21]
  4121.     loop spck2        ; Loop until done. [21]
  4122. spcke:    pop dx            ; Restore dx. [21]
  4123.     pop bx            ; Restore bx. [21]
  4124.     pop cx            ; Restore cx. [21]
  4125.     ret            ; Return. [21]
  4126. SPECKEY ENDP
  4127. ENDIF                ; [21]
  4128.  
  4129. ;************************System Dependent****************************
  4130.  
  4131. prtout: mov al,dl               ; Char must be in al.
  4132. IF t2000
  4133.     push ax            ; Save ax. [21]
  4134.     xor dx,dx        ; Clear dx. [21]
  4135.     mov ah,01H        ; BIOS function number. [21]
  4136.     int comm        ; Send character. [21]
  4137.     pop ax            ; Restore ax. [21]
  4138. ENDIF
  4139.  
  4140. IF ibmpc
  4141.         mov dx,mddat            ; [19b]
  4142.         out dx,al
  4143. ENDIF
  4144. IF Z100
  4145.         call bios_auxout        ; Send the character
  4146. ENDIF
  4147.         ret
  4148. CONN    ENDP
  4149.  
  4150. ; [15 begin]
  4151. IF msdos                        ; Only for IBM-PC's. [20g]
  4152. DOTAB   PROC NEAR
  4153.         mov ah,3                ; Read current cursor position.
  4154.         mov bh,0                ; This screen
  4155.         int bios                ; From bios
  4156.         cmp dl,72               ; Are we at the last tab stop ?
  4157.         jl dotab0               ; No, move to the next
  4158.         cmp dl,79               ; Are we at the end ?
  4159.         je dotab2               ; Yes, just return
  4160.         add dl,1                ; No, move forward one position
  4161.         jmp dotab1              ; Set the cursor position
  4162. dotab0: mov al,dl               ; Get the column into al
  4163.         push dx                 ; Save the current cursor position
  4164.         xor ah,ah               ; Zero the high end of ax
  4165.         mov bl,8                ; Get an eight
  4166.         xor bh,bh               ; Zero high byte
  4167.         div bl                  ; Divide by 8
  4168.         mov al,ah               ; Put the remainder in the low end
  4169.         xor ah,ah               ; Zero the high end
  4170.         mov cl,8                ; Get an 8 into cl
  4171.         xor ch,ch               ; Zero high byte
  4172.         sub cl,al               ; Subtract al from cl
  4173.         xor ch,ch               ; Zero high end
  4174.         pop dx                  ; Restore the current cursor position
  4175.         add dl,cl               ; And subtract column mod 8
  4176. dotab1: mov ah,2                ; Set cursor position
  4177.         mov bh,0                ; This screen
  4178.         int bios                ; Bios call
  4179. dotab2: ret                     ; Return
  4180. DOTAB   ENDP
  4181. ENDIF                           ; [20g]
  4182. ; [15 end]
  4183.  
  4184.  
  4185. IF msdos                        ; [20g]
  4186. TELESC  PROC    NEAR
  4187.         cmp vtflg,0             ; Is vt52 flag on?
  4188. IF t2000            ; Tandy 2000 only. [21]
  4189.     jne vt000
  4190.     jmp telnoe
  4191. vt000:    cmp vtflg,2        ; Emulation .EQ. other? [21]
  4192.     jne vt0            ; Must be heath-19. [21]
  4193.     call plup
  4194.     mov ah,al        ; Get char. [21]
  4195.     cmp ah,'f'        ; Cursor off. [21]
  4196.     jne vt001        ; [21]
  4197.     jmp vtcf        ; Yes, turn cursor off. [21]
  4198. vt001:    cmp ah,'n'        ; Cursor on. [21]
  4199.     jne vt002        ; [21]
  4200.     jmp vtcn        ; Yes, turn cursor on. [21]
  4201. vt002:    cmp ah,'s'        ; Cursor steady. [21]
  4202.     jne vt003        ; [21]
  4203.     jmp vtbf        ; Yes, set cursor steady. [21]
  4204. vt003:    cmp ah,'b'        ; Cursor blinking. [21]
  4205.     jne vt004        ; [21].
  4206.     jmp vtbn        ; Yes, set blinking cursor. [21]
  4207. vt004:    cmp ah,'g'        ; Start graphics mode. [21]
  4208.     jne vt005        ; nope. [21]
  4209.     mov gphflg,80H        ; Set graphics mode on. [21]
  4210.     jmp telnoe        ; [21]
  4211. vt005:    cmp ah,'r'+80H        ; End graphics mode. [21]
  4212.     jne vt00        ; Check heath-19 commands. [21]
  4213.     mov gphflg,0        ; Set graphics mode off. [21]
  4214.     jmp telnoe        ; [21]
  4215. ELSE
  4216.         jne vt0
  4217.         jmp telnoe              ; Don't do escape stuff if it's off.
  4218. ENDIF
  4219. vt0:    call plup
  4220.         mov ah,al                       ; Get the char.
  4221. vt00:   cmp ah,'Z'              ; Tell host our terminal type.[20a][21]
  4222.         je vtiden               ; [20a]
  4223.         cmp ah,'Y'              ; Special char - move cursor.
  4224. IF t2000
  4225.     jne vt1x        ; [21]
  4226.     jmp movcur        ; [21]
  4227. vt1x:    cmp ah,'Y'+80H        ; check for graphic mode/move. [21]
  4228. ENDIF
  4229.         jne vt1
  4230.         jmp movcur
  4231. vt1:    cmp ah,'<'              ; Start-ANSI?  [17b start] 
  4232.         je vtexit               ; Yes, ignore
  4233.         cmp ah,'['              ; An ANSI command?
  4234.         je vtansi               ; Yes, do it
  4235.         cmp ah,'@'              ; Insert characters?
  4236.         jne vtnins
  4237.         mov incmod,1
  4238.         jmp telnoe
  4239. vtnins: cmp ah,'p'              ; Inverse?
  4240.         jne vtninv
  4241.         jmp vtinvi
  4242. vtninv: cmp ah,'q'              ; Normal?
  4243.         jne vtnino
  4244.         jmp vtinvo              ; [17b end]
  4245. vtnino: cmp ah,'A'              ; Less than an 'A'?
  4246.         jl vtig                 ; Yes - ignore.
  4247.         cmp ah,'O'+1            ; Greater than 'O'?   [17b]
  4248.         jns vtig                ; Yes - ignore.
  4249.         mov al,'A'
  4250.         sub ah,al               ; Else make into index.
  4251.         shl ah,1
  4252.         mov bx,offset ttab      ; Load base addr of table.
  4253.         mov cl,ah               ; Move a into cx.
  4254.         mov ch,00H              ; Zero out high byte.
  4255.         add bx,cx               ; Double add index+offset.
  4256.         mov bx,[bx]             ; Get address of routine to call.
  4257.         jmp bx
  4258. vtig:                           ; Ignore escape sequence.
  4259.         push ax                 ; Push the char to be output.
  4260.         mov dl,esc              ; Load an escape.
  4261.         mov ah,conout           ; The function code
  4262.         int dos                 ; and the syscal.
  4263.         pop ax                  ; Restore the character
  4264.         mov dl,ah               ; and move to output register.
  4265.         mov ah,conout           ; The function
  4266.         int dos                 ; and the syscall.
  4267. ENDIF
  4268. vtexit: jmp telnoe              ; Return home. [17b]
  4269.  
  4270. ; Used for terminal-type querying programs.  [20a]
  4271. IF msdos
  4272. vtiden: mov ah,ESC              ; Respond with "ESC / K".
  4273.         call outchr
  4274.          jmp telnoe             ; If failed, just forget the rest.
  4275.         mov ah,"/"
  4276.         call outchr
  4277.          jmp telnoe
  4278.         mov ah,"K"
  4279.         call outchr
  4280.          jmp telnoe             ; And return even if failed.
  4281.         jmp telnoe
  4282. ENDIF
  4283.  
  4284. ; ANSI Insert/Delete Line.  [17b start, 20g] 
  4285. IF msdos
  4286. vtansi: call plup
  4287.         cmp al,'?'
  4288.         je vtanso
  4289.         sub al,30H
  4290.         mov temp,ax
  4291.         call plup
  4292.         cmp al,"9"
  4293.         jg vtans1
  4294.         sub al,30H
  4295.         mov temp2,ax
  4296.         mov ax,temp
  4297.         mov dl,10
  4298.         mul dl
  4299.         add ax,temp2
  4300.         mov temp,ax
  4301.         call plup
  4302. vtans1: cmp al,'L'
  4303.         jne vtans2
  4304.         mov ah,3                ; Get cursor position
  4305.         mov bh,0
  4306.         int bios
  4307.         mov temp1,dx
  4308.         mov cx,dx               ; Do a N-line scroll
  4309.         mov cl,0
  4310.         mov dx,174FH            ; change to 17 not 18 [21]
  4311.         mov ax,temp
  4312.         mov ah,7
  4313.         mov bh,7
  4314.         int bios
  4315.         jmp vtans3
  4316. vtans2: cmp al,'M'
  4317.         jne vtans4
  4318.         mov ah,3
  4319.         mov bh,0
  4320.         int bios
  4321.         mov temp1,dx
  4322.         mov ax,temp
  4323.         mov ah,6
  4324.         mov cx,dx
  4325.         mov dx,174FH            ; change to 17 not 18 [21]
  4326.         mov bh,7
  4327.         int bios
  4328. vtans3: mov dx,temp1            ; Restore cursor position
  4329.         mov dl,0
  4330.         mov ah,2
  4331.         mov bh,0
  4332.         int bios
  4333. vtans4: jmp telnoe
  4334. vtanso: call plup
  4335.         call plup
  4336.         jmp telnoe
  4337.  
  4338. IF t2000            ; [21]
  4339. vtbf:    or curtyp,CURSTDY    ; Set cursor to steady. [21]
  4340.     mov ah,1
  4341.     mov cx,curtyp        ; get cursor type. [21]
  4342.     int bios
  4343.     jmp telnoe        ; ret. [21]
  4344. vtbn:    and curtyp,CURBIK    ; Set cursor to blinking. [21]
  4345.     mov ah,1        ; [21]
  4346.     mov cx,curtyp        ; Set bits. [21]
  4347.     int bios        ; Make it happen. [21]
  4348.     jmp telnoe        ; Return. [21]
  4349. vtcf:    mov ah,1        ; [21]
  4350.     or curtyp,CUROFF    ; Turn cursor off. [21]
  4351.     mov cx,curtyp        ; Get cursor type. [21]
  4352.     int bios        ; Make it happen. [21]
  4353.     jmp telnoe        ; Return. [21]
  4354. vtcn:    mov ah,1        ; Turn cursor on cmd. [21]
  4355.     and curtyp,CURON    ; Set cursor on. [21]
  4356.     mov cx,curtyp        ; [21]
  4357.     int bios
  4358.     jmp telnoe        ; Return. [21]
  4359. ENDIF                ; [21]
  4360. vtinvi: mov curatt,0070H        ; Reverse video
  4361.         jmp telnoe
  4362. vtinvo: mov curatt,0007H        ; Normal video
  4363.         jmp telnoe              ;  [17b end]
  4364. TELESC  ENDP
  4365. ENDIF
  4366.  
  4367. IF msdos
  4368. TEL     PROC    NEAR
  4369. movcur: call plup
  4370.     and al,7FH        ; Mask graphic bit. [21]
  4371.         sub al,32
  4372.         mov dh,al
  4373.         mov temp,dx             ; Save row position here.
  4374.         call plup
  4375.     and al,7FH        ; Mask graphic bit. [21]
  4376.         mov dx,temp             ; Restore
  4377.         sub al,32               ; Comes with 37Q added on (& starts at 1).
  4378.         mov dl,al
  4379.         mov bh,0
  4380.         mov ah,2
  4381.         int bios
  4382.         jmp telnoe
  4383.  
  4384. curup:  mov ah,3                ; Cursor up function.
  4385.         mov bh,0
  4386.         int bios
  4387.         cmp dh,0
  4388.         je cup0
  4389.         sub dh,1
  4390.         mov ah,2
  4391.         int bios
  4392. cup0:   jmp telnoe
  4393.  
  4394. curdwn: mov ah,3                ; Cursor down.
  4395.         mov bh,0
  4396.         int bios
  4397.         cmp dh,24
  4398.         je cdn0
  4399.         add dh,1
  4400.         mov ah,2
  4401.         int bios
  4402. cdn0:   jmp telnoe
  4403.  
  4404. currt:  mov ah,3                ; Cursor right.
  4405.         mov bh,0
  4406.         int bios
  4407.         cmp dl,79
  4408.         je crt0
  4409.         add dl,1
  4410.         mov ah,2
  4411.         int bios
  4412. crt0:   jmp telnoe
  4413.  
  4414. curlft: mov ah,3                ; Cursor left.
  4415.         mov bh,0
  4416.         int bios
  4417.         cmp dl,0
  4418.         je clt0
  4419.         sub dl,1
  4420.         mov ah,2
  4421.         int bios
  4422. clt0:   jmp telnoe
  4423.  
  4424. curskp: jmp vtig                ; Ignore for now.
  4425.  
  4426. curclr: call locate             ; Home the cursor [15]
  4427.         jmp curscr              ; And clear the screen [15]
  4428.  
  4429. curhm:  call locate
  4430.         jmp telnoe
  4431.  
  4432. curscr: mov ah,3                ; Clear to end of screen.
  4433.         mov bh,0
  4434.         int bios
  4435.         cmp dx,0
  4436.         jne csr0
  4437.         call cmblnk
  4438.         jmp telnoe
  4439. csr0:   cmp dl,0
  4440.         je csr1
  4441.         push dx
  4442.         call clreol
  4443.         pop dx
  4444.         add dh,1
  4445.         mov dl,0
  4446. csr1:   mov cx,dx
  4447.         mov dx,174FH        ; change to 17 not 18. [21]
  4448.         mov bh,7
  4449. ;       mov al,25
  4450. ;       sub al,ch
  4451.         mov al,0
  4452.         mov ah,7
  4453.         int bios
  4454.         jmp telnoe
  4455.  
  4456. curln:  call clreol             ; One routine to clear to EOL. [19a]
  4457.         jmp telnoe
  4458.  
  4459. inslin: mov ah,3                ; Get cursor position.
  4460.         mov bh,0
  4461.         int bios
  4462.         mov temp,dx             ; Save here.
  4463.         mov cx,dx
  4464.         mov cl,0                ; Start at beginning of row.
  4465.         mov dx,174FH            ; End at lower corner of screen. [21]
  4466.         mov ax,0701H
  4467.         mov bh,7
  4468.         int bios                ; Scroll down one line.
  4469.         mov dx,temp             ; Get back where we were.
  4470.         mov dl,0
  4471.         mov ah,2
  4472.         mov bh,0
  4473.         int bios
  4474.         jmp telnoe
  4475.  
  4476. dellin: mov ah,3
  4477.         mov bh,0
  4478.         int bios                ; Get current cursor position. 
  4479.         mov temp,dx             ; Remember the place.
  4480.         mov ax,0601H            ; Scroll up one line.
  4481.         mov cx,dx
  4482.         mov cl,0                ; Start at beginning of row.
  4483.         mov dx,174FH        ; change 18 to 17. [21]
  4484.         mov bh,7
  4485.         int bios
  4486.         mov dx,temp
  4487.         mov dl,0
  4488.         mov ah,2
  4489.         mov bh,0
  4490.         int bios
  4491.         jmp telnoe
  4492.  
  4493. ; Delete character.  [17b start] 
  4494. delchr: mov ah,3                ; Get cursor position
  4495.         mov bh,0
  4496.         int bios
  4497.         mov temp,dx
  4498.         mov ah,1                ; Turn off cursor
  4499. IF t2000
  4500.     or cx,CUROFF        ; [21]
  4501. ELSE                ; [21]
  4502.         mov ch,20H
  4503. ENDIF
  4504.         int bios
  4505. delch1: mov ah,2                ; Position to col M+1
  4506.         inc dl
  4507.         int bios
  4508.         mov ah,8                ; Get char/attr
  4509.         int bios
  4510.         mov cx,ax               ; Save it
  4511.         dec dl                  ; Position to col M
  4512.         mov ah,2
  4513.         int bios
  4514.         mov ah,9                ; Write char/attr
  4515.         mov al,cl
  4516.         mov bl,ch
  4517.         mov cx,1
  4518.         int bios
  4519.         inc dl                  ; Next column
  4520.         cmp dl,79               ; About to write to col 80?
  4521.         jne delch1              ; No
  4522.         mov ah,2                ; Position to col 80
  4523.         int bios
  4524.         mov ah,9                ; Write char/attr
  4525.         mov al,' '
  4526.         int bios
  4527.         mov ah,2                ; Reset cursor
  4528.         mov dx,temp
  4529.         int bios
  4530.         mov ah,1
  4531. IF t2000
  4532.     mov cx,curtyp        ; Get cursor type. [21]
  4533. ELSE
  4534.         mov cx,0B0CH
  4535. ENDIF
  4536.         int bios
  4537.         jmp telnoe
  4538.  
  4539. ; Cancel Insert Character mode
  4540. insmox: mov incmod,0
  4541.         jmp telnoe              ; [17b end]
  4542. TEL     ENDP
  4543.  
  4544. ; Common routine to clear to end-of-line. [19a]
  4545. CLREOL  PROC    NEAR
  4546.         mov ah,3                ; Clear to end of line.
  4547.         mov bh,0
  4548.         int bios                ; Get current cursor position
  4549.         mov cx,dx
  4550.         mov dl,79
  4551.         mov ah,7
  4552.         mov al,0
  4553.         mov bh,7
  4554.         int bios
  4555.         ret
  4556. CLREOL  ENDP
  4557. ENDIF   
  4558.  
  4559.  
  4560. ; This is the SET command.
  4561.  
  4562. SETCOM  PROC    NEAR
  4563.         mov dx,offset settab    ; Parse a keyword from the set table.
  4564.         mov bx,offset sethlp
  4565.         mov ah,cmkey
  4566.         call comnd
  4567.          jmp r
  4568.         call bx
  4569.         jmp rskp
  4570. SETCOM  ENDP
  4571.  
  4572.  
  4573. ;       This is the ESCAPE character SET subcommand.     [6 start]
  4574.  
  4575. ESCAPE  PROC    NEAR
  4576.         call cmgtch             ; Get a char.
  4577.         cmp ah,0
  4578.         jns es1                 ; Terminator or no?
  4579.         and ah,7FH              ; Turn off minus bit.
  4580.         cmp ah,'?'
  4581.         jne es0
  4582.         mov dx,offset eschlp
  4583.         mov ah,prstr
  4584.         int dos
  4585.         mov dx,offset crlf
  4586.         int dos
  4587.         mov dx,offset kerm
  4588.         int dos
  4589.         mov bx,cmdptr
  4590.         mov al,'$'
  4591.         mov [bx],al
  4592.         mov dx,offset cmdbuf
  4593.         int dos
  4594.         dec cmcptr              ; Ignore dollar sign.
  4595.         dec cmccnt
  4596.         mov cmaflg,0
  4597.         jmp repars
  4598. es0:    mov ah,prstr
  4599.         mov dx,offset ermes3
  4600.         int dos
  4601.         ret
  4602. es1:    mov temp,ax
  4603.         call cmcfrm
  4604.          jmp es0
  4605.          nop                    ; Take up 3 bytes.
  4606.         mov ax,temp
  4607.         mov escchr,ah           ; Save new value.
  4608.         ret
  4609. ESCAPE  ENDP                    ; [6 end]
  4610.  
  4611. ;       This is the End-of-line character SET subcommand.       [5 start]
  4612.  
  4613. EOLSET  PROC    NEAR
  4614.         call cmgtch             ; Get the first char into AH.
  4615.         cmp ah,0
  4616.         jns eol1
  4617.         cmp ah,0BFH             ; Question mark?
  4618.         je eol4
  4619.         jmp eol3
  4620. eol1:   sub ah,030H             ; Digit --> real number.
  4621.         mov temp,ax             ; Save the input.
  4622.         call cmcfrm
  4623.          jmp eol0               ; Got a char.
  4624.         mov ax,0
  4625.         mov bx,temp
  4626.         jmp eol2
  4627. eol0:   sub ah,030H             ; Digit --> real number.
  4628.         mov temp1,ax
  4629.         call cmcfrm
  4630.          jmp eol3               ; Too many chars.
  4631.         mov bx,temp1
  4632.         mov ax,temp
  4633.         xchg al,ah
  4634.         mov ah,0
  4635. eol2:   mov temp,ax             ; Save our registers.
  4636.         mov temp1,bx
  4637.         call cmcfrm
  4638.          jmp eol3
  4639.         mov bx,temp1
  4640.         mov ax,temp
  4641.         mov temp2,10            ; Get numerical value of char.
  4642.         mul temp2
  4643.         add al,bh
  4644.         mov ah,0
  4645.         cmp al,0
  4646.         jl eol3
  4647.         cmp al,1FH
  4648.         jg eol3
  4649.         mov seol,al             ; Use new eol char.
  4650.         ret
  4651. eol3:   mov ah,prstr
  4652.         mov dx,offset eolerr    ; Bad end-of-line char
  4653.         int dos
  4654.         jmp prserr
  4655. eol4:   mov ah,prstr
  4656.         mov dx,offset eolhlp
  4657.         int dos
  4658.         mov dx,offset crlf
  4659.         int dos
  4660.         mov dx,offset kerm
  4661.         int dos
  4662.         mov bx,cmdptr
  4663.         mov al,'$'
  4664.         mov [bx],al
  4665.         mov dx,offset cmdbuf
  4666.         int dos
  4667.         dec cmcptr                      ; Don't count the dollar sign.
  4668.         dec cmccnt                      ; Or the question mark.
  4669.         mov cmaflg,0                    ; Check for more input.
  4670.         jmp repars
  4671. EOLSET  ENDP                                                 ;  [5 end]
  4672.  
  4673. ;       This is the LOCAL echo SET subcommand.
  4674.  
  4675. LCAL    PROC    NEAR
  4676.         mov dx,offset ontab
  4677.         mov bx,offset onhlp
  4678.         mov ah,cmkey
  4679.         call comnd
  4680.          jmp r
  4681.         push bx                 ; Save the parsed value.
  4682.         mov ah,cmcfm
  4683.         call comnd              ; Get a confirm.
  4684.          jmp r                  ;  Didn't get a confirm.
  4685.         pop bx
  4686.         mov ecoflg,bl           ; Set the local echo flag.
  4687.         ret
  4688. LCAL    ENDP
  4689.  
  4690. ;       This is the VT52 emulation SET subcommand.
  4691.  
  4692. IF ibmpc
  4693. VT52EM  PROC    NEAR
  4694.         mov dx,offset ontab
  4695.         mov bx,offset onhlp
  4696.         mov ah,cmkey
  4697.         call comnd
  4698.          jmp r
  4699.         push bx
  4700.         mov ah,cmcfm
  4701.         call comnd              ; Get a confirm.
  4702.          jmp r                  ;  Didn't get a confirm.
  4703.         pop bx
  4704.         mov vtflg,bl            ; Set the VT52 emulation flag.
  4705.         ret
  4706. VT52EM  ENDP
  4707. ENDIF
  4708.  
  4709. ; This is the SET subcommand to choose between COM1 and COM2. [19b]
  4710.   
  4711. IF ibmpc
  4712. COMSET  PROC    NEAR
  4713.         mov dx,offset comptab
  4714.         mov bx,offset comphlp
  4715.         mov ah,cmkey
  4716.         call comnd
  4717.          jmp r
  4718.         push bx
  4719.         mov ah,cmcfm
  4720.         call comnd              ; Get a confirm.
  4721.          jmp r                  ;  Didn't get a confirm.
  4722.         pop bx
  4723.         mov comflg,bl           ; Set the comm port flag.
  4724.         call dobaud             ; Set the baud rate for the port. [19a]
  4725.         cmp comflg,1            ; Using Com 1?
  4726.         jne coms0               ; Nope.
  4727.         mov mddat,MDMDAT1       ; Set COM1 defaults.
  4728.         mov mdstat,MDMSTS1
  4729.         mov mdcom,MDMCOM1
  4730.         mov mddis,MDMINTC
  4731.         mov mden,MDMINTO
  4732.         mov mdmeoi,EOICOM
  4733.         mov mdintv,MDMINTV
  4734.         ret
  4735. coms0:  mov mddat,MDMDAT2       ; Set COM2 defaults.
  4736.         mov mdstat,MDMSTS2
  4737.         mov mdcom,MDMCOM2
  4738.         mov mddis,MDINTC2
  4739.         mov mden,MDINTO2
  4740.         mov mdmeoi,EOICOM2
  4741.         mov mdintv,MDINTV2
  4742.         ret
  4743. COMSET  ENDP
  4744. ENDIF
  4745.  
  4746. ;       This is the SET IBM command.
  4747.  
  4748. IBMSET  PROC    NEAR
  4749.         mov dx,offset ontab
  4750.         mov bx,offset onhlp
  4751.         mov ah,cmkey
  4752.         call comnd
  4753.          jmp r
  4754.         push bx
  4755.         mov ah,cmcfm
  4756.         call comnd              ; Get a confirm.
  4757.          jmp r                  ;  Didn't get a confirm.
  4758.         pop bx
  4759.         mov ibmflg,bl           ; Set the IBM flag.
  4760.         cmp bl,0                ; Turning on or off?    [12 start]
  4761.         je ibmst1               ; If off, set parity & local echo to defaults.
  4762.         mov ah,ibmpar           ; Set IBM parity.
  4763.         mov al,1                ; Set local echo on.
  4764.         jmp ibmst2
  4765. ibmst1: mov ah,defpar           ; Reset parity to default.
  4766.         mov al,0                ; Turn off local echo.
  4767. ibmst2: mov parflg,ah           ; Set parity.
  4768.         mov ecoflg,al           ; And local echo.       [12 end]        
  4769.         xor al,01H              ; 01 -> 00, 00 -> 01. [19c]  
  4770.         mov delflg,al           ; BS -> DEL or BS -> BS. [19c]
  4771.         ret
  4772. IBMSET  ENDP
  4773.  
  4774. ;       This is the SET File-Warning command.
  4775.  
  4776. FILWAR  PROC    NEAR
  4777.         mov dx,offset ontab
  4778.         mov bx,offset onhlp
  4779.         mov ah,cmkey
  4780.         call comnd
  4781.          jmp r
  4782.         push bx
  4783.         mov ah,cmcfm
  4784.         call comnd              ; Get a confirm.
  4785.          jmp r                  ;  Didn't get a confirm.
  4786.         pop bx
  4787.         mov flwflg,bl           ; Set the IBM flag.
  4788.         ret
  4789. FILWAR  ENDP
  4790.  
  4791. ;       This is the SET aborted-file command.  [20d]
  4792.  
  4793. ABFSET  PROC    NEAR
  4794.         mov dx,offset abftab
  4795.         mov bx,offset abfhlp
  4796.         mov ah,cmkey
  4797.         call comnd
  4798.          jmp r
  4799.         push bx
  4800.         mov ah,cmcfm
  4801.         call comnd              ; Get a confirm.
  4802.          jmp r                  ;  Didn't get a confirm.
  4803.         pop bx
  4804.         mov abfflg,bl           ; Set the aborted file flag.
  4805.         ret
  4806. ABFSET  ENDP
  4807.  
  4808. ;       This is the SET Parity command.                         [10 start]
  4809.  
  4810. SETPAR  PROC    NEAR
  4811.         mov dx,offset partab
  4812.         mov bx,offset parhlp
  4813.         mov ah,cmkey
  4814.         call comnd
  4815.          jmp r
  4816.         push bx
  4817.         mov ah,cmcfm
  4818.         call comnd              ; Get a confirm.
  4819.          jmp r                  ;  Didn't get a confirm.
  4820.         pop bx
  4821.         mov parflg,bl           ; Set the parity flag.
  4822.         ret
  4823. SETPAR  ENDP                                                    ; [10 end]
  4824.  
  4825. ; Sets debugging mode on and off.
  4826.  
  4827. DEBST   PROC    NEAR
  4828.         mov dx,offset ontab
  4829.         mov bx,offset onhlp
  4830.         mov ah,cmkey
  4831.         call comnd
  4832.          jmp r
  4833.         push bx
  4834.         mov ah,cmcfm
  4835.         call comnd              ; Get a confirm.
  4836.          jmp r                  ;  Didn't get a confirm.
  4837.         pop bx
  4838.         mov debug,bl           ; Set the IBM flag.
  4839.         ret
  4840. DEBST   ENDP
  4841.  
  4842. ; Turn bell on or off.    [17a start]
  4843.  
  4844. BELLST  PROC    NEAR
  4845.         mov dx,offset ontab
  4846.         mov bx,offset onhlp
  4847.         mov ah,cmkey
  4848.         call comnd
  4849.          jmp r
  4850.         push bx
  4851.         mov ah,cmcfm
  4852.         call comnd
  4853.          jmp r
  4854.         pop bx
  4855.         mov belflg,bl
  4856.         ret
  4857. BELLST  ENDP                      ;  [17a end]
  4858.  
  4859. ; Function to set BS -> BS or BS -> DEL.  [19c]
  4860.  
  4861. BSSET   PROC    NEAR
  4862.         mov dx,offset BStab
  4863.         mov bx,offset BShlp
  4864.         mov ah,cmkey
  4865.         call comnd
  4866.          jmp r
  4867.         push bx
  4868.         mov ah,cmcfm
  4869.         call comnd              ; Get a confirm.
  4870.          jmp r                  ;  Didn't get a confirm.
  4871.         pop bx
  4872.         mov delflg,bl           ; Set backspace/delete flag.
  4873.         ret
  4874. BSSET   ENDP
  4875.  
  4876.  
  4877. ; This function sets the term emulation. [21]
  4878.  
  4879. IF t2000            ; [21]
  4880. EMSET    PROC    NEAR
  4881.     mov dx,offset termtab
  4882.     mov bx,offset emhlp
  4883.     mov ah,cmkey
  4884.     call comnd
  4885.      jmp r
  4886.     push bx
  4887.     mov ah,cmcfm
  4888.     call comnd        ; Get a confirm. [21]
  4889.      jmp r
  4890.     pop bx
  4891.     cmp bl,02H        ; Other. [21]
  4892.     je emset2        ; go. [21]
  4893.     mov ktable,offset keytab1    ; Use key table 1. [21]
  4894.     mov vtflg,bl        ; Must be a vt52. [21]
  4895.     ret            ; Return. [21]
  4896. emset2: mov ktable,offset keytab2    ; Use key table 2. [21]
  4897.     mov vtflg,bl        ; Set to Other. [21]
  4898.     ret            ; Return. [21]
  4899. EMSET    ENDP
  4900. ENDIF                ; [21]
  4901.  
  4902. ;  This function sets the baud rate.
  4903.  
  4904. BAUDST  PROC    NEAR
  4905.         mov dx,offset bdtab
  4906.         mov bx,offset bdhlp
  4907.         mov ah,cmkey
  4908.         call comnd
  4909.          jmp r
  4910.         push bx
  4911.         mov ah,cmcfm
  4912.         call comnd              ; Get a confirm.
  4913.          jmp r                  ; Didn't get one.
  4914.         pop bx
  4915. IF msdos
  4916.         mov baud,bx             ; Set the IBM flag.
  4917.         call dobaud             ; Use common code. [19a] 
  4918. ENDIF
  4919. IF Z100 
  4920.         mov baud,bl             ; Remember baud rate. [20g]
  4921.         mov bx,ds               ; Set up pointer to config info
  4922.         mov es,bx               ;  .  .  .
  4923.         mov bx,offset auxcnf    ;  .  .  .
  4924.         mov ah,chr_control      ; Function is control
  4925.         mov al,chr_cfsu         ; Subfunction is set new config
  4926.         call bios_auxfunc       ; Set the configuration
  4927. ENDIF
  4928.         ret
  4929. BAUDST  ENDP
  4930.  
  4931. ; Only keep one copy of the code that sets the baud rate. [19a]
  4932.  
  4933. DOBAUD  PROC    NEAR
  4934. IF t2000
  4935.     xor ax,ax
  4936.     mov al,word8        ; Start with word size. [21]
  4937.     or al,sb1        ; Set stop bits. [21]
  4938.     or al,nonep        ; Set USART parity. [21]
  4939.     or ax,baud        ; Set baud rate. [21]
  4940.     xor dx,dx
  4941.     mov dh,03H        ; BIOS function number. [21]
  4942.     int comm
  4943. ENDIF
  4944.  
  4945. IF ibmpc
  4946.         mov dx,mdcom            ; LCR -- Initialize baud rate. [19b]
  4947.         in al,dx
  4948.         mov bl,al
  4949.         or ax,80H
  4950.         out dx,al
  4951.         mov dx,mddat            ; [19b]
  4952.         mov ax,baud
  4953.         out dx,al
  4954.         inc dx
  4955.         mov al,ah
  4956.         out dx,al
  4957.         mov dx,mdcom            ; [19b]
  4958.         mov al,bl
  4959.         out dx,al
  4960. ENDIF
  4961. IF Z100
  4962.         mov bx,ds               ; Set up pointer to config info
  4963.         mov es,bx               ;  .  .  .
  4964.         mov bx,offset auxcnf    ;  .  .  .
  4965.         mov ah,chr_status       ; Get the function code
  4966.         mov al,chr_sfgc         ; And the subfunction to get config
  4967.         call bios_auxfunc       ; Get the block
  4968. ENDIF
  4969.         ret
  4970. DOBAUD  ENDP
  4971.  
  4972. ;       This is the STATUS command.
  4973.  
  4974. STATUS  PROC    NEAR
  4975.         call stat0
  4976.          jmp r
  4977.         jmp rskp
  4978. STATUS  ENDP
  4979.  
  4980. STAT0   PROC    NEAR
  4981.         mov ah,cmcfm
  4982.         call comnd              ; Get a confirm.
  4983.          jmp r                  ;  Didn't get a confirm.
  4984. stat01: mov dx,offset locst     ; Assume local echo on.
  4985.         cmp ecoflg,0            ; Is the local echo flag on?
  4986.         jnz stat1               
  4987.         mov dx,offset remst     ; If not say so.
  4988. stat1:  mov ah,prstr            ; Print it.
  4989.         int dos
  4990. IF t2000
  4991.     mov dx,offset em19    ; Get address of H19 emulation. [21]
  4992.     cmp vtflg,1        ; Is it H19? [21]
  4993.     je stat2        ; yes. [21]
  4994.     mov dx,offset emother    ; Get address of other string. [21]
  4995.     cmp vtflg,2        ; Is it other? [21]
  4996.     je stat2
  4997.     mov dx,offset emvt52    ; Get address of vt52 string. [21]
  4998. stat2:    mov ah,prstr
  4999.     int dos
  5000. ENDIF
  5001. IF ibmpc
  5002.         mov dx,offset vtemst    ; Get address of the VT52 emulation string.
  5003.         cmp vtflg,0             ; Is the VT52 emulation flag on?
  5004.         jnz stat2
  5005.         mov dx,offset novtst    ; If not say so.
  5006. stat2:  mov ah,prstr            ; Print it.
  5007.         int dos
  5008. ENDIF                ; [21]
  5009. IF ibmpc            ; [21]
  5010.         mov dx,offset cm1st     ; Assume we're using COM1. [19b start]
  5011.         cmp comflg,1            ; Are we?
  5012.         je stat2a               ; Yup.
  5013.         mov dx,offset cm2st     ; We're using COM2.
  5014. stat2a: mov ah,prstr
  5015.         int dos                 ; [19b end]
  5016. ENDIF
  5017.         mov dx,offset ibmst     ; Is IBM flag on?
  5018.         cmp ibmflg,0
  5019.         jnz stat3
  5020.         mov dx,offset noibm     ; Say it's not.
  5021. stat3:  mov ah,prstr
  5022.         int dos
  5023.         mov dx,offset deboff    ; Assume debug mode is off.
  5024.         cmp debug,0
  5025.         je stat4
  5026.         mov dx,offset debon
  5027. stat4:  mov ah,prstr
  5028.         int dos
  5029.         mov dx,offset flwon     ; Assume file-warning on.
  5030.         cmp flwflg,0
  5031.         jne stat5
  5032.         mov dx,offset flwoff
  5033. stat5:  mov ah,prstr
  5034.         int dos
  5035.         mov dx,offset pnonst    ; Assume no parity.             [10 start]
  5036.         cmp parflg,parnon
  5037.         je stat6
  5038.         mov dx,offset pmrkst    ; Mark parity?
  5039.         cmp parflg,parmrk
  5040.         je stat6
  5041.         mov dx,offset pevnst    ; Maybe it's even parity.
  5042.         cmp parflg,parevn
  5043.         je stat6
  5044.         mov dx,offset poddst    ; Odd parity?
  5045.         cmp parflg,parodd
  5046.         je stat6
  5047.         mov dx,offset pspcst
  5048. stat6:  mov ah,prstr
  5049.         int dos                                                 ;[10 end]
  5050.         mov dx,offset belon     ; Tell if bells ring at end.  [17a start - DT]
  5051.         cmp belflg,0
  5052.         jne stat7
  5053.         mov dx,offset beloff    ; No bells. 
  5054. stat7:  mov ah,prstr
  5055.         int dos                 ; That's it.  [17a end - DT]
  5056.         mov dx,offset abfdst    ; Do we discard file if abort? [20d start]
  5057.         cmp abfflg,1
  5058.         je stat8
  5059.         mov dx,offset abfkst    ; Keep what we received so far.
  5060. stat8:  int dos                 ; [20d end]
  5061.         mov dx,offset bkdel     ; Is backarrow BS or DEL...  [19c start]
  5062.         cmp delflg,1            ; Is it delete?
  5063.         je stat9                ; Yup.
  5064.         mov dx,offset bkbs      ; It's a backspace.
  5065. stat9:  int dos                 ; Tell the user.  [19c end]
  5066.         mov dx,offset eolst     ; Tell the end-of-line char used.  [5 start]
  5067.         mov ah,prstr
  5068.         int dos
  5069.         mov ah,conout
  5070.         mov dl,seol
  5071.         add dl,40H
  5072.         int dos                                                  ; [5 end]
  5073.         mov ah,prstr
  5074.         mov dx,offset escmes                    ; Print escape character.  [6]
  5075.         int dos 
  5076.         call escprt
  5077.         call baudprt                    ; Print the baud rate. [19a]
  5078.         mov dx,offset cmcrlf    ; Get the address of a crlf.
  5079.         mov ah,prstr            ; Print it.
  5080.         int dos
  5081.         jmp rskp
  5082. STAT0   ENDP
  5083.  
  5084. ; Print information on the baud rate. [19a]
  5085.  
  5086. BAUDPRT PROC     NEAR
  5087.         mov dx,offset b48st     ; Assume 4800 baud.
  5088.         cmp baud,B4800
  5089.         jnz bdprt0
  5090.         jmp bdprt2
  5091. bdprt0: mov dx,offset b12st
  5092.         cmp baud,B1200
  5093.         jz bdprt2
  5094. IF ibmpc
  5095. bdprt1: mov dx,offset b18st
  5096.         cmp baud,B1800
  5097.         jz bdprt2
  5098. ENDIF
  5099.         mov dx,offset b24st
  5100.         cmp baud,B2400
  5101.         jz bdprt2
  5102.         mov dx,offset b96st
  5103.         cmp baud,B9600
  5104.         jz bdprt2
  5105.         mov dx,offset b03st
  5106. IF ibmpc
  5107.         jmp bdprt2
  5108. ENDIF
  5109. IF t2000
  5110.     cmp baud,B0300
  5111.     jz bdprt2
  5112.     mov dx,offset b11st
  5113.     cmp baud,B0110
  5114.     jz bdprt2
  5115.     mov dx,offset b15st
  5116.     cmp baud,B0150
  5117.     jz bdprt2
  5118.     mov dx,offset b06st
  5119. ENDIF
  5120. IF Z100
  5121.         cmp baud,B0300
  5122.         jz bdprt2
  5123.         mov dx,offset b04st
  5124.         cmp baud,B00455
  5125.         jz bdprt2
  5126.         mov dx,offset b05st
  5127.         cmp baud,B0050
  5128.         jz bdprt2
  5129.         mov dx,offset b07st
  5130.         cmp baud,b0075
  5131.         jz bdprt2
  5132.         mov dx,offset b11st
  5133.         cmp baud,B0110
  5134.         jz bdprt2
  5135.         mov dx,offset b13st
  5136.         cmp baud,B01345
  5137.         jz bdprt2
  5138.         mov dx,offset b15st
  5139.         cmp baud,B0150
  5140.         jz bdprt2
  5141.         mov dx,offset b06st
  5142.         cmp baud,B0600
  5143.         je bdprt2
  5144.         mov dx,offset b20st
  5145.         cmp baud,B2000
  5146.         jz bdprt2
  5147.         mov dx,offset b19st
  5148.         cmp baud,B19200
  5149.         jz bdprt2
  5150.         mov dx,offset b38st
  5151. ENDIF
  5152. bdprt2: mov ah,prstr
  5153.         int dos
  5154.         ret
  5155. BAUDPRT ENDP
  5156.  
  5157. ;       Utility routines
  5158.  
  5159. ; Jumping to this location is like retskp.  It assumes the instruction
  5160. ;   after the call is a jmp addr.
  5161.  
  5162. RSKP    PROC    NEAR
  5163.         pop bp
  5164.         add bp,3
  5165.         push bp
  5166.         ret
  5167. RSKP    ENDP
  5168.  
  5169. ; Jumping here is the same as a ret.
  5170.  
  5171. R       PROC    NEAR
  5172.         ret
  5173. R       ENDP
  5174.  
  5175. ; This routine prints the number in AX on the screen.  (Thanks to Jeff
  5176. ; Damens).  No longer used but keep around just in case.
  5177.  
  5178. ;NOUT    PROC    NEAR
  5179. ;        push bx                 ; Save some stuff.
  5180. ;        push cx
  5181. ;        push dx
  5182. ;        push ax
  5183. ;        mov bh,0                ; Don't print leading zeros.
  5184. ;        and ah,0F0H             ; Only want high order nibble.
  5185. ;        mov cl,4
  5186. ;       shr ah,cl
  5187. ;        call pdig               ; Print the digit.
  5188. ;        pop ax                  ; Restore argument.
  5189. ;        and ah,0FH              ; Just the low order nibble.
  5190. ;        call pdig
  5191. ;        mov ah,al
  5192. ;        and ah,0F0H             ; Only want high order nibble.
  5193. ;       mov cl,4
  5194. ;        shr ah,cl
  5195. ;        call pdig               ; Print the digit.
  5196. ;        mov ah,al
  5197. ;        and ah,0FH              ; Just the low order nibble.
  5198. ;        mov bh,0FFH             ; Make sure at least one zero is printed.
  5199. ;        call pdig
  5200. ;        pop dx                  ; Restore some stuff.
  5201. ;        pop cx
  5202. ;        pop bx
  5203. ;        ret
  5204. ;NOUT    ENDP
  5205.  
  5206.  ; Print the number in AX on the screen in decimal rather that hex. [19a]
  5207.  
  5208. NOUT    PROC    NEAR
  5209.         push ax
  5210.         push dx
  5211.         mov temp,10             ; Divide quotient by 10.
  5212.         cwd                     ; Convert word to doubleword.
  5213.         div temp                ; AX <-- Quo, DX <-- Rem.
  5214.         cmp ax,0                ; Are we done?  
  5215.         jz nout0                ; Yes.
  5216.         call nout               ; If not, then recurse.
  5217. nout0:  add dl,'0'              ; Make it printable.
  5218.         mov temp,ax
  5219.         mov ah,conout
  5220.         int dos 
  5221.         mov ax,temp
  5222.         pop dx
  5223.         pop ax
  5224.         ret
  5225. NOUT    ENDP
  5226.  
  5227.        ; print the digit in register AH
  5228.  
  5229. PDIG    PROC    NEAR
  5230.         push ax                 ; Save it.
  5231.         cmp ah,0
  5232.         jne pdig2
  5233.         cmp bh,0
  5234.         jne pdig2
  5235.         pop ax
  5236.         ret
  5237. pdig2:  mov bh,0FFH             ; Set the print zero flag.
  5238.         cmp ah,10               ; Do we use digits or a-f?
  5239.         jl usedig               ; Digit.
  5240.         add ah,'A'-10           ; Compute digit
  5241.         jmp havdig              ; and proceed.
  5242. usedig: add ah,'0'              ; Convert to digit
  5243. havdig: mov dl,ah
  5244.         mov ah,conout
  5245.         int dos
  5246.         pop ax
  5247.         ret
  5248. PDIG    ENDP
  5249.  
  5250.  
  5251. ;       This set of routines provides a user oriented way of parsing
  5252. ;       commands.  It is similar to that of the COMND JSYS in TOPS-20.
  5253.  
  5254.  
  5255. ;       This routine prints the prompt in DE and specifies the reparse
  5256. ;       address.
  5257.  
  5258. PROMPT  PROC  NEAR
  5259.         pop bx                  ; Get the return address.
  5260.         push bx                 ; Put it on the stack again.
  5261.         mov cmrprs,bx           ; Save as addr to go to on reparse.
  5262.         mov bx,0                        ; Clear out register.
  5263.         add bx,sp               ; Get the present stack pointer.
  5264.         mov cmostp,bx           ; Save for later restoral.
  5265.         mov cmprmp,dx           ; Save pointer to the prompt.
  5266.         mov bx,offset cmdbuf
  5267.         mov cmcptr,bx           ; Initialize the command pointer.
  5268.         mov cmdptr,bx
  5269.         mov ah,0
  5270.         mov cmaflg,ah           ; Zero the flags.
  5271.         mov cmccnt,ah
  5272.         mov cmsflg,0FFH
  5273.         mov ah,prstr
  5274.         mov dx,offset cmcrlf
  5275.         int dos
  5276.         mov ah,prstr            ; Print the prompt.
  5277.         mov dx,cmprmp
  5278.         int dos
  5279.         ret
  5280. PROMPT  ENDP
  5281.  
  5282. ;       This address is jumped to on reparse.
  5283.  
  5284. PARSE   PROC NEAR 
  5285. repars: mov sp,cmostp           ; new sp <-- old sp
  5286.         mov bx,offset cmdbuf
  5287.         mov cmdptr,bx
  5288.         mov ah,0FFH
  5289.         mov cmsflg,ah
  5290.         mov bx,cmrprs           ; Get the reparse address.
  5291.         call bx                 ; Go there.
  5292.  
  5293. ;       This address can be jumped to on a parsing error.
  5294.  
  5295. prserr: mov sp,cmostp           ; Set new sp to old one.
  5296.         mov bx,offset cmdbuf
  5297.         mov cmcptr,bx           ; Initialize the command pointer.
  5298.         mov cmdptr,bx
  5299.         mov ah,0
  5300.         mov cmaflg,ah           ; Zero the flags.
  5301.         mov cmccnt,ah
  5302.         mov cmsflg,0FFH
  5303.         mov ah,prstr
  5304.         mov dx,offset cmcrlf
  5305.         int dos
  5306.         mov ah,prstr            ; Print the prompt.
  5307.         mov dx,cmprmp           ; Get the prompt.
  5308.         int dos
  5309. ; Instead return to before the prompt call.
  5310.         mov bx,cmrprs
  5311.         call bx
  5312. PARSE   ENDP
  5313.  
  5314. ;       This routine parses the specified function in AH. Any additional
  5315. ;       information is in DX and BX.
  5316. ;       Returns +1 on success
  5317. ;               +4 on failure (assumes a JMP follows the call)
  5318.  
  5319. CMND    PROC NEAR
  5320. comnd:  mov cmstat,ah           ; Save what we are presently parsing.
  5321.         call cminbf             ; Get chars until an action or a erase char.
  5322.         mov ah,cmstat           ; Restore 'ah' for upcoming checks.
  5323.         cmp ah,cmcfm            ; Parse a confirm?
  5324.         jz cmcfrm               ; Go get one.
  5325.         cmp ah,cmkey            ; Parse a keyword?
  5326.         jnz cm1
  5327.         jmp cmkeyw               ; Try and get one.
  5328. cm1:    cmp ah,cmifi            ; Parse an input file spec?
  5329.         jnz cm2
  5330.         jmp cmifil              ; Go get one.
  5331. cm2:    cmp ah,cmofi            ; Output file spec?
  5332.         jnz cm3
  5333.         jmp cmofil              ; Go get one.
  5334. cm3:    cmp ah,cmtxt            ; Parse arbitrary text.   [8]
  5335.         jnz cm4
  5336.         jmp cmtext
  5337. cm4:    mov ah,prstr            ; Else give error.
  5338.         mov dx,offset cmer00    ; "?Unrecognized COMND call"
  5339.         int dos
  5340.         ret
  5341.  
  5342. ; This routine gets a confirm.
  5343.  
  5344. cmcfrm: call cmgtch             ; Get a char.
  5345.         cmp ah,0                ; Is it negative (a terminator; a space or
  5346.                                 ; a tab will not be returned here as they
  5347.                                 ; will be seen as leading white space.)
  5348.         js cmcfr0
  5349.         ret                     ; If not, return failure.
  5350. cmcfr0: and ah,7FH                      ; Turn off the minus bit.
  5351.         cmp ah,esc                      ; Is it an escape?
  5352.         jne cmcfr2
  5353.         mov ah,conout
  5354.         mov dl,bell             ; Get a bell.
  5355.         int dos
  5356.         mov ah,0
  5357.         mov cmaflg,ah           ; Turn off the action flag.
  5358.         mov bx,cmcptr           ; Move the pointer to before thee scape.
  5359.         dec bx
  5360.         mov cmcptr,bx
  5361.         mov cmdptr,bx
  5362.         dec cmccnt              ; Decremrnt the char count.
  5363.         jmp cmcfrm              ; Try again.
  5364. cmcfr2: cmp ah,'?'                      ; Curious?
  5365.         jne cmcfr3
  5366.         mov ah,prstr            ; Print something useful.
  5367.         mov dx,offset cmin00
  5368.         int dos
  5369.         mov ah,prstr
  5370.         mov dx,offset cmcrlf            ; Print a crlf.
  5371.         int dos
  5372.         mov ah,prstr
  5373.         mov dx,cmprmp           ; Reprint the prompt.
  5374.         int dos
  5375.         mov bx,cmdptr           ; Get the pointer into the buffer.
  5376.         mov ah,'$'              ; Put a $ there for printing.
  5377.         mov [bx],ah
  5378.         mov bx,cmcptr
  5379.         dec bx                  ; Decrement & save the buffer pointer.
  5380.         mov  cmcptr,bx
  5381.         mov ah,prstr
  5382.         mov dx,offset cmdbuf
  5383.         int dos
  5384.         mov ah,0                        ; Turn off the action flag.
  5385.         mov cmaflg,ah
  5386.         jmp repars              ; Reparse everything.
  5387.  
  5388. cmcfr3: cmp ah,ff                       ; Is it a form feed?
  5389.         jne cmcfr4
  5390.         call cmblnk             ; If so blank the screen.
  5391. cmcfr4: jmp rskp
  5392.  
  5393. ;       This routine parses a keyword from the table pointed
  5394. ;       to in DX.  The format of the table is as follows:
  5395. ;
  5396. ;       addr:   db      n       ; Where n is the # of entries in the table.
  5397. ;               db      m       ; M is the size of the keyword.
  5398. ;               db      'string$' ; Where string is the keyword.
  5399. ;               dw      ab      ; Where ab is data to be returned.
  5400. ;
  5401. ;       The keywords must be in alphabetical order.
  5402.  
  5403.  
  5404. cmkeyw: mov cmhlp,bx            ; Save the help.
  5405.         mov cmptab,dx           ; Save the beginning of keyword table.
  5406.         mov bx,dx
  5407.         mov ch,[bx]                     ; Get number of entries in table.
  5408.         inc bx
  5409.         mov dx,cmdptr           ; Save command pointer.
  5410.         mov cmsptr,dx           ; Save pointer's here.
  5411. cmky1:  cmp ch,0                ; Any commands left to check?
  5412.         jne cmky2
  5413. ;       mov ah,prstr            ; [19e]
  5414. ;       mov dx,offset cmer04    ; Complain.   [1] [19e]
  5415. ;       int dos                 ; [19e]
  5416.         ret                     ; Fail if not.
  5417. cmky2:  dec ch
  5418.         mov cl,0                ; Keep track of how many chars read in so far.
  5419.         call cmgtch             ; Get a char.
  5420.         cmp ah,0                ; Do we have a terminator?
  5421.         jns cmky2x 
  5422.         jmp cmky4               ; Negative number means we do.
  5423. cmky2x: inc bx                  ; Point to first letter of keyword.
  5424.         inc cl                  ; Read in another char.
  5425.         mov al,[bx]                   
  5426.         cmp ah,'a'              ; Less than a?
  5427.         jl cmky21               ; If so, don't capitalize.
  5428.         cmp ah,'z'+1            ; More than z?
  5429.         jns cmky21
  5430.         and ah,137O             ; Capitalize the letter.
  5431. cmky21: cmp ah,al
  5432.         je cmky3
  5433.         jg cmky2y
  5434.         jmp cmky41              ; Fail if ah preceeds al alphabetically.
  5435. cmky2y: jmp cmky6               ; Not this keyword - try the next.
  5436. cmky3:  inc bx                  ; We match here, how 'bout next char?
  5437.         mov al,[bx]
  5438.         cmp al,'$'               ; End of keyword?
  5439.         jne cmky3x
  5440.         jmp cmky7                ; Succeed.
  5441. cmky3x: mov dl,al               ; Save al's char here.
  5442.         call cmgtch
  5443.         inc cl                  ; Read in another char.
  5444.         mov al,dl
  5445.         cmp ah,'a'
  5446.         jl cmky31
  5447.         cmp ah,'z'+1
  5448.         jns cmky31
  5449.         and ah,137O
  5450. cmky31: cmp ah,9BH              ; Escape Recognition (escape w/minus bit on)?
  5451.         je cmky3y
  5452.         cmp ah,0BFH             ; A question mark?    [3]
  5453.         je cmky3y
  5454.         cmp ah,0A0H             ; A space?
  5455.         je cmky3y
  5456.         cmp ah,8DH              ; Carriage return?
  5457.         je cmky3y
  5458.         jmp cmky38
  5459. cmky3y: mov cmkptr,bx           ; Save bx here.
  5460.         mov cmsiz,cx            ; Save size info.
  5461.         mov cmchr,ah            ; Save char for latter.
  5462.         call cmambg             ; See if input is ambiguous or not.
  5463.          jmp cmky32             ; Succeeded (not ambiguous).
  5464.         mov ah,cmchr
  5465.         cmp ah,9BH              ; Escape?
  5466.         je cmky3z
  5467.         jmp cmky41              ; Fail.
  5468. cmky3z: mov ah,conout           ; Else, ring a bell.
  5469.         mov dl,bell
  5470.         int dos
  5471.         mov bx,cmcptr           ; Move pointer to before the escape.
  5472.         dec bx
  5473.         mov cmcptr,bx
  5474.         mov cmdptr,bx
  5475.         dec cmccnt              ; Decrement char count.
  5476.         mov bx,cmkptr           ; Failed - pretend user never typed ....
  5477.         mov cx,cmsiz            ; ... in a char.
  5478.         dec cl                  ; Don't count the escape.
  5479.         dec bx
  5480.         mov cmaflg,0            ; Reset the action flag.
  5481.         jmp cmky3               ; Keep checking.
  5482. cmky32: mov cx,cmsiz            ; Restore info.
  5483.         mov bx,cmkptr           ; Our place in the keyword table.
  5484.         cmp cmchr,0A0H          ; Space?
  5485.         je cmky35
  5486.         cmp cmchr,0BFH          ; Question mark?     [3]
  5487.         je cmky35
  5488.         cmp cmchr,8DH           ; Carriage return?
  5489.         je cmky35
  5490.         dec cmcptr              ; Pointer into buffer of input.
  5491.         mov dx,cmcptr
  5492. cmky33: mov ah,[bx]             ; Get next char in keyword.
  5493.         cmp ah,'$'              ; Are we done yet?
  5494.         jz cmky34
  5495.         mov di,dx
  5496.         mov [di],ah
  5497.         inc bx
  5498.         inc dx
  5499.         inc cmccnt
  5500.         jmp cmky33
  5501. cmky34: mov ah,' '
  5502.         mov di,dx
  5503.         mov [di],ah             ; Put a blank in the buffer.
  5504.         inc dx
  5505.         mov cx,cmcptr           ; Remember where we were (for printing below).
  5506.         mov cmcptr,dx           ; Update our pointers.
  5507.         mov cmdptr,dx
  5508.         mov ah,'$'
  5509.         mov di,dx
  5510.         mov [di],ah             ; Add '$' for printing.
  5511.         mov ah,prstr
  5512.         mov dx,cx               ; Point to beginning of filled in data.
  5513.         int dos
  5514.         inc bx                  ; Point to address we'll need.
  5515.         mov bx,[bx]
  5516.         mov cmaflg,0            ; Turn off action flag.
  5517.         jmp rskp
  5518.  
  5519. cmky35: inc bx
  5520.         mov ah,[bx]             ; Find end of keyword. 
  5521.         cmp ah,'$'
  5522.         jne cmky35      
  5523.         inc bx
  5524.         mov bx,[bx]             ; Address of next routine to call.
  5525. ;       mov cmaflg,0            ; Zero the action flag.
  5526.         jmp rskp
  5527.  
  5528. cmky38: cmp ah,al
  5529.         jne cmky6               ; Go to end of keyword and try next.
  5530.         jmp cmky3
  5531.            
  5532. cmky4:  and ah,7FH              ; Turn off minus bit.
  5533.         cmp ah,'?'              ; Need help?
  5534.         je cmky5
  5535.         cmp ah,' '              ; Just a space - no error.
  5536.         je cmky51
  5537.         cmp ah,cr
  5538.         je cmky51
  5539.         cmp ah,tab
  5540.         je cmky51 
  5541.         cmp ah,esc              ; Ignore escape?
  5542.         je cmky43
  5543. cmky41: mov ah,prstr
  5544.         mov dx,offset cmer03
  5545.         int dos
  5546.         jmp prserr              ; Parse error - give up.
  5547.  
  5548. cmky43: mov ah,conout           ; Ring a bell.
  5549.         mov dl,bell
  5550.         int dos
  5551.         mov bx,cmcptr
  5552.         dec bx
  5553.         mov cmcptr,bx
  5554.         mov cmdptr,bx
  5555.         dec cmccnt              ; Don't count the escape.
  5556.         mov cmaflg,0            ; Reset action flag.
  5557.         inc ch                  ; Account for a previous 'dec'.
  5558.         jmp cmky1               ; Start over.
  5559.  
  5560. cmky5:  mov ah,prstr
  5561.         mov dx,cmhlp            ; Print the help text.
  5562.         int dos
  5563.         mov dx,offset crlf
  5564.         int dos
  5565.         mov dx,offset kerm
  5566.         int dos
  5567.         mov bx,cmdptr           ; Get pointer into buffer.
  5568.         mov al,'$'
  5569.         mov [bx],al             ; Add dollar sign for printing.
  5570.         mov dx,offset cmdbuf
  5571.         int dos
  5572.         dec cmcptr              ; Don't keep it in the buffer.
  5573.         dec cmccnt              ; Don't conut it.
  5574.         mov cmaflg,0            ; Turn off the action flag.
  5575.         jmp repars
  5576.  
  5577. cmky51: jmp prserr
  5578.  
  5579. cmky6:  inc bx                  ; Find end of keyword.
  5580.         mov al,[bx]
  5581.         cmp al,'$'
  5582.         jne cmky6             
  5583.         inc bx                  ; Beginning of next command.
  5584.     inc bx
  5585.     inc bx
  5586.     mov dx,cmsptr
  5587.     mov cmdptr,dx
  5588.     mov cmsflg,0ffh
  5589.     jmp cmky1
  5590.  
  5591. cmky7:    call cmgtch
  5592.     cmp ah,0
  5593.     js cmky71
  5594.     dec bx
  5595.     jmp cmky6
  5596. cmky71:    inc bx
  5597.     mov bx,[bx]
  5598.     cmp ah,9BH
  5599.     jne cmky72
  5600.     mov ah,prstr
  5601.     mov dx,offset prsp
  5602.     int dos
  5603.     mov di,cmcptr
  5604.     dec di
  5605.     mov ah,20H
  5606.     mov [di],ah
  5607.     mov cmaflg,0
  5608.     mov cmsflg,0FFH
  5609. cmky72:    jmp rskp
  5610.  
  5611. cmambg:    cmp ch,0
  5612.     jne cmamb0
  5613.     ret
  5614. cmamb0:    inc bx
  5615.         mov al,[bx]             ; So we can check the next one.
  5616.     mov al,[bx]
  5617.         cmp al,'$'
  5618.         jne cmamb0
  5619.         add bx,4                ; Point to start of next keyword.
  5620.         dec cl                  ; Don't count escape.
  5621.         mov dx,cmsptr           ; Buffer with input typed by user.
  5622. cmamb1: mov ah,[bx]             ; Keyword char. 
  5623.         mov di,dx
  5624.         mov al,[di]             ; Input char.
  5625.         cmp al,'a'              ; Do capitalizing.
  5626.         jl cmam11
  5627.         cmp al,'z'+1
  5628.         jns cmam11
  5629.         and al,137O
  5630. cmam11: cmp ah,al               ; Keyword bigger than input (alphabetically)?
  5631.         jle cmamb2              ; No - keep checking.
  5632.         ret                     ; Yes - not ambiguous.
  5633. cmamb2: inc bx                  ; Advance one char.
  5634.         inc dx
  5635.         dec cl
  5636.         jnz cmamb1
  5637.         jmp rskp                ; Fail - it's ambiguous.
  5638.  
  5639. cmifil: mov bx,dx               ; Get the fcb address in bx.
  5640.         mov cmfcb,bx            ; Save it.
  5641.         mov ch,0                ; Initialize char count.
  5642.         mov ah,0
  5643.         mov [bx],ah                     ; Set the drive to default to current.
  5644.         inc bx
  5645.         mov cmfcb2,bx
  5646.         mov cl,' '
  5647. cmifi0: mov [bx],cl                     ; Blank the FCB.
  5648.         inc bx
  5649.         inc ah
  5650.         cmp ah,0BH                      ; Twelve?
  5651.         jl cmifi0
  5652. cmifi1: call cmgtch             ; Get another char.
  5653.         cmp ah,0                        ; Is it an action character.
  5654.         jns cmifi2
  5655.         and ah,7FH                      ; Turn off the action bit.
  5656.         cmp ah,'?'                      ; A question mark?
  5657.         jne cmif12
  5658.         mov al,0
  5659.         mov cmaflg,al           ; Blank the action flag.
  5660.         dec cmcptr           ; Decrement the buffer pointer.
  5661.         dec cmccnt              ; Decrement count.
  5662. ;        jmp cmifi8              ; Treat like any other character.
  5663.         mov ah,prstr
  5664.         mov dx,offset filhlp    ; Help  message.
  5665.         int dos
  5666.         mov dx,offset crlf
  5667.         int dos
  5668.         mov dx,offset kerm
  5669.         int dos
  5670.         mov bx,cmdptr
  5671.         mov al,'$'
  5672.         mov [bx],al             ; Put in dollar sign for printing.
  5673.         mov dx,offset cmdbuf
  5674.         int dos
  5675.         jmp repars
  5676. cmif12: cmp ah,esc                      ; An escape?
  5677.         jne cmif13
  5678.         mov ah,0
  5679.         mov cmaflg,ah           ; Turn off the action flag.
  5680.         mov ah,conout
  5681.         mov dl,bell
  5682.         int dos         ; Ring the bell.
  5683.         mov bx,cmcptr           ; Move the pointer to before the escape.
  5684.         dec bx
  5685.         mov cmcptr,bx
  5686.         mov cmdptr,bx
  5687.         dec cmccnt              ; Decrement char count.
  5688.         jmp repars
  5689. cmif13: mov ah,ch                       ; It must be a terminator.
  5690.         cmp ah,0                        ; Test the length of the file name.
  5691.         jnz cmf3x
  5692.         jmp cmifi9               ; If zero complain.
  5693. cmf3x:  cmp ah,0DH
  5694.         js cmf3y
  5695.         jmp cmifi9              ; If too long complain.
  5696. cmf3y:  jmp rskp                ; Otherwise we have succeeded.
  5697. cmifi2: cmp ah,'.'
  5698.         jne cmifi3
  5699.         inc ch
  5700.         mov ah,ch
  5701.         cmp ah,1H                       ; Any chars yet?
  5702.         jnz cmf2x
  5703.         jmp cmifi9               ; No, give error.
  5704. cmf2x:  cmp ah,0AH                      ; Tenth char?
  5705.         js cmf2y
  5706.         jmp cmifi9              ; Past it, give an error.
  5707. cmf2y:  mov dl,9H
  5708.         mov dh,0
  5709.         mov bx,cmfcb
  5710.         add bx,dx               ; Point to file type field.
  5711.         mov cmfcb2,bx
  5712.         mov ch,9H               ; Say we've gotten nine.
  5713.         jmp cmifi1              ; Get the next char.
  5714. cmifi3: cmp ah,':'
  5715.         jne cmifi4
  5716.         inc ch
  5717.         cmp ch,2H                       ; Is it in right place for a drive?
  5718.         je cmif3x
  5719.         jmp cmifi9              ; If not, complain.
  5720. cmif3x: mov ch,0                ; Reset char count.
  5721.         mov bx,cmfcb2
  5722.         sub bx,1
  5723.         mov ah,[bx]                     ; Get the drive name.
  5724.         sub ah,'@'              ; Get the drive number.
  5725.         mov cmfcb2,bx
  5726.         mov bx,cmfcb
  5727.         mov [bx],ah                     ; Put it in the fcb.
  5728.         jmp cmifi1
  5729. cmifi4: cmp ah,'*'
  5730.         jne cmifi7
  5731.         mov ah,ch
  5732.         cmp ah,8H                       ; Is this in the name or type field?
  5733.         jz cmifi9               ; If its where the dot should be give up.
  5734.         jns cmifi5              ; Type.
  5735.         mov cl,8H               ; Eight chars.
  5736.         jmp cmifi6
  5737. cmifi5: mov cl,0CH              ; Three chars.
  5738. cmifi6: mov wldflg,0FFH         ; Remember we had a wildcard.
  5739.         mov bx,cmfcb2           ; Get a pointer into the FCB.
  5740.         mov ah,'?'
  5741.         mov [bx],ah                     ; Put a question mark in.
  5742.         inc bx
  5743.         mov cmfcb2,bx
  5744.         inc ch
  5745.         mov ah,ch
  5746.         cmp ah,cl
  5747.         jl cmifi6               ; Go fill in another.
  5748.         jmp cmifi1              ; Get the next char.
  5749. cmifi7: cmp ah,03DH             ; Equals sign (wildcard)?
  5750.         jne cmif7x
  5751.         mov ah,'?'
  5752.         mov wldflg,0FFH         ; Say we have a wildcard.
  5753.         jmp cmifi8              ; Put into FCB.
  5754. cmif7x: cmp ah,'0'
  5755.         jl cmif8x
  5756.         cmp ah,'z'+1
  5757.         jns cmif8x
  5758.         cmp ah,'A'                      ; Don't capitalize non-alphabetics.
  5759.         jl cmifi8
  5760.         and ah,137O             ; Capitalize.
  5761. cmifi8: mov bx,cmfcb2           ; Get the pointer into the FCB.
  5762.         mov [bx],ah                     ; Put the char there.
  5763.         inc bx
  5764.         mov cmfcb2,bx
  5765.         inc ch
  5766.         jmp cmifi1
  5767.  
  5768. cmif8x: push es
  5769.         mov cx,ds
  5770.         mov es,cx               ; Scan uses ES register.
  5771.         mov di,offset spchar    ; Special chars.
  5772.         mov cx,20               ; Twenty of them.
  5773.         mov al,ah               ; Char is in al.
  5774.         repnz scasb             ; Search string for input char.
  5775.         cmp cx,0                ; Was it there?
  5776.         pop es
  5777.         jnz cmifi8
  5778.  
  5779. cmifi9: mov ah,prstr
  5780.         mov dx,offset cmer02
  5781.         int dos
  5782.         ret
  5783.  
  5784. cmofil: jmp cmifil              ; For now, the same as CMIFI.
  5785.  
  5786. ; Parse arbitrary text up to a CR.  Put chars into data buffer sent to
  5787. ; the host (pointed to by BX).   Return updated pointer in BX and 
  5788. ; input size in AH.
  5789.  
  5790. cmtext: mov cmptab,bx           ; Save pointer to data buffer.   [8 start]
  5791.         mov cl,0                ; Init the char count.
  5792. cmtxt1: call cmgtch             ; Get a char.
  5793.         cmp ah,0                ; Terminator?
  5794.         jns cmtxt5              ; Nope, put into the buffer.
  5795.         and ah,07FH
  5796.         cmp ah,esc              ; An escape?
  5797.         jne cmtxt2
  5798.         mov ah,conout
  5799.         mov dl,bell             ; Ring a bell.
  5800.         int dos
  5801.         mov cmaflg,0            ; Reset action flag.
  5802.         dec cmcptr              ; Move pointer to before the escape.
  5803.         dec cmdptr
  5804.         dec cmccnt              ; Decrement count.
  5805.         jmp cmtxt1              ; Try again.
  5806. cmtxt2: cmp ah,'?'              ; Asking a question?
  5807.         jz cmtxt3
  5808.         cmp ah,ff               ; Formfeed?
  5809.         jne cmtx2x
  5810.         call cmblnk
  5811. cmtx2x: mov ah,cl               ; Return count in AH.
  5812.         mov bx,cmptab           ; Return updated pointer.
  5813.         jmp rskp
  5814. cmtxt3: mov cmaflg,0            ; Reset action flag to zero.
  5815. cmtxt5: inc cl                  ; Increment the count.
  5816.         mov bx,cmptab           ; Pointer into destination array.
  5817.         mov [bx],ah             ; Put char into the buffer.
  5818.         inc bx
  5819.         mov cmptab,bx
  5820.         jmp cmtxt1                                      ; [8 end]
  5821.  
  5822. cminbf: push dx
  5823.         push bx
  5824.         mov cx,dx               ; Save value here too.
  5825.         mov ah,cmaflg           ; Is the action char flag set?
  5826.         cmp ah,0
  5827.         je cminb1
  5828.         jmp cminb9              ; If so get no more chars.
  5829. cminb1: inc cmccnt              ; Increment the char count.
  5830.         mov ah,conin            ; Get a char.
  5831.         int dos
  5832.         mov ah,al               ; Keep char in 'ah'.
  5833.         mov bx,cmcptr           ; Get the pointer into the buffer.
  5834.         mov [bx],ah                     ; Put it in the buffer.
  5835.         inc bx
  5836.         mov cmcptr,bx
  5837.         cmp ah,25O                      ; Is it a ^U?
  5838.         jne cminb2
  5839. cmnb12: mov ah,prstr
  5840.         mov dx,offset clrlin
  5841.         int dos
  5842. IF msdos
  5843.         mov ax,0920H                    ; Write spaces.
  5844.         mov bx,7                   ; Clear the line.
  5845.         mov cx,80
  5846.         int bios
  5847. ENDIF
  5848.         mov ah,prstr
  5849.         mov dx,cmprmp           ; Print the prompt.
  5850.         int dos
  5851.         mov bx,offset cmdbuf
  5852.         mov cmcptr,bx           ; Reset the point to the start.
  5853.         mov cmccnt,0               ; Zero the count.
  5854.         mov dx,cx               ; Preserve original value of dx.
  5855.         jmp repars              ; Go start over.
  5856. cminb2: cmp ah,10O                      ; Or backspace?
  5857.         jz cminb3
  5858.         cmp ah,del                      ; Delete?
  5859.         jne cminb4
  5860.         mov ah,prstr            ; Print the delete string.
  5861.         mov dx,offset delstr
  5862.         int dos
  5863. cminb3: mov ah,cmccnt           ; Decrement the char count by two.
  5864.         dec ah
  5865.         dec ah
  5866.         cmp ah,0                        ; Have we gone too far?
  5867.         jns cmnb32              ; If not proceed.
  5868.         mov ah,conout           ; Ring the bell.
  5869.         mov dl,bell
  5870.         int dos
  5871.         jmp cmnb12              ; Go reprint prompt and reparse.
  5872. cmnb32: mov cmccnt,ah           ; Save the new char count.
  5873.         mov ah,prstr            ; Erase the character.
  5874.         mov dx,offset clrspc
  5875.         int dos
  5876.         mov bx,cmcptr           ; Get the pointer into the buffer.
  5877.         dec bx                  ; Back up in the buffer.
  5878.         dec bx
  5879.         mov cmcptr,bx
  5880.         jmp repars              ; Go reparse everything.
  5881. cminb4: cmp ah,'?'                      ; Is it a question mark.
  5882.         jz cminb6
  5883.         cmp ah,esc                      ; Is it an escape?
  5884.         jz cminb8
  5885.         cmp ah,cr                       ; Is it a carriage return?
  5886.         jz cminb5
  5887.         cmp ah,lf                       ; Is it a line feed?
  5888.         jz cminb5
  5889.         cmp ah,ff                       ; Is it a formfeed?
  5890.         jne cminb7
  5891.         call cmblnk
  5892.         call locate
  5893. cminb5: mov ah,cmccnt           ; Have we parsed any chars yet?
  5894.         cmp ah,1
  5895.         jnz cminb6
  5896.         jmp prserr               ; If not, just start over.
  5897. cminb6: mov ah,0FFH             ; Set the action flag.
  5898.         mov cmaflg,ah
  5899.         jmp cminb9
  5900. cminb7: jmp cminb1              ; Get another char.
  5901.  
  5902. cminb8: mov ah,prstr            ; Don't print the escape char.
  5903.         mov dx,offset escspc
  5904.         int dos
  5905.         jmp cminb6
  5906.  
  5907. cminb9: pop bx
  5908.         pop dx
  5909.         ret
  5910.  
  5911. cmgtch: push cx
  5912.         push bx
  5913.         push dx
  5914. cmgtc1: mov ah,cmaflg
  5915.         cmp ah,0                        ; Is it set.
  5916.         jne cmgt10
  5917.         call cminbf             ; If the action char flag is not set get more.
  5918. cmgt10: mov bx,cmdptr           ; Get a pointer into the buffer.
  5919.         mov ah,[bx]                     ; Get the next char.
  5920.         inc bx
  5921.         mov cmdptr,bx
  5922.         cmp ah,' '                      ; Is it a space?
  5923.         jz cmgtc2
  5924.         cmp ah,tab                      ; Or a tab?
  5925.         jne cmgtc3
  5926. cmgtc2: mov ah,cmsflg           ; Get the space flag.
  5927.         cmp ah,0                        ; Was the last char a space?
  5928.         jne cmgtc1              ; Yes, get another char.
  5929.         mov ah,0FFH             ; Set the space flag.
  5930.         mov cmsflg,ah
  5931.         mov ah,' '
  5932.         pop dx
  5933.         pop bx
  5934.         jmp cmgtc5
  5935. cmgtc3: mov al,0
  5936.         mov cmsflg,al           ; Zero the space flag.
  5937.         pop dx
  5938.         pop bx
  5939.         cmp ah,esc
  5940.         jz cmgtc5
  5941.         cmp ah,'?'                      ; Is the user curious?
  5942.         jz cmgtc4
  5943.         cmp ah,cr
  5944.         jz cmgtc4
  5945.         cmp ah,lf
  5946.         jz cmgtc4
  5947.         cmp ah,ff
  5948.         je cmgtc4
  5949.         pop cx
  5950.         ret                     ; Not an action char, just return.
  5951. cmgtc4: dec cmdptr
  5952. cmgtc5: or ah,80H               ; Make the char negative to indicate
  5953.         pop cx
  5954.         ret                     ; it is a terminator.
  5955. CMND    ENDP
  5956.  
  5957. ; This routine blanks the screen.
  5958.  
  5959. CMBLNK  PROC    NEAR            ; This is stolen from the IBM example.
  5960. IF msdos
  5961.         mov cx,0
  5962.         mov dx,184FH
  5963.         mov bh,7
  5964.         mov ax,600H
  5965.         int bios
  5966. ENDIF
  5967. IF Z100
  5968.         mov ah,prstr            ; Get the function code
  5969.         mov dx,offset clrscr    ; Want to clear the screen
  5970.         int dos                 ; Do it
  5971. ENDIF
  5972.         ret
  5973. CMBLNK  ENDP
  5974.  
  5975. ; Cursor control.
  5976.  
  5977. LOCATE  PROC    NEAR
  5978. IF msdos
  5979.         mov dx,0                ; Go to top left corner of screen.
  5980.         mov bh,0
  5981.         mov ah,2
  5982.         int bios
  5983. ENDIF
  5984. IF Z100
  5985.         mov ah,prstr            ; Function is print string
  5986.         mov dx,offset homcur    ; Home cursor
  5987.         int dos                 ; do it
  5988. ENDIF
  5989.         ret
  5990. LOCATE  ENDP
  5991.  
  5992.  
  5993. MAIN    ENDS                    ; End of code section.
  5994.         END     START
  5995.