cpxswt.asm

   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 ;\f
  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 (acfam AND lasm)
 158 ; Link to the AVR-CP/M family file
 159 .printx * linking to the AVRCPM family file*
 160 LINK CPXAC.ASM
 161 ENDIF   ; (acfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM
 162
 163 ; If we have come here, we are assembling the CPXSYS.ASM file
 164
 165 IF robin
 166 .printx * Assembling KERMIT-80 for the DEC VT180 *
 167 ENDIF
 168
 169 IF vector
 170 .printx * Assembling KERMIT-80 for the Vector Graphics *
 171 ENDIF
 172
 173 IF osi
 174 .printx * Assembling KERMIT-80 for the Ohio Scientific *
 175 ENDIF
 176
 177 IF heath
 178 .printx * Assembling KERMIT-80 for the Heath/Zenith 89 *
 179 ENDIF
 180
 181 IF z100
 182 .printx * Assembling KERMIT-80 for the Heath/Zenith Z100 *
 183 ENDIF
 184
 185 IF trs80
 186 .printx * Assembling KERMIT-80 for the TRS-80 II *
 187 ENDIF
 188
 189 IF osbrn1
 190 .printx * Assembling KERMIT-80 for the Osborne 1 *
 191 ENDIF
 192
 193 IF telcon
 194 .printx * Assembling KERMIT-80 for the Telcon Zorba *
 195 ENDIF
 196
 197 IF dmII
 198 .printx * Assembling KERMIT-80 for the DECmate II *
 199 ENDIF
 200
 201 IF gener
 202 .printx * Assembling Generic KERMIT-80 *
 203 ENDIF
 204
 205 IF cpm3
 206 .printx * Assembling Generic KERMIT-80 for CP/M 3.0 *
 207 ENDIF
 208
 209 IF hp125
 210 .printx * Assembling Kermit-80 for the HP-125 Series 100 *
 211 ENDIF ;hp125
 212
 213 IF kpii
 214 .printx * Assembling Kaypro II KERMIT-80 *
 215 ENDIF
 216
 217 IF xer820                       ;[pcc001]
 218 .printx * Assembling Xerox 820 KERMIT-80 *
 219 ENDIF                           ;[pcc001]
 220
 221 IF bbII
 222 .printx * Assembling BigBoard II KERMIT-80 *
 223 ENDIF
 224
 225 IF ampro
 226 .printx * Assembling Ampro Little Board KERMIT-80 *
 227 ENDIF
 228
 229 IF mdI
 230 .printx * Assembling for Morrow Decision I *
 231 ENDIF   ;mdI  [Toad Hall]
 232
 233 IF mmdI
 234 .printx * Assembling for Morrow Micro Decision I *
 235 ENDIF   ;mmdI
 236
 237 IF mikko
 238 .printx * Assembling MikroMikko Kermit-80 *
 239 ENDIF
 240
 241 IF delphi       ;[7]
 242 .printx * Assembling Digicomp Delphi 100 Kermit-80 *
 243 ENDIF           ;[7]
 244
 245 IF cpt85xx
 246 .printx * Assembling CPT-85xx (under CompuPak CP/M) Kermit-80 *
 247 ENDIF
 248
 249 IF cmemco       ;[25]
 250 .printx * Assembling KERMIT-80 for the Cromemco (TU-ART) *
 251 ENDIF;cmemco
 252
 253 IF bbc  ;[22]
 254 .printx * Assembling Kermit-80 for BBC with Z80 co-processor *
 255 ENDIF   ;[22]
 256
 257 IF rm380z       ;[22]
 258 .printx * Assembling Kermit-80 for Research Machines 380Z *
 259 ENDIF   ;[22]
 260
 261 IF px8          ;[29]
 262 .printx * Assembling Kermit-80 for Epson PX-8 *
 263 ENDIF   ;px8 [29]
 264
 265 IF mmate        ;[29]
 266 .printx * Assembling KERMIT-80 for the PMC MicroMate *
 267 ENDIF   ;mmate [29]
 268
 269 IF disc ;[29]
 270 .printx * Assembling KERMIT-80 for the A. C. E. Discovery *
 271 ENDIF   ;disc [29]
 272
 273 IF s1008        ;[29]
 274 .printx * Assembling KERMIT-80 for the MicroSales s1008 *
 275 ENDIF   ;s1008 [29]
 276
 277 IF access       ;[29]
 278 .printx * Assembling Kermit-80 for the ACCESS-MATRIX computer *
 279 ENDIF   ;access [29]
 280
 281 IF lobo         ;[hh]
 282 .printx * Assembling Kermit-80 for the Lobo MAX-80 *
 283 ENDIF;lobo [hh]
 284
 285 IF teletek
 286 .printx * Assembling Kermit-80 for the Teletek *
 287 ENDIF   ;teletek
 288
 289 ;
 290 ;
 291 ; If here, we have not linked to a family, so link to CPXSYS.ASM
 292 IF lasm
 293         LINK    CPXSYS.ASM
 294 ENDIF   ;lasm
 295 ;
 296 ; If we are using m80, then the CPXSYS.ASM file will be INCLUDED from CPXTYP
 297 ;
 298
 299
 300