mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-07-05 12:29:01 +00:00
16 lines
304 B
NASM
16 lines
304 B
NASM
|
]SLEN EQU VARTAB
|
||
|
|
]ADDR EQU WPAR1
|
||
|
|
FPSTR
|
||
|
|
LDY #0
|
||
|
|
LDA (]ADDR),Y
|
||
|
|
STA ]SLEN
|
||
|
|
:LP
|
||
|
|
INY
|
||
|
|
LDA (]ADDR),Y
|
||
|
|
JSR FCOUT
|
||
|
|
CPY ]SLEN
|
||
|
|
BNE :LP
|
||
|
|
:EXIT
|
||
|
|
TYA
|
||
|
|
RTS
|