mirror of
https://github.com/zellyn/goapple2.git
synced 2025-01-01 22:31:12 +00:00
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
|