mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-11-27 12:49:27 +00:00
34 lines
555 B
Plaintext
34 lines
555 B
Plaintext
*
|
|
SUBT16
|
|
*
|
|
PLA
|
|
STA RETADR
|
|
PLA
|
|
STA RETADR+1
|
|
PLA
|
|
STA :SUBT
|
|
PLA
|
|
STA :SUBT+1
|
|
PLA
|
|
STA :MINU
|
|
PLA
|
|
STA :MINU+1
|
|
LDA :MINU
|
|
SEC
|
|
SBC :SUBT
|
|
TAY
|
|
STY RETURN
|
|
LDA :MINU+1
|
|
SBC :SUBT+1
|
|
TAX
|
|
STX RETURN+1
|
|
LDA #2
|
|
STA RETLEN
|
|
LDA RETADR+1
|
|
PHA
|
|
LDA RETADR
|
|
PHA
|
|
RTS
|
|
:MINU DS 2
|
|
:SUBT DS 2
|