NEW AUTO 3,1 */-------------------------------------- * # StrVShift * ## ASM * `>PUSHB hSTRV` * `>PUSHB index` * `>SYSCALL StrVShift` * ## RETURN VALUE *\-------------------------------------- K.StrVShift sta CLRREADAUX >PULLA index eor #$ff tax >PULLA sta SETREADAUX jsr K.GetMemPtr >STYA ZPPtr1 strV .1 inx beq .2 jsr STRV.NStrPtr1 bcc .1 rts .2 >LDYA ZPPtr1 >STYA ZPPtr2 jsr STRV.NStrPtr1 jsr STRV.Ptr1Ptr2cpy clc rts */-------------------------------------- * # StrVGet * ## ASM * `>PUSHB hSTRV` * `>PUSHB index` * `>PUSHW ptr` * `>SYSCALL StrVGet` * ## RETURN VALUE * CC: Y,A = Ptr * CS: Y,A = NULL *\-------------------------------------- K.StrVGet sta CLRREADAUX >PULLW FORPNT ptr >PULLA index eor #$ff tax >PULLA sta SETREADAUX jsr K.GetMemPtr >STYA ZPPtr1 strV .1 inx beq .2 jsr STRV.NStrPtr1 bcc .1 rts .2 lda (ZPPtr1) tay bne .3 sec rts Y,A = 0 .3 lda FORPNT+1 beq .8 .4 ldy #$ff .5 iny lda (ZPPtr1),y jsr SHARED.FORPNT.PutY bne .5 >LDYA FORPNT clc rts .8 >LDYA ZPPtr1 clc .9 rts */-------------------------------------- * # StrVAdd * ## ASM * `>PUSHB hSTRV` * `>PUSHW str` * `>SYSCALL StrVAdd` * ## RETURN VALUE * CC : str added to hSTRV * CS : hSTRV full *\-------------------------------------- K.StrVAdd sta CLRREADAUX >PULLW TXTPTR str >PULLA sta SETREADAUX jsr K.GetMemPtr >STYA ZPPtr1 lda TXTPTR+1 bne .10 sta (ZPPtr1) clc rts .10 lda #1 for \0 sta ZPPtr2 stz ZPPtr2+1 .1 jsr STRV.NStrPtr1 bcs .2 jsr SHARED.AddYp1ToPtr2 bra .1 .2 ldy #$ff .3 iny jsr SHARED.TXTPTR.GetY bne .3 tya sec adc ZPPtr2 bcc .4 inc ZPPtr2+1 ldy #S.MEM.LEN lda (ZPMemMgrSPtr),y cmp ZPPtr2 iny lda (ZPMemMgrSPtr),y sbc ZPPtr2+1 bcs .4 lda #E.OOM sec rts .4 ldy #$ff .5 iny jsr SHARED.TXTPTR.GetY sta (ZPPtr1),y bne .5 iny sta (ZPPtr1),y StrV Ending \0 clc rts */-------------------------------------- * # StrVDup * ## ASM * Y,A = Src StrV * ## RETURN VALUE * X = hMem of new StrV * A = Str Count *\-------------------------------------- K.StrVDup >STYA ZPPtr1 >STYA ZPPtr2 ldy #0 ldx #0 .1 lda (ZPPtr2),y beq .2 .11 iny bne .1 inx inc ZPPtr2+1 bra .1 .2 iny bne .3 inx inc ZPPtr2+1 .3 lda (ZPPtr2),y bne .11 txa jsr K.getmem bcs .9 >STYA ZPPtr2 phx jsr STRV.Ptr1Ptr2cpy txa Count plx hMem clc .9 rts */-------------------------------------- * # Str2StrV * Expand String and convert to StrV List * ## C * short int str2strv(char* args, char* argv[]) * ## ASM * `>PUSHW argv` * `>LDYA args` * `>SYSCALL Str2StrV` * ## RETURN VALUE * A = Arg count *\-------------------------------------- K.Str2StrV jsr K.Expand bcs .9 >STYA ZPPtr1 stx .80+1 >PULLW ZPPtr2 Get target buffer ldx #0 Arg Count ldy #0 bInQuote .1 jsr SHARED.GetCharPtr1 beq .8 cmp #C.SPACE beq .1 skip leading spaces .2 cmp #'"' found a quote ? bne .3 tya eor #$ff tay bra .7 skip quote and check next char .3 cmp #C.SPACE bne .6 regular char ...store... tya bmi .4 between quotes... store space... inx Found one arg !!! lda #0 set this token End jsr SHARED.PutCharPtr2 bra .1 .4 lda #C.SPACE .6 jsr SHARED.PutCharPtr2 .7 jsr SHARED.GetCharPtr1 bne .2 inx .8 jsr SHARED.PutCharPtr2 set Argv[x] Ending 0 sta (ZPPtr2) set Array Ending 0 phx .80 lda #$FF SELF MODIFIED jsr K.FreeMem Discard expanded string pla get back Arg Count * clc rts .9 >RET 2 Discard target buffer *-------------------------------------- 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 *-------------------------------------- MAN SAVE USR/SRC/SYS/KERNEL.S.STRV LOAD USR/SRC/SYS/KERNEL.S ASM