mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-01 07:41:51 +00:00
71 lines
1.3 KiB
Plaintext
71 lines
1.3 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
*/--------------------------------------
|
||
* # StrVShift
|
||
* ## ASM
|
||
* `>PUSHB hSTRV`
|
||
* `>PUSHB index`
|
||
* `>SYSCALL StrVShift`
|
||
* ## RETURN VALUE
|
||
*\--------------------------------------
|
||
K.StrVShift >PULLA index
|
||
eor #$ff
|
||
tax
|
||
|
||
>PULLA
|
||
|
||
sta SETREADAUX
|
||
sta SETWRITEAUX
|
||
jsr STRVX.StrVShift
|
||
sta CLRREADAUX
|
||
sta CLRWRITEAUX
|
||
rts
|
||
*/--------------------------------------
|
||
* # StrVGet
|
||
* ## ASM
|
||
* `>PUSHB hSTRV`
|
||
* `>PUSHB index`
|
||
* `>PUSHW ptr`
|
||
* `>SYSCALL StrVGet`
|
||
* ## RETURN VALUE
|
||
* CC: Y,A = Ptr
|
||
* CS: Y,A = NULL
|
||
*\--------------------------------------
|
||
K.StrVGet >PULLW FORPNT ptr
|
||
|
||
>PULLA index
|
||
eor #$ff
|
||
tax
|
||
|
||
>PULLA
|
||
|
||
sta SETREADAUX
|
||
sta SETWRITEAUX
|
||
jsr STRVX.StrVGet
|
||
sta CLRREADAUX
|
||
sta CLRWRITEAUX
|
||
rts
|
||
*/--------------------------------------
|
||
* # StrVAdd
|
||
* ## ASM
|
||
* `>PUSHB hSTRV`
|
||
* `>PUSHW str`
|
||
* `>SYSCALL StrVAdd`
|
||
* ## RETURN VALUE
|
||
* CC : str added to hSTRV
|
||
* CS : hSTRV full
|
||
*\--------------------------------------
|
||
K.StrVAdd >PULLW TXTPTR str
|
||
>PULLA
|
||
sta SETREADAUX
|
||
sta SETWRITEAUX
|
||
jsr STRVX.StrVAdd
|
||
sta CLRREADAUX
|
||
sta CLRWRITEAUX
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE USR/SRC/SYS/KERNEL.S.STRV
|
||
LOAD USR/SRC/SYS/KERNEL.S
|
||
ASM
|