A2osX/SYS/KERNEL.S.STRV.txt

100 lines
1.7 KiB
Plaintext
Raw Normal View History

2020-01-24 14:21:08 +00:00
NEW
AUTO 3,1
*/--------------------------------------
2020-03-09 16:24:08 +00:00
* # StrVGet
2020-01-30 14:59:40 +00:00
* ## ASM
* `>PUSHB hSTRV`
* `>PUSHB index`
2020-03-09 16:24:08 +00:00
* `>PUSHW ptr`
* `>SYSCALL StrVGet`
2020-01-24 14:21:08 +00:00
* ## RETURN VALUE
2020-03-09 16:24:08 +00:00
* CC: Y,A = Ptr
* CS: Y,A = NULL
2020-01-24 14:21:08 +00:00
*\--------------------------------------
2020-03-09 16:24:08 +00:00
K.StrVGet >PULLW FORPNT ptr
2020-01-24 14:21:08 +00:00
*/--------------------------------------
2020-03-09 16:24:08 +00:00
* # StrVShift
2020-01-28 16:42:51 +00:00
* ## ASM
* `>PUSHB hSTRV`
2020-01-30 14:59:40 +00:00
* `>PUSHB index`
2020-03-09 16:24:08 +00:00
* `>SYSCALL StrVShift`
2020-01-24 14:21:08 +00:00
* ## RETURN VALUE
*\--------------------------------------
2020-03-09 16:24:08 +00:00
K.StrVShift >PULLA index
2020-01-28 16:42:51 +00:00
eor #$ff
2020-03-10 16:42:07 +00:00
tay
2020-03-09 16:24:08 +00:00
2020-03-10 16:42:07 +00:00
>PULLA hSTRV
jmp K.SYSCALL.JMPX
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-03-10 16:42:07 +00:00
jmp K.SYSCALL.JMPX
2020-01-28 16:42:51 +00:00
*--------------------------------------
2020-03-12 16:44:11 +00:00
STRV.NStrPtr1 ldy #$ff
.1 iny
lda (ZPPtr1)
beq .2
inc ZPPtr1
bne .1
inc ZPPtr1+1
bra .1
.2 tya
beq .9
inc ZPPtr1
bne .8
inc ZPPtr1+1 skip \0
.8 clc
rts
.9 sec Y,A = 0
rts
*--------------------------------------
STRV.Ptr1Ptr2cpy
ldx #0
ldy #0
.4 lda (ZPPtr1),y
sta (ZPPtr2),y
beq .6
.5 iny
bne .4
inc ZPPtr1+1
inc ZPPtr2+1
bra .4
.6 inx
iny
bne .7
inc ZPPtr1+1
inc ZPPtr2+1
.7 lda (ZPPtr1),y
sta (ZPPtr2),y Ending \0 ?
bne .5
rts
*--------------------------------------
2020-01-24 14:21:08 +00:00
MAN
SAVE USR/SRC/SYS/KERNEL.S.STRV
LOAD USR/SRC/SYS/KERNEL.S
ASM