mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-11-28 03:52:10 +00:00
66 lines
1.3 KiB
Plaintext
66 lines
1.3 KiB
Plaintext
SCMP MAC
|
|
_ISSTR ]1
|
|
_ISSTR ]2
|
|
JSR STRCMP
|
|
<<<
|
|
SCAT MAC
|
|
_ISSTR ]1
|
|
_ISSTR ]2
|
|
LDA ]3 ; MAX SIZE; BYTE
|
|
PHA
|
|
JSR STRCAT
|
|
<<<
|
|
SPRN MAC
|
|
LDA #>]1 ; ADDRESS OF STRING
|
|
PHA
|
|
LDA #<]1
|
|
PHA
|
|
JSR PRNSTR
|
|
<<<
|
|
TOSTR MAC
|
|
_ISLIT ]1
|
|
JSR NUM2STR
|
|
<<<
|
|
TONUM MAC
|
|
_ISSTR ]1
|
|
JSR STR2NUM
|
|
<<<
|
|
SPOS MAC
|
|
_ISSTR ]1
|
|
_ISSTR ]2
|
|
JSR SUBPOS
|
|
<<<
|
|
SCPY MAC
|
|
_ISSTR ]1
|
|
LDA ]2 ; STARTING INDEX
|
|
PHA
|
|
LDA ]3 ; SUBSTRING LENGTH
|
|
PHA
|
|
LDA ]4 ; MAX LENGTH OF SUBSTR
|
|
PHA
|
|
JSR SUBCOPY
|
|
<<<
|
|
SDEL MAC
|
|
LDA #>]1 ; STRING ADDRESS
|
|
PHA
|
|
LDA #<]1
|
|
PHA
|
|
LDA ]2 ; INDEX BYTE
|
|
PHA
|
|
LDA ]3 ; LENGTH
|
|
PHA
|
|
JSR SUBDEL
|
|
<<<
|
|
SINS MAC
|
|
LDA #>]1 ; PARENT STRING
|
|
PHA
|
|
LDA #<]1
|
|
PHA
|
|
LDA ]2 ; INDEX
|
|
PHA
|
|
LDA ]3 ; MAXIMUM LENGTH
|
|
PHA
|
|
_ISSTR ]4
|
|
JSR SUBINS
|
|
<<<
|