Initial import of 4.11HEADmain

1 files changed, 722 insertions, 0 deletions

diff --git a/src/cpxtyp.asm b/src/cpxtyp.asm
new file mode 100644
index 0000000..28b65b3
--- /dev/null
+++ b/src/cpxtyp.asm
@@ -0,0 +1,722 @@
+; CPXTYP.ASM
+;       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 is the header file for building the system-dependent overlay
+;       for KERMIT.  It contains the definitions used to select the target
+;       system, and collects (via INCLUDE or LINK directives) the remaining
+;       code.  If the target system is one of the supported systems
+;       described below, then this is the only file that needs to be
+;       edited.
+;
+; revision history:
+;
+;edit 34, 10-Jan-1991 by MF. Put in "terminal required" notation for
+;	more machines that need terminals.
+;edit 33, 9-Jan-1991 by MF. Put in "terminal required" notation for Access
+;	Matrix and eliminated an extra "sysfam set FALSE" when torfam set TRUE
+;edit 32, 7-Jan-1991 by MF. Added code by Jay. S. Rouman to support the
+;	Ampro Little Board (see CPXBBI.ASM).
+;	Also put in a couple of missing .printx's
+;edit 31, 2-Nov-1990 by MF.  Moved overlay address to 7000H.
+;edit 30, 14-Sep-1990 by MF. Added INCOMPLETE-FILE flag for SET
+;	INCOMPLETE-FILE
+;edit 29, 11-Sep-1990 by MF.  Moved overlay address for version 4.10.
+;	to 6C00H.
+; edit 28, 1st September 1990 by Russell Lang, rjl@monu1.cc.monash.edu.au
+;	Added support for MicroBee (CPXBEE.ASM).
+;
+; edit 27, 28-Aug-89 by Mike Freeman, Bonneville Power Administration,
+;	P.O. Box 491, Vancouver WA 98666 USA:  add support for Hewlett-
+;	Packard HP-125 "Business Assistant" computer using a HP-modified
+	;CP/M Version 2.2.
+;
+; edit 26, 2 December, by OBSchou.  Added code for CP/M-80 Kermit to
+;	run on an IBM-PC under Z80MU.  Perverse??  No, its to allow testing
+;	of independent code on a PC running CP/M kermit.
+;
+; edit 25, 27 October, 1987 by OBSchou.  Merged in Sanyo, CompuPro, Genie
+;	and TRS Model 4 code, and added four new families.
+;	CPXSYO.ASM for the Sanyo, CPXPRO.ASM for the Compupro,
+;	CPXTRS.ASM for the TRS-80 Model 4, CPXGNI.ASM for the Genie.
+;	Many thanks to G. Smith for these latter two systems.   Also
+;	added the WYSE 100 Terminal type to the VDU table.
+;
+; edit 24, 17 July, 1987 by OBSchou.  Added (hopefully) code from
+;	CP/M Kermit 3.5 (WOW) for the Heath 8. (h8quad)  The actual code
+;	has been put into the CPXHEA.ASM family file, but I do not actually
+;	*KNOW* if this new version works.  Anyone willing to test it out??
+;
+; edit 23 16 July, 1987 for for Will Rose:
+;	edit of 15 Jan 1987 by C W Rose
+;	Added code for Micromint SB180 and Ampro 230 terminal.
+;
+; 	edit of 10 Apr 87 by C W Rose
+;	Amended code for pci2651 to handle Telecom Merlin M2215.
+;	(8085 at 5 MHz, 2651 USART, port TTY1:, Ampro 230 terminal equivalent).
+;	
+;	edit of 13 Jul 1987 by C W Rose
+;       Added Micromint SB180 with 6/9 MHz. option.
+;
+; edit 22, 15th July, 1987 by OBSchou for David Moore.  
+;	David submitted a paper copy of Kermit 4.05 overlay for a Teletek
+;	system:  I have (hopefully) correctly appended his code.  He also
+;	send in the code for ADM 22 terminals.
+;
+; edit 21, 14 July, 1986 by OBSchou for John Shearwood of Birmingham 
+;	University.  His edits:
+;	edit of Apr 7th, 1987 by JA Shearwood.  Added entry for Cifer Aux port
+;	edit of Mar 24 1987 by JA Shearwood, Birmingham.  Added code for Cifer
+;	1886 with CP/M Plus
+;
+;	Also added in code from Chris Miles:
+;	edit of 19 May 26, 1987 by C.J.MILES@UMRCC.
+;	Kaypro II, Xerox 820 and Big Board II code seperated
+;	from CPXSYS.ASM and put in a new family file called
+;	CPXBBI.ASM.
+;
+;	Finally added code from MJ Carter of Nottingham University:
+;	edit 16a of 5th Mar 1987 by M J Carter, Nottingham Uni [majoc], to add
+;       entry for OEM ScreenTyper (scntpr).  See also CPXFRK.ASM ("fork"),
+;       the tail end of CPXLNK.ASM, and the Heath-Zenith family file
+;       CPXHEA.ASM (heath, z100, telcon, and scntpr).
+;
+;	[Note: Martins CPXFRK is another version of CPXSWT.ASM]
+;
+;
+; edit 20, 21 May 1987 by OBSchou for Colin Burns of the Institute 
+;	of Neurological Sciences, Glasgow.  Added flag for Hazeltine 1500
+;	VDU (h1500)
+;
+; edit 19, 6th April, 1987 by OBSchou.
+;	Added in EQUs for Amstrad 664 and 6128 machines (CPC) and NCR
+;	Decsision mate V, bot sets of code submitted by Chris Miles of
+;	Manchester University.  NCR code is similar to the PCI2651 code, so
+;	NCRDMV chains to CPXTOR.ASM.  CPC cahins to the modified CPXPCW file
+;	as submitted by Chris.  *** NOTE *** All Amstrad versions require
+;	CP/M 3, so the 664 version must both have the system upgraded to 
+;	CP/M 3 and have an aditional RAM pack.  All Amstrad systems require
+;	a serial interface.
+;
+; edit 18, 30 March, 1986. OBSchou.
+;	* * * Here Begineth kermit-80 Version 4.09 * * *
+;
+;	Biggest change is the overlay address has been moved (again) to 6000h
+;	and the files have all been diced into families.  M80 (almost) back 
+;	in, though I have found some bugs.  Will worry about those later.
+;	CPXSYS.ASM (CP4SYS.ASM in V4.05) now is a family file as well.  
+;
+;	Comments and all that would be much appreciated.
+;
+;	Bertil Schou,
+;	The Computer Centre,
+;	Loughborough University of Technology, 
+;	Loughborough
+;	Leicestershire,  LE11 3TU
+;	Great Britain
+;
+;	tel (0509) 222313
+;	E-Mail (Janet) OBSchou at LOUGHBOROUGH.MULTICS
+;
+;
+; edit 17, March 15, by OBSchou to add in support for M80 Macro Assembler.
+;       Now its a little messy using the M80 Assembler,asn we have family files
+;       and how are we gonna tell M80 what files to use?
+;       Sort of Simple: we generate a set of EQUs that only INCLUDE the family
+;       file being assembled.  I hope.
+;
+; edit 16 Dec 1st, 1986 by OBSchou.  Added entry for Amstrad PCW range (PCW)
+;	Code in Family file CPXPCW.ASM, submitted by Ian Young of Lattice 
+;	Logic Systems.
+;
+; Edit 15 June 20 1986.  Had to chand org address to 5000h to give room for
+;       multi-fcb space for DIR command and other additions in the system
+;       indepentent part.  This starts Kermit-80 version 4.08...
+;
+; Edit 14: March 20, 1986 by OBSchou Loughborough University for 
+;       B Robertson, Aberdeen Univ. Computing Centre.
+;       Add support for APPLE II with serial cards based on the 6850 ACIA.
+;       Mod 380Z support to allow both MDS (5 1/4" discs) and FDS (8" discs)
+;       configurations.  Any mistakes on this merge all my fault (OBSchou)
+;
+; edit 13 22 April, 1986 by OBSchou Loughborough University
+;       Changed org address to 4000h to allow for mods to the system
+;       independent part for kermit version 4.06
+;
+; edit 12 5 Febuary, 1986 by OBSchou
+;       merged in conditionals for Epson PX8 (px8). Code from Tony Addyman
+;       Salford University, England.
+;       Added code from other contibutors for Basic Northstar (basicns), 
+;       Access-Matrix (access), US Micro Sales s1008 (s1008),
+;       Micro Mate (mmate), A.C.E. Discovery (disc).  
+;       These I cannot test: please send comments back if these are buggy.
+;
+; edit 11 29 January 1985 by OBSchou @ multics.lut.ac.uk
+;       added in code for 2651 USART for use with CP/M and a VDU
+;
+; edit 10: 21 November, 1985 by ajcole @ leeds.ai
+;       Merged in support for the following:
+;       North Star Horizon without SIO-4 (horizon)
+;       Comart Communicator (comart)
+;       Cromemco TU-ART interface (cmemco)
+;       TVI912/920 VDUs (tvi912)
+;
+; edit 9 24 October by OBSchou.  Merged code from B Robertson from
+;       Aberdeen University.  He writes:
+;       September 20, 1985 by B Robertson, Aberdeen Univ. Computing Centre.
+;       Add support for Research Machines 380Z, North Star Advantage, Acorn
+;       BBC with Z80 co-processor and APPLE II with Mountain Computers CPS
+;       Multifunction card.
+;
+; edit 8: 11 October, 1985 by OBSchou
+;       tidied up code around Superbrain main/aux port business
+;
+; edit 7: 11 June, 1985 by O B Schou, Loughborough University of Tech.
+;       Loughborough, Leics, England.
+;       Added code for Torch (Second processor to BBC-B) and Cifer 1886
+;       Hopefully this code will work with Torchpacks, and Cifer 26xx
+;       and 28xx series computers.  Edits marked by OBS
+;
+; edit 6: 9-Feb-85 by CJC
+;       Merge Northstar Horizon, Lobo MAX, and Xerox 820 changes:
+;       13-Dec-84 Add Northstar Horizon with SIO-4 board, port 5 at 1200 [CSM]
+;       13-Jan-85 by Vanya J.Cooper Pima Commun. College Tel: 602-884-6809
+;
+;pcc001 27-Dec-84       vjc     modules: cp4sys,cp4typ
+;       Add conditional for Xerox 820.  I thought at first I could
+;       live with the kaypro conditional, but it's enough of a pain
+;       that I added it back in.  The clear-to-end-of-screen char
+;       is different,  breaking many programs in VT52 mode, and the
+;       default escape char control-\, is not at all obvious how
+;       to type on the 820 keyboard.  If you muddle through the
+;       key translation table, it turns out to be control-comma.
+;       Rather than OR xer820 all the occurances of kpII conditionals
+;       I added a bbI conditional for all common code for the big
+;       board I based machines that is automatically turned on by
+;       either kpII or xer820.  This will also make it easier in
+;       the future if another flavor of bigboard is added.
+;
+;pcc010 2-Jan-85        vjc     modules:cp4pkt,cp4typ
+;       Control-C during send or recieve clobbers some of the screen
+;       and doesn't look nice.  Position the cursor to end of screen
+;       before returning to main loop.
+;
+;pcc013 8-Jan-85        vjc     modules:cp4mit,cp4utl,cp4typ
+;       Replace CLOSE command to cancel session logging to SET
+;       LOGGING ON/OFF.  This seems to fit in with the command
+;       structure better.  Default the log file to KERMIT.LOG
+;       incase no previous LOG command.  Logging is also enabled
+;       by LOG command, as before.
+;
+; edit 5: October 13, 1984 by L M Jones, JCC, for New York Botanical Garden
+;       Add support for CPT-85xx series of word processors when running CP/M.
+;
+; edit 4: August 29, 1984 by Bdale Garbee @ CMU
+;       Add support for Digicomp Delphi 100 and Netronics Smartvid terminal.
+;
+; edit 3: July 27, 1984 (CJC)
+;       Shuffle files around for easier assembly by both M80 and LASM.
+;
+; edit 2: June 4, 1984 [Toad Hall]
+;       Added Morrow Decision I (the big S100 bus sucker, not the
+;       little single motherboard one); added Toad Hall TACTrap to deal
+;       with those working through a TAC and its intercept character.
+;
+; edit 1: May, 1984 (CJC)
+;       extracted from CPMBASE.M80 version 3.9; modifications are described
+;       in the accompanying .UPD file.
+;
+
+FALSE	EQU	0
+TRUE	EQU	NOT FALSE
+
+;
+; Assembler type.  Define the appropriate one TRUE, the rest FALSE.  (We can't
+; use ASM, because it cannot handle multiple input files)
+mac80	EQU	FALSE		; For assembly via MAC80 cross-assembler.
+m80	EQU	FALSE		; For assembly via Microsoft's M80.
+lasm	EQU	TRUE		; For assembly via LASM, a public-domain
+				; assembler.
+;
+;       Address at which the overlay should be loaded.  This will not
+;       change often (no more than once per version of KERMIT); it should
+;       be updated when a new version of KERMIT is released.
+;
+
+ovladr	EQU	7000H		; [18] address = 6c00h for Kermit v4.10
+				;[MF]...
+
+cpsker	EQU	FALSE		; building the system-dependent part...
+
+; SET some options to FALSE, then SET  them TRUE if needed
+iobyt	SET	FALSE		;assume we dont want IOBYTE..
+inout	SET	FALSE		;... or IN/OUT code
+termin	SET	FALSE		; we are not using a terminal
+; Also set the CPU speed to a default 2.0 Mhz
+cpuspd	SET	20		; default to 2 Mhz, in case we dont know
+; Assume kit is Z80 based, and set z80 false for non z80 systems.
+;z80	SET	TRUE
+
+;Which CP/M system hardware are we building KERMIT-80 for?
+;One of the following should be TRUE, the rest FALSE:
+;
+;We have basically three "classes" of systems:
+
+;Systems supporting the IO-redirection via I/O-Byte
+
+bbc	EQU	FALSE		;[9] Acorn BBC model B
+;added code by JAS
+cifer2  EQU     FALSE		; Cifer 1886 using io byte flipping [OBS]
+cifer3  EQU	FALSE		; Cifer 1886 with CP/M Plus [JAS]
+				;  (Not IOBYTE but easier to keep together)
+cifaux  EQU     FALSE		; One of above Cifers using AUX port else VL port
+dmII	EQU	FALSE		;"Generic" KERMIT-80 for DECMATE II.
+gener	EQU	FALSE 		;"Generic" Kermit-80, CP/M calls only.
+				; (terminal required)
+mikko	EQU	FALSE		;"Generic" KERMIT-80 for MikroMikko
+robin	EQU	FALSE		;DEC VT180 = Generic + VT100 screen control
+
+;.. \and Systems supporting direct IN / OUT handling of ports
+advant	EQU	FALSE		;[10] North Star Advantage
+access	EQU	FALSE		; Access Matrix .. uses port J5 [12]
+				; (terminal required) [MF]
+ampro	EQU	FALSE		; Ampro Little Board (terminal required)
+basicns	EQU	FALSE		; Basic Northstar using printer port (CRT req.)
+bbII	EQU	FALSE		;BigBoard II (terminal required)
+brainm	EQU	FALSE		;Select Superbrain Main port  **[obs]
+braina	EQU	FALSE		;Select Superbrain AUX port  **[obs]
+comart	EQU	FALSE		;[10] Comart Communicator
+				; (terminal required)
+compro	EQU	FALSE		;Compupro Interfacer 4 (or 3) [gv]
+				; (terminal required) [MF]
+cpt85xx	EQU	FALSE		;CPT-85xx word processor w/CPM (set ADM3A TRUE)
+cmemco	EQU	FALSE		;[10] Cromemco (TU-ART) (terminal required)
+delphi	EQU	FALSE		;Digicomp Delphi 100 (terminal required)
+disc	EQU	FALSE		; Action Computer Enterprises "Discovery"
+				; Port B on an 83U user board (CRT required)
+genie	EQU	FALSE		;Eaca Genie III
+h8quad	EQU	FALSE		;[24] Entry for heath-8.  NOT same as H-89
+heath   EQU     FALSE		;For Heath/Zenith H89.
+kpII	EQU	FALSE		;Kaypro-II
+horizon	EQU	FALSE		;[10] North Star Horizon (mother-board)
+				; (terminal required)
+m2215	EQU	FALSE		; BT Merlin [23] - uses 2651, Terminal rqd
+mmate	EQU	FALSE		; PMC - 101 MicroMate (Crt required)
+mmdI	EQU	FALSE		;Morrow Micro Decision I (terminal required)
+mdI	EQU	FALSE		;Morrow Decision I (the big sucker)
+				; (terminal required) [Toad Hall]
+ncrdmv	EQU	FALSE		; NCR Desision Mate V. (2651 USART) (Term rqd.)
+norths	EQU	FALSE		;[CSM] NorthStar Horizon with HSIO-4 board
+				; (terminal required)
+pci2651	EQU	FALSE		; CP/M with 2651 USART.  Needs VDU. [11]
+rm380zm	EQU	FALSE		;[14] Research Machines 380Z MDS (5.25" discs)
+rm380zf	EQU	FALSE		;[14] Research Machines 380Z FDS (8" discs)
+s1008	EQU	FALSE		; US Micro Sales s1008 (Terminal required)
+sb6	EQU	FALSE		; SB180 6/9 MHz cpu speed conditionals -
+sb9	EQU	FALSE		;   set one of these to TRUE, - it will
+				;   automatically set sb180 TRUE
+				; (terminal reqd for Sb-180 systems)
+scntpr  EQU     FALSE		; [majoc 870305] For OEM ScreenTyper
+sanyo	EQU	FALSE 		;For sanyo mbc-1100 series
+telcon	EQU	FALSE		;For TELCON Zorba portable
+teletek	EQU	FALSE		; Teletek SYSTEMASTER (terminal rqd)
+trs80lb	EQU	FALSE		;For Lifeboat 2.25C CP/M Display
+trs80pt	EQU	FALSE		;For Pickles + Trout CP/M Display
+trsm4	EQU	FALSE		;TRS80 Model 4 under Montezuma Micro CPM 2.2
+vector	EQU	FALSE		;For Vector Graphics.
+xer820	EQU	FALSE		;[pcc001] Xerox 820
+z100    EQU     FALSE		;For Z-100 under CP/M-85.
+
+;.. and Systems doing neither...
+apmmdm	EQU	FALSE		;jb Micromodem II in slot 2
+ap6551	EQU	FALSE		;jb apple with 6551 ACIA in serial interface
+ap6850	EQU	FALSE		;[14] Apple with 6850 ACIA in serial interface
+				;[14] e.g PACT, SSM AIO, Aristocard
+apcps	EQU	FALSE		;[9] Apple with CP multifunction card
+cpc	EQU	FALSE		; Amstrad CPC CP/M Plus computers
+cpm3	EQU	FALSE		;"Generic" Kermit-80 for CP/M 3.0 (CP/M Plus)
+				; (terminal required)
+lobo	EQU	FALSE		;Lobo Max-80
+osi	EQU	FALSE		;For Ohio Scientific.
+osbrn1	EQU	FALSE		;For Osborne 1
+pcw	EQU	FALSE		; Amstrad PCW 8256/8512 computers
+px8	EQU	FALSE		;[12] For Epson PX-8
+torch	EQU	FALSE		;[obs] Torch does comms via Beeb as IO processor
+z80mu	EQU	FALSE		; CP/M-80 Kermit under z80mu emulator on PC
+hp125	EQU	FALSE		;[MF]HP-125 Business Assistant, 8-bit data
+				; path thru Data Comm 1, 7-bit data path
+				; thru Data Comm 2 (requires 8th-bit quoting
+				; for binary transfers on Data Comm 2)
+				; set VT52 TRUE
+mbee	EQU	FALSE		; Microbee Systems - Microbee 
+
+;.. and for Micros, like the MDI, which have "terminals of choice", you must
+;select one of these in addition to selecting the micro itself.
+;Also select a terminal for "gener" and "cpm3": use "crt" for the TRUE generic.
+crt	EQU	FALSE		;Basic CRT, no cursor positioning
+adm3a	EQU	FALSE		;Adm3a Display (or CPT built-in display)
+adm22	EQU	FALSE		;ADM 22 terminal
+h1500	EQU	FALSE		;Hazeltine 1500
+smrtvd	EQU	FALSE		;Netronics Smartvid terminal.
+soroq	EQU	FALSE		;Soroq IQ-120.. this a guess [OBS]
+am230	EQU	FALSE		;Ampro 230 [13]
+tvi912	EQU	FALSE		;[10] TVI912/920
+tvi925	EQU	FALSE		;TVI925 Display
+				; (works for Freedom 100 also)  [Toad Hall]
+vt52	EQU	FALSE		;VT52 or equivalent (or H19)
+vt100	EQU	FALSE		;VT100 or equivalent
+wyse	EQU	FALSE		;Wyse 100 terminal
+;
+; Several systems are basically the same, with very slight variations,
+;	so use common code.  List these sysems below
+;
+cifer	EQU	cifer2 OR cifer3	; DO NOT TOUCH THIS LINE
+brain	EQU	brainm OR braina	;For Intertec SuperBrain. **[obs]
+;
+; flag 380Z system if either selected
+;
+rm380z	EQU rm380zm OR rm380zf ;[14]
+;
+trs80	EQU	trs80lb	OR trs80pt ; if either, flag TRS-80 system.
+bbI	EQU	kpII OR	xer820	;[pcc001] flag for bigboard I
+sb180	EQU	sb6 OR sb9	; Micromint SB180 (BYTE Oct 85)
+;
+; flag apple system if either selected
+;
+apple	EQU	apmmdm OR ap6551 OR ap6850 OR apcps
+;
+; also set termin(al) TRUE if any terminal selected (crt included)
+termin	SET	crt OR adm3a OR adm22 OR h1500 OR smrtvd OR am230
+termin	SET	termin OR tvi912 OR tvi925 OR vt52 OR vt100
+termin	SET	termin OR wyse OR soroq
+
+; Now set iobyt or inout TRUE for those systems doing so
+; IOBYTE systems...
+IF robin OR dmII OR gener OR mikko OR cifer2 OR bbc;[**obs]
+iobyt	SET	TRUE		;Short conditional for above
+ENDIF;robin OR dmII OR gener OR cifer2 OR bbc
+
+; INOUT systems...
+IF brain OR vector OR sanyo or compro
+inout	SET	TRUE		;Short conditional for above
+ENDIF;brain OR vector OR sanyo OR compro
+
+IF heath OR h8quad OR z100 OR trs80 OR telcon OR bbI
+inout	SET	TRUE		;Short conditional for above
+ENDIF;heath OR h8quad OR z100 OR trs80 OR telcon OR bbI
+
+IF bbII	OR mmdI	OR mdI OR delphi OR cpt85xx OR norths	;running out of room
+inout	SET	TRUE		;Short conditional for above
+ENDIF;bbII OR mmdI OR mdI OR delphi OR cpt85xx OR norths
+
+IF advant OR rm380z OR comart OR horizon OR cmemco	;[9] [10] more room here
+inout	SET	TRUE		;Short conditional for above
+ENDIF;advant OR rm380z OR comart OR horizon OR cmemco
+
+IF pci2651 OR m2215 OR sb180 OR ncrdmv OR teletek;[11] and even more room
+inout	SET	TRUE		;Short conditional for above
+ENDIF	;pci2651 OR m2215 OR sb180 OR ncrdmv OR teletek [11]
+
+IF access OR basicns OR	s1008 OR mmate OR disc ; [12]
+inout	SET	TRUE		;Short conditional for above
+ENDIF ; access OR basicns OR s1008 OR mmate OR disc [12]
+
+IF genie OR trsm4 OR ampro
+inout	SET	TRUE		;Short conditional for above
+ENDIF ; genie OR trsm4 OR ampro
+
+
+; Toad Hall TAC Trap:  If you're going through a TAC, it will
+; cough on its Intercept Character (usually a @ (* - 40H)).  Sending it
+; twice forces the TAC to recognize it as a valid ASCII character,
+; and it'll send only one on to the host.  If you've SET the TACTrap
+; to OFF, it will be a null character, and nothing will happen.  If you
+; set it on, it will be your selected TAC intercept character (or will
+; default to the common intercept char, '@'.
+; If you never expect to have to work through such a beastie, just set
+; TAC to false and forget all this mess.  [Toad Hall]
+
+tac	EQU	FALSE		; gonna work through a TAC?
+tacval	EQU	'@'             ;Typical TAC intercept character
+
+; Processor speed in units of 100KHz
+; for bbII, kpII, cpt85xx, advance, apple,bbc,px8 & rm380z timing loop [12]
+; We have to set these before CPXCOM to make sure we update the CPU speed.
+
+; The following systems I have no idea of cpu speed. Can anyone oblige??
+;	robin, dmII, mikko, vector, heath, h8quad, z100, scntpr
+;	trs80 (both), telcon, mmdI, mdI, delphi, ncrdmv,
+;	cromemco, teletek, osi, lobo
+
+IF z80mu
+cpuspd	SET	2		; a PC is about 200khz Z80 equivalent
+ENDIF; z80mu
+
+IF apple OR cpt85xx OR px8 OR heath OR h8quad ;[9] [12] What rate is heath?
+cpuspd	SET	20		; Apple Softcard, CPT-85xx: 2.0 MHz
+				; ('cause of integral video?)
+ENDIF; apple OR cpt85xx OR px8 OR heath OR h8quad [12]
+
+IF kpII	OR xer820 OR scntpr OR osbrn1 ;[9] What speed is scntpr??
+cpuspd	SET	25		; original Kaypro II,Xerox 820: 2.5 MHz
+ENDIF;kpII OR xer820 OR scntpr OR osbrn1
+
+IF PCW or CPC
+cpuspd	SET	33 		; all 4MHz but insterted wait states
+				; reduce to an effective 3.3 MHz.
+ENDIF	;pcw OR cpc
+
+IF brain OR advant OR bbII OR torch OR z100 OR genie OR trsm4
+cpuspd	SET	40		; 4.0 MHz CPU
+ENDIF; brain OR advant OR bbII OR torch OR z100 OR genie OR trsm4
+
+IF cifer OR rm380z OR comart OR horizon OR norths
+cpuspd	SET	40		; 4.0 MHz CPU
+ENDIF; cifer OR rm380z OR comart OR horizon OR norths
+
+IF disc	OR mmate OR s1008 OR access OR basicns ;[29] This is a guess.. Most are 4Mhz
+cpuspd	SET	40		; 4.0 MHz CPU
+ENDIF	;disc OR mmate OR s1008 OR access OR basicns [29]
+
+IF m2215
+cpuspd	SET	50		; BT Merlin Rair Black Box is 8085 at 5 Mhz
+ENDIF	;m2215
+
+IF bbc or sb6
+cpuspd	SET	60		; BBC or SB-180 with 6Mhz Z80/61480
+ENDIF;bbc OR sb6
+
+IF sb9
+cpuspd	SET	90		; SB-180 with 9 Mhz clock
+ENDIF;sb9
+
+IF hp125 OR telcon
+cpuspd	SET	40		;[MF]HP125 or TELCON
+ENDIF;hp125 OR telcon 
+
+IF mbee
+cpuspd	SET	33		; Microbee has 3.375MHz Z80
+ENDIF; mbee
+
+; Set Z80 flag FALSE for non Z80 or unknown CPU systems
+IF	FALSE			; assume all systems are not z80 based
+;z80	SET	FALSE
+ENDIF	;FALSE
+
+; Now, lets see what family we are assembling for.  Reset all 
+;	family file to FALSE
+
+torfam  SET     FALSE		; not Torch family file
+ciffam	SET	FALSE		; not Cifer kit
+appfam	SET 	FALSE		; not Apples
+norfam	SET	FALSE		; not North Star kit
+pcwfam	SET	FALSE		; not Amstrad PCW kit
+bbifam	SET	FALSE		; not the BBI family
+heafam	SET	FALSE		; not Heath, Z100, telcon,or screentyper
+sbfam	SET	FALSE		; not an SB180 system
+merfam	SET 	FALSE		; not a BT Merlin system
+sanfam	SET	FALSE		; not a Sanyo
+comfam	SET	FALSE		; not a compupro
+genfam	SET	FALSE		; not a genie
+trsfam	SET	FALSE		; not a trs-80 Model 4
+z80fam	SET	FALSE		; not z80mu system
+beefam	SET	FALSE		; not a Microbee system
+sysfam	SET	TRUE		; ... but assume the worst, and its in
+				; the CPXSYS.ASM file
+
+
+IF      (torch OR pci2651 OR ncrdmv OR brain)   ;[15]
+torfam  SET     TRUE            ; we are to use the Torch family file
+.printx * torfam set TRUE *
+;(Yeah, I know, there are more than Torch systems in it)
+ENDIF	;(torch OR pci2651 OR ncrdmv OR brain) [15]
+
+IF      (cifer)
+ciffam	SET	TRUE		; we are to use the cifer family file
+.printx * ciffam set TRUE *
+ENDIF	;cifer
+
+IF      apple   ;[15]
+appfam	SET 	TRUE		; apples
+.printx * appfam set TRUE *
+ENDIF   ;apple [15]
+
+IF      (horizon OR basicns OR norths OR advant OR comart) ;[15]
+norfam	SET	TRUE		; north star kit
+.printx * norfam set TRUE *
+ENDIF   ;(horizon OR basicns OR norths OR advant OR comart) [15]
+
+IF      (pcw OR cpc)	;[15]
+pcwfam	SET	TRUE		; Amstrad PCW kit
+.printx * pcwfam set TRUE *
+ENDIF   ;pcw OR cpc [15]
+
+IF      (kpII OR xer820 OR bbII OR ampro)
+bbifam	SET	TRUE		; The Bigboard, Kaypro, Xerox and Ampro family
+.printx * bbifam set TRUE *
+ENDIF	;(kpII or xer820 OR bbII OR ampro)
+
+IF (heath OR h8quad OR telcon OR z100 OR scntpr)
+heafam	SET	TRUE		; Doing Heath, z100, telcon, or screentyper
+.printx * heafam set TRUE *
+ENDIF   ;(heath OR h8quad OR telcon OR z100 OR scntpr)
+
+IF sb180
+sbfam	SET	TRUE		; doing an SB180 system
+.printx * sbfam set TRUE *
+ENDIF	; sb180
+
+IF m2215
+merfam	SET 	TRUE		; doing a BT Merlin system
+.printx * merfam set TRUE *
+ENDIF	; m2215
+
+IF sanyo
+sanfam	SET 	TRUE		; doing a Sanyo MBC-1100 system
+.printx * sanfam set TRUE *
+ENDIF	; sanyo
+
+IF compro
+comfam	SET 	TRUE		; doing a Compupro system
+.printx * comfam set TRUE *
+ENDIF	; compro
+
+IF genie
+genfam	SET 	TRUE		; doing a Genie system
+.printx * genfam set TRUE *
+ENDIF	; genie
+
+IF trsm4
+trsfam	SET 	TRUE		; doing a TRS-80 M4 system
+.printx * trsfam set TRUE *
+ENDIF	; trs4m
+
+IF z80mu
+z80fam	SET 	TRUE		; doing a z80mu emulation
+.printx * z80fam set TRUE *
+ENDIF	; z80mu
+
+IF mbee
+beefam	SET	TRUE		; doing a Microbee system
+.printx * beefam set TRUE *
+ENDIF	; mbee
+
+; Now, if none of the above, then its the older CPXSYS.ASM file we want
+
+IF (torfam OR ciffam OR appfam OR norfam OR sanfam OR comfam) AND sysfam
+sysfam	SET	FALSE		; Were not doing the CPXSYS.ASM file
+.printx * sysfam set FALSE *
+ENDIF	; (torfam OR ciffam OR appfam OR norfam OR sanfam OR comfam) AND sysfam
+
+IF (pcwfam OR bbifam OR heafam OR sbfam OR merfam) AND sysfam
+sysfam	SET	FALSE		; Were not doing the CPXSYS.ASM file
+.printx * sysfam set FALSE *
+ENDIF	; (pcwfam OR bbifam OR heafam OR sbfam OR merfam) AND sysfam
+
+IF (genfam OR trsfam OR z80fam OR beefam) AND sysfam
+sysfam	SET	FALSE		; Were not doing the CPXSYS.ASM file
+.printx * sysfam set FALSE *
+ENDIF	; (genfam OR trsfam OR z80fam OR mbeefam) AND sysfam
+
+IF sysfam
+.printx * sysfam set TRUE *
+ENDIF
+
+IF lasm
+	LINK	CPSDEF		; Use the system independent declares
+ENDIF;lasm  [Toad Hall]
+
+; If we're still here, must be M80 or MAC80.  Collect the rest of
+; the sources.
+.sfcond
+
+
+        INCLUDE CPSDEF.ASM      ; common definitions
+        INCLUDE CPXLNK.ASM      ; linkage area description
+	INCLUDE	CPXCOM.ASM	; include common code
+        INCLUDE CPXSWT.ASM      ; this wont do much, but will announce machine
+
+IF      torfam                  ;[15]
+        INCLUDE CPXTOR.ASM      ; we are assembling for Torch, Cifer etc
+ENDIF   ;torfam                 [15]
+
+IF	ciffam
+	INCLUDE	CPXCIF.ASM	; we are assembling for a Cifer
+ENDIF	;ciffam
+
+IF      appfam                  ;[15]
+        INCLUDE CPXAPP.ASM      ; we are assembling for an apple
+ENDIF   ;appfam                 [15]
+
+IF      norfam                  ;[15]
+        INCLUDE CPXNOR.ASM      ; we are assembling a NortStar machine
+ENDIF   ;norfam                 [15]
+
+IF      pcwfam                  ;[15]
+        INCLUDE CPXPCW.ASM      ; we are assembling for the Amstrad PCW machine
+ENDIF   ;pcwfam                 [15]
+
+IF      bbifam
+        INCLUDE CPXBBI.ASM	; assembling for BigBoard, Kaypro, Xerox
+				; & Ampro Little Board
+ENDIF   ;bbifam
+
+IF      sysfam                  ;[15]
+        INCLUDE CPXSYS.ASM      ; system-dependent code and tables (Part 1)
+        INCLUDE CPXSY2.ASM      ; system-dependent code and tables (Part 2)
+ENDIF   ;sysfam                 [15]
+
+IF	heafam
+	INCLUDE CPXHEA.ASM
+ENDIF	;heafam
+
+IF	m2215
+	INCLUDE	CPXMRL.ASM
+ENDIF	;m2215
+
+IF	sbfam
+	INCLUDE	CPXSB.ASM
+ENDIF	;sbfam
+
+IF	sanfam
+	INCLUDE	CPXSYO.ASM
+ENDIF	;sanfam
+
+IF	comfam
+	INCLUDE	CPXPRO.ASM
+ENDIF	;comfam
+
+IF	genfam
+	INCLUDE	CPXGNI.ASM
+ENDIF	;genfam
+
+IF	trsfam
+	INCLUDE	CPXTM4.ASM
+ENDIF	;trsfam
+
+IF	z80fam
+	INCLUDE	CPXZ80.ASM
+ENDIF	;z80fam
+
+IF	beefam
+	INCLUDE CPXBEE.ASM
+ENDIF	;beefam
+
+IF termin			; any terminal selected?
+        INCLUDE CPXVDU.ASM      ;[15] Just in case we need a VDU...
+ENDIF	;termin
+        END