Upload

Digital Research

MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE 2/ASM/DDT/as0com.asm

@@ -0,0 +1,52 @@
+	TITLE	'ASM COMMON DATA AREA'
+;
+;	COPYRIGHT (C) 1977, 1978, 1979, 1980, 1981
+;	DIGITAL RESEARCH
+;	BOX 579, PACIFIC GROVE
+;	CALIFORNIA, 93950
+;
+;	Revised:
+;	  14 Sept 81  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) 1981, 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
+