Compucolor.org – Virtual Media

Listing of file='TCP8.SRC;01' on disk='vmedia/chip_10-sector.ccvf'

TORG	EQU	8200H	;BEGINNING OF PROGRAM
PX	EQU	9340H	;PRINT ROUTINE

EFREE	EQU	0A000H	;TOP OF MEMORY (USER MODIFIABLE)

OLDEND	EQU	9959H	;TOP OF TINYC CODE
	ORG	OLDEND
;
; INSERT ANY USER SPECIFIC ROUTINES HERE
; (MORE ON THIS LATER)
;

TCEND	EQU	$
BFREE	EQU	(TCEND+0FFH)/100H*100H
SPACE	EQU	EFREE-BFREE

	ORG	8236H
BSTACK:	DW	BFREE
ESTACK:	DW	-BFREE-80H+5
BFUN:	DW	BFREE+80H
EFUN:	DW	-BFREE-100H+6
BVAR:	DW	BFREE+100H
EVAR:	DW	-BFREE-100H-SPACE/8+8+6
BPR:	DW	BFREE+100H+SPACE/8
EPR:	DW	-EFREE+100H
MSTACK:	DW	EFREE

	END