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