Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-06-25 22:29:30 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-16 08:21:21 +00:00
parent 93352a5d15
commit 2972292110
6 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
NOTES.txt
View File

@ -6,4 +6,4 @@ KIM BASIC 1977 1.1 N Y - CONFIG_
Commodore BASIC 2 1979 Y Y CBM CONFIG_2 Commodore BASIC 2 1979 Y Y CBM CONFIG_2
AppleSoft II 1978 Y Y Apple AppleSoft II 1978 Y Y Apple
KBD BASIC 1980 Y N KBD KBD BASIC 1980 Y N KBD
MicroTAN 1980 Y Y - MicroTAN 1979 Y Y -

3
defines_kim.s
View File

@ -6,7 +6,8 @@ CBM2_KIM_APPLE := 1 ; OUTDO difference
KIM_APPLE := 1 KIM_APPLE := 1
CONFIG_NULL := 1 CONFIG_NULL := 1
CONFIG_PRINT_CR := 1 ; print CR when line end reached 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 .define CONFIG_SCRTCH_ORDER 2
CRLF_1 := $0D CRLF_1 := $0D

3
defines_microtan.s
View File

@ -6,7 +6,8 @@ CBM2_KIM_APPLE := 1 ; OUTDO difference
KIM_APPLE := 1 KIM_APPLE := 1
CBM2_MICROTAN := 1 CBM2_MICROTAN := 1
KBD_MICROTAN := 1 KBD_MICROTAN := 1
KIM_MICROTAN := 1 CONFIG_ROR_WORKAROUND := 1
CONFIG_MONCOUT_DESTROYS_Y := 1
APPLE_MICROTAN := 1 APPLE_MICROTAN := 1
CONFIG_2 := 1 CONFIG_2 := 1

14
float.s
View File

@ -236,13 +236,13 @@ NORMALIZE_FAC5:
NORMALIZE_FAC6: NORMALIZE_FAC6:
inc FAC inc FAC
beq OVERFLOW beq OVERFLOW
.ifndef KIM_MICROTAN .ifndef CONFIG_ROR_WORKAROUND
ror FAC+1 ror FAC+1
ror FAC+2 ror FAC+2
ror FAC+3 ror FAC+3
.ifndef CONFIG_SMALL .ifndef CONFIG_SMALL
ror FAC+4 ror FAC+4
.endif .endif
ror FACEXTENSION ror FACEXTENSION
.else .else
lda #$00 lda #$00
@ -373,7 +373,7 @@ SHIFT_RIGHT:
tay tay
lda FACEXTENSION lda FACEXTENSION
bcs SHIFT_RIGHT5 bcs SHIFT_RIGHT5
.ifndef KIM_MICROTAN .ifndef CONFIG_ROR_WORKAROUND
LB588: LB588:
asl 1,x asl 1,x
bcc LB58E bcc LB58E
@ -578,7 +578,7 @@ L38A7:
adc ARG+1 adc ARG+1
sta RESULT sta RESULT
L38C3: L38C3:
.ifndef KIM_MICROTAN .ifndef CONFIG_ROR_WORKAROUND
ror RESULT ror RESULT
ror RESULT+1 ror RESULT+1
.ifdef APPLE .ifdef APPLE
@ -1225,7 +1225,7 @@ FIN3:
beq FIN4 beq FIN4
bne FIN6 bne FIN6
L3BA6: L3BA6:
.ifndef KIM_MICROTAN .ifndef CONFIG_ROR_WORKAROUND
ror EXPSGN ror EXPSGN
.else .else
lda #$00 lda #$00
@ -1252,7 +1252,7 @@ FIN6:
; FOUND A DECIMAL POINT ; FOUND A DECIMAL POINT
; ---------------------------------------------------------------------------- ; ----------------------------------------------------------------------------
FIN10: FIN10:
.ifndef KIM_MICROTAN .ifndef CONFIG_ROR_WORKAROUND
ror LOWTR ror LOWTR
.else .else
lda #$00 lda #$00

1
flow.s
View File

@ -329,6 +329,7 @@ RET1:
PRT: PRT:
jsr GETBYT jsr GETBYT
txa txa
; not ROR bug safe
ror a ror a
ror a ror a
ror a ror a

4
print.s
View File

@ -341,7 +341,7 @@ L2A4E:
.ifndef CBM2_KBD .ifndef CBM2_KBD
pla pla
.endif .endif
.ifdef KIM_MICROTAN .ifdef CONFIG_MONCOUT_DESTROYS_Y
sty DIMFLG sty DIMFLG
.endif .endif
.ifdef CONFIG_IO_MSB .ifdef CONFIG_IO_MSB
@ -351,7 +351,7 @@ L2A4E:
.ifdef CONFIG_IO_MSB .ifdef CONFIG_IO_MSB
and #$7F and #$7F
.endif .endif
.ifdef KIM_MICROTAN .ifdef CONFIG_MONCOUT_DESTROYS_Y
ldy DIMFLG ldy DIMFLG
.endif .endif
.ifdef OSI .ifdef OSI