diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 558613f3..b4a245e6 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index a5df820b..a5c82d57 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/SBIN/SHELL.S.CMD.txt b/SBIN/SHELL.S.CMD.txt index 2c4445c7..d48ff914 100644 --- a/SBIN/SHELL.S.CMD.txt +++ b/SBIN/SHELL.S.CMD.txt @@ -90,8 +90,7 @@ Cmd.Exec.EXT ldy #0 >PUSHEA.G CMD.Stat Command line is already full path, no search >LDYA ZPCMDBuf >SYSCALL STAT - bcc .2 - rts + bcs .99 .1 >LDYAI 256 Get a buffer for found path >SYSCALL GetMem @@ -122,16 +121,22 @@ Cmd.Exec.EXT ldy #0 * CMD.hCmdLine = /path/bin -.2 >DEBUG - - ldx #0 +.2 ldx #0 jsr Cmd.RemoveStrAtX + >LDYA ZPCMDBuf + >SYSCALL puts + >DEBUG + >LDA.G CMD.hCmdLine >SYSCALL GetMemPtr ldx #0 jsr CMD.InsertStrYAAtX + >LDYA ZPCMDBuf + >SYSCALL puts + >DEBUG + >LDA.G CMD.hCmdLine >SYSCALL FreeMem @@ -595,17 +600,9 @@ Cmd.INT.IF >STZ.G CMD.IFNOT Cmd.InsertStrYAAtX >STYA ZPPtr3 new string to insert - >LDYA ZPCMDBuf - >STYA ZPPtr1 + jsr Cmd.GetStrAtX + bcs .9 -.1 dex - bmi .2 - - jsr Cmd.NextStrPtr1 - >STYA ZPPtr1 - bra .1 - -.2 >LDYA ZPPtr1 >STYA ZPPtr4 Save Arg[x] ptr >LDYA ZPPtr3 @@ -646,20 +643,13 @@ Cmd.InsertStrYAAtX bne .6 .8 clc - rts +.9 rts *-------------------------------------- Cmd.RemoveStrAtX - >LDYA ZPCMDBuf - >STYA ZPPtr1 - -.1 dex - bmi .2 + jsr Cmd.GetStrAtX + bcs .9 jsr Cmd.NextStrPtr1 - >STYA ZPPtr1 - bra .1 - -.2 jsr Cmd.NextStrPtr1 >STYA ZPPtr2 .3 ldy #0 @@ -703,25 +693,25 @@ Cmd.GetStrAtX >LDYA ZPCMDBuf bcc .1 rts -.8 clc +.8 >LDYA ZPPtr1 + + clc rts *-------------------------------------- Cmd.NextStrPtr1 lda (ZPPtr1) beq .9 + +.1 inc ZPPtr1 + bne .2 + inc ZPPtr1+1 +.2 lda (ZPPtr1) + bne .1 - phx - >LDYA ZPPtr1 - >SYSCALL strlen - pha - tya - sec +1 - adc ZPPtr1 - tay - - pla - adc ZPPtr1+1 - plx -* clc + inc ZPPtr1 + bne .8 + inc ZPPtr1+1 + +.8 clc rts .9 sec @@ -746,15 +736,6 @@ Cmd.NextStrPtr2 lda (ZPPtr2) .9 sec rts *-------------------------------------- -Cmd.NextCharPtr1 - lda (ZPPtr1) - beq .8 - - inc ZPPtr1 - bne .8 - inc ZPPtr1+1 never Z -.8 rts -*-------------------------------------- Cmd.NextCharPtr2NB .1 jsr Cmd.NextCharPtr2 beq .9