CC/ASM : reASMed

BASIC.SYSTEM : some EXTBIN stuff (wip)

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

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
 

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