Initial commit.

atari/eq.src

@@ -0,0 +1,136 @@
+	PAGE
+	SBTTL "--- MEMORY ORGANIZATION ---"
+
+TRUE	EQU	$FF
+FALSE	EQU	0
+LO	EQU	0
+HI	EQU	1
+
+	; SEE "HARDEQ.ASM" FOR ATARI MEMORY MAP
+
+	; ---------------------
+	; Z-CODE HEADER OFFSETS
+	; ---------------------
+
+ZVERS	EQU	0		; VERSION BYTE
+ZMODE	EQU	1		; MODE SELECT BYTE
+ZID	EQU	2		; GAME ID WORD
+ZENDLD	EQU	4		; START OF NON-PRELOADED Z-CODE
+ZGO	EQU	6		; EXECUTION ADDRESS
+ZVOCAB	EQU	8		; START OF VOCABULARY TABLE
+ZOBJEC	EQU	10		; START OF OBJECT TABLE
+ZGLOBA	EQU	12		; START OF GLOBAL VARIABLE TABLE
+ZPURBT	EQU	14		; START OF "PURE" Z-CODE
+ZSCRIP	EQU	16		; FLAG WORD
+ZSERIA	EQU	18		; 3-WORD ASCII SERIAL NUMBER
+ZFWORD	EQU	24		; START OF FWORDS TABLE
+ZLENTH	EQU	26		; LENGTH OF Z-PROGRAM IN WORDS
+ZCHKSM	EQU	28		; Z-CODE CHECKSUM WORD
+
+	PAGE
+	SBTTL "--- ZIP Z-PAGE VARIABLES ---"
+
+OPCODE	EQU	ZEROPG		; (BYTE) CURRENT OPCODE
+NARGS	EQU	OPCODE+1	; (BYTE) # ARGUMENTS
+ARG1	EQU	OPCODE+2	; (WORD) ARGUMENT #1
+ARG2	EQU	OPCODE+4	; (WORD) ARGUMENT #2
+ARG3	EQU	OPCODE+6	; (WORD) ARGUMENT #3
+ARG4	EQU	OPCODE+8	; (WORD) ARGUMENT #4
+ABYTE	EQU	OPCODE+10	; (BYTE) X-OP ARGUMENT BYTE
+ADEX	EQU	OPCODE+11	; (BYTE) X-OP ARGUMENT INDEX
+
+VALUE	EQU	OPCODE+12	; (WORD) VALUE RETURN REGISTER
+I	EQU	VALUE+2		; (WORD) GEN-PURPOSE REGISTER #1
+J	EQU	VALUE+4		; (WORD) GEN-PURPOSE REGISTER #2
+K	EQU	VALUE+6		; (WORD) GEN-PURPOSE REGISTER #3
+
+ZSP	EQU	VALUE+8		; (BYTE) Z-STACK POINTER
+OLDZSP	EQU	ZSP+1		; (BYTE) OLD Z-STACK POINTER
+
+ZPC	EQU	ZSP+2		; (3 BYTES) ZIP PROGRAM COUNTER
+ZPCL	EQU	ZPC		; (BYTE) LOW 8 BITS OF [ZPC]
+ZPCM	EQU	ZPC+1		; (BYTE) MIDDLE 8 BITS OF [ZPC]
+ZPCH	EQU	ZPC+2		; (BYTE) HIGH BIT OF [ZPC]
+ZPCFLG	EQU	ZPC+3		; (BYTE) FLAG: "TRUE" IF [ZPCPNT] VALID
+ZPCPNT	EQU	ZPC+4		; (WORD) ABS POINTER TO CURRENT Z-PAGE
+
+MPC	EQU	ZPC+6		; (3 BYTES) MEMORY PROGRAM COUNTER
+MPCL	EQU	MPC		; (BYTE) LOW 8 BITS OF [MPC]
+MPCM	EQU	MPC+1		; (BYTE) MIDDLE 8 BITS OF [MPC]
+MPCH	EQU	MPC+2		; (BYTE) HIGH BIT OF [MPC]
+MPCFLG	EQU	MPC+3		; (BYTE) FLAG: "TRUE" IF [MPCPNT] VALID
+MPCPNT	EQU	MPC+4		; (WORD) ABS POINTER TO CURRENT M-PAGE
+
+LRU	EQU	MPC+6		; (BYTE) EARLIEST TIMESTAMP
+ZCODE	EQU	LRU+1		; (BYTE) 1ST ABSOLUTE PAGE OF PRELOAD
+ZPURE	EQU	LRU+2		; (BYTE) 1ST VIRTUAL PAGE OF "PURE" Z-CODE
+PAGE0	EQU	LRU+3		; (BYTE) 1ST PAGE OF ACTUAL SWAPPING SPACE
+PMAX	EQU	LRU+4		; (BYTE) MAXIMUM # OF SWAPPING PAGES
+ZPAGE	EQU	LRU+5		; (BYTE) CURRENT SWAPPING PAGE
+TARGET	EQU	LRU+6		; (WORD) TARGET PAGE FOR SWAPPING
+STAMP	EQU	LRU+8		; (BYTE) CURRENT TIMESTAMP
+SWAP	EQU	LRU+9		; (BYTE) EARLIEST BUFFER
+
+GLOBAL	EQU	LRU+10		; (WORD) GLOBAL VARIABLE POINTER
+VOCAB	EQU	GLOBAL+2	; (WORD) VOCAB TABLE POINTER
+FWORDS	EQU	GLOBAL+4	; (WORD) F-WORDS TABLE POINTER
+OBJTAB	EQU	GLOBAL+6	; (WORD) OBJECT TABLE POINTER
+
+	; Z-STRING MANIPULATION VARIABLES
+
+IN	EQU	GLOBAL+8	; (6 BYTES) INPUT BUFFER
+OUT	EQU	IN+6		; (6 BYTES) OUTPUT BUFFER
+
+SOURCE	EQU	OUT+6		; (BYTE) SOURCE BUFFER POINTER
+RESULT	EQU	SOURCE+1	; (BYTE) RESULT TABLE POINTER
+LINLEN	EQU	SOURCE+2	; (BYTE) LENGTH OF CURRENT LINE
+WRDLEN	EQU	SOURCE+3	; (BYTE) LENGTH OF CURRENT WORD
+ENTRY	EQU	SOURCE+4	; (WORD) ADDR OF CURRENT RESULT ENTRY
+NENTS	EQU	SOURCE+6	; (WORD) # ENTRIES IN VOCAB TABLE
+ESIZE	EQU	SOURCE+8	; (BYTE) SIZE OF VOCAB TABLE ENTRIES
+PSET	EQU	SOURCE+9	; (BYTE) PERMANENT CHARSET
+TSET	EQU	SOURCE+10	; (BYTE) TEMPORARY CHARSET
+ZCHAR	EQU	SOURCE+11	; (BYTE) CURRENT Z-CHAR
+OFFSET	EQU	SOURCE+12	; (BYTE) F-WORD TABLE OFFSET
+ZFLAG	EQU	SOURCE+13	; (BYTE) Z-WORD ACCESS FLAG
+ZWORD	EQU	SOURCE+14	; (WORD) CURRENT Z-WORD
+CONCNT	EQU	SOURCE+16	; (BYTE) Z-STRING SOURCE COUNTER
+CONIN	EQU	SOURCE+17	; (BYTE) CONVERSION SOURCE INDEX
+CONOUT	EQU	SOURCE+18	; (BYTE) CONVERSION DEST INDEX
+
+QUOT	EQU	SOURCE+19	; (WORD) QUOTIENT FOR DIVISION
+REMAIN	EQU	QUOT+2		; (WORD) REMAINDER FOR DIVISION
+MTEMP	EQU	QUOT+4		; (WORD) MATH TEMPORARY REGISTER
+QSIGN	EQU	QUOT+6		; (BYTE) SIGN OF QUOTIENT
+RSIGN	EQU	QUOT+7		; (BYTE) SIGN OF REMAINDER
+DIGITS	EQU	QUOT+8		; (BYTE) DIGIT COUNT FOR "PRINTN"
+
+TIMEFL	EQU	QUOT+9		; (BYTE) "TRUE" IF TIME MODE
+LENGTH	EQU	TIMEFL+1	; (BYTE) LENGTH OF LINE IN [LINBUF]
+OLDLEN	EQU	TIMEFL+2	; (BYTE) OLD LINE LENGTH
+SCRIPT	EQU	TIMEFL+3	; (BYTE) SCRIPT ENABLE FLAG
+LINCNT	EQU	TIMEFL+4	; (BYTE) LINE COUNTER
+LMAX	EQU	TIMEFL+5	; (BYTE) MAX # LINES/SCREEN
+
+IOCHAR	EQU	TIMEFL+6	; (BYTE) CHARACTER BUFFER
+SLINE	EQU	IOCHAR+1	; (BYTE) BORDERLINE FOR SPLIT
+SPSTAT	EQU	IOCHAR+2	; (BYTE) SPLIT SCREEN STATUS FLAG
+LFROM	EQU	IOCHAR+3	; (WORD) "FROM" LINE ADDRESS
+LTO	EQU	IOCHAR+5	; (WORD) "TO" LINE ADDRESS
+PSTAT	EQU	IOCHAR+7	; (BYTE) PRINTER STATUS FLAG
+PRLEN	EQU	IOCHAR+8	; (BYTE) SCRIPT LINE LENGTH
+
+DBLOCK	EQU	IOCHAR+9	; (WORD) Z-BLOCK TO READ
+DBUFF	EQU	DBLOCK+2	; (WORD) RAM PAGE TO ACCESS (LSB = 0)
+SECTOR	EQU	DBLOCK+4	; (WORD) TARGET SECTOR
+GPOSIT	EQU	DBLOCK+6	; (BYTE) DEFAULT SAVE POSITION
+GDRIVE	EQU	DBLOCK+7	; (BYTE) DEFAULT SAVE DRIVE
+TPOSIT	EQU	DBLOCK+8	; (BYTE) TEMP SAVE POSITION
+TDRIVE	EQU	DBLOCK+9	; (BYTE) TEMP SAVE DRIVE
+DRIVE	EQU	DBLOCK+10	; (BYTE) CURRENT DRIVE
+
+BLINK	EQU	DBLOCK+11	; (WORD) CURSOR BLINK TIMER
+CSHAPE	EQU	BLINK+2		; (BYTE) CURRENT CURSOR SHAPE
+
+	END
+