75 lines
1.9 KiB
Plaintext
75 lines
1.9 KiB
Plaintext
* EQUATES
|
|
|
|
ROL EQU $0 LOW-ORDER SW16 R0 BYTE.
|
|
ROH EQU $1 HI-ORDER.
|
|
ONE EQU $01
|
|
R11L EQU $16 LOW-ORDER SW16 R11 BYTE.
|
|
R11H EQU $17 HI-ORDER.
|
|
HIMEM EQU $4C BASIC HIMEM POINTER.
|
|
PPL EQU $CA BASIC PROG POINTER.
|
|
PVL EQU $CC BASIC VAR POINTER.
|
|
MEMFULL EQU $E36B BASIC MEM FULL ERROR.
|
|
PRDEC EQU $E51B BASIC DECIMAL PRINT SUBR.
|
|
RANGERR EQU $EE68 BASIC RANGE ERROR.
|
|
LOAD EQU $F0DF BASIC LOAD SUBR.
|
|
SW16 EQU $F689 SWEET 16 ENTRY.
|
|
CROUT EQU $FD8E CAR RET SUBR.
|
|
COUT EQU $FDED CHAR OUT SUBR.
|
|
|
|
* SWEET 16 EQUATES
|
|
|
|
ACC EQU $0 SWEET 16 ACCUMULATOR.
|
|
NEWLOW EQU $1 NEW INITIAL LNO.
|
|
NEWINCR EQU $2 NEW LNO INCR.
|
|
LNLOW EQU $3 LOW LNO OF RENUM RANGE.
|
|
LNHI EQU $4 HI LNO OF RENUM RANGE.
|
|
TBLSTRT EQU $5 LNO TABLE START.
|
|
TBLNDX1 EQU $6 PASS 1 LNO TBL INDEX.
|
|
TBLIM EQU $7 LNO TABLE LIMIT.
|
|
SCR8 EQU $8 SCRATCH REG.
|
|
HMEM EQU $8 HIMEM (END OF PRGM).
|
|
SCR9 EQU $9 SCRATCH REG.
|
|
PRGNDX EQU $9 PASS 1 PROG INDEX.
|
|
PRGNDX1 EQU $A ALSO PROG INDEX.
|
|
NEWLN EQU $B NEXT "NEW LNO".
|
|
NEWLN1 EQU $C PRIOR "NEW LNO" ASSIGN.
|
|
TBLND EQU $6 PASS 2 LNO TABLE END.
|
|
PRGNDX2 EQU $7 PASS 2 PROG INDEX.
|
|
CHR0 EQU $9 ASCII "0".
|
|
CHRA EQU $A ASCII "A".
|
|
MODE EQU $C CONST/LNO MODE.
|
|
TBLNDX2 EQU $B LNO TBL IDX FOR UPDATE.
|
|
OLDLN EQU $D OLD LNO FOR UPDATE.
|
|
STRCON EQU $B BASIC STR CON TOKEN.
|
|
REM EQU $C BASIC REM TOKEN
|
|
R13 EQU $D SWEET 16 REG 13 (CPR REG).
|
|
THEN EQU $D BASIC THEN TOKEN
|
|
LIST EQU $D BASIC LIST TOKEN
|
|
DEL EQU $D
|
|
SCRC EQU $C SCRATCH REG FOR APPEND.
|
|
|
|
* LABELS
|
|
|
|
RENX = $D400
|
|
RENUM = $D408
|
|
RNUM3 = $D410
|
|
PASS1 = $D41C
|
|
P1A = $D432
|
|
P1B = $D457
|
|
RERR = $D45A
|
|
MERR = $D45E
|
|
P1C = $D462
|
|
PASS2 = $D466
|
|
P2A = $D46C
|
|
UPDATE = $0472
|
|
UD2 = $0477
|
|
UD3 = $D485
|
|
GOTCON = $D489
|
|
ITEM = $D49D
|
|
SKPASC = $D494
|
|
CHKTOK = $D49A
|
|
CONTST = $D4B8
|
|
CONTS2 = $D4B9
|
|
APPEND = $D4BC
|
|
DONE = $D4D3
|