mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-27 10:24:19 +00:00
52 lines
1.4 KiB
NASM
52 lines
1.4 KiB
NASM
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
|
||
|