mirror of
https://github.com/mist64/msbasic.git
synced 2024-10-10 05:23:57 +00:00
cleanup
This commit is contained in:
parent
93352a5d15
commit
2972292110
@ -6,4 +6,4 @@ KIM BASIC 1977 1.1 N Y - CONFIG_
|
||||
Commodore BASIC 2 1979 Y Y CBM CONFIG_2
|
||||
AppleSoft II 1978 Y Y Apple
|
||||
KBD BASIC 1980 Y N KBD
|
||||
MicroTAN 1980 Y Y -
|
||||
MicroTAN 1979 Y Y -
|
||||
|
@ -6,7 +6,8 @@ CBM2_KIM_APPLE := 1 ; OUTDO difference
|
||||
KIM_APPLE := 1
|
||||
CONFIG_NULL := 1
|
||||
CONFIG_PRINT_CR := 1 ; print CR when line end reached
|
||||
KIM_MICROTAN := 1
|
||||
CONFIG_ROR_WORKAROUND := 1
|
||||
CONFIG_MONCOUT_DESTROYS_Y := 1
|
||||
.define CONFIG_SCRTCH_ORDER 2
|
||||
|
||||
CRLF_1 := $0D
|
||||
|
@ -6,7 +6,8 @@ CBM2_KIM_APPLE := 1 ; OUTDO difference
|
||||
KIM_APPLE := 1
|
||||
CBM2_MICROTAN := 1
|
||||
KBD_MICROTAN := 1
|
||||
KIM_MICROTAN := 1
|
||||
CONFIG_ROR_WORKAROUND := 1
|
||||
CONFIG_MONCOUT_DESTROYS_Y := 1
|
||||
APPLE_MICROTAN := 1
|
||||
|
||||
CONFIG_2 := 1
|
||||
|
14
float.s
14
float.s
@ -236,13 +236,13 @@ NORMALIZE_FAC5:
|
||||
NORMALIZE_FAC6:
|
||||
inc FAC
|
||||
beq OVERFLOW
|
||||
.ifndef KIM_MICROTAN
|
||||
.ifndef CONFIG_ROR_WORKAROUND
|
||||
ror FAC+1
|
||||
ror FAC+2
|
||||
ror FAC+3
|
||||
.ifndef CONFIG_SMALL
|
||||
.ifndef CONFIG_SMALL
|
||||
ror FAC+4
|
||||
.endif
|
||||
.endif
|
||||
ror FACEXTENSION
|
||||
.else
|
||||
lda #$00
|
||||
@ -373,7 +373,7 @@ SHIFT_RIGHT:
|
||||
tay
|
||||
lda FACEXTENSION
|
||||
bcs SHIFT_RIGHT5
|
||||
.ifndef KIM_MICROTAN
|
||||
.ifndef CONFIG_ROR_WORKAROUND
|
||||
LB588:
|
||||
asl 1,x
|
||||
bcc LB58E
|
||||
@ -578,7 +578,7 @@ L38A7:
|
||||
adc ARG+1
|
||||
sta RESULT
|
||||
L38C3:
|
||||
.ifndef KIM_MICROTAN
|
||||
.ifndef CONFIG_ROR_WORKAROUND
|
||||
ror RESULT
|
||||
ror RESULT+1
|
||||
.ifdef APPLE
|
||||
@ -1225,7 +1225,7 @@ FIN3:
|
||||
beq FIN4
|
||||
bne FIN6
|
||||
L3BA6:
|
||||
.ifndef KIM_MICROTAN
|
||||
.ifndef CONFIG_ROR_WORKAROUND
|
||||
ror EXPSGN
|
||||
.else
|
||||
lda #$00
|
||||
@ -1252,7 +1252,7 @@ FIN6:
|
||||
; FOUND A DECIMAL POINT
|
||||
; ----------------------------------------------------------------------------
|
||||
FIN10:
|
||||
.ifndef KIM_MICROTAN
|
||||
.ifndef CONFIG_ROR_WORKAROUND
|
||||
ror LOWTR
|
||||
.else
|
||||
lda #$00
|
||||
|
1
flow.s
1
flow.s
@ -329,6 +329,7 @@ RET1:
|
||||
PRT:
|
||||
jsr GETBYT
|
||||
txa
|
||||
; not ROR bug safe
|
||||
ror a
|
||||
ror a
|
||||
ror a
|
||||
|
4
print.s
4
print.s
@ -341,7 +341,7 @@ L2A4E:
|
||||
.ifndef CBM2_KBD
|
||||
pla
|
||||
.endif
|
||||
.ifdef KIM_MICROTAN
|
||||
.ifdef CONFIG_MONCOUT_DESTROYS_Y
|
||||
sty DIMFLG
|
||||
.endif
|
||||
.ifdef CONFIG_IO_MSB
|
||||
@ -351,7 +351,7 @@ L2A4E:
|
||||
.ifdef CONFIG_IO_MSB
|
||||
and #$7F
|
||||
.endif
|
||||
.ifdef KIM_MICROTAN
|
||||
.ifdef CONFIG_MONCOUT_DESTROYS_Y
|
||||
ldy DIMFLG
|
||||
.endif
|
||||
.ifdef OSI
|
||||
|
Loading…
Reference in New Issue
Block a user