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