Compucolor.org – Virtual Media

Listing of file='TCP.MAC;01' on disk='vmedia/tiny_c_v3.0-sector.ccvf'

	ASEG

TORG	EQU	8200H	;BEGINNING OF PROGRAM

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

OLDEND	EQU	9A80H	;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

	PUBLIC	BSTACK,ESTACK,BFUN,EFUN,BVAR,EVAR
	PUBLIC	BPR,EPR,MSTACK

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