home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / COMMS / CP411SRC.ARK / cpsker.asm < prev    next >
Assembly Source File  |  1991-04-23  |  15KB  |  316 lines
  1. ; CPSKER.ASM
  2. ;       KERMIT - (Celtic for "FREE")
  3. ;
  4. ;       This is the CP/M-80 implementation of the Columbia University
  5. ;       KERMIT file transfer protocol.
  6. ;
  7. ;       Version 4.0
  8. ;
  9. ;       Copyright June 1981,1982,1983,1984
  10. ;       Columbia University
  11. ;
  12. ; Originally written by Bill Catchings of the Columbia University Center for
  13. ; Computing Activities, 612 W. 115th St., New York, NY 10025.
  14. ;
  15. ; Contributions by Frank da Cruz, Daphne Tzoar, Bernie Eiben,
  16. ; Bruce Tanner, Nick Bush, Greg Small, Kimmo Laaksonen, Jeff Damens, and many
  17. ; others. 
  18. ;
  19. ;
  20. ; This is the header for the system-independent portion of KERMIT, which
  21. ; consists of the following files (in this order):
  22. ;
  23. ;       CPSKER.ASM - this file
  24. ;       CPSDEF.ASM - definitions for both KERMIT and KERSYS
  25. ;       CPSMIT.ASM - \initialization, main loop, miscellaneous commands 
  26. ;    CPSCOM.ASM - /(BYE, EXIT, LOG, SET, SHOW, and STATUS) (Part1 of 2)
  27. ;       CPSPK1.ASM - \the KERMIT protocol handler (SEND, RECEIVE, LOGOUT,
  28. ;       CPSPK2.ASM - / and FINISH commands) (In two parts)
  29. ;    CPSREM.ASM - REMOTE commands etc
  30. ;    CPSSER.ASM - SERVER commands etc (Empty as yet)
  31. ;       CPSTT.ASM  - the transparent commands (TRANSMIT, CONNECT)
  32. ;       CPSCPM.ASM - CP/M commands (DIR, ERA)
  33. ;       CPSWLD.ASM - the wildcard handler
  34. ;       CPSCMD.ASM - the command parser
  35. ;       CPSUTL.ASM - utility routines
  36. ;       CPSDAT.ASM - Data space and the overlay link space
  37. ;
  38. ; When building the system-independent part with M80 or MAC80, CPSKER
  39. ; INCLUDEs the other files; when building with LASM, each file LINKs to
  40. ; the next file.
  41. ;
  42. ; For now, the system-dependent routines are all in CPSSYS.ASM, with
  43. ; the actual configuration defined in CPSTYP.ASM.
  44. ;
  45. ; revision history (latest first):
  46. ;
  47. ;    Begin CP/M Kermit-80 version 4.11.
  48. ;edit 32, 1-Apr-1991 by MF. Official release of work to date as CP/M Kermit
  49. ;    (Kermit-80) Version 4.11.
  50. ;    Modified edit level of cpscpm.asm to reflect a bug fix for the TYPE
  51. ;    command introduced with edit 13.
  52. ;edit 31, 29-Mar-1991 by MF. Modified edit levels of cpsker.asm,
  53. ;    cpscom.asm and cpsdat.asm to reflect rename of parameter vermin to
  54. ;    revno (revision level) and change of SET COLLISION REPLACE to
  55. ;    SET COLLISION OVERWRITE to conform with C-Kermit. Modified
  56. ;    edit level of cpsrem.asm to reflect change from REMOTE SET FILE
  57. ;    COLLISION REPLACE to REMOTE SET FILE COLLISION OVERWRITE.
  58. ;    Modified edit level of cpsutl.asm to reflect code tightening and
  59. ;    edit levels of cpsmit.asm and cpspk2.asm to close any open TAKE-file
  60. ;    and abort take-file processing if ^C is typed from the console
  61. ;    Also corrected ^Z test in cpsmit.asm in INPUT command ("inp2b")
  62. ;    Implement "file not found" complaint if a TAKE command can't find
  63. ;    the TAKE-file and it's not the initial TAKE (KERMIT.INI)
  64. ;    Modified edit level of cpscpm.asm to reflect modification of the
  65. ;    TYPE and PRINT commands to cancel file typeout/printout completely
  66. ;    if ^C is entered on the console (either immediately or after a key
  67. ;    has been pressed to induce a pause) and to immediately begin
  68. ;    typeout/printout of the next file (if the filespec was wild-carded)
  69. ;    if ^X is entered (either immediately or after a key has been pressed
  70. ;    to induce a pause).
  71. ;    Modified edit levels of cpsmit.asm and cpscom.asm to reflect addition
  72. ;    of the STAY command as a synonym for SET NO-EXIT.
  73. ;edit 30, 27-Feb-1991 by MF. Modified edit levels of cpscom.asm,
  74. ;    cpsmit.asm, cpsutl.asm and cpsdat.asm to reflect provision for
  75. ;    a "revision level" field (1-26=A-Z), addition of QUIT as a synonym
  76. ;    for the EXIT command, recognition of C, R and S as abbreviations
  77. ;    for the CONNECT, RECEIVE and SEND commands, respectively, display
  78. ;    of Kermit version in the VERSION command and a fix to the TAKE-file
  79. ;    input routine "r1tchr" to prevent semicolons from being interpreted
  80. ;    as command separators during TAKE-file execution. This last fix
  81. ;    allows such commands as REMOTE DELETE *.*;* to Kermit-32 to
  82. ;    operate as expected.
  83. ;edit 29, 14-Feb-1991 by MF. Updated edit levels of cpscom.asm,
  84. ;    cpscpm.asm, cpsdat.asm and cpsrem.asm to reflect bug fixes,
  85. ;    code tightening and simplified routine "remcli" (in cpsrem.asm)
  86. ;    which gets text to be passed on to a remote Kermit in REMOTE
  87. ;    Kermit commands.
  88. ;edit 28, 8-Feb-1991 by MF. Changed edit level of cpscpm.asm to reflect
  89. ;    a bug fix to make TAKE-files work properly with commands such as
  90. ;    INPUT which check the keyboard for input.
  91. ;edit 27, 30-Jan-1991 by MF. Changed edit levels of cpscpm.asm, cpsrem.asm,
  92. ;    cpstt.asm and cpsutl.asm to reflect bug fixes and enhancements
  93. ;edit 26, 17-Jan-1991 by MF. Changed edit level of cpscmd.asm to
  94. ;    reflect fixes to allow leading spaces/tabs to be ignored when
  95. ;    parsing keywords (this was the intent but the code never worked
  96. ;    correctly) and to blank the entire fcb in "cmifil" to allow successive
  97. ;    COPY commands to function properly. Also changed edit level of
  98. ;    cpspk1.asm to reflect further work on "disk full" error reporting.
  99. ;edit 25, 14-Jan-1991 by MF. Incremented edit level of cpspk1.asm to
  100. ;    reflect bug fix to "disk full" error reporting code so <cr><lf>
  101. ;    is not sent directly to the Remote Kermit. This per a report from
  102. ;    Russell Lang of Australia's Monash University.
  103. ;edit 24, 10-Jan-1991 by MF. Modified edit level of cpxtyp.asm to
  104. ;    reflect addition of "terminal required" message for some.
  105. ;    machines.
  106. ;edit 23, 7-Jan-1991 by MF. Modified edit levels of cpxtyp.asm, cpxswt.asm,
  107. ;    cpxbbi.asm to reflect addition of Ampro Little Board support.
  108. ;edit 22, 3-Jan-1991 by MF. Incremented edit levels of cpspk1.asm/cpspk2.asm
  109. ;    to reflect further mods to "sdata" and "inchr" routines.
  110. ;edit 21, 2-Jan-1991 by MF. Incremented edit level of cpspk1.asm to reflect
  111. ;    code cleanup in "sdata" routine.
  112. ;edit 20, 26-Dec-1990 by MF. Modified edit level of CPSCMD.ASM to reflect
  113. ;    fix to allow leading white space to be skipped in lines from
  114. ;    TAKE-files as well as from the CP/M command-line tail; this per a
  115. ;    phoned-in bug-report to Dr. Martin J. Carter of Nottingham
  116. ;    University in the U.K. (PPZMAJOC@vax.ccc.nottingham.ac.uk)
  117. ;edit 19, 14-Dec-1990 by MF.  Modified edit level of cpspk2.asm to reflect
  118. ;    modification to "gofil" to allow drive specifications in 2nd
  119. ;    filename of GET and RECEIVE commands; also modified edit levels of
  120. ;    cpspk1.asm and cpsrem.asm to reflect addition of "<<>>" around
  121. ;    "X" or "F" packets coming as a reply to a REMOTE command and
  122. ;    deletion of an unnecessary instruction before label remc2d
  123. ;    in cpsrem.asm.
  124. ;edit 18, 9-Dec-1990 by MF. Modified edit levels for Version 4.10
  125. ;    yet another time to reflect changes in CPSDAT.ASM to clarify
  126. ;    "File size on DIR" status message.
  127. ;edit 17, 4-Dec-1990 by MF. Adjusted edit levels of cpscom.asm/cpsdat.asm
  128. ;    to reflect addition of Autoreceive status to SHOW/STATUS display.
  129. ;edit 16, 30-Nov-1990 by MF. Adjusted edit levels of cpscom.asm/cpsdat.asm
  130. ;    to reflect fix to SHOW/STATUS routines to show terminal display
  131. ;    mode (quiet/regular). Also adjusted edit level of cpsutl.asm to reflect
  132. ;    change to routine "p20ln" to use "pausit" to save code space.
  133. ;    Adjusted edit level of cpsdef.asm to reflect change in "fairness"
  134. ;    counter prfair from 100 to 50 to make terminal a bit more responsive
  135. ;    during CONNECTs.
  136. ;edit 15, 27-Nov-1990 by MF. Adjusted edit level of cpspk1.asm to reflect
  137. ;    a bug fix.
  138. ;edit 14, 27-Nov-1990 by MF. Again adjusted edit level of cpspk1.asm to
  139. ;    reflect modifications of "disk-full"and SET INCOMPLETE-FILES behavior.
  140. ;edit 13, 23 Nov-1990 by MF.  Adjusted edit level of cpspk1.asm to reflect
  141. ;    code changes for "disk full" processing.
  142. ;edit 12, 8-Nov-1990 by MF.
  143. ;    Adjusted edit levels shown for cpscom.asm/cpspk1.asm/cpsdat.asm to
  144. ;    reflect bug fixes and code revisions.
  145. ;edit 11, 5-Nov-1990 by MF.
  146. ;    Cosmetic changes for main help text for COPY and RENAME commands.
  147. ;    Begin CP/M Kermit-80 version 4.10.
  148. ;edit 10, 2-Nov-1990 by MF.  Moved Overlay address to 7000H (cpsdat.asm).
  149. ;edit 9, 1-Nov-1990 by Mike Freeman (BPA).  Cosmetic changes (command-name
  150. ;    changes:  SET BAUD-RATE==>SET SPEED, FCOPY==>COPY, FRENAME==>RENAME,
  151. ;    STRING==>OUTPUT, REMOTE CWD==>REMOTE CD per suggestions of FDC
  152. ;    to aid in uniformity of nomenclature for various Kermits.
  153. ;edit 8, 30-Oct-1990 by Michael Freeman; 301 N.E. 107th Street;
  154. ;    Vancouver, WA 98685 USA; Telephone (206)574-8221.
  155. ;    Work:  Bonneville Power Administration
  156. ;    P.O. Box 491 M/S MORF
  157. ;    Vancouver, WA USA 98666
  158. ;    Telephone (206)690-2307
  159. ;    Implemented FRENAME command to rename a CP/M file.
  160. ;    Implemented many Remote commands, variable-length packets up thru
  161. ;    94 characters in length.  Fixed a bug in CPSCOM.ASM in the
  162. ;    routine "getnp" and a bug in CPSCOM.ASM which caused garbage to appear
  163. ;    on the screen when PRTSTR was called with QUIETD flag set.
  164. ;    Modified code in module CPSCMD.ASM to skip leading spaces and tabs
  165. ;    when getting Kermit commands from the CP/M command line.  This also
  166. ;    obviates the necessity to type a leading semicolon to separate the
  167. ;    Kermit command from the Kermit commands on the CP/M command line.
  168. ;    Fixed code in CPSPK2.ASM which handles file collision detection
  169. ;    and resulting file rename per my entries in CPKERM.BWR.
  170. ;    and included fix by Russell Lang of Dept. of Electrical and Computer
  171. ;    Engineering, Monash University, Australia, to prevent renamed
  172. ;    files with SET WARNING ON from having the attributes (e.g., R/O)
  173. ;    copied from original file.  Mr. Lang's E-mail address is:
  174. ;    Russell Lang    Email: rjl@monu1.cc.monash.edu.au  Phone: (03) 565 3460
  175. ;    Department of Electrical and Computer Systems Engineering
  176. ;    Monash University, Australia
  177. ;    Also fixed a bug in CPSPK2.ASM which prevented completion messages
  178. ;    from being displayed if terminal was set to QUIET.
  179. ;    Implemented most proposed SET FILE-COLLISION (COLLISION) commands.
  180. ;    Implemented SET INCOMPLETE file disposition command.
  181. ;    Implemented a few of the proposed REMOTE SET commands.
  182. ;    Implemented other fixes suggested in CPKERM.BWR.
  183. ;    Moved overlay address to 6C00H.
  184. ;    Changed location of .printx in this file so LASM doesn't complain.
  185. ;    In system-dependent modules, included HP-125 support.
  186. ;    Also modified Telcon Zorba code in CPXHEA.ASM to enable setting
  187. ;    of baud-rates and sending of a break.
  188. ;    Included Russell Lang of Monash Univ. Australia's implementation
  189. ;    for the Microbee series of computers (CPXBEE.ASM).
  190. ;    Fixed COMPUPRO version of Kermit to compile correctly and to
  191. ;    conform to current syntax for setting baud-rate.
  192. ; edit 7, September, 1987.  Added files for SERVER and REMOTE 
  193. ;    modules (CPSSER/CPSREM).  SERVER is still empty, and may be 
  194. ;    only wishfull thinking.  I have ideas, but I dont think I 
  195. ;    will have the time to implement it.
  196. ;
  197. ; edit 6: 30 March, 1987 by OBSchou.  Start Kermit-80 V4.09 with the 
  198. ;    overlay address at 6000h.  Also adjusted the INCLUDEs to allow
  199. ;    M80 to assmeble these files.
  200. ;
  201. ; edit 5: 20 June, 1986.  Have added so much code etc that the overlay had to 
  202. ;       be moved again.. give it to 5000h.  This starts off Kermit-80 V4.08
  203. ;
  204. ; edit 4 22 April 1986
  205. ;       Start work on 4.06.  This should clear up a couple of bugs, add in
  206. ;       a few features, and split the system dependent stuff into 
  207. ;       smaller units.
  208. ;
  209. ; edit 3a 7 March 86 OBSchou Loughborough england.  Minor additions
  210. ;       to cpsker.asm, cpscmd.asm and cpspkt.asm.
  211. ;
  212. ; edit 3: February 10, 1985 (CJC)
  213. ;       Update for v4.05; add "verno" so CPSUTL doesn't have to change
  214. ;       just because some other module did.
  215. ;
  216. ; edit 2: September 10, 1984 (CJC)
  217. ;       Update for v4.03.
  218. ;
  219. ; edit 1: July 27, 1984 (CJC)
  220. ;       Created to allow assembly of Kermit by LASM as well as MAC80 and M80.
  221.  
  222. verno    EQU    11        ; minor version number
  223. revno    EQU    0        ;[MF]Revision level
  224.                 ;[MF]0-26 yields A-Z
  225.     
  226. ; Version 4.10 of Kermit consists of the following edit levels:
  227. ;       cpsker.asm edit 32
  228. ;       cpsdef.asm edit 9
  229. ;       cpsmit.asm edit 30
  230. ;       cpscom.asm edit 13
  231. ;       cpspk1.asm edit 23
  232. ;       cpspk2.asm edit 11
  233. ;       cpsrem.asm edit 13
  234. ;       cpsser.asm edit 1
  235. ;       cpstt.asm  edit 12
  236. ;       cpscpm.asm edit 14
  237. ;       cpswld.asm edit 4
  238. ;       cpscmd.asm edit 13
  239. ;       cpsutl.asm edit 30
  240. ;    cpsdat.asm edit 19
  241. ;       cpxlnk.asm edit 8 (cpslnk.asm is not assembled with cpsker, but it
  242. ;               defines the linkage area expected by cpsker, and so must
  243. ;               match the description in cpsutl.asm)
  244. ;    cpxswt.asm edit 10
  245. ;
  246. ; Version 4.10 of Kermit has been tested with the following edit levels of
  247. ; the system-dependent files:
  248. ;       cpxtyp.asm edit 34
  249. ;       cpxsys.asm edit 40
  250. ;    cpxhea.asm edit 4
  251. ;    cpxtor.asm edit 4
  252. ;    cpxbbi.asm edit 4 (Ampro Little Board)
  253. ;
  254. ; Version 4.10 of Kermit is still to be tested fully against all known systems
  255. ; so far included in the system dependent overlays.
  256. ;
  257.  
  258.  
  259. FALSE    equ    0
  260. TRUE    equ    NOT FALSE
  261.  
  262. cpsker    equ    TRUE    ; building system-independent part
  263. debug    equ    FALSE    ; set false for running system.  True => does some
  264.             ; unusual or unexpected things.
  265. ;
  266. ; Assembler type.  Define the appropriate one TRUE, the rest FALSE.  (We can't
  267. ; use ASM, because it cannot handle multiple input files)
  268. mac80    EQU    FALSE        ; For assembly via MAC80 cross-assembler.
  269. m80    EQU    false        ; For assembly via Microsoft's M80.
  270. lasm    EQU    true        ; For assembly via LASM, a public-domain
  271.                 ; assembler.
  272. ;
  273. ;       Get the other modules...
  274.  
  275. IF lasm                ; If we're linking, go on to the next file.
  276.     LINK    CPSDEF
  277. ENDIF;lasm
  278.  
  279. ; If we're still here, we must be using M80 or MAC80.  M80 doesn't
  280. ; like ENDs inside conditionals, but the END statement has to be
  281. ; in CPSUTL for LASM (otherwise, we'd need a file containing just an
  282. ; END statement).  So, we leave off the IF m80 OR mac80 conditional
  283. ; that ought to be around these INCLUDEs.  No problem until the next
  284. ; incompatible assembler comes along...
  285. ; Let's first say where we are:
  286. ;
  287. .printx    * CPSKER.ASM (or nearest offer)    *
  288. ;
  289. .printx    * CPSDEF.ASM *
  290.     INCLUDE    CPSDEF.ASM    ; definitions
  291. .printx    * CPSMIT.ASM *
  292.     INCLUDE    CPSMIT.ASM    ; initialization, main loop, some commands
  293. .printx * CPSCOM.ASM *
  294.     INCLUDE CPSCOM.ASM    ; part of command/status/set etc
  295. .printx    * CPSPK1.ASM *
  296.     INCLUDE    CPSPK1.ASM    ; KERMIT protocol handler (Part 1)
  297. .printx    * CPSPK2.ASM *
  298.     INCLUDE    CPSPK2.ASM    ; KERMIT protocol handler (Part 2)
  299. .printx * CPSREM.ASM *
  300.     INCLUDE CPSREM.ASM    ; Kermit REMOTE code (little in it, as yet)
  301. .printx * CPSSER.ASM *
  302.     INCLUDE CPSSER.ASM    ; Kermit SERVER code (As yet, empty)
  303. .printx    * CPSTT.ASM *
  304.     INCLUDE    CPSTT.ASM    ; transparent communication handler
  305. .printx    * CPSCPM.ASM *
  306.     INCLUDE    CPSCPM.ASM    ; CP/M command support (DIR, ERA)
  307. .printx    * CPSWLD.ASM *
  308.     INCLUDE    CPSWLD.ASM    ; wildcard handler
  309. .printx    * CPSCMD.ASM *
  310.     INCLUDE    CPSCMD.ASM    ; command parser
  311. .printx    * CPSUTL.ASM *
  312.     INCLUDE    CPSUTL.ASM    ; Various utilities and data, and END [ToadHall]
  313. .printx * CPSDAT.ASM *
  314.     INCLUDE CPSDAT.ASM
  315.     END            ; MAC80 ignores END's in included files...
  316.