* 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