mirror of
https://github.com/mist64/msbasic.git
synced 2024-09-21 10:37:25 +00:00
cleanup
This commit is contained in:
parent
2380fee2e8
commit
57be95bb4a
2
array.s
2
array.s
@ -346,7 +346,7 @@ L3124:
|
|||||||
bpl L3135
|
bpl L3135
|
||||||
dex
|
dex
|
||||||
L3135:
|
L3135:
|
||||||
.ifdef .def(CONFIG_SMALL) && (.def(CONFIG_2))
|
.if .def(CONFIG_SMALL) && (.def(CONFIG_2))
|
||||||
stx RESULT+1
|
stx RESULT+1
|
||||||
.else
|
.else
|
||||||
lda VARNAM+1
|
lda VARNAM+1
|
||||||
|
2
flow.s
2
flow.s
@ -142,7 +142,7 @@ NEWSTT2:
|
|||||||
EXECUTE_STATEMENT:
|
EXECUTE_STATEMENT:
|
||||||
.ifndef CONFIG_11A
|
.ifndef CONFIG_11A
|
||||||
beq RET1
|
beq RET1
|
||||||
.ifndef APPLE
|
.ifndef APPLE; ???
|
||||||
sec
|
sec
|
||||||
.endif
|
.endif
|
||||||
.else
|
.else
|
||||||
|
26
init.s
26
init.s
@ -287,8 +287,8 @@ L4129:
|
|||||||
clc
|
clc
|
||||||
adc Z17
|
adc Z17
|
||||||
sta Z18
|
sta Z18
|
||||||
L4136:
|
|
||||||
.endif
|
.endif
|
||||||
|
L4136:
|
||||||
.ifdef KIM /* RAM? */
|
.ifdef KIM /* RAM? */
|
||||||
lda #<QT_WANT
|
lda #<QT_WANT
|
||||||
ldy #>QT_WANT
|
ldy #>QT_WANT
|
||||||
@ -308,22 +308,22 @@ L4136:
|
|||||||
L4157:
|
L4157:
|
||||||
ldx #<IQERR
|
ldx #<IQERR
|
||||||
ldy #>IQERR
|
ldy #>IQERR
|
||||||
stx UNFNC+26
|
stx UNFNC+(13*2)
|
||||||
sty UNFNC+26+1
|
sty UNFNC+(13*2)+1
|
||||||
ldx #<ATN
|
ldx #<ATN ; overwrite starting
|
||||||
ldy #>ATN
|
ldy #>ATN ; with ATN
|
||||||
cmp #'A'
|
cmp #'A'
|
||||||
beq L4183
|
beq L4183
|
||||||
ldx #<IQERR
|
ldx #<IQERR
|
||||||
ldy #>IQERR
|
ldy #>IQERR
|
||||||
stx UNFNC+20
|
stx UNFNC+(10*2)
|
||||||
sty UNFNC+20+1
|
sty UNFNC+(10*2)+1
|
||||||
stx UNFNC+20+1+3
|
stx UNFNC+(12*2)
|
||||||
sty UNFNC+20+1+3+1
|
sty UNFNC+(12*2)+1
|
||||||
stx UNFNC+20+1+1
|
stx UNFNC+(11*2)
|
||||||
sty UNFNC+20+1+1+1
|
sty UNFNC+(11*2)+1
|
||||||
ldx #<SIN_COS_TAN_ATN
|
ldx #<SIN_COS_TAN_ATN ; overwrite
|
||||||
ldy #>SIN_COS_TAN_ATN
|
ldy #>SIN_COS_TAN_ATN ; all of trig.s
|
||||||
L4183:
|
L4183:
|
||||||
.else
|
.else
|
||||||
ldx #<RAMSTART2
|
ldx #<RAMSTART2
|
||||||
|
Loading…
Reference in New Issue
Block a user