IF NOT lasm .printx * CPXSWT.ASM * ENDIF ; NOT lasm ; KERMIT - (Celtic for "FREE") ; ; This is the CP/M-80 implementation of the Columbia University ; KERMIT file transfer protocol. ; ; Version 4.0 ; ; Copyright June 1981,1982,1983,1984,1985 ; Columbia University ; ; Originally written by Bill Catchings of the Columbia University Center for ; Computing Activities, 612 W. 115th St., New York, NY 10025. ; ; Contributions by Frank da Cruz, Daphne Tzoar, Bernie Eiben, ; Bruce Tanner, Nick Bush, Greg Small, Kimmo Laaksonen, Jeff Damens, and many ; others. ; ; This file is a simple family or system file switcher, selecting ; one of several family files, or selectin CPXSYS.ASM (now modified) ; if a family file does not exist. ; ; ; revision history: ; ;edit 10, 7-Jan-1991 by MF. Added code by Jay S. Rouman to support the ; Ampro Little Board (see CPXBBI.ASM) and PRINTX for the HP-125. ; edit 9, 1st September 1990 by Russell Lang, rjl@monu1.cc.monash.edu.au. ; Added Microbee support. ; edit 8, 2 December by OBSchou. Added Z80MU "system" to allow kermit-80 ; debugging on a PC! ; ; edit 7, 27 October, 1987 by OBSchou. Added bits for Sanyo, Compupro, ; Genie and TRS-80 M4. ; ; edit 6, 16 July, 1987 for Will Rose, who has submitted code for ; Micromint SB180 (6 and 9 Mhz) and a BT Merlin (alias RAIR) ; ; edit 5, 15 July, 1987 by OBSchou for David Moore, who has submitted ; code for a Teletek SYSTEMASTER and for ADM22 terminals. ; ; edit 4, 14 July 1987 by OBSchou for JA Shearwood of Birmingham University, ; Chris Miles of Manchester University. Added a Cifer family file ; for John, and added a BigBoard-Kaypro-Xerox family file for Chris ; Finally, added in new family file for Heath, telcon, z100 and scntpr ; systems for Martin Carter of Nottingham University. ; ; edit 3, 6 April, 1986 by OBSchou. ; Added in switching for NCR Desision Mate V and Amstrad CPC 664/6128 ; systems. ; ; edit 2, March 16, 1987 by OBSchou. ; added in support for m80 macro assembler. ; ; edit 1 28 January, 1987 by OBSchou. ; Take out the series of printx etx and selection of systems and ; leave this with only the system dep. code for systems without ; a family file. Hopefully, this file will go alltogether in time. ; ; Keep module name, edit number, and last revision date in memory. swtver: db 'CPXSWT.ASM (10) 7-Jan-1991 $' ; ; Assembly time message to let me know I'm building the right version. ; LASM generates an 'S' error along with the message, which is messy, but ; better than trying to put everything inside a IF m80 OR mac80 conditional, ; because LASM doesn't like nested IF's, either. IF (torfam AND lasm) ;Link to the module with the code for Superbrains, Torch, Cifer and pci2651 LINK CPXTOR.ASM ; also NCR DMV systems ENDIF;(torfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (ciffam AND LASM) ; Link to the Cifer family file. (Cifer code previously on CPXTOR.ASM) LINK CPXCIF.ASM ; Cifer family file ENDIF ;(ciffam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (appfam AND lasm) ;[33] apple frogs as a separate family.. ; Link to the APPLE family... LINK CPXAPP.ASM ENDIF ;(appfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (norfam AND lasm); Link to the Northstar family (and Comart) ; Link to the NorthStar family file LINK CPXNOR.ASM ENDIF; (norfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (pcwfam AND lasm) ;[35] Amstrad PCW 8256/8512 or CPC systems ; Link to the Amstrad PCW family LINK CPXPCW.ASM ENDIF ;(cpwfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (bbifam AND lasm) ;Bigboard, Kaypro and Xerox 820 file ; Link to the Bigboard family .printx * Linking to the BigBoard family * LINK CPXBBI.ASM ENDIF ;(bbifam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (heafam AND lasm) ; heath, z100, telcon, and scntpr systems ; Link to the Heath-telcon-screentyper family .printx * Linking to the Heath-telcon-screentyper family * LINK CPXHEA.ASM ENDIF ;(heafam) - m80 use: INCLUDE from CPXTYP.ASM IF (sbfam AND lasm) ; Link to the SB180 Family file ,printx * Linking to the SB180 Family file * LINK CPXSB.ASM ENDIF ; (sbfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (m2215 AND lasm) ; Link to the RAIR/ BT Merlin code .printx * Linking to the Merlin/Rair code * LINK CPXMRL.ASM ENDIF ; (m2215 AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (sanfam AND lasm) ; Link to the Sanyo code .printx * linking to the sanyo code * LINK CPXSYO.ASM ENDIF ; (sanfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (comfam AND lasm) ; Link to the compupro code .printx * linking to the Compupro code * LINK CPXPRO.ASM ENDIF ; (comfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (genfam AND lasm) ; Link to the Genie family code .printx * linking to the Genie code * LINK CPXGNI.ASM ENDIF ; (genfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (trsfam AND lasm) ; Link to the TRS-80 family file .printx * linking to the TRS family file* LINK CPXTM4.ASM ENDIF ; (trsfam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (z80fam AND lasm) ; Link to the Z80MU family file .printx * linking to the Z80MU family file* LINK CPXZ80.ASM ENDIF ; (z80fam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM IF (beefam AND lasm) ; Link to the Microbee family file .printx * linking to the Microbee family file * LINK CPXBEE.ASM ENDIF ; (beefam AND lasm) - m80 use: INCLUDE from CPXTYP.ASM ; If we have come here, we are assembling the CPXSYS.ASM file IF robin .printx * Assembling KERMIT-80 for the DEC VT180 * ENDIF IF vector .printx * Assembling KERMIT-80 for the Vector Graphics * ENDIF IF osi .printx * Assembling KERMIT-80 for the Ohio Scientific * ENDIF IF heath .printx * Assembling KERMIT-80 for the Heath/Zenith 89 * ENDIF IF z100 .printx * Assembling KERMIT-80 for the Heath/Zenith Z100 * ENDIF IF trs80 .printx * Assembling KERMIT-80 for the TRS-80 II * ENDIF IF osbrn1 .printx * Assembling KERMIT-80 for the Osborne 1 * ENDIF IF telcon .printx * Assembling KERMIT-80 for the Telcon Zorba * ENDIF IF dmII .printx * Assembling KERMIT-80 for the DECmate II * ENDIF IF gener .printx * Assembling Generic KERMIT-80 * ENDIF IF cpm3 .printx * Assembling Generic KERMIT-80 for CP/M 3.0 * ENDIF IF hp125 .printx * Assembling Kermit-80 for the HP-125 Series 100 * ENDIF ;hp125 IF kpii .printx * Assembling Kaypro II KERMIT-80 * ENDIF IF xer820 ;[pcc001] .printx * Assembling Xerox 820 KERMIT-80 * ENDIF ;[pcc001] IF bbII .printx * Assembling BigBoard II KERMIT-80 * ENDIF IF ampro .printx * Assembling Ampro Little Board KERMIT-80 * ENDIF IF mdI .printx * Assembling for Morrow Decision I * ENDIF ;mdI [Toad Hall] IF mmdI .printx * Assembling for Morrow Micro Decision I * ENDIF ;mmdI IF mikko .printx * Assembling MikroMikko Kermit-80 * ENDIF IF delphi ;[7] .printx * Assembling Digicomp Delphi 100 Kermit-80 * ENDIF ;[7] IF cpt85xx .printx * Assembling CPT-85xx (under CompuPak CP/M) Kermit-80 * ENDIF IF cmemco ;[25] .printx * Assembling KERMIT-80 for the Cromemco (TU-ART) * ENDIF;cmemco IF bbc ;[22] .printx * Assembling Kermit-80 for BBC with Z80 co-processor * ENDIF ;[22] IF rm380z ;[22] .printx * Assembling Kermit-80 for Research Machines 380Z * ENDIF ;[22] IF px8 ;[29] .printx * Assembling Kermit-80 for Epson PX-8 * ENDIF ;px8 [29] IF mmate ;[29] .printx * Assembling KERMIT-80 for the PMC MicroMate * ENDIF ;mmate [29] IF disc ;[29] .printx * Assembling KERMIT-80 for the A. C. E. Discovery * ENDIF ;disc [29] IF s1008 ;[29] .printx * Assembling KERMIT-80 for the MicroSales s1008 * ENDIF ;s1008 [29] IF access ;[29] .printx * Assembling Kermit-80 for the ACCESS-MATRIX computer * ENDIF ;access [29] IF lobo ;[hh] .printx * Assembling Kermit-80 for the Lobo MAX-80 * ENDIF;lobo [hh] IF teletek .printx * Assembling Kermit-80 for the Teletek * ENDIF ;teletek ; ; ; If here, we have not linked to a family, so link to CPXSYS.ASM IF lasm LINK CPXSYS.ASM ENDIF ;lasm ; ; If we are using m80, then the CPXSYS.ASM file will be INCLUDED from CPXTYP ;