mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-12-03 18:49:28 +00:00
12a0b19398
- added some error control - added initial jump table - fixed a few minor bugs - separated common library into separate subroutine files
71 lines
1.3 KiB
Plaintext
71 lines
1.3 KiB
Plaintext
ZMLOAD
|
|
PLA
|
|
STA :RETADR
|
|
PLA
|
|
STA :RETADR+1
|
|
PLA
|
|
STA ADDR1
|
|
PLA
|
|
STA ADDR1+1
|
|
LDY #2 ; START 2 AHEAD
|
|
LDA (ADDR1),Y ; AND PUT ADDR1
|
|
STA $08 ; AREA LAST
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $09
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $19
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $1E
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $E3
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $EB
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $EC
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $ED
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $EE
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $EF
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $FA
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $FB
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $FC
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $FD
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $FE
|
|
INY
|
|
LDA (ADDR1),Y
|
|
STA $FF
|
|
LDY #0
|
|
LDA (ADDR1),Y
|
|
TAX
|
|
LDA (ADDR1+1),Y
|
|
TAY
|
|
STX ADDR1
|
|
STY ADDR1+1
|
|
LDA :RETADR+1
|
|
PHA
|
|
LDA :RETADR
|
|
PHA
|
|
RTS
|
|
:RETADR DS 2
|