mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-02-21 19:28:59 +00:00
47 lines
837 B
Plaintext
47 lines
837 B
Plaintext
|
APUT81
|
||
|
|
PLA
|
||
|
|
STA :RETADR
|
||
|
|
PLA
|
||
|
|
STA :RETADR+1
|
||
|
|
PLA
|
||
|
|
STA :AIDX
|
||
|
|
PLA
|
||
|
|
STA ADDR4
|
||
|
|
PLA
|
||
|
|
STA ADDR4+1
|
||
|
|
PLA
|
||
|
|
STA ADDR3
|
||
|
|
PLA
|
||
|
|
STA ADDR3+1
|
||
|
|
LDA ADDR4+1
|
||
|
|
PHA
|
||
|
|
LDA ADDR4
|
||
|
|
PHA
|
||
|
|
LDA :AIDX
|
||
|
|
PHA
|
||
|
|
JSR AGET81
|
||
|
|
STY ADDR2
|
||
|
|
STX ADDR2+1
|
||
|
|
LDY #1
|
||
|
|
LDA (ADDR4),Y
|
||
|
|
STA :ESIZE
|
||
|
|
LDY #0
|
||
|
|
:LP
|
||
|
|
LDA (ADDR3),Y
|
||
|
|
STA (ADDR2),Y
|
||
|
|
INY
|
||
|
|
CPY :ESIZE
|
||
|
|
BNE :LP
|
||
|
|
LDA :RETADR+1
|
||
|
|
PHA
|
||
|
|
LDA :RETADR
|
||
|
|
PHA
|
||
|
|
LDX ADDR2+1
|
||
|
|
LDY ADDR2
|
||
|
|
LDA :ESIZE
|
||
|
|
RTS
|
||
|
|
:RETADR DS 2
|
||
|
|
:ESIZE DS 1
|
||
|
|
:ASIZE DS 1
|
||
|
|
:AIDX DS 1
|