
;
;
; Main CC.ASM Source Driver
; (for use with LASM.COM)
;
	page 76
	title 'cc.asm v1.6  CP/M 3/10/86'

true:	equ 0ffffh
false:	equ not true

slrmac:	equ false
lasm:	equ not slrmac
cpm:	equ true	;if true, for cp/m

zsystem	equ true

	if not zsystem
version: equ '6'	;the 'x' in 'v1.x'
updatn:	equ 0		;the `y' in `v1.xy'	 (number)
updaty:	equ 0		;the `z' in `v1.xyz', or zero if none (character)
	endif

	if zsystem
version: equ '2'	;the 'x' in 'vZx.yz'
updatn:	equ 0		;the `y' in `vZx.yz'	 (number)
updaty:	equ 0		;the `z' in `vZx.yz', or zero if none (character)
	endif


demo:	equ 0		;true for special demo message (must be customized)
impure:	equ 1		;true to generate impure code for parity stripping
			;						option
alpha:	equ 0		;true if "alpha-C" version
motu:	equ 0		;true if for Mark of the Unicorn
trs80:	equ 0		;true if  special TRASH-80 version
prerel:	equ 0		;true if `pre-release' is to be printed on startup
debug:	equ prerel
marc:	equ  false	;true if MARC-resident version

bigstring: equ false	;true to allow LOTS of preprocessor string space

	if bigstring
strsiz:	equ 3500	;3500 for BIG programs
	endif

	if not bigstring
strsiz: equ 2800	;2800 for normal programs
	endif

	IF NOT CPM
;	Assembling NON-CPM  version		!=
	ENDIF

	IF LASM
	sym
	ENDIF

ram:	equ 0000h	;start of ram in system

	  if motu
dfstsz:	equ 11*1024	;default symbol table size
	  endif

	  if not motu
dfstsz:	equ 10*1024
	  endif

tbuff:	equ ram+80h	;used under both CP/M and MARC
tpa:	equ ram+100h	;TPA under both CP/M and MARC

	IF CPM
bdos:	equ ram+5
bdosp:	equ ram+6
fcb:	equ ram+5ch
fcbnr:	equ fcb+32
fcbex:	equ fcb+12
secsiz:	equ 128
	ENDIF


negone	equ 0ffh	;negative one, 8 bit 2's complement

	IF CPM
coninp:		equ 1
conout:		equ 2
readbuf:	equ 10
intcon:		equ 11
select:		equ 14
openfil:	equ 15
closefil:	equ 16
delete:		equ 19
rsequen:	equ 20
wsequen:	equ 21
makfil:		equ 22
gdisk:		equ 25
sdma:		equ 26
sguser:		equ 32
	ENDIF

;
; Include file nesting control:
;

fnlen:	equ 12	;length of filename in fcb format ( filename plus disk)
nestmax: equ 5	;max of 5 levels of include file nesting allowed

;
; Equates:
;

nlcd:	equ 0f7h
concd:	equ 0f8h
varcd:	equ 0f9h
lblcd:	equ 0fah
labrc:	equ 0fch
strcd:	equ 0fdh
sttcd:	equ 8bh
period:	equ 0c5h
arrow:	equ 0b4h
swtbc:	equ 0feh
divcd:	equ 0b7h
mulcd:	equ 0b6h
modcd:	equ 0b8h
plus:	equ 0c4h
ancd:	equ 0bbh
letcd:	equ 0beh
newlin:	equ 10
ht:	equ 9
bs:	equ 8
ff:	equ 0ch
chrcd:	equ 80h
regcd:	equ 9eh
shrtcd:	equ 9fh
gotcd:	equ 8dh
rencd:	equ 8eh
brkcd:	equ 90h
cntcd:	equ 91h
ifcd:	equ 92h
elscd:	equ 93h
forcd:	equ 94h
docd:	equ 95h
whlcd:	equ 96h
swtcd:	equ 97h
cascd:	equ 98h
defcd:	equ 99h
uncd:	equ 8ch
lbrcd:	equ 9bh
rbrcd:	equ 9ch
sizcd:	equ 8fh
mincd:	equ 0b5h
mulcd:	equ 0b6h
dcoln:	equ 0c1h
open:	equ 0c2h
close:	equ 0c3h
semi:	equ 0c6h
comma:	equ 0c7h
openb:	equ 0c8h
closb:	equ 0c9h
colon:	equ 0cah
circum:	equ 0cbh

modbeg:	equ 0f5h
modend:	equ 0f6h


cr:	equ 0dh
lf:	equ 0ah


	IF LASM
	link	CCA
	ENDIF

	IF SLRMAC
	include cca.asm
	include ccb.asm
	include ccc.asm
	include ccd.asm
	ENDIF

	end
