2020-01-24 14:21:08 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
|
*/--------------------------------------
|
2020-01-30 14:59:40 +00:00
|
|
|
|
* # StrVShift
|
|
|
|
|
|
* ## ASM
|
|
|
|
|
|
* `>PUSHB hSTRV`
|
|
|
|
|
|
* `>PUSHB index`
|
|
|
|
|
|
* `>SYSCALL StrVShift`
|
2020-01-24 14:21:08 +00:00
|
|
|
|
* ## RETURN VALUE
|
|
|
|
|
|
*\--------------------------------------
|
2020-02-07 15:35:52 +00:00
|
|
|
|
K.StrVShift >PULLA index
|
2020-01-30 14:59:40 +00:00
|
|
|
|
eor #$ff
|
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
|
|
>PULLA
|
|
|
|
|
|
|
2020-02-07 15:35:52 +00:00
|
|
|
|
sta SETREADAUX
|
|
|
|
|
|
sta SETWRITEAUX
|
|
|
|
|
|
jsr STRVX.StrVShift
|
|
|
|
|
|
sta CLRREADAUX
|
|
|
|
|
|
sta CLRWRITEAUX
|
|
|
|
|
|
rts
|
2020-01-24 14:21:08 +00:00
|
|
|
|
*/--------------------------------------
|
|
|
|
|
|
* # StrVGet
|
2020-01-28 16:42:51 +00:00
|
|
|
|
* ## ASM
|
|
|
|
|
|
* `>PUSHB hSTRV`
|
2020-01-30 14:59:40 +00:00
|
|
|
|
* `>PUSHB index`
|
|
|
|
|
|
* `>PUSHW ptr`
|
2020-01-28 16:42:51 +00:00
|
|
|
|
* `>SYSCALL StrVGet`
|
2020-01-24 14:21:08 +00:00
|
|
|
|
* ## RETURN VALUE
|
2020-01-28 16:42:51 +00:00
|
|
|
|
* CC: Y,A = Ptr
|
|
|
|
|
|
* CS: Y,A = NULL
|
2020-01-24 14:21:08 +00:00
|
|
|
|
*\--------------------------------------
|
2020-02-07 15:35:52 +00:00
|
|
|
|
K.StrVGet >PULLW FORPNT ptr
|
2020-01-30 14:59:40 +00:00
|
|
|
|
|
|
|
|
|
|
>PULLA index
|
2020-01-28 16:42:51 +00:00
|
|
|
|
eor #$ff
|
2020-01-30 14:59:40 +00:00
|
|
|
|
tax
|
2020-01-28 16:42:51 +00:00
|
|
|
|
|
|
|
|
|
|
>PULLA
|
2020-01-30 14:59:40 +00:00
|
|
|
|
|
2020-02-07 15:35:52 +00:00
|
|
|
|
sta SETREADAUX
|
|
|
|
|
|
sta SETWRITEAUX
|
|
|
|
|
|
jsr STRVX.StrVGet
|
|
|
|
|
|
sta CLRREADAUX
|
|
|
|
|
|
sta CLRWRITEAUX
|
|
|
|
|
|
rts
|
2020-01-28 16:42:51 +00:00
|
|
|
|
*/--------------------------------------
|
|
|
|
|
|
* # StrVAdd
|
|
|
|
|
|
* ## ASM
|
|
|
|
|
|
* `>PUSHB hSTRV`
|
|
|
|
|
|
* `>PUSHW str`
|
|
|
|
|
|
* `>SYSCALL StrVAdd`
|
|
|
|
|
|
* ## RETURN VALUE
|
2020-01-30 14:59:40 +00:00
|
|
|
|
* CC : str added to hSTRV
|
|
|
|
|
|
* CS : hSTRV full
|
2020-01-28 16:42:51 +00:00
|
|
|
|
*\--------------------------------------
|
2020-02-07 15:35:52 +00:00
|
|
|
|
K.StrVAdd >PULLW TXTPTR str
|
2020-01-30 14:59:40 +00:00
|
|
|
|
>PULLA
|
2020-02-14 07:21:56 +00:00
|
|
|
|
jmp K.SYSCALL.JMPX
|
2020-01-28 16:42:51 +00:00
|
|
|
|
*--------------------------------------
|
2020-01-24 14:21:08 +00:00
|
|
|
|
MAN
|
|
|
|
|
|
SAVE USR/SRC/SYS/KERNEL.S.STRV
|
|
|
|
|
|
LOAD USR/SRC/SYS/KERNEL.S
|
|
|
|
|
|
ASM
|
