diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index ef029fd4..dc254171 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/BIN/EDIT.S.FILE.txt b/BIN/EDIT.S.FILE.txt index 8708c847..6c385024 100644 --- a/BIN/EDIT.S.FILE.txt +++ b/BIN/EDIT.S.FILE.txt @@ -2,11 +2,9 @@ NEW AUTO 3,1 .LIST OFF *-------------------------------------- -FILE.New jsr FILE.Reset - - >LDYA L.MSG.NEWFILE +FILE.New >LDYA L.MSG.NEWFILE -FILE.RealPath >PUSHYA +FILE.NewYA >PUSHYA >PUSHWZ Allocate >SYSCALL RealPath bcs .9 @@ -14,9 +12,11 @@ FILE.RealPath >PUSHYA txa >STA.G hFileName + jmp FILE.Reset + .9 rts *-------------------------------------- -FILE.Load jsr FILE.RealPath +FILE.Load jsr FILE.NewYA bcs .9 jsr FILE.Reset diff --git a/BIN/EDIT.S.txt b/BIN/EDIT.S.txt index 37e3d8f0..b0a1f9d8 100644 --- a/BIN/EDIT.S.txt +++ b/BIN/EDIT.S.txt @@ -175,6 +175,8 @@ CS.RUN >PUSHW L.MSG.TERMCAP cmp #E.OOM beq CS.RUN.RTS + + bra .3 .2 jsr FILE.New bcs CS.RUN.RTS diff --git a/SHARED/X.FILEENUM.S.txt b/SHARED/X.FILEENUM.S.txt index 0440e14c..6b902b2f 100644 --- a/SHARED/X.FILEENUM.S.txt +++ b/SHARED/X.FILEENUM.S.txt @@ -142,25 +142,41 @@ X.InitSrcDirPtr1 lda (ZPPtr2),y beq .8 we have '/' - jsr X.Init.StatBuf + jsr X.Init.Stat bcs .1 File/DIR does not exists, go extract pattern .DO X.ENTER.SUBDIR=1 + >LDA.G STATBUF+S.STAT.MODE+1 and #$F0 cmp /S.STAT.MODE.DIR - beq .8 TYPE=DIR, do not extract pattern + bne .7 Not a dir.... + + jsr X.GetPtr2Len + + dey + lda #'/' + cmp (ZPPtr2),y + beq .8 + + iny + sta (ZPPtr2),y + iny + lda #0 + sta (ZPPtr2),y + + bra .8 TYPE=DIR, do not extract pattern + + .ELSE + + bra .7 + .FIN - bra .4 - .1 cmp #MLI.E.INVPATH - beq .11 + bne .98 - sec - rts - -.11 jsr X.GetPtr2Len TYPE is not DIR, check if wc + jsr X.GetPtr2Len TYPE is not DIR, check if wc dey @@ -168,22 +184,23 @@ X.InitSrcDirPtr1 .2 lda (ZPPtr2),y search backward for a / cmp #'/' - beq .3 + beq .6 cmp #'?' Test if some wildcard chars.... - beq .21 + beq .3 cmp #'*' - bne .22 + bne .4 -.21 inx inc wildcard count -.22 dey +.3 inx inc wildcard count + +.4 dey bne .2 -.3 txa - beq .98 no wc, file not found.... +.6 txa + beq .97 no wc, file not found.... -.4 jsr X.InitSplitBuf +.7 jsr X.InitSplitBuf bcs .99 >STA.G hInclude @@ -202,8 +219,8 @@ X.InitSrcDirPtr1 rts -.98 lda #MLI.E.INVPATH - sec +.97 lda #MLI.E.INVPATH +.98 sec .99 rts *-------------------------------------- .DO X.RESET.SRC.DIR=1 @@ -239,7 +256,7 @@ X.InitDstDirPtr1 >STA.G hDstBasePath - jsr X.Init.StatBuf + jsr X.Init.Stat bcs .1 File/DIR does not exists, go extract DstFileName >LDA.G STATBUF+S.STAT.MODE+1 @@ -287,7 +304,7 @@ X.InitGetBuf >LDYAI 256 .99 rts *-------------------------------------- -X.Init.StatBuf >PUSHW ZPPtr2 +X.Init.Stat >PUSHW ZPPtr2 >PUSHEA.G STATBUF >SYSCALL Stat rts