Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-01 07:41:51 +00:00
Code Issues Projects Releases Wiki Activity

BASIC:More code moved to AUXLC

Browse Source
This commit is contained in:
burniouf 2022-04-03 13:55:03 +02:00
parent b206dd8036
commit d573012ecb
7 changed files with 75 additions and 313 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

32
BASIC.FX/BASIC.S.A.txt
View File

@ -870,7 +870,8 @@ BS.WriteTBUF jsr LA004
*-------------------------------------- *--------------------------------------
LA004 ldy #$00 LA004 ldy #$00
lda GP.TBUFPTR lda GP.TBUFPTR
beq LA01F clc
beq LA020
BS.WriteTBUFAY sta GP.MLIRW.COUNT BS.WriteTBUFAY sta GP.MLIRW.COUNT
sty GP.MLIRW.COUNT+1 sty GP.MLIRW.COUNT+1
@ -879,9 +880,6 @@ BS.WriteTBUFAY sta GP.MLIRW.COUNT
stz GP.TBUFPTR stz GP.TBUFPTR
bcs LA020
LA01F clc
LA020 rts LA020 rts
*-------------------------------------- *--------------------------------------
LA021 jsr BS.KW.FRE LA021 jsr BS.KW.FRE
@ -922,9 +920,11 @@ BS.KW.FRE stz BS.TXTTAB
sbc #$03 sbc #$03
sta XBBD9 sta XBBD9
lda AS.ARRAYEND+1 lda AS.ARRAYEND+1
adc #$00 adc #$00
sta XBBD8 sta XBBD8
lda AS.HIMEM+1 lda AS.HIMEM+1
sbc AS.STRINGSTART+1 sbc AS.STRINGSTART+1
adc #$01 adc #$01
@ -935,6 +935,7 @@ BS.KW.FRE stz BS.TXTTAB
LA07D lda AS.HIMEM+1 LA07D lda AS.HIMEM+1
sta BS.MEMSIZE+1 sta BS.MEMSIZE+1
lda AS.HIMEM lda AS.HIMEM
sta BS.MEMSIZE sta BS.MEMSIZE
sta AS.STRINGSTART sta AS.STRINGSTART
@ -1173,7 +1174,8 @@ LA1F2 clc
sbc AS.STRINGSTART+1 sbc AS.STRINGSTART+1
rts rts
*-------------------------------------- *--------------------------------------
LA1F9 lda #$04 BS.GetSysBuf lda #$04
LA1FB sta XBBB5 LA1FB sta XBBB5
jsr BS.KW.FRE jsr BS.KW.FRE
bcs LA24E bcs LA24E
@ -1181,7 +1183,7 @@ LA1FB sta XBBB5
lda AS.STRINGSTART+1 lda AS.STRINGSTART+1
sbc AS.ARRAYEND+1 sbc AS.ARRAYEND+1
cmp XBBB5 cmp XBBB5
lda #$0C lda #BS.E.NOBUFFER
bcc LA24E bcc LA24E
lda AS.STRINGSTART+1 lda AS.STRINGSTART+1
@ -1189,15 +1191,19 @@ LA1FB sta XBBB5
sbc XBBB5 sbc XBBB5
sta ZP.A1H sta ZP.A1H
sta AS.STRINGSTART+1 sta AS.STRINGSTART+1
lda AS.STRINGSTART lda AS.STRINGSTART
sta ZP.PCL sta ZP.PCL
sta ZP.A1L sta ZP.A1L
lda AS.HIMEM lda AS.HIMEM
sbc ZP.PCL sbc ZP.PCL
sta XBBED sta XBBED
lda AS.HIMEM+1 lda AS.HIMEM+1
sbc ZP.PCH sbc ZP.PCH
sta XBBEE sta BS.BUFPAGEs
jsr BS.MoveMemUp jsr BS.MoveMemUp
lda #$00 lda #$00
sec sec
@ -1216,6 +1222,8 @@ LA1FB sta XBBB5
LA24E sec LA24E sec
rts rts
XBBB5 .BS 1
*-------------------------------------- *--------------------------------------
LA250 jsr BS.KW.FRE LA250 jsr BS.KW.FRE
bcs LA29D bcs LA29D
@ -1234,7 +1242,7 @@ LA250 jsr BS.KW.FRE
sta XBBED sta XBBED
lda AS.HIMEM+1 lda AS.HIMEM+1
sbc AS.STRINGSTART+1 sbc AS.STRINGSTART+1
sta XBBEE sta BS.BUFPAGEs
jsr BS.MoveMemDown jsr BS.MoveMemDown
lda #$04 lda #$04
@ -1254,7 +1262,7 @@ LA250 jsr BS.KW.FRE
lda AS.HIMEM+1 lda AS.HIMEM+1
LA293 cmp XBBEE,x LA293 cmp BS.BUFPAGEs,x
beq LA29E beq LA29E
dex dex
@ -1265,9 +1273,9 @@ LA29B pla
LA29D rts LA29D rts
LA29E pla LA29E pla
*--------------------------------------
LA29F sta GP.SBUFADR+1 BS.SetFileBuf sta GP.SBUFADR+1
sta XBBEE,x sta BS.BUFPAGEs,x
stz GP.SBUFADR stz GP.SBUFADR
lda BS.REFNUMs,x lda BS.REFNUMs,x

261
BASIC.FX/BASIC.S.B.txt
View File

@ -18,12 +18,12 @@ LA2C5 sta GP.SBUFADR+1
adc #$04 adc #$04
sta XBBB7 sta XBBB7
LA2D6 cmp XBBEE,x LA2D6 cmp BS.BUFPAGEs,x
bne LA2EB bne LA2EB
lda GP.SBUFADR+1 lda GP.SBUFADR+1
jsr LA356 jsr LA356
jsr LA29F jsr BS.SetFileBuf
lda GP.SBUFADR+1 lda GP.SBUFADR+1
adc #$04 adc #$04
bcc LA2C5 bcc LA2C5
@ -37,7 +37,7 @@ LA2EE lda GP.SBUFADR+1
LA2F6 ldx #$08 LA2F6 ldx #$08
jsr LA356 jsr LA356
jsr LA29F jsr BS.SetFileBuf
lda GP.SBUFADR+1 lda GP.SBUFADR+1
adc #$04 adc #$04
@ -49,6 +49,7 @@ BS.FREEBUFR lda GP.OPENCNT
asl asl
adc AS.HIMEM+1 adc AS.HIMEM+1
sta XBBB7 sta XBBB7
lda AS.HIMEM+1 lda AS.HIMEM+1
sta XBBB8 sta XBBB8
lda GP.RSHIMEM lda GP.RSHIMEM
@ -66,12 +67,12 @@ LA327 lda XBBB7
ldx GP.OPENCNT ldx GP.OPENCNT
beq LA351 beq LA351
LA32F cmp XBBEE,x LA32F cmp BS.BUFPAGEs,x
bne LA34E bne LA34E
lda AS.HIMEM+1 lda AS.HIMEM+1
jsr LA356 jsr LA356
jsr LA29F jsr BS.SetFileBuf
sec sec
lda XBBB7 lda XBBB7
sbc #$04 sbc #$04
@ -92,12 +93,12 @@ LA354 clc
LA356 pha LA356 pha
lda XBBB8 lda XBBB8
jsr LA29F jsr BS.SetFileBuf
pla pla
rts rts
*-------------------------------------- *--------------------------------------
BS.MoveMemUp ldy #$00 BS.MoveMemUp ldy #$00
cpy XBBEE cpy BS.BUFPAGEs
beq .2 beq .2
.1 lda (ZP.PCL),y .1 lda (ZP.PCL),y
@ -107,7 +108,7 @@ BS.MoveMemUp ldy #$00
inc ZP.PCH inc ZP.PCH
inc ZP.A1H inc ZP.A1H
dec XBBEE dec BS.BUFPAGEs
bne .1 bne .1
.2 cpy XBBED .2 cpy XBBED
@ -127,10 +128,10 @@ LA388 jsr LA39A
dec ZP.A1H dec ZP.A1H
dec ZP.PCH dec ZP.PCH
LA38F cpy XBBEE LA38F cpy BS.BUFPAGEs
beq LA3A2 beq LA3A2
dec XBBEE dec BS.BUFPAGEs
bra LA388 bra LA388
*-------------------------------------- *--------------------------------------
LA39A dey LA39A dey
@ -231,7 +232,7 @@ LA411 jsr LA021
lda AS.ARRAYEND+1 lda AS.ARRAYEND+1
sbc AS.VARSTART+1 sbc AS.VARSTART+1
sta BS.BAS.HDR+1 sta BS.BAS.HDR+1
sta XBBEE sta BS.BUFPAGEs
lda AS.ARRAYSTART lda AS.ARRAYSTART
sbc AS.VARSTART sbc AS.VARSTART
@ -289,7 +290,7 @@ LA480 lda BS.BAS.HDR
sta AS.ARRAYEND sta AS.ARRAYEND
lda BS.BAS.HDR+1 lda BS.BAS.HDR+1
sta XBBEE sta BS.BUFPAGEs
adc AS.VARSTART+1 adc AS.VARSTART+1
sta AS.ARRAYEND+1 sta AS.ARRAYEND+1
@ -317,7 +318,6 @@ LA480 lda BS.BAS.HDR
lda ZP.PCH lda ZP.PCH
adc #$00 adc #$00
sta AS.STRINGSTART+1 sta AS.STRINGSTART+1
sec sec
lda AS.HIMEM+1 lda AS.HIMEM+1
sbc BS.BAS.HDR+4 sbc BS.BAS.HDR+4
@ -435,7 +435,7 @@ LA70B dex
bcs LA73A bcs LA73A
dex dex
* >DEBUG
jsr BS.GetCharSpaceSep jsr BS.GetCharSpaceSep
bne LA73A bne LA73A
@ -467,7 +467,9 @@ LA747 jsr BS.GetKWInCmdBuf
ldy #$40 ldy #$40
sty GP.FoundBITS sty GP.FoundBITS
jsr LA96E stx BS.ToAUXSaveX
ldx #BSX.GetDecNum.X
jsr BS.ToAUX
bcs LA76F bcs LA76F
lda GP.ParamINPR lda GP.ParamINPR
@ -503,7 +505,9 @@ LA770 lsr
LA795 jsr BS.GetCharSpaceSep LA795 jsr BS.GetCharSpaceSep
beq LA73A beq LA73A
LA79A jsr BS.CheckCmdOpt LA79A stx BS.ToAUXSaveX
ldx #BSX.CheckOpt.X
jsr BS.ToAUX
bcs LA76F bcs LA76F
LA79F jsr BS.GetCharSpaceSep LA79F jsr BS.GetCharSpaceSep
@ -710,134 +714,6 @@ LA8F4 clc
LA8F5 rts LA8F5 rts
*-------------------------------------- *--------------------------------------
BS.CheckCmdOpt jsr BS.TMPBUF3Reset
ldy #$09
jsr BS.ToUpper
LA8FB cmp BS.KW.OPT,y
beq LA935
dey
bpl LA8FB
cmp #'T'
beq LA90A
LA907 jmp BS.SYNERR
LA90A lda #$04
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
ldx #BSX.GetFTypeASC.X
jmp BS.ToAUX
LA931 sec
lda #BS.E.INVOPT
rts
LA935 lda BS.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 #$04
LA94F tsb GP.FoundBITS+1
LA955 lda BS.KW.OPT.PBITSHI,y
and #$03
sta XBC08
lda BS.KW.OPT.PBITSHI,y
lsr
lsr
sta XBC09
jsr BS.GetCharSpaceSep
beq LA9BE
cmp #'$'
beq LA984
LA96E stx GP.INPTR
jsr BS.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 BS.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 jmp LA76C
LA9BE jmp BS.SYNERR
*--------------------------------------
BS.GetPathInPathBuf BS.GetPathInPathBuf
jsr BS.GetChar UC jsr BS.GetChar UC
sta MLI.PATHBUF,y sta MLI.PATHBUF,y
@ -902,93 +778,6 @@ BS.GetChar lda IO.LINEBUF,x
rts rts
*-------------------------------------- *--------------------------------------
BS.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
*--------------------------------------
BS.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
*--------------------------------------
BS.TMPBUF3x2 asl BS.TMPBUF4 BS.TMPBUF3x2 asl BS.TMPBUF4
rol BS.TMPBUF4+1 rol BS.TMPBUF4+1
rol BS.TMPBUF4+2 rol BS.TMPBUF4+2
@ -1130,7 +919,7 @@ LAC22 jsr LAC34
stx AS.ARRAYEND+1 stx AS.ARRAYEND+1
LAC33 rts LAC33 rts
*--------------------------------------
LAC34 lda #$01 LAC34 lda #$01
ldx #$FC ldx #$FC
jsr BS.CheckFTypeXAccessA jsr BS.CheckFTypeXAccessA
@ -1229,15 +1018,12 @@ BS.KW.SAVE bcc LACFE
sta GP.FITYPE sta GP.FITYPE
lda #$C3 lda #$C3
sta GP.FIACCESS sta GP.FIACCESS
lda AS.PGRMSTART lda AS.PGRMSTART
sta GP.CRAUXTYPE sta GP.CRAUXTYPE
sta GP.FIAUXTYPE sta GP.FIAUXTYPE
lda AS.PGRMSTART+1 lda AS.PGRMSTART+1
sta GP.CRAUXTYPE+1 sta GP.CRAUXTYPE+1
sta GP.FIAUXTYPE+1 sta GP.FIAUXTYPE+1
jsr BS.CreateFileOrDir jsr BS.CreateFileOrDir
bcs LAD47 bcs LAD47
@ -1250,10 +1036,13 @@ LACFE lda #$02
sec sec
sbc AS.PGRMSTART sbc AS.PGRMSTART
tax tax
* sta GP.SBUFADR
lda AS.PGRMEND+1 lda AS.PGRMEND+1
sbc AS.PGRMSTART+1 sbc AS.PGRMSTART+1
tay tay
* sta GP.SBUFADR+1
* lda #$00
* sta GP.SBUFADR+2
jsr BS.SetSBUFADRXY0 jsr BS.SetSBUFADRXY0

51
BASIC.FX/BASIC.S.C.txt
View File

@ -714,7 +714,7 @@ LB2CA lda GP.FITYPE
LB2D3 sec LB2D3 sec
rts rts
LB2D5 jsr LA1F9 LB2D5 jsr BS.GetSysBuf
bcs LB2D3 bcs LB2D3
stz GP.SBUFADR stz GP.SBUFADR
@ -731,7 +731,7 @@ LB2D5 jsr LA1F9
adc XBBE3 adc XBBE3
pha pha
LB2F2 cmp XBBEE,x LB2F2 cmp BS.BUFPAGEs,x
beq LB2FB beq LB2FB
dex dex
@ -740,7 +740,7 @@ LB2F2 cmp XBBEE,x
brk brk
LB2FB tya LB2FB tya
sta XBBEE,x sta BS.BUFPAGEs,x
lda BS.REFNUMs,x lda BS.REFNUMs,x
sta GP.MLIMRKEOFBUF.REFNUM sta GP.MLIMRKEOFBUF.REFNUM
lda #MLI.C.SETBUF lda #MLI.C.SETBUF
@ -773,11 +773,12 @@ LB327 ldx GP.OSYSBUF+1
LB333 sta GP.MLIRW.REFNUM LB333 sta GP.MLIRW.REFNUM
sta GP.MLIMRKEOFBUF.REFNUM sta GP.MLIMRKEOFBUF.REFNUM
sta GP.NEWLREF sta GP.NEWLREF
ldx GP.FIAUXTYPE ldx GP.FIAUXTYPE
stx GP.ParamL stx GP.ParamL
ldx GP.FIAUXTYPE+1 ldx GP.FIAUXTYPE+1
stx GP.ParamL+1 stx GP.ParamL+1
jsr LB45B jsr BS.AddOpenFile
lda #$7F lda #$7F
sta GP.NLINEMASK sta GP.NLINEMASK
@ -853,15 +854,15 @@ LB3BB plp
ldx #$00 ldx #$00
ldy #$00 ldy #$00
lda GP.FoundBITS+1 lda GP.FoundBITS+1
and #$10 and #CMDBITS1.L
bne LB3CD bne LB3CD
stx GP.ParamL+1 stx GP.ParamL+1
sty GP.ParamL sty GP.ParamL
LB3CD lda GP.FoundBITS LB3CD lda GP.FoundBITS
and #$04 and #CMDBITS0.T
eor #$04 eor #CMDBITS0.T
beq LB3DB beq LB3DB
lda #$04 lda #$04
@ -894,13 +895,13 @@ LB3FE lda GP.FITYPE
ldx GP.FIAUXTYPE+1 ldx GP.FIAUXTYPE+1
ldy GP.FIAUXTYPE ldy GP.FIAUXTYPE
lda GP.FoundBITS+1 lda GP.FoundBITS+1
and #$10 and #CMDBITS1.L
bne LB41D bne LB41D
stx GP.ParamL+1 stx GP.ParamL+1
sty GP.ParamL sty GP.ParamL
LB41D jsr LA1F9 LB41D jsr BS.GetSysBuf
bcs LB3B9 bcs LB3B9
lda XBBE3 lda XBBE3
@ -928,12 +929,12 @@ LB443 lda #$00
sta GP.DIRFLG sta GP.DIRFLG
ldx GP.OPENCNT ldx GP.OPENCNT
lda XBBE3 lda XBBE3
sta XBBEF,x sta BS.BUFPAGEs+1,x
lda GP.OREFNUM lda GP.OREFNUM
sta BS.REFNUMs+1,x sta BS.REFNUMs+1,x
inc GP.OPENCNT inc GP.OPENCNT
*-------------------------------------- *--------------------------------------
LB45B asl BS.AddOpenFile asl
asl asl
asl asl
asl asl
@ -950,6 +951,7 @@ LB45B asl
lda #$1D lda #$1D
LB473 sta ZP.PCL LB473 sta ZP.PCL
lda GP.ParamL lda GP.ParamL
sta XBC5A,x sta XBC5A,x
lda GP.ParamL+1 lda GP.ParamL+1
@ -967,7 +969,7 @@ BS.KW.NOMON clc
*-------------------------------------- *--------------------------------------
BS.CheckFilename BS.CheckFilename
lda GP.FoundBITS lda GP.FoundBITS
and #$01 and #CMDBITS0.FN1
bne LB49A bne LB49A
lda #BS.E.SYNTAX lda #BS.E.SYNTAX
@ -981,7 +983,7 @@ LB49A ldx GP.OPENCNT
LB4A2 stx ZP.PCH LB4A2 stx ZP.PCH
lda BS.REFNUMs,x lda BS.REFNUMs,x
jsr LB4D2 jsr BS.FindOpenFile
bne LB4B3 bne LB4B3
ldx ZP.PCH ldx ZP.PCH
@ -998,7 +1000,7 @@ LB4B8 lda GP.EXECACTV
bpl LB4CE bpl LB4CE
lda XBBFE lda XBBFE
jsr LB4D2 jsr BS.FindOpenFile
bne LB4CE bne LB4CE
lda #$FF lda #$FF
@ -1010,7 +1012,7 @@ LB4CE lda #BS.E.FNOTOPEN
sec sec
rts rts
*-------------------------------------- *--------------------------------------
LB4D2 asl BS.FindOpenFile asl
asl asl
asl asl
asl asl
@ -1029,6 +1031,7 @@ LB4D2 asl
lda #$1D lda #$1D
LB4EC sta ZP.PCL LB4EC sta ZP.PCL
lda XBC5A,x lda XBC5A,x
sta XBBFF sta XBBFF
lda XBC5B,x lda XBC5B,x
@ -1053,17 +1056,17 @@ BS.KW.CLOSE lda GP.FoundBITS
bcs LB4B1 bcs LB4B1
LB515 sta GP.MLICF.REFNUM LB515 sta GP.MLICF.REFNUM
lda XBBEE,x lda BS.BUFPAGEs,x
sta XBBE3 sta XBBE3
bit GP.EXECFILE bit GP.EXECFILE
bmi LB53F bmi LB53F
ldy GP.OPENCNT ldy GP.OPENCNT
pha pha
lda XBBEE,y lda BS.BUFPAGEs,y
sta XBBEE,x sta BS.BUFPAGEs,x
pla pla
sta XBBEE,y sta BS.BUFPAGEs,y
lda BS.REFNUMs,x lda BS.REFNUMs,x
pha pha
lda BS.REFNUMs,y lda BS.REFNUMs,y
@ -1633,15 +1636,7 @@ BS.ToAUX stx .1+1
plp plp
rts rts
*-------------------------------------- *--------------------------------------
BS.ToUpper cmp #'a' BS.ToAUXSaveX .BS 1
bcc .9
cmp #'z'+1
bcs .9
eor #$20
.9 rts
*-------------------------------------- *--------------------------------------
BS.GetFTableIdx lda GP.MLIRW.REFNUM BS.GetFTableIdx lda GP.MLIRW.REFNUM
lsr lsr

31
BASIC.FX/BASIC.S.D.txt
View File

@ -95,33 +95,6 @@ BS.AS.KW .DA #$80
.DA #$BE .DA #$BE
.DA #$BF .DA #$BF
*-------------------------------------- *--------------------------------------
BS.KW.OPT .AS "ABELS@FRVD"
*--------------------------------------
BS.WHICHBITS
* .HS 8040201008040201
BS.KW.OPT.PBITSLO
.DA #$80
.DA #$40
.DA #$20
.DA #$10
.DA #$08
.DA #$04
.DA #$02
.DA #$01
.DA #$00
.DA #$04
BS.KW.OPT.PBITSHI
.DA #$05
.DA #$12
.DA #$19
.DA #$21
.DA #$24
.DA #$28
.DA #$31
.DA #$39
.DA #$40
.DA #$45
*--------------------------------------
BS.MLIERTBL .DA #$28 BS.MLIERTBL .DA #$28
.DA #$2B .DA #$2B
.DA #$40 .DA #$40
@ -163,7 +136,6 @@ BS.BIERRTBL .DA #$03
.DA #$0C .DA #$0C
.DA #$08 .DA #$08
*-------------------------------------- *--------------------------------------
XBBB5 .BS 2
XBBB7 .BS 1 XBBB7 .BS 1
XBBB8 .BS 1 XBBB8 .BS 1
*-------------------------------------- *--------------------------------------
@ -191,8 +163,7 @@ XBBEA .BS 1
XBBEB .BS 1 XBBEB .BS 1
XBBEC .BS 1 XBBEC .BS 1
XBBED .BS 1 XBBED .BS 1
XBBEE .BS 1 BS.BUFPAGEs .BS 8
XBBEF .BS 7
BS.REFNUMs .BS 8 BS.REFNUMs .BS 8
XBBFE .BS 1 XBBFE .BS 1
XBBFF .BS 1 XBBFF .BS 1

9
BASIC.FX/BASIC.S.LDR.txt
View File

@ -57,16 +57,15 @@ LDR.START1 ldx #$FF
ldx #$01 ldx #$01
jsr LDR.MoveXpages jsr LDR.MoveXpages
ldx #$17 lda #$CF page 0,1,4,5,6,7
sta MLI.MEMTABL
ldx #19 HIMEM=$A000
.1 stz MLI.MEMTABL,x .1 stz MLI.MEMTABL,x
dex dex
bne .1 bne .1
lda #$CF
sta MLI.MEMTABL
lda #$03 HIMEM=$9E00
sta MLI.MEMTABL+19
lda #$FF lda #$FF
sta MLI.MEMTABL+20 sta MLI.MEMTABL+20
sta MLI.MEMTABL+21 sta MLI.MEMTABL+21

4
BASIC.FX/BASIC.S.txt
View File

@ -11,7 +11,7 @@ NEW
sta $C010 sta $C010
.EM .EM
*-------------------------------------- *--------------------------------------
HIMEM .EQ $9E00 HIMEM .EQ $A000
LOWERCASE .EQ 1 LOWERCASE .EQ 1
*-------------------------------------- *--------------------------------------
BS.E.RANGE .EQ $02 BS.E.RANGE .EQ $02
@ -44,7 +44,7 @@ CMDBITS0.T .EQ $04 ;File type
CMDBITS0.FN2 .EQ $02 ;Filename '2' for RENAME CMDBITS0.FN2 .EQ $02 ;Filename '2' for RENAME
CMDBITS0.FN1 .EQ $01 ;Filename expected CMDBITS0.FN1 .EQ $01 ;Filename expected
CMDBITS1.AD .EQ $80 ;Address CMDBITS1.A .EQ $80 ;Address
CMDBITS1.B .EQ $40 ;Byte CMDBITS1.B .EQ $40 ;Byte
CMDBITS1.E .EQ $20 ;End address CMDBITS1.E .EQ $20 ;End address
CMDBITS1.L .EQ $10 ;Length CMDBITS1.L .EQ $10 ;Length