mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-02-20 13:29:04 +00:00
9b12b6fd9b
- getting ready for major changes for 0.6.0. - be sure to download the 0.5.0 release to ensure proper functionality, as these rountines will not work together in the SRC or BIN folder during the transition - Beginning to significantly alter documentation
38 lines
764 B
NASM
38 lines
764 B
NASM
]SUBLEN EQU BPAR1
|
|
]SUBIND EQU BPAR2
|
|
]STR EQU WPAR1
|
|
SUBDEL
|
|
DEC ]SUBIND
|
|
INC ]SUBLEN
|
|
LDY #0
|
|
LDA (]STR),Y
|
|
SEC
|
|
SBC ]SUBLEN
|
|
STA RETLEN
|
|
INC RETLEN
|
|
:LP1
|
|
INY
|
|
LDA (]STR),Y
|
|
STA RETLEN,Y
|
|
CPY ]SUBIND
|
|
BNE :LP1
|
|
LDX ]SUBIND
|
|
TYA
|
|
CLC
|
|
ADC ]SUBLEN
|
|
TAY
|
|
DEX
|
|
DEY
|
|
:LP2
|
|
INY
|
|
INX
|
|
LDA (]STR),Y
|
|
STA RETURN,X
|
|
CPX RETLEN
|
|
BNE :LP2
|
|
:EXIT
|
|
LDA RETLEN
|
|
RTS
|
|
CPY #255
|
|
BEQ :EXIT
|