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