This commit is contained in:
Michael Steil 2008-10-18 07:34:16 +00:00
parent 2380fee2e8
commit 57be95bb4a
4 changed files with 17 additions and 16 deletions

View File

@ -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
View File

@ -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
View File

@ -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

3
trig.s
View File

@ -194,7 +194,8 @@ POLY_ATN:
.byte $7E,$4C,$CC,$91,$C7 .byte $7E,$4C,$CC,$91,$C7
.byte $7F,$AA,$AA,$AA,$13 .byte $7F,$AA,$AA,$AA,$13
.byte $81,$00,$00,$00,$00 .byte $81,$00,$00,$00,$00
.endif
.ifdef KIM .ifdef KIM
.byte $00 ; XXX .byte $00 ; XXX
.endif .endif
.endif