diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index d0a13175..cbb44a2a 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/BASIC.FX/BASIC.S.B.txt b/BASIC.FX/BASIC.S.B.txt index 86e19b6a..cf2dbcfe 100644 --- a/BASIC.FX/BASIC.S.B.txt +++ b/BASIC.FX/BASIC.S.B.txt @@ -744,48 +744,6 @@ BS.SYNERR lda #BS.E.SYNTAX LA849 sec rts *-------------------------------------- -BS.IsExtCmd ldx #BSX.GetPath.X - - jsr BS.ToAUX - - ldx MLI.PATHBUF - ldy #$ff - -.1 iny - lda IO.LINEBUF,y - and #$7F - cmp #$0D - beq .2 - - cmp #$20 - beq .2 - - sta MLI.PATHBUF,x - inx - bra .1 - -.2 stx MLI.PATHBUF - - ldx #0 - -.3 inx - lda MLI.PATHBUF,x - ora #$80 - jsr MON.COUT - cpx MLI.PATHBUF - bne .3 - - jsr BS.GetFileInfo - - >DEBUG - - - sec - rts -*-------------------------------------- -BS.ExecCmd clc - rts -*-------------------------------------- BS.GetVolAtSxDy lda GP.ParamS asl asl @@ -1338,6 +1296,62 @@ LADF0 sec clc rts *-------------------------------------- +BS.IsExtCmd ldx #BSX.GetPath.X + + jsr BS.ToAUX + + ldx BS.CMDBUF.LEN + ldy #$ff + +.1 iny + lda IO.LINEBUF,y + and #$7F + cmp #$0D + beq .2 + + cmp #$20 + beq .2 + + sta BS.CMDBUF,x + inx + bra .1 + +.2 stx BS.CMDBUF.LEN + + jsr BS.GetFileInfo + bcs .9 + + jsr MON.CROUT + + lda GP.FIAUXTYPE+1 + ldx GP.FIAUXTYPE + jsr PRNTAX + + jsr MON.CROUT + + lda #$01 + ldx #$04 + jsr BS.OpenTypeXAccessA + >DEBUG + bcs .9 + + jsr BS.MLIGetEOF + bcs .9 + + lda GP.SBUFADR+1 + ldx GP.SBUFADR + jsr PRNTAX + + jsr MON.CROUT + + + jmp BS.MLIClose + +.9 rts +*-------------------------------------- +BS.ExecCmd clc + rts +*-------------------------------------- MAN SAVE usr/src/basic.fx/basic.s.b LOAD usr/src/basic.fx/basic.s diff --git a/BASIC.FX/BASIC.S.X.txt b/BASIC.FX/BASIC.S.X.txt index e3ec7007..bfc8fae5 100644 --- a/BASIC.FX/BASIC.S.X.txt +++ b/BASIC.FX/BASIC.S.X.txt @@ -1087,10 +1087,10 @@ BSX.SetPath clc rts *-------------------------------------- BSX.GetPath ldx BSX.PATH.LEN - stx MLI.PATHBUF + stx BS.CMDBUF.LEN -.1 lda BSX.PATH,x - sta MLI.PATHBUF+1,x +.1 lda BSX.PATH-1,x + sta BS.CMDBUF-1,x dex bne .1 diff --git a/BASIC.FX/BASIC.S.txt b/BASIC.FX/BASIC.S.txt index a13492e7..5f4955cc 100644 --- a/BASIC.FX/BASIC.S.txt +++ b/BASIC.FX/BASIC.S.txt @@ -11,6 +11,7 @@ NEW sta $C010 .EM *-------------------------------------- + .INB inc/monitor.i .INB inc/io.d2.i *-------------------------------------- HIMEM .EQ $A000