31 lines
690 B
Plaintext
31 lines
690 B
Plaintext
* EQUATES
|
|
|
|
CHKSUM EQU $2E
|
|
A1 EQU $3C
|
|
HIMEM EQU $4C ;BASIC HIMEM POINTER
|
|
PP EQU $CA ;BASIC BEGIN OF PROGRAM
|
|
PRLEN EQU $CE ;BASIC PROGRAM LENGTH
|
|
XSAVE EQU $D8 ;PRESERVE X-REG FOR BASIC
|
|
HDRSET EQU $F11E ;SETS TAPE POINTERS TO $CE.CF
|
|
PRGSET EQU $F12C ;SETS TAPE POINTERS FOR PROGRAM
|
|
NXTA1 EQU $FCBA ;INCREMENTS (A1) AND COMPARES TO (A2)
|
|
HEADR EQU $FCC9
|
|
RDBYTE EQU $FCEC
|
|
RD2BIT EQU $FCFA
|
|
RDBIT EQU $FCFD
|
|
PRA1 EQU $FD92 ;PRINT (A1)-
|
|
PRBYTE EQU $FDDA
|
|
COUT EQU $FDED
|
|
FINISH EQU $FF26 ;CHECK CHECKSUM, RING BELL
|
|
PRERR EQU $FF2D
|
|
|
|
* LABELS
|
|
|
|
VFYBSC = $D535
|
|
GETLEN = $D53A
|
|
TAPEVFY = $D554
|
|
VRFY2 = $D561
|
|
VRFY3 = $D56D
|
|
VFYLOOP = $D572
|
|
EXTDEL = $D580
|