28 lines
623 B
Plaintext
28 lines
623 B
Plaintext
* EQUATES
|
|
|
|
R1L EQU $02 SWEET 16 REG 1.
|
|
INST EQU $0B 3-BYTE INST FIELD.
|
|
LENGTH EQU $2F LENGTH CODE
|
|
YSAV EQU $34 CMND BUF POINTER
|
|
A1L EQU $3C APPLE-II MON PARAM AREA.
|
|
A4L EQU $42 APPLE-II MON PARAM REG 4
|
|
IN EQU $0200
|
|
SW16 EQU $F689 ;SWEET 16 ENTRY
|
|
INSDS2 EQU $F88E ;DISASSEMBLER ENTRY
|
|
NXTA4 EQU $FCB4 POINTER INCR SUBR
|
|
FRMBEG EQU $01 SOURCE BLOCK BEGIN
|
|
FRMEND EQU $02 SOURCE BLOCK END
|
|
TOBEG EQU $04 DEST BLOCK BEGIN
|
|
ADR EQU $06 ADR PART OF INST.
|
|
|
|
* LABELS
|
|
|
|
RELOC = $D4DC
|
|
INIT = $D4E9
|
|
RELOC2 = $D4F1
|
|
GETINS = $D4F3
|
|
XLATE = $D50F
|
|
SW16RT = $D51C
|
|
STINST = $D51D
|
|
STINS2 = $D51F
|