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 / CPM / KERMIT / CP411SRC.ARK / cpxswt.asm < prev    next >
Assembly Source File  |  1991-04-23  |  8KB  |  295 lines
  1. IF NOT lasm
  2. .printx * CPXSWT.ASM *
  3. ENDIF    ; NOT lasm
  4. ;       KERMIT - (Celtic for "FREE")
  5. ;
  6. ;       This is the CP/M-80 implementation of the Columbia University
  7. ;       KERMIT file transfer protocol.
  8. ;
  9. ;       Version 4.0
  10. ;
  11. ;       Copyright June 1981,1982,1983,1984,1985
  12. ;       Columbia University
  13. ;
  14. ; Originally written by Bill Catchings of the Columbia University Center for
  15. ; Computing Activities, 612 W. 115th St., New York, NY 10025.
  16. ;
  17. ; Contributions by Frank da Cruz, Daphne Tzoar, Bernie Eiben,
  18. ; Bruce Tanner, Nick Bush, Greg Small, Kimmo Laaksonen, Jeff Damens, and many
  19. ; others.
  20. ;
  21. ;    This file is a simple family or system file switcher, selecting
  22. ;    one of several family files, or selectin CPXSYS.ASM (now modified)
  23. ;    if a family file does not exist.
  24. ;
  25. ;
  26. ; revision history:
  27. ;
  28. ;edit 10, 7-Jan-1991 by MF. Added code by Jay S. Rouman to support the
  29. ;    Ampro Little Board (see CPXBBI.ASM) and PRINTX for the HP-125.
  30. ; edit 9, 1st September 1990 by Russell Lang, rjl@monu1.cc.monash.edu.au.
  31. ;    Added Microbee support.
  32. ; edit 8, 2 December by OBSchou.  Added Z80MU "system" to allow kermit-80
  33. ;    debugging on a PC!
  34. ;
  35. ; edit 7, 27 October, 1987 by OBSchou.  Added bits for Sanyo, Compupro, 
  36. ;    Genie and TRS-80 M4.
  37. ;
  38. ; edit 6, 16 July, 1987 for Will Rose, who has submitted code for
  39. ;    Micromint SB180 (6 and 9 Mhz) and a BT Merlin (alias RAIR)
  40. ;
  41. ; edit 5, 15 July, 1987 by OBSchou for David Moore, who has submitted
  42. ;    code for a Teletek SYSTEMASTER and for ADM22 terminals.
  43. ;
  44. ; edit 4, 14 July 1987 by OBSchou for JA Shearwood of Birmingham University,
  45. ;    Chris Miles of Manchester University.  Added a Cifer family file
  46. ;    for John, and added a BigBoard-Kaypro-Xerox family file for Chris
  47. ;    Finally, added in new family file for Heath, telcon, z100 and scntpr
  48. ;    systems for Martin Carter of Nottingham University.
  49. ;
  50. ; edit 3, 6 April, 1986 by OBSchou.
  51. ;    Added in switching for NCR Desision Mate V and Amstrad CPC 664/6128
  52. ;    systems.
  53. ;
  54. ; edit 2, March 16, 1987 by OBSchou.
  55. ;       added in support for m80 macro assembler.
  56. ;
  57. ; edit 1 28 January, 1987 by OBSchou.
  58. ;    Take out the series of printx etx and selection of systems and
  59. ;    leave this with only the system dep. code for systems without
  60. ;    a family file.  Hopefully, this file will go alltogether in time.
  61. ;
  62. ; Keep module name, edit number, and last revision date in memory.
  63. swtver:    db    'CPXSWT.ASM (10)  7-Jan-1991 $'
  64. ;
  65. ; Assembly time message to let me know I'm building the right version.
  66. ; LASM generates an 'S' error along with the message, which is messy, but
  67. ; better than trying to put everything inside a IF m80 OR mac80 conditional,
  68. ; because LASM doesn't like nested IF's, either.
  69.  
  70.  
  71. IF (torfam AND lasm)
  72. ;Link to the module with the code for Superbrains, Torch, Cifer and pci2651
  73. LINK CPXTOR.ASM        ; also NCR DMV systems
  74. ENDIF;(torfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  75.  
  76. IF (ciffam AND LASM)
  77. ; Link to the Cifer family file.  (Cifer code previously on CPXTOR.ASM)
  78. LINK CPXCIF.ASM        ; Cifer family file
  79. ENDIF    ;(ciffam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  80.  
  81. IF (appfam AND lasm) ;[33] apple frogs as a separate family..
  82. ; Link to the APPLE family...
  83. LINK CPXAPP.ASM
  84. ENDIF ;(appfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  85.  
  86. IF (norfam AND lasm); Link to the Northstar family (and Comart)
  87. ; Link to the NorthStar family file
  88. LINK CPXNOR.ASM
  89. ENDIF; (norfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  90.  
  91. IF (pcwfam AND lasm) ;[35] Amstrad PCW 8256/8512  or CPC systems
  92. ; Link to the Amstrad PCW family
  93. LINK CPXPCW.ASM
  94. ENDIF ;(cpwfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  95.  
  96. IF (bbifam AND lasm) ;Bigboard, Kaypro and Xerox 820 file
  97. ; Link to the Bigboard family
  98. .printx * Linking to the BigBoard family *
  99. LINK CPXBBI.ASM
  100. ENDIF ;(bbifam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  101.  
  102. IF (heafam AND lasm)    ; heath, z100, telcon, and scntpr systems
  103. ; Link to the Heath-telcon-screentyper family
  104. .printx * Linking to the Heath-telcon-screentyper family *
  105. LINK CPXHEA.ASM
  106. ENDIF    ;(heafam) - m80 use: INCLUDE from CPXTYP.ASM
  107.  
  108. IF (sbfam AND lasm)
  109. ; Link to the SB180 Family file
  110. ,printx * Linking to the SB180 Family file *
  111. LINK CPXSB.ASM
  112. ENDIF    ; (sbfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  113.  
  114. IF (m2215 AND lasm)
  115. ; Link to the RAIR/ BT Merlin code
  116. .printx * Linking to the Merlin/Rair code *
  117. LINK CPXMRL.ASM
  118. ENDIF    ; (m2215 AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  119.  
  120. IF (sanfam AND lasm)
  121. ; Link to the Sanyo code
  122. .printx * linking to the sanyo code *
  123. LINK CPXSYO.ASM
  124. ENDIF    ; (sanfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  125.  
  126. IF (comfam AND lasm)
  127. ; Link to the compupro code
  128. .printx * linking to the Compupro code *
  129. LINK CPXPRO.ASM
  130. ENDIF    ; (comfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  131.  
  132. IF (genfam AND lasm)
  133. ; Link to the Genie family code
  134. .printx * linking to the Genie code *
  135. LINK CPXGNI.ASM
  136. ENDIF    ; (genfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  137.  
  138. IF (trsfam AND lasm)
  139. ; Link to the TRS-80 family file
  140. .printx * linking to the TRS family file*
  141. LINK CPXTM4.ASM
  142. ENDIF    ; (trsfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  143.  
  144. IF (z80fam AND lasm)
  145. ; Link to the Z80MU family file
  146. .printx * linking to the Z80MU family file*
  147. LINK CPXZ80.ASM
  148. ENDIF    ; (z80fam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  149.  
  150. IF (beefam AND lasm)
  151. ; Link to the Microbee family file
  152. .printx * linking to the Microbee family file *
  153. LINK CPXBEE.ASM
  154. ENDIF    ; (beefam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
  155.  
  156.  
  157. ; If we have come here, we are assembling the CPXSYS.ASM file
  158.  
  159. IF robin
  160. .printx    * Assembling KERMIT-80 for the DEC VT180 *
  161. ENDIF
  162.  
  163. IF vector
  164. .printx    * Assembling KERMIT-80 for the Vector Graphics *
  165. ENDIF
  166.  
  167. IF osi
  168. .printx    * Assembling KERMIT-80 for the Ohio Scientific *
  169. ENDIF
  170.  
  171. IF heath
  172. .printx    * Assembling KERMIT-80 for the Heath/Zenith 89 *
  173. ENDIF
  174.  
  175. IF z100
  176. .printx    * Assembling KERMIT-80 for the Heath/Zenith Z100 *
  177. ENDIF
  178.  
  179. IF trs80
  180. .printx    * Assembling KERMIT-80 for the TRS-80 II *
  181. ENDIF
  182.  
  183. IF osbrn1
  184. .printx    * Assembling KERMIT-80 for the Osborne 1 *
  185. ENDIF
  186.  
  187. IF telcon
  188. .printx    * Assembling KERMIT-80 for the Telcon Zorba *
  189. ENDIF
  190.  
  191. IF dmII
  192. .printx    * Assembling KERMIT-80 for the DECmate II *
  193. ENDIF
  194.  
  195. IF gener
  196. .printx    * Assembling Generic KERMIT-80 *
  197. ENDIF
  198.  
  199. IF cpm3
  200. .printx    * Assembling Generic KERMIT-80 for CP/M    3.0 *
  201. ENDIF
  202.  
  203. IF hp125
  204. .printx * Assembling Kermit-80 for the HP-125 Series 100 *
  205. ENDIF ;hp125
  206.  
  207. IF kpii
  208. .printx    * Assembling Kaypro II KERMIT-80 *
  209. ENDIF
  210.  
  211. IF xer820            ;[pcc001]
  212. .printx    * Assembling Xerox 820 KERMIT-80 *
  213. ENDIF                ;[pcc001]
  214.  
  215. IF bbII
  216. .printx    * Assembling BigBoard II KERMIT-80 *
  217. ENDIF
  218.  
  219. IF ampro
  220. .printx    * Assembling Ampro Little Board KERMIT-80 *
  221. ENDIF
  222.  
  223. IF mdI
  224. .printx    * Assembling for Morrow    Decision I *
  225. ENDIF    ;mdI  [Toad Hall]
  226.  
  227. IF mmdI
  228. .printx    * Assembling for Morrow    Micro Decision I *
  229. ENDIF    ;mmdI
  230.  
  231. IF mikko
  232. .printx    * Assembling MikroMikko    Kermit-80 *
  233. ENDIF
  234.  
  235. IF delphi    ;[7]
  236. .printx    * Assembling Digicomp Delphi 100 Kermit-80 *
  237. ENDIF        ;[7]
  238.  
  239. IF cpt85xx
  240. .printx    * Assembling CPT-85xx (under CompuPak CP/M) Kermit-80 *
  241. ENDIF
  242.  
  243. IF cmemco    ;[25]
  244. .printx    * Assembling KERMIT-80 for the Cromemco    (TU-ART) *
  245. ENDIF;cmemco
  246.  
  247. IF bbc    ;[22]
  248. .printx    * Assembling Kermit-80 for BBC with Z80    co-processor *
  249. ENDIF    ;[22]
  250.  
  251. IF rm380z    ;[22]
  252. .printx    * Assembling Kermit-80 for Research Machines 380Z *
  253. ENDIF    ;[22]
  254.  
  255. IF px8        ;[29]
  256. .printx    * Assembling Kermit-80 for Epson PX-8 *
  257. ENDIF    ;px8 [29]
  258.  
  259. IF mmate    ;[29]
  260. .printx    * Assembling KERMIT-80 for the PMC MicroMate *
  261. ENDIF    ;mmate [29]
  262.  
  263. IF disc    ;[29]
  264. .printx    * Assembling KERMIT-80 for the A. C. E.    Discovery *
  265. ENDIF    ;disc [29]
  266.  
  267. IF s1008    ;[29]
  268. .printx    * Assembling KERMIT-80 for the MicroSales s1008    *
  269. ENDIF    ;s1008 [29]
  270.  
  271. IF access    ;[29]
  272. .printx    * Assembling Kermit-80 for the ACCESS-MATRIX computer *
  273. ENDIF    ;access [29]
  274.  
  275. IF lobo        ;[hh]
  276. .printx    * Assembling Kermit-80 for the Lobo MAX-80 *
  277. ENDIF;lobo [hh]
  278.  
  279. IF teletek
  280. .printx * Assembling Kermit-80 for the Teletek *
  281. ENDIF    ;teletek
  282.  
  283. ;
  284. ;
  285. ; If here, we have not linked to a family, so link to CPXSYS.ASM
  286. IF lasm
  287.     LINK    CPXSYS.ASM
  288. ENDIF    ;lasm
  289. ;
  290. ; If we are using m80, then the CPXSYS.ASM file will be INCLUDED from CPXTYP
  291. ;
  292.  
  293.  
  294.  
  295.