Bugfix in outmdm (output buffer flush)

[kermit-80.git] / cpxtyp.asm

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