AppleIIAsm-Collection/source/disk19_demo_builds_1/T.MIN.SUB.PRNSTR
nathanriggs c8cac53c5e Rev 0.4 updates
Massive updates that changes the way most subroutines are handled. Major bugfixes, various utilities added, started higher-level libraries.
2019-04-26 18:49:10 -04:00

32 lines
610 B
Plaintext

PRNSTR
PLA
STA RETADR
PLA
STA RETADR+1
PLA
STA ADDR1
PLA
STA ADDR1+1
LDY #0
LDA (ADDR1),Y
STA :S1LEN
:LP
INY
LDA (ADDR1),Y
JSR SCOUT1
CPY :S1LEN
BNE :LP
; LOOP
LDY #0
LDA (ADDR1),Y
LDA RETADR+1
PHA
LDA RETADR
PHA
LDY #0
LDA (ADDR1),Y
LDY ADDR1
LDX ADDR1+1
RTS
:S1LEN DS 1