mirror of
https://github.com/mist64/msbasic.git
synced 2024-09-21 02:27:33 +00:00
cleanup
This commit is contained in:
parent
82c75e263f
commit
7940f2612e
@ -42,6 +42,7 @@ ZP_START4 = $65
|
|||||||
|
|
||||||
; extra ZP variables
|
; extra ZP variables
|
||||||
CURDVC := $0003
|
CURDVC := $0003
|
||||||
|
TISTR := $0200
|
||||||
Z96 := $020C
|
Z96 := $020C
|
||||||
USR := GORESTART
|
USR := GORESTART
|
||||||
|
|
||||||
|
@ -20,6 +20,7 @@ ZP_START4 = $13
|
|||||||
|
|
||||||
; extra/override ZP variables
|
; extra/override ZP variables
|
||||||
CURDVC := $000E
|
CURDVC := $000E
|
||||||
|
TISTR := $008D
|
||||||
Z96 := $0096
|
Z96 := $0096
|
||||||
POSX := $00C6
|
POSX := $00C6
|
||||||
TXPSV := LASTOP
|
TXPSV := LASTOP
|
||||||
|
@ -14,8 +14,8 @@ LC74F:
|
|||||||
bpl LC74F
|
bpl LC74F
|
||||||
ldx #$03
|
ldx #$03
|
||||||
LC757:
|
LC757:
|
||||||
lda $9A,x
|
lda TXTTAB,x
|
||||||
sta $1C,x
|
sta GOSTROUT+2,x
|
||||||
dex
|
dex
|
||||||
bpl LC757
|
bpl LC757
|
||||||
jmp LE219
|
jmp LE219
|
||||||
@ -49,9 +49,9 @@ LOAD:
|
|||||||
lda #$4B
|
lda #$4B
|
||||||
jsr LFE75
|
jsr LFE75
|
||||||
jsr LFE73
|
jsr LFE73
|
||||||
lda $9C
|
lda VARTAB
|
||||||
tax
|
tax
|
||||||
ldy $9D
|
ldy VARTAB+1
|
||||||
jmp FIX_LINKS
|
jmp FIX_LINKS
|
||||||
nop
|
nop
|
||||||
LC7A5:
|
LC7A5:
|
||||||
@ -70,6 +70,6 @@ LC7AD:
|
|||||||
pla
|
pla
|
||||||
rts
|
rts
|
||||||
inc $8A17
|
inc $8A17
|
||||||
stx $9C
|
stx VARTAB
|
||||||
sty $9D
|
sty VARTAB+1
|
||||||
jmp FIX_LINKS
|
jmp FIX_LINKS
|
||||||
|
24
misc1.s
24
misc1.s
@ -102,21 +102,19 @@ LETSTRING:
|
|||||||
PUTSTR:
|
PUTSTR:
|
||||||
.ifdef CONFIG_CBM_ALL
|
.ifdef CONFIG_CBM_ALL
|
||||||
ldy FORPNT+1
|
ldy FORPNT+1
|
||||||
.ifdef CBM1
|
.ifdef CBM1
|
||||||
cpy #$D0
|
cpy #$D0 ; TI$
|
||||||
.else
|
.else
|
||||||
cpy #$DE
|
cpy #$DE
|
||||||
.endif
|
.endif
|
||||||
bne LC92B
|
bne LC92B
|
||||||
jsr FREFAC
|
jsr FREFAC
|
||||||
cmp #$06
|
cmp #$06
|
||||||
.ifdef CBM2
|
.ifdef CBM2
|
||||||
bne IQERR1
|
bne IQERR1
|
||||||
.else
|
.else
|
||||||
beq LC8E2
|
jne IQERR
|
||||||
jmp IQERR
|
.endif
|
||||||
LC8E2:
|
|
||||||
.endif
|
|
||||||
ldy #$00
|
ldy #$00
|
||||||
sty FAC
|
sty FAC
|
||||||
sty FACSIGN
|
sty FACSIGN
|
||||||
@ -144,11 +142,7 @@ LC902:
|
|||||||
sei
|
sei
|
||||||
LC912:
|
LC912:
|
||||||
lda FAC+2,x
|
lda FAC+2,x
|
||||||
.ifdef CBM2
|
sta TISTR,x
|
||||||
sta $8D,x
|
|
||||||
.else
|
|
||||||
sta $0200,x
|
|
||||||
.endif
|
|
||||||
dex
|
dex
|
||||||
bpl LC912
|
bpl LC912
|
||||||
cli
|
cli
|
||||||
|
Loading…
Reference in New Issue
Block a user