	TITLE	'ASM COMMON DATA AREA'
;
;	COPYRIGHT (C) 1977, 1978, 1979, 1980
;	DIGITAL RESEARCH
;	BOX 579, PACIFIC GROVE
;	CALIFORNIA, 93950
;
;	Revised:
;	  20 Jan 80  by Thomas Rolander
;
;	COMMON DATA FOR MP/M ASSEMBLER MODULE
	org	0
base	equ	$

	ORG	100H
ENDA	EQU	base+20F0H	;END OF ASSEMBLER PROGRAM
BDOS	EQU	base+5H	;ENTRY TO DOS, USED TO COMPUTE END MEMORY
	LXI	SP,ENDMOD
	LHLD	BDOS+1
	SHLD	SYMAX	;COMPUTE END OF MEMORY
	JMP	ENDMOD
COPY:	DB	' COPYRIGHT(C) 1980, DIGITAL RESEARCH '
	org	10ch
;
;	PRINT BUFFER AND PRINT BUFFER POINTER
PBMAX	EQU	90	;MAX PRINT BUFFER
PBUFF:	DS	PBMAX
PBP:	DS	1	;PRINT BUFFER POINTER
;
;	SCANNER PARAMETERS
TOKEN:	DS	1	;CURRENT TOKEN
VALUE:	DS	2	;BINARY VALUE FOR NUMBERS
ACCLEN:	DS	1	;ACCUMULATOR LENGTH
ACMAX	EQU	64	;LENGTH OF ACCUMULATOR
ACCUM:	DS	ACMAX	;ACCUMULATOR (MUST FOLLLOW ACCLEN)
;
;	OPERAND EXPRESSION EVALUATOR PARAMETERS
EVALUE:	DS	2	;VALUE OF EXPRESSION AFTER EVALUATION
;
;	SYMBOL TABLE  MODULE PARAMETERS
SYTOP:	DW	ENDA	;FIRST LOCATION AVAILABLE FOR SYMBOL TABLE
SYMAX:	DS	2	;LAST AVAILABLE LOCATION FOR SYMBOL TABLE
;
;	MISCELLANEOUS DATA AREAS
PASS:	DS	1	;PASS # 0,1
FPC:	DS	2	;FILL ADDRESS FOR NEXT HEX RECORD
ASPC:	DS	2	;ASSEMBLER'S PSEUDO PC
SYBAS:	DW	ENDA	;SYMBOL TABLE BASE
SYADR:	DS	2	;CURRENT SYMBOL BASE
ENDMOD	EQU	($ AND 0FF00H)+100H
	END
