Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

BASIC:some Bugs fixed: PR,IN...., RENAME still buggy

This commit is contained in:
burniouf 2022-03-27 23:05:28 +02:00
parent 60620b33f5
commit d20a7c8277
6 changed files with 422 additions and 422 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.

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

@ -1265,7 +1265,7 @@ LA29F sta GP.SBUFADR+1
sta XBBEE,x
stz GP.SBUFADR
lda XBBF6,x
lda BS.REFNUMs,x
sta GP.MLIMRKEOFBUF.REFNUM
lda #MLI.C.SETBUF
jsr GP.GOSYSTEM

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

@ -645,17 +645,19 @@ LA6BA stz GP.FoundBITS
stz GP.FoundBITS+1
stz BS.CMDBUF
stz MLI.PATHBUF
lda GP.VDEFSLT
sta GP.ParamS
lda GP.VDEFDRV
sta GP.ParamD
lda AS.HIMEM+1
sta XBBE3
ldx GP.XLEN
inx
inx
stx BS.GetCharMax
lda GP.AllowedBITS
beq LA744
@ -708,6 +710,7 @@ LA70B dex
bcs LA73A
dex
* >DEBUG
jsr BS.GetCharSpaceSep
bne LA73A

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

@ -750,7 +750,7 @@ LB2F2 cmp XBBEE,x
LB2FB tya
sta XBBEE,x
lda XBBF6,x
lda BS.REFNUMs,x
sta GP.MLIMRKEOFBUF.REFNUM
lda #MLI.C.SETBUF
jsr GP.GOSYSTEM
@ -775,7 +775,7 @@ LB30E sta XBBE3
rts
LB327 ldx GP.OSYSBUF+1
stx XBBF6
stx BS.REFNUMs
lda GP.OREFNUM
sta XBBFE
@ -810,7 +810,7 @@ LB36B lda GP.EXECACTV
sta GP.EXECFILE
ldx #$08
lda XBBF6,x
lda BS.REFNUMs,x
jsr LB515
LB37B rts
@ -937,7 +937,7 @@ LB443 lda #$00
lda XBBE3
sta XBBEF,x
lda GP.OREFNUM
sta XBBF7,x
sta BS.REFNUMs+1,x
inc GP.OPENCNT
LB45B asl
@ -987,13 +987,13 @@ LB49A ldx GP.OPENCNT
stx GP.EXECFILE
LB4A2 stx ZP.PCH
lda XBBF6,x
lda BS.REFNUMs,x
jsr LB4D2
bne LB4B3
ldx ZP.PCH
LB4AE lda XBBF6,x
LB4AE lda BS.REFNUMs,x
LB4B1 clc
rts
@ -1016,7 +1016,7 @@ LB4B8 lda GP.EXECACTV
LB4CE lda #BS.E.FNOTOPEN
sec
rts
*--------------------------------------
LB4D2 asl
asl
asl
@ -1071,12 +1071,12 @@ LB515 sta GP.MLICF.REFNUM
sta XBBEE,x
pla
sta XBBEE,y
lda XBBF6,x
lda BS.REFNUMs,x
pha
lda XBBF6,y
sta XBBF6,x
lda BS.REFNUMs,y
sta BS.REFNUMs,x
pla
sta XBBF6,y
sta BS.REFNUMs,y
LB53F stz MLI.LEVEL
@ -1099,7 +1099,7 @@ LB562 ldx GP.OPENCNT
beq LB573
stx GP.EXECFILE
lda XBBF6,x
lda BS.REFNUMs,x
jsr LB515
bcc LB562

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

@ -1,10 +1,5 @@
NEW
AUTO 3,1
*--------------------------------------
.LIST ON
BS.FREESPACE .EQ $B861-*
.BS BS.FREESPACE
.LIST OFF
*--------------------------------------
BS.SYSIOVECTS .DA BS.IO.OUT
.DA BS.IO.IN
@ -100,106 +95,106 @@ BS.AS.KW .DA #$80
.DA #$BE
.DA #$BF
*--------------------------------------
BS.KW.LEN.OLD .DA #$47
.DA #$5F
.DA #$18
.DA #$30
.DA #$15
.DA #$BD
.DA #$3D
.DA #$28
.DA #$0D
.DA #$41
.DA #$20
.DA #$50
.DA #$84
.DA #$0D
.DA #$04
.DA #$46
.DA #$6A
.DA #$4C
.DA #$5C
.DA #$35
.DA #$A5
.DA #$70
.DA #$2D
.DA #$12
.DA #$65
.DA #$39
.DA #$41
.DA #$88
.DA #$1C
.DA #$B5
.DA #$D8
*BS.KW.LEN.OLD .DA #$47
* .DA #$5F
* .DA #$18
* .DA #$30
* .DA #$15
* .DA #$BD
* .DA #$3D
* .DA #$28
* .DA #$0D
* .DA #$41
* .DA #$20
* .DA #$50
* .DA #$84
* .DA #$0D
* .DA #$04
* .DA #$46
* .DA #$6A
* .DA #$4C
* .DA #$5C
* .DA #$35
* .DA #$A5
* .DA #$70
* .DA #$2D
* .DA #$12
* .DA #$65
* .DA #$39
* .DA #$41
* .DA #$88
* .DA #$1C
* .DA #$B5
* .DA #$D8
*--------------------------------------
BS.KW.TABLE.OLD .AS "BSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND"
*BS.KW.TABLE.OLD .AS "BSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND"
*--------------------------------------
BS.KW.JMP.OLD .DA BS.JMP.XTRNADDR $00
.DA BS.KW.IN
.DA BS.KW.PR
.DA BS.KW.CAT
.DA BS.KW.FRE
.DA BS.KW.BYE
.DA BS.KW.RUN
.DA BS.KW.BRUN
.DA BS.KW.EXEC $10
.DA BS.KW.LOAD
.DA BS.KW.LOCK
.DA BS.KW.OPEN
.DA BS.KW.READ
.DA BS.KW.SAVE
.DA BS.KW.BLOAD
.DA BS.KW.BSAVE
.DA BS.KW.CHAIN $20
.DA BS.KW.CLOSE
.DA BS.KW.FLUSH
.DA BS.KW.NOMON
.DA BS.KW.STORE
.DA BS.KW.WRITE
.DA BS.KW.APPEND
.DA BS.KW.CREATE
.DA BS.KW.DELETE $30
.DA BS.KW.PREFIX
.DA BS.KW.RENAME
.DA BS.KW.UNLOCK
.DA BS.KW.VERIFY
.DA BS.KW.CATALOG
.DA BS.KW.RESTORE
.DA BS.KW.POSITION
.DA BS.KW.DASH $40
*BS.KW.JMP.OLD .DA BS.JMP.XTRNADDR $00
* .DA BS.KW.IN
* .DA BS.KW.PR
* .DA BS.KW.CAT
* .DA BS.KW.FRE
* .DA BS.KW.BYE
* .DA BS.KW.RUN
* .DA BS.KW.BRUN
* .DA BS.KW.EXEC $10
* .DA BS.KW.LOAD
* .DA BS.KW.LOCK
* .DA BS.KW.OPEN
* .DA BS.KW.READ
* .DA BS.KW.SAVE
* .DA BS.KW.BLOAD
* .DA BS.KW.BSAVE
* .DA BS.KW.CHAIN $20
* .DA BS.KW.CLOSE
* .DA BS.KW.FLUSH
* .DA BS.KW.NOMON
* .DA BS.KW.STORE
* .DA BS.KW.WRITE
* .DA BS.KW.APPEND
* .DA BS.KW.CREATE
* .DA BS.KW.DELETE $30
* .DA BS.KW.PREFIX
* .DA BS.KW.RENAME
* .DA BS.KW.UNLOCK
* .DA BS.KW.VERIFY
* .DA BS.KW.CATALOG
* .DA BS.KW.RESTORE
* .DA BS.KW.POSITION
* .DA BS.KW.DASH $40
*--------------------------------------
BS.KW.PBITS.OLD .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
*BS.KW.PBITS.OLD .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
*--------------------------------------
BS.KW.OPT .AS "ABELS@FRVD"
*--------------------------------------
@ -289,316 +284,312 @@ BS.BIERRTBL .DA #$03
.DA #$0C
.DA #$08
*--------------------------------------
* .DA #$00 "Copyright..." (VERIFY with no arg)
* .DA #$10 CATALOG header
* .DA #$36 CATALOG footer
*BS.ERRCODES.OLD .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
*--------------------------------------
BS.TBL7.IDX.OLD .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
*BS.TBL6.OLD .AS -"ACDEFILMNORTU "
* .DA #$00
*--------------------------------------
BS.TBL6.OLD .AS -"ACDEFILMNORTU "
.DA #$00
* .DA #$00
* .AS -"BGHKPSVWXY/().:"
*--------------------------------------
.DA #$00
.AS -"BGHKPSVWXY/().:"
*--------------------------------------
BS.TBL7.OLD .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
*BS.TBL7.OLD .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
*--------------------------------------
XBBB5 .BS 2
XBBB7 .BS 1
XBBB8 .BS 1
*--------------------------------------
BS.IsIntCmdMTR.OLD ldy #$02
LBBBB lda BS.CMDBUF,y
cmp BS.MTR,y
bne LBBCF
dey
bpl LBBBB
jsr BS.SetState0
jsr MON.CLREOL
jmp MON.ENTERMON
LBBCF jmp BS.IsIntCmd
BS.MTR .AS "MTR"
*BS.IsIntCmdMTR.OLD ldy #$02
*
*LBBBB lda BS.CMDBUF,y
* cmp BS.MTR,y
* bne LBBCF
*
* dey
* bpl LBBBB
*
* jsr BS.SetState0
* jsr MON.CLREOL
* jmp MON.ENTERMON
*
*LBBCF jmp BS.IsIntCmd
*
*BS.MTR .AS "MTR"
*--------------------------------------
*BS.IVERSION .DA #5
*--------------------------------------
BS.IVERSION .DA #5
BS.AS.HIMEMSave .BS 1
XBBD7 .BS 1
XBBD8 .BS 1
@ -623,8 +614,7 @@ XBBEC .BS 1
XBBED .BS 1
XBBEE .BS 1
XBBEF .BS 7
XBBF6 .BS 1
XBBF7 .BS 7
BS.REFNUMs .BS 8
XBBFE .BS 1
XBBFF .BS 1
XBC00 .BS 3
@ -648,12 +638,18 @@ XBC13 .BS 1
XBC14 .BS 1
XBC15 .BS 1
XBC16 .BS 1
BS.CMDBUF.LEN .BS 1
*--------------------------------------
.LIST ON
BS.FREESPACE .EQ $BC17-*
.LIST OFF
.BS BS.FREESPACE
*--------------------------------------
BS.CMDBUF.LEN .BS 1 keep this in $BC page, flagged in MLI.MEMTABL
BS.CMDBUF .BS 65
XBC59 .BS 1
XBC5A .BS 1
XBC5B .BS 165
*--------------------------------------
MAN

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

@ -303,7 +303,8 @@ L21C3 lda LDR.JMP.GP.ENTRY,x
lda #$A5
sta AS.TRCFLG
lda BS.IVERSION
* lda BS.IVERSION
lda #5
sta MLI.IVERSION
LDR.JMP.GP.ENTRY