2022-04-19 18:24:34 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.JMPX jmp (BSX.JMP,x)
|
|
|
|
|
|
|
|
|
|
|
|
BSX.JMP
|
|
|
|
|
|
BSX.CheckOpt.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.CheckOpt
|
|
|
|
|
|
BSX.GetDecNum.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.GetDecNum
|
|
|
|
|
|
BSX.Expand.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.Expand
|
|
|
|
|
|
BSX.IsIntCmd.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.IsIntCmd
|
|
|
|
|
|
BSX.GetErrA.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.GetErrA
|
|
|
|
|
|
BSX.GetMsgY.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.GetMsgY
|
|
|
|
|
|
BSX.MkCatLine.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.MkCatLine
|
|
|
|
|
|
BSX.MkCatLineF.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.MkCatLineF
|
|
|
|
|
|
BSX.Online.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.Online
|
2024-01-05 16:33:57 +00:00
|
|
|
|
BSX.OnlineErr.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.OnlineErr
|
|
|
|
|
|
BSX.InitPath.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.InitPath
|
|
|
|
|
|
BSX.SetPath.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.SetPath
|
|
|
|
|
|
BSX.GetPath.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.GetPath
|
2022-05-25 18:46:02 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.FMT.CheckP.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.FMT.CheckP
|
|
|
|
|
|
BSX.FMT.D2.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.FMT.D2
|
|
|
|
|
|
BSX.FMT.GetCatBlk.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.FMT.GetCatBlk
|
|
|
|
|
|
*--------------------------------------
|
2022-04-19 18:24:34 +00:00
|
|
|
|
BSX.Mem.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.Mem
|
2022-05-25 18:46:02 +00:00
|
|
|
|
BSX.Fre0.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.Fre0
|
|
|
|
|
|
BSX.Fre1.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.Fre1
|
2022-04-19 18:24:34 +00:00
|
|
|
|
*--------------------------------------
|
2024-01-07 12:44:01 +00:00
|
|
|
|
BSX.Rel.X .EQ *-BSX.JMP
|
|
|
|
|
|
.DA BSX.Rel
|
|
|
|
|
|
*--------------------------------------
|
2022-04-19 18:24:34 +00:00
|
|
|
|
BSX.CheckOpt jsr BS.TMPBUF3Reset
|
|
|
|
|
|
|
|
|
|
|
|
jsr BSX.ToUpper
|
|
|
|
|
|
|
|
|
|
|
|
ldx BS.ToAUXSaveX
|
|
|
|
|
|
|
|
|
|
|
|
ldy #$09
|
|
|
|
|
|
|
|
|
|
|
|
LA8FB cmp BSX.KW.OPT,y
|
|
|
|
|
|
beq LA935
|
|
|
|
|
|
|
|
|
|
|
|
dey
|
|
|
|
|
|
bpl LA8FB
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'T'
|
|
|
|
|
|
beq LA90A
|
|
|
|
|
|
|
|
|
|
|
|
LA907 lda #BS.E.SYNTAX
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
LA90A lda #CMDBITS0.T
|
|
|
|
|
|
and GP.AllowedBITS
|
|
|
|
|
|
beq LA931
|
|
|
|
|
|
|
|
|
|
|
|
tsb GP.FoundBITS
|
|
|
|
|
|
|
|
|
|
|
|
stz XBC08
|
|
|
|
|
|
|
|
|
|
|
|
lda #$12
|
|
|
|
|
|
sta XBC09
|
|
|
|
|
|
jsr BS.GetCharSpaceSep
|
|
|
|
|
|
beq LA907
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'$'
|
|
|
|
|
|
beq LA984
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'A'
|
|
|
|
|
|
bcc LA96E
|
|
|
|
|
|
|
|
|
|
|
|
jmp BSX.GetFTypeASC
|
|
|
|
|
|
|
|
|
|
|
|
LA931 lda #BS.E.INVOPT
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
LA935 lda BSX.KW.OPT.PBITSLO,y
|
|
|
|
|
|
beq LA955
|
|
|
|
|
|
|
|
|
|
|
|
and GP.AllowedBITS+1
|
|
|
|
|
|
beq LA931
|
|
|
|
|
|
|
|
|
|
|
|
cmp #$04
|
|
|
|
|
|
bne LA94F
|
|
|
|
|
|
|
|
|
|
|
|
and GP.FoundBITS+1
|
|
|
|
|
|
bne LA955
|
|
|
|
|
|
|
|
|
|
|
|
lda #$01
|
|
|
|
|
|
sta GP.ParamD
|
|
|
|
|
|
lda #CMDBITS1.SD
|
|
|
|
|
|
|
|
|
|
|
|
LA94F tsb GP.FoundBITS+1
|
|
|
|
|
|
|
|
|
|
|
|
LA955 lda BSX.KW.OPT.PBITSHI,y
|
|
|
|
|
|
and #$03
|
|
|
|
|
|
sta XBC08
|
|
|
|
|
|
|
|
|
|
|
|
lda BSX.KW.OPT.PBITSHI,y
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
sta XBC09
|
|
|
|
|
|
jsr BS.GetCharSpaceSep
|
|
|
|
|
|
beq LA9BE
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'$'
|
|
|
|
|
|
beq LA984
|
|
|
|
|
|
|
|
|
|
|
|
LA96E stx GP.INPTR
|
|
|
|
|
|
jsr BSX.GetDecDigit
|
|
|
|
|
|
bcc LA97A
|
|
|
|
|
|
|
|
|
|
|
|
bmi LA9C1
|
|
|
|
|
|
|
|
|
|
|
|
bcs LA9BE
|
|
|
|
|
|
|
|
|
|
|
|
LA97A ldx GP.INPTR
|
|
|
|
|
|
jsr BS.GetCharSpaceSep
|
|
|
|
|
|
bne LA96E
|
|
|
|
|
|
|
|
|
|
|
|
beq LA99D
|
|
|
|
|
|
|
|
|
|
|
|
LA984 jsr BS.GetCharSpaceSep
|
|
|
|
|
|
beq LA9BE
|
|
|
|
|
|
|
|
|
|
|
|
LA989 stx GP.INPTR
|
|
|
|
|
|
jsr BSX.GetHexDigit
|
|
|
|
|
|
bcc LA995
|
|
|
|
|
|
|
|
|
|
|
|
bmi LA9C1
|
|
|
|
|
|
|
|
|
|
|
|
bcs LA9BE
|
|
|
|
|
|
|
|
|
|
|
|
LA995 ldx GP.INPTR
|
|
|
|
|
|
jsr BS.GetCharSpaceSep
|
|
|
|
|
|
bne LA989
|
|
|
|
|
|
|
|
|
|
|
|
LA99D ldx #$02
|
|
|
|
|
|
LA99F cpx XBC08
|
|
|
|
|
|
beq LA9AC
|
|
|
|
|
|
|
|
|
|
|
|
lda BS.TMPBUF4,x
|
|
|
|
|
|
bne LA9C1
|
|
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
|
bne LA99F
|
|
|
|
|
|
|
|
|
|
|
|
LA9AC ldy XBC09
|
|
|
|
|
|
LA9AF lda BS.TMPBUF4,x
|
|
|
|
|
|
sta GP.ParamA,y
|
|
|
|
|
|
dey
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl LA9AF
|
|
|
|
|
|
|
|
|
|
|
|
ldx GP.INPTR
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
LA9C1 lda #BS.E.RANGE
|
|
|
|
|
|
.HS 2C BIT ABS
|
|
|
|
|
|
|
|
|
|
|
|
LA9BE lda #BS.E.SYNTAX
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.GetDecNum ldx BS.ToAUXSaveX
|
|
|
|
|
|
bra LA96E
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.GetDecDigit cmp #'0'
|
|
|
|
|
|
bcc LAA72
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'9'+1
|
|
|
|
|
|
bcc LAA76
|
|
|
|
|
|
|
|
|
|
|
|
LAA72 sec
|
|
|
|
|
|
ora #$00
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
LAA76 and #$0F
|
|
|
|
|
|
pha
|
|
|
|
|
|
lda BS.TMPBUF4+2
|
|
|
|
|
|
cmp #$1A
|
|
|
|
|
|
bcs LAAA2
|
|
|
|
|
|
|
|
|
|
|
|
ldx #$02
|
|
|
|
|
|
|
|
|
|
|
|
LAA82 lda BS.TMPBUF4,x
|
|
|
|
|
|
pha
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl LAA82
|
|
|
|
|
|
|
|
|
|
|
|
jsr BS.TMPBUF3x2
|
|
|
|
|
|
jsr BS.TMPBUF3x2
|
|
|
|
|
|
ldx #$00
|
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
LAA92 pla
|
|
|
|
|
|
adc BS.TMPBUF4,x
|
|
|
|
|
|
sta BS.TMPBUF4,x
|
|
|
|
|
|
inx
|
|
|
|
|
|
txa
|
|
|
|
|
|
eor #$03
|
|
|
|
|
|
bne LAA92
|
|
|
|
|
|
|
|
|
|
|
|
jsr BS.TMPBUF3x2
|
|
|
|
|
|
|
|
|
|
|
|
LAAA2 pla
|
|
|
|
|
|
bcs LAAB8
|
|
|
|
|
|
|
|
|
|
|
|
adc BS.TMPBUF4
|
|
|
|
|
|
sta BS.TMPBUF4
|
|
|
|
|
|
bcc LAABB
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
inc BS.TMPBUF4+1
|
|
|
|
|
|
bne LAABB
|
|
|
|
|
|
|
|
|
|
|
|
inc BS.TMPBUF4+2
|
|
|
|
|
|
bne LAABB
|
|
|
|
|
|
|
|
|
|
|
|
LAAB8 lda #$FF
|
|
|
|
|
|
sec
|
|
|
|
|
|
LAABB rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.GetHexDigit cmp #'0'
|
|
|
|
|
|
bcc LAACC
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'9'+1
|
|
|
|
|
|
bcc LAAD2
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'A'
|
|
|
|
|
|
bcc LAACC
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'F'+1
|
|
|
|
|
|
bcc LAAD0
|
|
|
|
|
|
|
|
|
|
|
|
LAACC sec
|
|
|
|
|
|
ora #$00
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
LAAD0 sbc #$06
|
|
|
|
|
|
|
|
|
|
|
|
LAAD2 and #$0F
|
|
|
|
|
|
ldx #$03
|
|
|
|
|
|
|
|
|
|
|
|
LAAD6 jsr BS.TMPBUF3x2
|
|
|
|
|
|
bcs LAAB8
|
|
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl LAAD6
|
|
|
|
|
|
|
|
|
|
|
|
ora BS.TMPBUF4
|
|
|
|
|
|
sta BS.TMPBUF4
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.KW.OPT .AS "ABEL@DFRVS"
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.WHICHBITS
|
|
|
|
|
|
* .HS 8040201008040201
|
|
|
|
|
|
BSX.KW.OPT.PBITSLO
|
|
|
|
|
|
.DA #$80
|
|
|
|
|
|
.DA #$40
|
|
|
|
|
|
.DA #$20
|
|
|
|
|
|
.DA #$10
|
|
|
|
|
|
.DA #$08
|
|
|
|
|
|
.DA #$04
|
|
|
|
|
|
.DA #$02
|
|
|
|
|
|
.DA #$01
|
|
|
|
|
|
.DA #$00
|
|
|
|
|
|
.DA #$04
|
|
|
|
|
|
BSX.KW.OPT.PBITSHI
|
|
|
|
|
|
.DA #$05
|
|
|
|
|
|
.DA #$12
|
|
|
|
|
|
.DA #$19
|
|
|
|
|
|
.DA #$21
|
|
|
|
|
|
.DA #$45
|
|
|
|
|
|
.DA #$28
|
|
|
|
|
|
.DA #$31
|
|
|
|
|
|
.DA #$39
|
|
|
|
|
|
.DA #$40
|
|
|
|
|
|
.DA #$24
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.GetFTypeASC ldy #$00
|
|
|
|
|
|
|
|
|
|
|
|
.1 sta BS.TMPBUF4,y
|
|
|
|
|
|
iny
|
|
|
|
|
|
cpy #$03
|
|
|
|
|
|
beq .3
|
|
|
|
|
|
|
|
|
|
|
|
jsr BS.GetCharSpaceSep
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
.2 lda #BS.E.SYNTAX
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.3 stx GP.INPTR
|
|
|
|
|
|
|
|
|
|
|
|
.4 ldx #$00
|
|
|
|
|
|
lda XBC08
|
|
|
|
|
|
cmp #$0F
|
|
|
|
|
|
beq .2
|
|
|
|
|
|
|
|
|
|
|
|
asl
|
|
|
|
|
|
adc XBC08
|
|
|
|
|
|
tay
|
|
|
|
|
|
|
|
|
|
|
|
.5 lda BS.TMPBUF4,x
|
|
|
|
|
|
eor BSX.PRODOSTYPES.ASC,y
|
|
|
|
|
|
asl
|
|
|
|
|
|
bne .6
|
|
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
inx
|
|
|
|
|
|
cpx #$03
|
|
|
|
|
|
bne .5
|
|
|
|
|
|
|
|
|
|
|
|
beq .7
|
|
|
|
|
|
|
|
|
|
|
|
.6 inc XBC08
|
|
|
|
|
|
bne .4
|
|
|
|
|
|
|
|
|
|
|
|
.7 lda #$0E
|
|
|
|
|
|
sec
|
|
|
|
|
|
sbc XBC08
|
|
|
|
|
|
tay
|
|
|
|
|
|
lda BSX.PRODOSTYPES.H,y
|
|
|
|
|
|
sta GP.ParamT
|
|
|
|
|
|
ldx GP.INPTR
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.Expand stz BSX.Expand.Ptr start at first char of BS.CMDBUF
|
|
|
|
|
|
|
|
|
|
|
|
.2 jsr BSX.Expand.GetN
|
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'.'
|
|
|
|
|
|
bne .6
|
|
|
|
|
|
|
|
|
|
|
|
jsr BSX.Expand.GetN
|
|
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'/' /./ ???? discard
|
|
|
|
|
|
beq .2
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'.' /.DIR....
|
|
|
|
|
|
bne .5
|
|
|
|
|
|
|
|
|
|
|
|
jsr BSX.Expand.GetN
|
|
|
|
|
|
beq .3 /..
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'/'
|
|
|
|
|
|
bne .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy MLI.PATHBUF remove /DIR/..
|
|
|
|
|
|
cpy #1
|
|
|
|
|
|
beq .9 only /
|
|
|
|
|
|
|
|
|
|
|
|
.3 dey
|
|
|
|
|
|
lda MLI.PATHBUF,y
|
|
|
|
|
|
cmp #'/'
|
|
|
|
|
|
bne .3
|
|
|
|
|
|
|
|
|
|
|
|
sty MLI.PATHBUF
|
|
|
|
|
|
bra .2
|
|
|
|
|
|
|
|
|
|
|
|
.5 pha
|
|
|
|
|
|
lda #'.'
|
|
|
|
|
|
jsr BSX.Expand.PutN
|
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
|
|
.6 jsr BSX.Expand.PutN
|
|
|
|
|
|
|
|
|
|
|
|
.7 jsr BSX.Expand.GetN
|
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
|
|
jsr BSX.Expand.PutN
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'/'
|
|
|
|
|
|
bne .7
|
|
|
|
|
|
|
|
|
|
|
|
bra .2
|
|
|
|
|
|
|
|
|
|
|
|
.8 ldy MLI.PATHBUF
|
|
|
|
|
|
|
|
|
|
|
|
.80 lda MLI.PATHBUF,y
|
|
|
|
|
|
sta BS.CMDBUF.LEN,y
|
|
|
|
|
|
dey
|
|
|
|
|
|
bpl .80
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.9 sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
BSX.Expand.GetN ldx BSX.Expand.Ptr
|
|
|
|
|
|
cpx BS.CMDBUF.LEN
|
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
|
|
inc BSX.Expand.Ptr
|
|
|
|
|
|
lda BS.CMDBUF,x NZ
|
|
|
|
|
|
|
|
|
|
|
|
.8 rts
|
|
|
|
|
|
|
|
|
|
|
|
BSX.Expand.PutN inc MLI.PATHBUF
|
|
|
|
|
|
ldy MLI.PATHBUF
|
|
|
|
|
|
sta MLI.PATHBUF,y
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
BSX.Expand.Ptr .BS 1
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.IsIntCmd lda #BSX.IntCmds
|
|
|
|
|
|
sta ZPXPtr1
|
|
|
|
|
|
|
|
|
|
|
|
lda /BSX.IntCmds
|
|
|
|
|
|
sta ZPXPtr1+1
|
|
|
|
|
|
|
2024-01-05 16:33:57 +00:00
|
|
|
|
ldx #38
|
2022-04-19 18:24:34 +00:00
|
|
|
|
stx GP.XCNUM
|
|
|
|
|
|
|
|
|
|
|
|
.1 ldy #$ff
|
|
|
|
|
|
|
|
|
|
|
|
.2 iny
|
|
|
|
|
|
lda BS.CMDBUF,y
|
|
|
|
|
|
jsr BSX.ToUpper
|
|
|
|
|
|
eor (ZPXPtr1),y
|
|
|
|
|
|
asl
|
|
|
|
|
|
bne .3
|
|
|
|
|
|
|
|
|
|
|
|
bcc .2
|
|
|
|
|
|
|
|
|
|
|
|
sty GP.XLEN
|
|
|
|
|
|
|
|
|
|
|
|
lda GP.XCNUM
|
|
|
|
|
|
asl
|
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
|
|
lda BSX.KW.PBITS-2,x
|
|
|
|
|
|
sta GP.AllowedBITS
|
|
|
|
|
|
lda BSX.KW.PBITS-1,x
|
|
|
|
|
|
sta GP.AllowedBITS+1
|
|
|
|
|
|
|
|
|
|
|
|
lda BSX.KW.JMP,x
|
|
|
|
|
|
sta BS.KW.JMPADDR
|
|
|
|
|
|
lda BSX.KW.JMP+1,x
|
|
|
|
|
|
sta BS.KW.JMPADDR+1
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.3 iny
|
|
|
|
|
|
bcs .4
|
|
|
|
|
|
|
|
|
|
|
|
lda (ZPXPtr1),y
|
|
|
|
|
|
asl
|
|
|
|
|
|
bra .3
|
|
|
|
|
|
|
|
|
|
|
|
.4 tya
|
|
|
|
|
|
clc
|
|
|
|
|
|
adc ZPXPtr1
|
|
|
|
|
|
sta ZPXPtr1
|
|
|
|
|
|
bcc .5
|
|
|
|
|
|
|
|
|
|
|
|
inc ZPXPtr1+1
|
|
|
|
|
|
|
|
|
|
|
|
.5 dec GP.XCNUM
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2024-01-05 16:33:57 +00:00
|
|
|
|
BSX.IntCmds .AT "PATH"
|
|
|
|
|
|
.AT "FORMAT"
|
2022-05-25 18:46:02 +00:00
|
|
|
|
.AT "CD"
|
2022-04-19 18:24:34 +00:00
|
|
|
|
.AT "ONLINE"
|
|
|
|
|
|
.AT "MEM"
|
|
|
|
|
|
.AT "MTR"
|
|
|
|
|
|
.AT "-"
|
|
|
|
|
|
.AT "POSITION"
|
|
|
|
|
|
.AT "RESTORE"
|
|
|
|
|
|
.AT "CATALOG"
|
|
|
|
|
|
.AT "VERIFY"
|
|
|
|
|
|
.AT "UNLOCK"
|
|
|
|
|
|
.AT "RENAME"
|
|
|
|
|
|
.AT "PREFIX"
|
|
|
|
|
|
.AT "DELETE"
|
|
|
|
|
|
.AT "CREATE"
|
|
|
|
|
|
.AT "APPEND"
|
|
|
|
|
|
.AT "WRITE"
|
|
|
|
|
|
.AT "STORE"
|
|
|
|
|
|
.AT "NOMON"
|
|
|
|
|
|
.AT "FLUSH"
|
|
|
|
|
|
.AT "CLOSE"
|
|
|
|
|
|
.AT "CHAIN"
|
|
|
|
|
|
.AT "BSAVE"
|
|
|
|
|
|
.AT "BLOAD"
|
|
|
|
|
|
.AT "SAVE"
|
|
|
|
|
|
.AT "READ"
|
|
|
|
|
|
.AT "OPEN"
|
|
|
|
|
|
.AT "LOCK"
|
|
|
|
|
|
.AT "LOAD"
|
|
|
|
|
|
.AT "EXEC"
|
|
|
|
|
|
.AT "BRUN"
|
|
|
|
|
|
.AT "RUN"
|
|
|
|
|
|
.AT "BYE"
|
|
|
|
|
|
.AT "FRE"
|
|
|
|
|
|
.AT "CAT"
|
|
|
|
|
|
.AT "PR#"
|
|
|
|
|
|
.AT "IN#"
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.KW.PBITS .DA $8040 IN
|
|
|
|
|
|
.DA $8040 PR
|
|
|
|
|
|
.DA $0495 CAT
|
|
|
|
|
|
.DA $0000 FRE
|
|
|
|
|
|
.DA $0000 BYE
|
|
|
|
|
|
.DA $0C11 RUN
|
|
|
|
|
|
.DA $F401 BRUN
|
|
|
|
|
|
.DA $0701 EXEC
|
|
|
|
|
|
.DA $0401 LOAD
|
|
|
|
|
|
.DA $0401 LOCK
|
|
|
|
|
|
.DA $142D OPEN
|
|
|
|
|
|
.DA $5321 READ
|
|
|
|
|
|
.DA $0409 SAVE
|
|
|
|
|
|
.DA $F405 BLOAD
|
|
|
|
|
|
.DA $F40D BSAVE
|
|
|
|
|
|
.DA $0C01 CHAIN
|
|
|
|
|
|
.DA $0001 CLOSE
|
|
|
|
|
|
.DA $0001 FLUSH
|
|
|
|
|
|
.DA $0000 NOMON
|
|
|
|
|
|
.DA $0409 STORE
|
|
|
|
|
|
.DA $4321 WRITE
|
|
|
|
|
|
.DA $142D APPEND
|
|
|
|
|
|
.DA $040D CREATE
|
|
|
|
|
|
.DA $0401 DELETE
|
|
|
|
|
|
.DA $0491 PREFIX
|
|
|
|
|
|
.DA $0403 RENAME
|
|
|
|
|
|
.DA $0401 UNLOCK
|
|
|
|
|
|
.DA $0411 VERIFY
|
|
|
|
|
|
.DA $0495 CATALOG
|
|
|
|
|
|
.DA $0401 RESTORE
|
|
|
|
|
|
.DA $0321 POSITION
|
|
|
|
|
|
.DA $0401 DASH
|
|
|
|
|
|
.DA $0000 MTR
|
|
|
|
|
|
.DA $0000 MEM
|
|
|
|
|
|
.DA $0000 ONLINE
|
|
|
|
|
|
.DA $0491 CD
|
2022-05-25 18:46:02 +00:00
|
|
|
|
|
|
|
|
|
|
.DA #$18 FORMAT
|
|
|
|
|
|
.DA #$F6
|
2024-01-05 16:33:57 +00:00
|
|
|
|
|
|
|
|
|
|
.DA $0091 PATH
|
2022-04-19 18:24:34 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.KW.JMP .DA BS.KW.EXTERNAL 0
|
|
|
|
|
|
.DA BS.KW.IN 1
|
|
|
|
|
|
.DA BS.KW.PR 2
|
|
|
|
|
|
.DA BS.KW.CAT 3
|
|
|
|
|
|
.DA BS.KW.FRE 4
|
|
|
|
|
|
.DA BS.KW.BYE 5
|
|
|
|
|
|
.DA BS.KW.RUN 6
|
|
|
|
|
|
.DA BS.KW.BRUN 7
|
|
|
|
|
|
.DA BS.KW.EXEC 8
|
|
|
|
|
|
.DA BS.KW.LOAD 9
|
|
|
|
|
|
.DA BS.KW.LOCK 10
|
|
|
|
|
|
.DA BS.KW.OPEN 11
|
|
|
|
|
|
.DA BS.KW.READ 12
|
|
|
|
|
|
.DA BS.KW.SAVE 13
|
|
|
|
|
|
.DA BS.KW.BLOAD 14
|
|
|
|
|
|
.DA BS.KW.BSAVE 15
|
|
|
|
|
|
.DA BS.KW.CHAIN 16
|
|
|
|
|
|
.DA BS.KW.CLOSE 17
|
|
|
|
|
|
.DA BS.KW.FLUSH 18
|
|
|
|
|
|
.DA BS.KW.NOMON 19
|
|
|
|
|
|
.DA BS.KW.STORE 20
|
|
|
|
|
|
.DA BS.KW.WRITE 21
|
|
|
|
|
|
.DA BS.KW.APPEND 22
|
|
|
|
|
|
.DA BS.KW.CREATE 23
|
|
|
|
|
|
.DA BS.KW.DELETE 24
|
|
|
|
|
|
.DA BS.KW.PREFIX 25
|
|
|
|
|
|
.DA BS.KW.RENAME 26
|
|
|
|
|
|
.DA BS.KW.UNLOCK 27
|
|
|
|
|
|
.DA BS.KW.VERIFY 28
|
|
|
|
|
|
.DA BS.KW.CATALOG 29
|
|
|
|
|
|
.DA BS.KW.RESTORE 30
|
|
|
|
|
|
.DA BS.KW.POSITION 31
|
|
|
|
|
|
.DA BS.KW.DASH 32
|
|
|
|
|
|
.DA BS.KW.MTR 33
|
|
|
|
|
|
.DA BS.KW.MEM 34
|
|
|
|
|
|
.DA BS.KW.ONLINE 35
|
|
|
|
|
|
.DA BS.KW.PREFIX 36 (CD)
|
2022-05-25 18:46:02 +00:00
|
|
|
|
.DA BS.KW.FORMAT 37
|
2024-01-05 16:33:57 +00:00
|
|
|
|
.DA BS.KW.PATH 38
|
2022-04-19 18:24:34 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.GetErrA tax
|
|
|
|
|
|
ldy BSX.MSG.IDX-2,x
|
|
|
|
|
|
|
|
|
|
|
|
BSX.GetMSGY ldx #$00
|
|
|
|
|
|
clc
|
|
|
|
|
|
stz GP.INPTR
|
|
|
|
|
|
|
|
|
|
|
|
.1 jsr .4
|
|
|
|
|
|
bne .2
|
|
|
|
|
|
|
|
|
|
|
|
jsr .4
|
|
|
|
|
|
ora #$10
|
|
|
|
|
|
|
|
|
|
|
|
.2 tax
|
|
|
|
|
|
lda BSX.TBL6-1,x
|
|
|
|
|
|
beq .3
|
|
|
|
|
|
|
|
|
|
|
|
ldx GP.INPTR
|
|
|
|
|
|
sta IO.LINEBUF+1,x
|
|
|
|
|
|
inc GP.INPTR
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
.3 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
.4 lda BSX.MSG,y
|
|
|
|
|
|
bcs .6
|
|
|
|
|
|
|
|
|
|
|
|
beq .5
|
|
|
|
|
|
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.5 iny
|
|
|
|
|
|
lda BSX.MSG,y
|
|
|
|
|
|
sta GP.INPTR
|
|
|
|
|
|
iny
|
|
|
|
|
|
bne .4
|
|
|
|
|
|
|
|
|
|
|
|
.6 iny
|
|
|
|
|
|
and #$0F
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* .DA #$00 "Copyright..." (VERIFY with no arg)
|
|
|
|
|
|
* .DA #$10 CATALOG header
|
|
|
|
|
|
* .DA #$36 CATALOG footer
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.MSG.IDX .DA #$54
|
|
|
|
|
|
.DA #$5B
|
|
|
|
|
|
.DA #$66
|
|
|
|
|
|
.DA #$6F
|
|
|
|
|
|
.DA #$75
|
|
|
|
|
|
.DA #$75
|
|
|
|
|
|
.DA #$7E
|
|
|
|
|
|
.DA #$84
|
|
|
|
|
|
.DA #$8A
|
|
|
|
|
|
.DA #$91
|
|
|
|
|
|
.DA #$9B
|
|
|
|
|
|
.DA #$A8
|
|
|
|
|
|
.DA #$B4
|
|
|
|
|
|
.DA #$BF
|
|
|
|
|
|
.DA #$C9
|
|
|
|
|
|
.DA #$D1
|
|
|
|
|
|
.DA #$D9
|
|
|
|
|
|
.DA #$E1
|
|
|
|
|
|
.DA #$EC
|
|
|
|
|
|
.DA #$F3
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.TBL6 .AS -"ACDEFILMNORTU "
|
|
|
|
|
|
.DA #$00
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
.DA #$00
|
|
|
|
|
|
.AS -"BGHKPSVWXY/().:"
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.MSG .DA #$2A
|
|
|
|
|
|
.DA #$05
|
|
|
|
|
|
.DA #$0A
|
|
|
|
|
|
.DA #$B6
|
|
|
|
|
|
.DA #$02
|
|
|
|
|
|
.DA #$03
|
|
|
|
|
|
.DA #$CE
|
|
|
|
|
|
.DA #$10
|
|
|
|
|
|
.DA #$50
|
|
|
|
|
|
.DA #$57
|
|
|
|
|
|
.DA #$4E
|
|
|
|
|
|
.DA #$2A
|
|
|
|
|
|
.DA #$80
|
|
|
|
|
|
.DA #$5D
|
|
|
|
|
|
.DA #$C4
|
|
|
|
|
|
.DA #$BF
|
|
|
|
|
|
.DA #$E9
|
|
|
|
|
|
.DA #$18
|
|
|
|
|
|
.DA #$4E
|
|
|
|
|
|
.DA #$00
|
|
|
|
|
|
.DA #$10
|
|
|
|
|
|
.DA #$C0
|
|
|
|
|
|
.DA #$A0
|
|
|
|
|
|
.DA #$54
|
|
|
|
|
|
.DA #$EE
|
|
|
|
|
|
.DA #$01
|
|
|
|
|
|
.DA #$7A
|
|
|
|
|
|
.DA #$20
|
|
|
|
|
|
.DA #$40
|
|
|
|
|
|
.DA #$6E
|
|
|
|
|
|
.DA #$00
|
|
|
|
|
|
.DA #$1E
|
|
|
|
|
|
.DA #$8A
|
|
|
|
|
|
.DA #$36
|
|
|
|
|
|
.DA #$56
|
|
|
|
|
|
.DA #$43
|
|
|
|
|
|
.DA #$00
|
|
|
|
|
|
.DA #$2F
|
|
|
|
|
|
.DA #$2B
|
|
|
|
|
|
.DA #$41
|
|
|
|
|
|
.DA #$C4
|
|
|
|
|
|
.DA #$3E
|
|
|
|
|
|
.DA #$00
|
|
|
|
|
|
.DA #$40
|
|
|
|
|
|
.DA #$49
|
|
|
|
|
|
.DA #$35
|
|
|
|
|
|
.DA #$67
|
|
|
|
|
|
.DA #$4E
|
|
|
|
|
|
.DA #$06
|
|
|
|
|
|
.DA #$D0
|
|
|
|
|
|
.DA #$1C
|
|
|
|
|
|
.DA #$0A
|
|
|
|
|
|
.DA #$05
|
|
|
|
|
|
.DA #$4F
|
|
|
|
|
|
.DA #$01
|
|
|
|
|
|
.DA #$7A
|
|
|
|
|
|
.DA #$20
|
|
|
|
|
|
.DA #$40
|
|
|
|
|
|
.DA #$6E
|
|
|
|
|
|
.DA #$5B
|
|
|
|
|
|
.DA #$44
|
|
|
|
|
|
.DA #$0F
|
|
|
|
|
|
.DA #$00
|
|
|
|
|
|
.DA #$16
|
|
|
|
|
|
.DA #$01
|
|
|
|
|
|
.DA #$7A
|
|
|
|
|
|
.DA #$20
|
|
|
|
|
|
.DA #$40
|
|
|
|
|
|
.DA #$6E
|
|
|
|
|
|
.DA #$D0
|
|
|
|
|
|
.DA #$64
|
|
|
|
|
|
.DA #$30
|
|
|
|
|
|
.DA #$FE
|
|
|
|
|
|
.DA #$00
|
|
|
|
|
|
.DA #$2C
|
|
|
|
|
|
.DA #$CA
|
|
|
|
|
|
.DA #$C1
|
|
|
|
|
|
.DA #$7E
|
|
|
|
|
|
.DA #$01
|
|
|
|
|
|
.DA #$7A
|
|
|
|
|
|
.DA #$20
|
|
|
|
|
|
.DA #$40
|
|
|
|
|
|
.DA #$60
|
|
|
|
|
|
.DA #$FF
|
|
|
|
|
|
.DA #$B1
|
|
|
|
|
|
.DA #$90
|
|
|
|
|
|
.DA #$24
|
|
|
|
|
|
.DA #$E4
|
|
|
|
|
|
.DA #$BB
|
|
|
|
|
|
.DA #$AB
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$9A
|
|
|
|
|
|
.DA #$E3
|
|
|
|
|
|
.DA #$40
|
|
|
|
|
|
.DA #$76
|
|
|
|
|
|
.DA #$24
|
|
|
|
|
|
.DA #$E2
|
|
|
|
|
|
.DA #$A9
|
|
|
|
|
|
.DA #$94
|
|
|
|
|
|
.DA #$2C
|
|
|
|
|
|
.DA #$43
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$08
|
|
|
|
|
|
.DA #$B6
|
|
|
|
|
|
.DA #$C4
|
|
|
|
|
|
.DA #$E0
|
|
|
|
|
|
.DA #$5B
|
|
|
|
|
|
.DA #$AC
|
|
|
|
|
|
.DA #$42
|
|
|
|
|
|
.DA #$C4
|
|
|
|
|
|
.DA #$3F
|
|
|
|
|
|
.DA #$49
|
|
|
|
|
|
.DA #$3E
|
|
|
|
|
|
.DA #$A5
|
|
|
|
|
|
.DA #$E3
|
|
|
|
|
|
.DA #$1C
|
|
|
|
|
|
.DA #$1F
|
|
|
|
|
|
.DA #$05
|
|
|
|
|
|
.DA #$1C
|
|
|
|
|
|
.DA #$03
|
|
|
|
|
|
.DA #$E9
|
|
|
|
|
|
.DA #$AC
|
|
|
|
|
|
.DA #$E5
|
|
|
|
|
|
.DA #$AD
|
|
|
|
|
|
.DA #$93
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$60
|
|
|
|
|
|
.DA #$BA
|
|
|
|
|
|
.DA #$E4
|
|
|
|
|
|
.DA #$BB
|
|
|
|
|
|
.DA #$AB
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$36
|
|
|
|
|
|
.DA #$06
|
|
|
|
|
|
.DA #$04
|
|
|
|
|
|
.DA #$E5
|
|
|
|
|
|
.DA #$D7
|
|
|
|
|
|
.DA #$7F
|
|
|
|
|
|
.DA #$56
|
|
|
|
|
|
.DA #$74
|
|
|
|
|
|
.DA #$E7
|
|
|
|
|
|
.DA #$A2
|
|
|
|
|
|
.DA #$04
|
|
|
|
|
|
.DA #$43
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$69
|
|
|
|
|
|
.DA #$07
|
|
|
|
|
|
.DA #$17
|
|
|
|
|
|
.DA #$63
|
|
|
|
|
|
.DA #$E0
|
|
|
|
|
|
.DA #$51
|
|
|
|
|
|
.DA #$B1
|
|
|
|
|
|
.DA #$84
|
|
|
|
|
|
.DA #$C4
|
|
|
|
|
|
.DA #$BF
|
|
|
|
|
|
.DA #$9A
|
|
|
|
|
|
.DA #$E0
|
|
|
|
|
|
.DA #$1D
|
|
|
|
|
|
.DA #$55
|
|
|
|
|
|
.DA #$4B
|
|
|
|
|
|
.DA #$06
|
|
|
|
|
|
.DA #$E1
|
|
|
|
|
|
.DA #$07
|
|
|
|
|
|
.DA #$16
|
|
|
|
|
|
.DA #$71
|
|
|
|
|
|
.DA #$01
|
|
|
|
|
|
.DA #$74
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$56
|
|
|
|
|
|
.DA #$74
|
|
|
|
|
|
.DA #$EC
|
|
|
|
|
|
.DA #$0A
|
|
|
|
|
|
.DA #$05
|
|
|
|
|
|
.DA #$4E
|
|
|
|
|
|
.DA #$86
|
|
|
|
|
|
.DA #$06
|
|
|
|
|
|
.DA #$81
|
|
|
|
|
|
.DA #$C2
|
|
|
|
|
|
.DA #$03
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$05
|
|
|
|
|
|
.DA #$BA
|
|
|
|
|
|
.DA #$02
|
|
|
|
|
|
.DA #$B1
|
|
|
|
|
|
.DA #$8E
|
|
|
|
|
|
.DA #$CA
|
|
|
|
|
|
.DA #$AE
|
|
|
|
|
|
.DA #$71
|
|
|
|
|
|
.DA #$B0
|
|
|
|
|
|
.DA #$24
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$9A
|
|
|
|
|
|
.DA #$CE
|
|
|
|
|
|
.DA #$36
|
|
|
|
|
|
.DA #$B4
|
|
|
|
|
|
.DA #$2C
|
|
|
|
|
|
.DA #$E2
|
|
|
|
|
|
.DA #$A8
|
|
|
|
|
|
.DA #$81
|
|
|
|
|
|
.DA #$93
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$06
|
|
|
|
|
|
.DA #$0A
|
|
|
|
|
|
.DA #$9C
|
|
|
|
|
|
.DA #$10
|
|
|
|
|
|
.DA #$9E
|
|
|
|
|
|
.DA #$4B
|
|
|
|
|
|
.DA #$BA
|
|
|
|
|
|
.DA #$BF
|
|
|
|
|
|
.DA #$36
|
|
|
|
|
|
.DA #$B4
|
|
|
|
|
|
.DA #$2C
|
|
|
|
|
|
.DA #$AB
|
|
|
|
|
|
.DA #$0A
|
|
|
|
|
|
.DA #$E5
|
|
|
|
|
|
.DA #$D7
|
|
|
|
|
|
.DA #$7F
|
|
|
|
|
|
.DA #$56
|
|
|
|
|
|
.DA #$74
|
|
|
|
|
|
.DA #$E9
|
|
|
|
|
|
.DA #$AC
|
|
|
|
|
|
.DA #$EA
|
|
|
|
|
|
.DA #$05
|
|
|
|
|
|
.DA #$49
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$3D
|
|
|
|
|
|
.DA #$05
|
|
|
|
|
|
.DA #$76
|
|
|
|
|
|
.DA #$21
|
|
|
|
|
|
.DA #$C4
|
|
|
|
|
|
.DA #$E5
|
|
|
|
|
|
.DA #$67
|
|
|
|
|
|
.DA #$4E
|
|
|
|
|
|
.DA #$91
|
|
|
|
|
|
.DA #$84
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$56
|
|
|
|
|
|
.DA #$74
|
|
|
|
|
|
.DA #$E0
|
|
|
|
|
|
.DA #$1D
|
|
|
|
|
|
.DA #$06
|
|
|
|
|
|
.DA #$0A
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$56
|
|
|
|
|
|
.DA #$74
|
|
|
|
|
|
.DA #$0C
|
|
|
|
|
|
.DA #$06
|
|
|
|
|
|
.DA #$0D
|
|
|
|
|
|
.DA #$E0
|
|
|
|
|
|
.DA #$6C
|
|
|
|
|
|
.DA #$67
|
|
|
|
|
|
.DA #$7E
|
|
|
|
|
|
.DA #$A0
|
|
|
|
|
|
.DA #$54
|
|
|
|
|
|
.DA #$9F
|
|
|
|
|
|
*--------------------------------------
|
2024-01-05 16:33:57 +00:00
|
|
|
|
BSX.Online jsr BSX.OnlineInit
|
|
|
|
|
|
jsr BSX.OnlineSxDy
|
|
|
|
|
|
|
|
|
|
|
|
ldx BS.CMDBUF.LEN
|
|
|
|
|
|
|
|
|
|
|
|
.2 lda BS.CMDBUF.LEN,x
|
|
|
|
|
|
ora #$80
|
|
|
|
|
|
sta IO.LINEBUF+5,x
|
|
|
|
|
|
dex
|
|
|
|
|
|
bne .2
|
|
|
|
|
|
|
|
|
|
|
|
lda GP.FIBLOKS
|
|
|
|
|
|
ldx GP.FIBLOKS+1
|
|
|
|
|
|
ldy #28
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
|
|
|
|
|
|
lda #"/"
|
|
|
|
|
|
sta IO.LINEBUF+30
|
|
|
|
|
|
|
|
|
|
|
|
lda GP.FIAUXTYPE
|
|
|
|
|
|
ldx GP.FIAUXTYPE+1
|
|
|
|
|
|
ldy #34
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.OnlineErr pha
|
|
|
|
|
|
|
|
|
|
|
|
jsr BSX.OnlineInit
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
pha
|
|
|
|
|
|
jsr BSX.GetErrA
|
|
|
|
|
|
|
|
|
|
|
|
ldx GP.INPTR
|
|
|
|
|
|
|
|
|
|
|
|
.10 lda IO.LINEBUF+1,x
|
|
|
|
|
|
sta IO.LINEBUF+11,x
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl .10
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
|
|
ldx #12
|
|
|
|
|
|
|
|
|
|
|
|
.1 cmp BS.BIERRTBL,x
|
|
|
|
|
|
beq .2
|
|
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
|
|
lda #$27
|
|
|
|
|
|
bra .3
|
|
|
|
|
|
|
|
|
|
|
|
.2 lda BS.MLIERTBL,x
|
|
|
|
|
|
|
|
|
|
|
|
.3 pha
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
ora #$B0
|
|
|
|
|
|
sta IO.LINEBUF+7
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
|
|
and #$0F
|
|
|
|
|
|
ora #$B0
|
|
|
|
|
|
sta IO.LINEBUF+8
|
|
|
|
|
|
|
|
|
|
|
|
lda #"("
|
|
|
|
|
|
sta IO.LINEBUF+6
|
|
|
|
|
|
lda #")"
|
|
|
|
|
|
sta IO.LINEBUF+9
|
|
|
|
|
|
|
|
|
|
|
|
lda #" "
|
|
|
|
|
|
sta IO.LINEBUF+5
|
|
|
|
|
|
|
|
|
|
|
|
jsr BSX.OnlineSxDy
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.OnlineInit jsr BS.LINEBUFCLR80
|
2022-04-19 18:24:34 +00:00
|
|
|
|
|
|
|
|
|
|
lda #39
|
|
|
|
|
|
sta BS.CATWIDTH
|
2024-01-05 16:33:57 +00:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.OnlineSxDy lda #"S"
|
2022-04-19 18:24:34 +00:00
|
|
|
|
sta IO.LINEBUF+1
|
|
|
|
|
|
lda #"D"
|
|
|
|
|
|
sta IO.LINEBUF+3
|
|
|
|
|
|
|
|
|
|
|
|
lda GP.MLIMRKEOFBUF.REFNUM
|
|
|
|
|
|
asl
|
|
|
|
|
|
php
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
ora #$B0
|
|
|
|
|
|
sta IO.LINEBUF+2
|
|
|
|
|
|
|
|
|
|
|
|
lda #$B0
|
|
|
|
|
|
plp
|
|
|
|
|
|
adc #1
|
|
|
|
|
|
sta IO.LINEBUF+4
|
2024-01-05 16:33:57 +00:00
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.InitPath ldx #0
|
|
|
|
|
|
|
|
|
|
|
|
.1 inx
|
|
|
|
|
|
lda MLI.PATHBUF,x
|
|
|
|
|
|
sta BSX.PATH-1,x
|
|
|
|
|
|
cpx MLI.PATHBUF
|
|
|
|
|
|
bne .1
|
2022-04-19 18:24:34 +00:00
|
|
|
|
|
2024-01-05 16:33:57 +00:00
|
|
|
|
ldy #0
|
|
|
|
|
|
|
|
|
|
|
|
.2 lda BSX.BIN,y
|
|
|
|
|
|
beq .8
|
2022-04-19 18:24:34 +00:00
|
|
|
|
|
2024-01-05 16:33:57 +00:00
|
|
|
|
iny
|
2022-04-19 18:24:34 +00:00
|
|
|
|
|
2024-01-05 16:33:57 +00:00
|
|
|
|
inx
|
|
|
|
|
|
sta BSX.PATH-1,x
|
|
|
|
|
|
bra .2
|
|
|
|
|
|
|
|
|
|
|
|
.8 stx BSX.PATH.LEN
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.SetPath clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.GetPath ldx BSX.PATH.LEN
|
2024-01-05 21:56:46 +00:00
|
|
|
|
stx BS.CMDBUF.LEN
|
2022-04-19 18:24:34 +00:00
|
|
|
|
|
2024-01-05 21:56:46 +00:00
|
|
|
|
.1 lda BSX.PATH-1,x
|
|
|
|
|
|
sta BS.CMDBUF-1,x
|
2024-01-05 16:33:57 +00:00
|
|
|
|
dex
|
|
|
|
|
|
bne .1
|
2022-04-19 18:24:34 +00:00
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.Mem ldx #16+14
|
|
|
|
|
|
stx BS.CATWIDTH
|
|
|
|
|
|
|
|
|
|
|
|
ldx #0
|
|
|
|
|
|
|
|
|
|
|
|
asl
|
|
|
|
|
|
pha
|
|
|
|
|
|
asl
|
|
|
|
|
|
asl
|
|
|
|
|
|
asl
|
|
|
|
|
|
tay
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda BS.MEM.MSG1,y
|
|
|
|
|
|
sta IO.LINEBUF+1,x
|
|
|
|
|
|
|
|
|
|
|
|
lda BS.MEM.MSG2,x
|
|
|
|
|
|
sta IO.LINEBUF+17,x
|
|
|
|
|
|
iny
|
|
|
|
|
|
inx
|
|
|
|
|
|
cpx #16
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
ply
|
|
|
|
|
|
|
|
|
|
|
|
ldx $261,y
|
|
|
|
|
|
phx
|
|
|
|
|
|
lda $260,y
|
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
|
|
ldy #20
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
ldy #27
|
|
|
|
|
|
jsr BSX.AHEX2LINEBUFY
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
ldy #25
|
|
|
|
|
|
jsr BSX.AHEX2LINEBUFY
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BS.MEM.MSG1 .AS -"Program Start : "
|
|
|
|
|
|
.AS -"Var Start : "
|
|
|
|
|
|
.AS -"Array Start : "
|
|
|
|
|
|
.AS -"Array End : "
|
|
|
|
|
|
.AS -"String Start : "
|
|
|
|
|
|
.AS -"Himem : "
|
|
|
|
|
|
|
|
|
|
|
|
BS.MEM.MSG2 .AS -" ( ) "
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.MkCatLine jsr BS.LINEBUFCLR80
|
|
|
|
|
|
lda #$A2
|
|
|
|
|
|
sta IO.LINEBUF
|
|
|
|
|
|
lda DIRENTBUF
|
|
|
|
|
|
and #$0F
|
|
|
|
|
|
tay
|
|
|
|
|
|
|
|
|
|
|
|
LA4E0 lda DIRENTBUF,y
|
|
|
|
|
|
ora #$80
|
|
|
|
|
|
sta IO.LINEBUF+1,y
|
|
|
|
|
|
dey
|
|
|
|
|
|
bne LA4E0
|
|
|
|
|
|
|
|
|
|
|
|
.DO LOWERCASE=1
|
|
|
|
|
|
lda DIRENTBUF+$1D
|
|
|
|
|
|
bpl .18
|
|
|
|
|
|
|
|
|
|
|
|
lda DIRENTBUF
|
|
|
|
|
|
and #$0f
|
|
|
|
|
|
tay
|
|
|
|
|
|
|
|
|
|
|
|
.10 cpy #8
|
|
|
|
|
|
bcs .13
|
|
|
|
|
|
|
|
|
|
|
|
lda DIRENTBUF+$1D
|
|
|
|
|
|
and BSX.WHICHBITS,y
|
|
|
|
|
|
beq .15
|
|
|
|
|
|
|
|
|
|
|
|
bne .14
|
|
|
|
|
|
|
|
|
|
|
|
.13 lda DIRENTBUF+$1C
|
|
|
|
|
|
and BSX.WHICHBITS-8,y
|
|
|
|
|
|
beq .15
|
|
|
|
|
|
|
|
|
|
|
|
.14 lda IO.LINEBUF+1,y
|
|
|
|
|
|
eor #$20
|
|
|
|
|
|
sta IO.LINEBUF+1,y
|
|
|
|
|
|
|
|
|
|
|
|
.15 dey
|
|
|
|
|
|
bne .10
|
|
|
|
|
|
|
|
|
|
|
|
.18 .FIN
|
|
|
|
|
|
|
|
|
|
|
|
stz BS.TMPBUF4+2
|
|
|
|
|
|
|
|
|
|
|
|
lda DIRENTBUF.TYPE
|
|
|
|
|
|
ldx #$0E
|
|
|
|
|
|
|
|
|
|
|
|
LA4F3 iny
|
|
|
|
|
|
iny
|
|
|
|
|
|
cmp BSX.PRODOSTYPES.H,x
|
|
|
|
|
|
beq LA505
|
|
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl LA4F3
|
|
|
|
|
|
|
|
|
|
|
|
ldy #$13
|
|
|
|
|
|
jsr BSX.AHEX2LINEBUFY
|
|
|
|
|
|
bne LA549
|
|
|
|
|
|
|
|
|
|
|
|
LA505 ldx #$02
|
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
|
|
LA508 lda BSX.PRODOSTYPES.ASC,y
|
|
|
|
|
|
sta $212,x
|
|
|
|
|
|
dey
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl LA508
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
bit BS.CATWIDTH
|
|
|
|
|
|
bvc LA561
|
|
|
|
|
|
|
|
|
|
|
|
ldy #$4E
|
|
|
|
|
|
cmp #$06
|
|
|
|
|
|
beq LA533
|
|
|
|
|
|
|
|
|
|
|
|
cmp #$04
|
|
|
|
|
|
bne LA549
|
|
|
|
|
|
|
|
|
|
|
|
lda #$D2
|
|
|
|
|
|
sta $249
|
|
|
|
|
|
lda DIRENTBUF.AUXT
|
|
|
|
|
|
ldx DIRENTBUF.AUXT+1
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
bra LA544
|
|
|
|
|
|
|
|
|
|
|
|
LA533 lda #$C1
|
|
|
|
|
|
sta $249
|
|
|
|
|
|
lda DIRENTBUF.AUXT
|
|
|
|
|
|
jsr BSX.AHEX2LINEBUFY
|
|
|
|
|
|
lda DIRENTBUF.AUXT+1
|
|
|
|
|
|
jsr BSX.AHEX2LINEBUFY
|
|
|
|
|
|
|
|
|
|
|
|
LA544 lda #$BD
|
|
|
|
|
|
sta $24A
|
|
|
|
|
|
|
|
|
|
|
|
LA549 lda DIRENTBUF.EOF+2
|
|
|
|
|
|
sta BS.TMPBUF4+2
|
|
|
|
|
|
lda DIRENTBUF.EOF
|
|
|
|
|
|
ldx DIRENTBUF.EOF+1
|
|
|
|
|
|
ldy #$46
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
ldx #$18
|
|
|
|
|
|
ldy #$3D
|
|
|
|
|
|
jsr LA57E
|
|
|
|
|
|
|
|
|
|
|
|
LA561 ldy #$1B
|
|
|
|
|
|
lda DIRENTBUF.UBLK
|
|
|
|
|
|
ldx DIRENTBUF.UBLK+1
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
lda DIRENTBUF.ACCESS
|
|
|
|
|
|
and #$C2
|
|
|
|
|
|
cmp #$C2
|
|
|
|
|
|
beq LA57A
|
|
|
|
|
|
|
|
|
|
|
|
lda #$AA
|
|
|
|
|
|
sta IO.LINEBUF+1
|
|
|
|
|
|
|
|
|
|
|
|
LA57A ldx #$21
|
|
|
|
|
|
ldy #$2C
|
|
|
|
|
|
|
|
|
|
|
|
LA57E lda $25A,x
|
|
|
|
|
|
lsr
|
|
|
|
|
|
sta XBC10
|
|
|
|
|
|
lda DIRENTBUF,x
|
|
|
|
|
|
pha
|
|
|
|
|
|
and #$1F
|
|
|
|
|
|
sta XBC0F
|
|
|
|
|
|
pla
|
|
|
|
|
|
rol
|
|
|
|
|
|
rol
|
|
|
|
|
|
rol
|
|
|
|
|
|
rol
|
|
|
|
|
|
and #$0F
|
|
|
|
|
|
beq LA5B1
|
|
|
|
|
|
|
|
|
|
|
|
cmp #$0D
|
|
|
|
|
|
bcs LA5B1
|
|
|
|
|
|
|
|
|
|
|
|
sta XBC0E
|
|
|
|
|
|
asl
|
|
|
|
|
|
adc XBC0E
|
|
|
|
|
|
sta XBC0E
|
|
|
|
|
|
lda XBC0F
|
|
|
|
|
|
beq LA5B1
|
|
|
|
|
|
|
|
|
|
|
|
lda XBC10
|
|
|
|
|
|
cmp #$64
|
|
|
|
|
|
bcc LA5C3
|
|
|
|
|
|
|
|
|
|
|
|
LA5B1 tya
|
|
|
|
|
|
sec
|
|
|
|
|
|
sbc #$06
|
|
|
|
|
|
tay
|
|
|
|
|
|
ldx #$08
|
|
|
|
|
|
|
|
|
|
|
|
LA5B8 lda BSX.NODATE,x
|
|
|
|
|
|
sta IO.LINEBUF+1,y
|
|
|
|
|
|
dey
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl LA5B8
|
|
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
LA5C3 lda $25C,x
|
|
|
|
|
|
pha
|
|
|
|
|
|
lda $25B,x
|
|
|
|
|
|
ldx #$00
|
|
|
|
|
|
cmp #$3C
|
|
|
|
|
|
bcc LA5D1
|
|
|
|
|
|
|
|
|
|
|
|
txa
|
|
|
|
|
|
|
|
|
|
|
|
LA5D1 jsr LA618
|
|
|
|
|
|
lda #$BA
|
|
|
|
|
|
sta IO.LINEBUF+1,y
|
|
|
|
|
|
dey
|
|
|
|
|
|
pla
|
|
|
|
|
|
ldx #$00
|
|
|
|
|
|
cmp #$18
|
|
|
|
|
|
bcc LA5E2
|
|
|
|
|
|
|
|
|
|
|
|
txa
|
|
|
|
|
|
|
|
|
|
|
|
LA5E2 cmp #$0A
|
|
|
|
|
|
php
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
plp
|
|
|
|
|
|
bcs LA5EC
|
|
|
|
|
|
|
|
|
|
|
|
dey
|
|
|
|
|
|
|
|
|
|
|
|
LA5EC dey
|
|
|
|
|
|
lda XBC10
|
|
|
|
|
|
jsr LA618
|
|
|
|
|
|
dey
|
|
|
|
|
|
ldx XBC0E
|
|
|
|
|
|
inx
|
|
|
|
|
|
inx
|
|
|
|
|
|
inx
|
|
|
|
|
|
|
|
|
|
|
|
LA5FA lda BSX.MONTHS-4,x
|
|
|
|
|
|
sta IO.LINEBUF+1,y
|
|
|
|
|
|
dey
|
|
|
|
|
|
dex
|
|
|
|
|
|
cpx XBC0E
|
|
|
|
|
|
bne LA5FA
|
|
|
|
|
|
|
|
|
|
|
|
lda #$AD
|
|
|
|
|
|
sta IO.LINEBUF+1,y
|
|
|
|
|
|
sta $205,y
|
|
|
|
|
|
dey
|
|
|
|
|
|
lda XBC0F
|
|
|
|
|
|
ldx #$00
|
|
|
|
|
|
jmp BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
|
|
|
|
|
|
LA618 clc
|
|
|
|
|
|
adc #$64
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
iny
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.MONTHS .AS -"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
|
|
|
|
|
|
BSX.NODATE .AS -"<NO DATE>"
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.MkCatLineF jsr BS.LINEBUFCLR80
|
|
|
|
|
|
|
|
|
|
|
|
ldy #$36
|
|
|
|
|
|
jsr BSX.GetMSGY
|
|
|
|
|
|
|
|
|
|
|
|
jsr BS.TMPBUF3Reset
|
|
|
|
|
|
lda GP.FIAUXTYPE
|
|
|
|
|
|
ldx GP.FIAUXTYPE+1
|
|
|
|
|
|
ldy #$3D
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
lda GP.FIBLOKS
|
|
|
|
|
|
ldx GP.FIBLOKS+1
|
|
|
|
|
|
ldy #$26
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
lda GP.FIAUXTYPE
|
|
|
|
|
|
sec
|
|
|
|
|
|
sbc GP.FIBLOKS
|
|
|
|
|
|
pha
|
|
|
|
|
|
lda GP.FIAUXTYPE+1
|
|
|
|
|
|
sbc GP.FIBLOKS+1
|
|
|
|
|
|
tax
|
|
|
|
|
|
pla
|
|
|
|
|
|
ldy #$10
|
|
|
|
|
|
jsr BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.AHEX2LINEBUFY
|
|
|
|
|
|
pha
|
|
|
|
|
|
and #$0F
|
|
|
|
|
|
jsr LA62B
|
|
|
|
|
|
pla
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
|
|
|
|
|
|
LA62B ora #$B0
|
|
|
|
|
|
cmp #$BA
|
|
|
|
|
|
bcc LA633
|
|
|
|
|
|
|
|
|
|
|
|
adc #$06
|
|
|
|
|
|
|
|
|
|
|
|
LA633 sta IO.LINEBUF+1,y
|
|
|
|
|
|
dey
|
|
|
|
|
|
lda #$A4
|
|
|
|
|
|
sta IO.LINEBUF+1,y
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.AXDEC2LINEBUFY
|
|
|
|
|
|
stx BS.TMPBUF4+1
|
|
|
|
|
|
sta BS.TMPBUF4
|
|
|
|
|
|
|
|
|
|
|
|
.1 jsr .2
|
|
|
|
|
|
|
|
|
|
|
|
lda BS.TMPBUF4+3
|
|
|
|
|
|
ora #$B0
|
|
|
|
|
|
sta IO.LINEBUF+1,y
|
|
|
|
|
|
dey
|
|
|
|
|
|
lda BS.TMPBUF4
|
|
|
|
|
|
ora BS.TMPBUF4+1
|
|
|
|
|
|
ora BS.TMPBUF4+2
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.2 ldx #$18
|
|
|
|
|
|
lda #$00
|
|
|
|
|
|
sta BS.TMPBUF4+3
|
|
|
|
|
|
|
|
|
|
|
|
.3 jsr BS.TMPBUF3x2
|
|
|
|
|
|
rol BS.TMPBUF4+3
|
|
|
|
|
|
sec
|
|
|
|
|
|
lda BS.TMPBUF4+3
|
|
|
|
|
|
sbc #$0A
|
|
|
|
|
|
bcc .4
|
|
|
|
|
|
|
|
|
|
|
|
sta BS.TMPBUF4+3
|
|
|
|
|
|
inc BS.TMPBUF4
|
|
|
|
|
|
|
|
|
|
|
|
.4 dex
|
|
|
|
|
|
bne .3
|
|
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.PRODOSTYPES.H
|
|
|
|
|
|
.DA #$FF
|
|
|
|
|
|
.DA #$FE
|
|
|
|
|
|
.DA #$FD
|
|
|
|
|
|
.DA #$FC
|
|
|
|
|
|
.DA #$FB
|
|
|
|
|
|
.DA #$FA
|
|
|
|
|
|
.DA #$F0
|
|
|
|
|
|
.DA #$0F
|
|
|
|
|
|
.DA #$06
|
|
|
|
|
|
.DA #$04
|
|
|
|
|
|
.DA #$EF
|
|
|
|
|
|
.DA #$1A
|
|
|
|
|
|
.DA #$1B
|
|
|
|
|
|
.DA #$19
|
|
|
|
|
|
.DA #$B3
|
|
|
|
|
|
BSX.PRODOSTYPES.ASC
|
|
|
|
|
|
.AS -"S16ADBASPAWPPASTXTBINDIRCMDINTIVRBASVARRELSYS"
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
BSX.ToUpper cmp #'a'
|
|
|
|
|
|
bcc .9
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'z'+1
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
eor #$20
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
2024-01-05 16:33:57 +00:00
|
|
|
|
BSX.BIN .AZ "/BIN/"
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
.DUMMY
|
|
|
|
|
|
BSX.PATH.LEN .BS 1
|
|
|
|
|
|
BSX.PATH .BS 64
|
|
|
|
|
|
.ED
|
|
|
|
|
|
*--------------------------------------
|
2022-04-19 18:24:34 +00:00
|
|
|
|
MAN
|
|
|
|
|
|
SAVE usr/src/basic.fx/basic.s.x
|
|
|
|
|
|
LOAD usr/src/basic.fx/basic.s
|
|
|
|
|
|
ASM
|
