mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-11-27 12:49:27 +00:00
18 lines
352 B
NASM
18 lines
352 B
NASM
|
]STRLEN EQU VARTAB
|
||
|
PRNSTR
|
||
|
STA ADDR1
|
||
|
STX ADDR1+1
|
||
|
LDY #0
|
||
|
LDA (ADDR1),Y
|
||
|
STA ]STRLEN
|
||
|
:LP
|
||
|
INY
|
||
|
LDA (ADDR1),Y
|
||
|
JSR COUT1
|
||
|
CPY ]STRLEN
|
||
|
BNE :LP
|
||
|
; LOOP
|
||
|
LDY #0
|
||
|
LDA (ADDR1),Y
|
||
|
RTS
|