mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-17 22:29:44 +00:00
CC/ASM : reASMed
BASIC.SYSTEM : some EXTBIN stuff (wip)
This commit is contained in:
parent
6e9c339c64
commit
4aedd7caee
Binary file not shown.
|
@ -744,48 +744,6 @@ BS.SYNERR lda #BS.E.SYNTAX
|
||||||
LA849 sec
|
LA849 sec
|
||||||
rts
|
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
|
BS.GetVolAtSxDy lda GP.ParamS
|
||||||
asl
|
asl
|
||||||
asl
|
asl
|
||||||
|
@ -1338,6 +1296,62 @@ LADF0 sec
|
||||||
clc
|
clc
|
||||||
rts
|
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
|
MAN
|
||||||
SAVE usr/src/basic.fx/basic.s.b
|
SAVE usr/src/basic.fx/basic.s.b
|
||||||
LOAD usr/src/basic.fx/basic.s
|
LOAD usr/src/basic.fx/basic.s
|
||||||
|
|
|
@ -1087,10 +1087,10 @@ BSX.SetPath clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
BSX.GetPath ldx BSX.PATH.LEN
|
BSX.GetPath ldx BSX.PATH.LEN
|
||||||
stx MLI.PATHBUF
|
stx BS.CMDBUF.LEN
|
||||||
|
|
||||||
.1 lda BSX.PATH,x
|
.1 lda BSX.PATH-1,x
|
||||||
sta MLI.PATHBUF+1,x
|
sta BS.CMDBUF-1,x
|
||||||
dex
|
dex
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
|
|
|
@ -11,6 +11,7 @@ NEW
|
||||||
sta $C010
|
sta $C010
|
||||||
.EM
|
.EM
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
.INB inc/monitor.i
|
||||||
.INB inc/io.d2.i
|
.INB inc/io.d2.i
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
HIMEM .EQ $A000
|
HIMEM .EQ $A000
|
||||||
|
|
Loading…
Reference in New Issue
Block a user