This commit is contained in:
Michael Steil 2008-10-14 09:23:44 +00:00
parent 25c9858c47
commit a5ba6d95f1
11 changed files with 78 additions and 63 deletions

View File

@ -21,6 +21,10 @@ L2FAF:
NEG32768:
.byte $90,$80,$00,$00
.ifdef MICROTAN
.byte 0
.endif
; ----------------------------------------------------------------------------
; EVALUATE NUMERIC FORMULA AT TXTPTR
; CONVERTING RESULT TO INTEGER 0 <= X <= 32767

View File

@ -5,6 +5,7 @@ CBM2_KIM_APPLE := 1 ; OUTDO difference
CBM1_APPLE := 1
CBM_APPLE := 1
KIM_APPLE := 1
APPLE_MICROTAN := 1
CONFIG_SCRTCH_ORDER := 1
CONFIG_PRINT_CR := 1 ; print CR when line end reached
CONFIG_IO_MSB := 1 ; all I/O has bit #7 set

View File

@ -7,6 +7,7 @@ KIM_APPLE := 1
CBM2_MICROTAN := 1
KBD_MICROTAN := 1
KIM_MICROTAN := 1
APPLE_MICROTAN := 1
CONFIG_2 := 1
@ -21,12 +22,12 @@ ZP_START = $85
JMPADRS = DSCLEN + 1
LOWTRX = LOWTR
Z00 := $0000
Z00 := $0017
L0001 := $0001
L0002 := $0002
GOWARM := $0003
GOSTROUT := $0006
GOGIVEAYF := $0008
GOWARM := $001A
GOSTROUT := $001D
GOGIVEAYF := $001F
CHARAC := $000A+$1A
ENDCHR := $000B+$1A
@ -43,7 +44,7 @@ POSX := $0016+$1A
Z17 := $0017+$1A
Z18 := $0018+$1A
LINNUM := $0019+$1A
TXPSV := $0019+$1A
TXPSV := $00BA
INPUTBUFFER := $001B+$1A
INPUTBUFFERX := $0000
@ -63,7 +64,10 @@ SAVE := $AAAA
LOAD := $AAAA
LE21C := $AAAA
LC3F0 := $AAAA
LFE73 := $AAAA
LFE75 := $AAAA
LFDFA := $AAAA
LE219 := $AAAA
LE21F := $AAAA
LFDFA := $FDFA
LFE73 := $FE73
LFE75 := $FE75
L000A := $0A

6
eval.s
View File

@ -240,12 +240,12 @@ FRM_STACK2:
tay
pla
sta INDEX
.ifndef KBD
.ifndef KBD_MICROTAN
inc INDEX ; bug: assumes not on page boundary
.endif
pla
sta INDEX+1
.ifdef KBD
.ifdef KBD_MICROTAN
inc INDEX
bne LEB69
inc INDEX+1
@ -473,7 +473,7 @@ LCE3B:
jmp LD353
LCE53:
.endif
.ifdef KBD
.ifdef KBD_MICROTAN
ldx #$00
stx STRNG1+1
.endif

30
float.s
View File

@ -131,8 +131,8 @@ L369B:
sbc 4,x
sta FAC+4
.endif
lda GOWARM,y
sbc GOWARM,x
lda 3,y
sbc 3,x
sta FAC+3
lda 2,y
sbc 2,x
@ -169,8 +169,8 @@ L36C7:
.endif
sty FACEXTENSION
adc #$08
.ifdef KBD
cmp #$20
.ifdef KBD_MICROTAN
cmp #(MANTISSA_BYTES+1)*8
.else
cmp #MANTISSA_BYTES*8
.endif
@ -235,7 +235,7 @@ NORMALIZE_FAC5:
NORMALIZE_FAC6:
inc FAC
beq OVERFLOW
.ifndef KIM
.ifndef KIM_MICROTAN
ror FAC+1
ror FAC+2
ror FAC+3
@ -372,7 +372,7 @@ SHIFT_RIGHT:
tay
lda FACEXTENSION
bcs SHIFT_RIGHT5
.ifndef KIM
.ifndef KIM_MICROTAN
LB588:
asl 1,x
bcc LB58E
@ -577,7 +577,7 @@ L38A7:
adc ARG+1
sta RESULT
L38C3:
.ifndef KIM
.ifndef KIM_MICROTAN
ror RESULT
ror RESULT+1
.ifdef APPLE
@ -1224,7 +1224,7 @@ FIN3:
beq FIN4
bne FIN6
L3BA6:
.ifndef KIM
.ifndef KIM_MICROTAN
ror EXPSGN
.else
lda #$00
@ -1251,7 +1251,7 @@ FIN6:
; FOUND A DECIMAL POINT
; ----------------------------------------------------------------------------
FIN10:
.ifndef KIM
.ifndef KIM_MICROTAN
ror LOWTR
.else
lda #$00
@ -1488,17 +1488,9 @@ L3CBE:
ldx #$01
lda INDX
clc
.ifdef CONFIG_SMALL
adc #$07
.else
adc #$0A
.endif
adc #3*BYTES_FP-5
bmi L3CD3
.ifdef CONFIG_SMALL
cmp #$08
.else
cmp #$0B
.endif
cmp #3*BYTES_FP-4
bcs L3CD4
adc #$FF
tax

14
init.s
View File

@ -59,7 +59,7 @@ COLD_START2:
sta GOWARM
sta JMPADRS
.endif
.ifdef APPLE
.ifdef APPLE_MICROTAN
sta L000A
.endif
.ifdef CONFIG_SMALL
@ -135,13 +135,15 @@ L4098:
.endif
pha
sta Z14
.ifdef CONFIG_2
.ifdef CBM2_KBD
inx
stx $01FD
stx $01FC
.else
.ifndef MICROTAN
lda #$03
sta DSCLEN
.endif
.ifndef KIM_APPLE
lda #$2C
sta LINNUM+1
@ -172,7 +174,7 @@ L4098:
tay
bne L40EE
.endif
.ifndef CONFIG_2
.ifndef CBM2_KBD
lda #<RAMSTART2
.endif
ldy #>RAMSTART2
@ -182,7 +184,7 @@ L4098:
.endif
sta LINNUM
sty LINNUM+1
.ifdef CONFIG_2
.ifdef CBM2_KBD
tay
.else
ldy #$00
@ -196,7 +198,7 @@ L40D7:
cmp #$80
beq L40FA
.endif
.ifdef CONFIG_2
.ifdef CBM2_KBD
bmi L40FA
.endif
L40DD:
@ -233,8 +235,10 @@ L40FA:
ldy LINNUM+1
sta MEMSIZ
sty MEMSIZ+1
.ifndef MICROTAN
sta FRETOP
sty FRETOP+1
.endif
L4106:
.ifndef CONFIG_CBM_ALL
.ifdef APPLE

View File

@ -232,13 +232,19 @@ PROCESS_INPUT_ITEM:
.endif
sta INPUTBUFFER
.ifdef CONFIG_INPUTBUFFER_ORDER
; the order is about whether
; the beq/bne is taken or not
ldy #>(INPUTBUFFER-1)
ldx #<(INPUTBUFFER-1)
.else
ldx #<(INPUTBUFFER-1)
ldy #>(INPUTBUFFER-1)
.endif
.ifdef MICROTAN
beq L2AF8
.else
bne L2AF8
.endif
L2AF0:
.endif
bmi FINDATA

Binary file not shown.

4
poke.s
View File

@ -44,7 +44,7 @@ GETADR:
; "PEEK" FUNCTION
; ----------------------------------------------------------------------------
PEEK:
.ifdef CBM2
.ifdef CBM2_MICROTAN
lda LINNUM+1
pha
lda LINNUM
@ -71,7 +71,7 @@ LD6F3:
.endif
lda (LINNUM),y
tay
.ifdef CBM2
.ifdef CBM2_MICROTAN
pla
sta LINNUM
pla

View File

@ -849,11 +849,11 @@ L2598:
lda #$FF
sta LINNUM
sta LINNUM+1
L25A6:
.ifdef MICROTAN
pla
pla
.endif
L25A6:
.endif
ldy #$01
.ifdef CONFIG_DATAFLAG
@ -861,7 +861,11 @@ L25A6:
.endif
lda (LOWTRX),y
beq L25E5
.ifdef MICROTAN
jmp LE21F ; C5A6 4C 1F E2 L..
.else
jsr ISCNTC
.endif
.ifndef KBD
jsr CRDO
.endif

12
trig.s
View File

@ -115,15 +115,15 @@ POLY_SIN:
.byte $07,$FB,$F8,$87,$99,$68,$89,$01
.byte $87,$23,$35,$DF,$E1,$86,$A5,$5D
.byte $E7,$28,$83,$49,$0F,$DA,$A2
.ifndef CONFIG_CBM_ALL
MICROSOFT:
.byte $A6,$D3,$C1,$C8,$D4,$C8,$D5,$C4
.byte $CE,$CA
.endif
.ifdef CBM2
.ifdef CBM2_MICROTAN
MICROSOFT:
.byte $A1,$54,$46,$8F,$13,$8F,$52,$43
.byte $89,$CD
.elseif .def(CONFIG_CBM_ALL)
.else
MICROSOFT:
.byte $A6,$D3,$C1,$C8,$D4,$C8,$D5,$C4
.byte $CE,$CA
.endif
.endif