Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2024-05-29 10:41:33 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-16 09:28:49 +00:00
parent 1ec5db7171
commit 3306035d62
9 changed files with 23 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
NOTES.txt
View File

@ -3,7 +3,7 @@ Commodore BASIC 1 1977 Y Y CBM
OSI BASIC 1977 1.0 REV 3.2 Y N -
AppleSoft I 1977 1.1 N Y Apple CONFIG_11
KIM BASIC 1977 1.1 N Y - CONFIG_11A
Commodore BASIC 2 1979 Y Y CBM CONFIG_2
AppleSoft II 1978 Y Y Apple
AppleSoft II 1978 Y Y Apple CONFIG_2
Commodore BASIC 2 1979 Y Y CBM CONFIG_2A
KBD BASIC 1980 Y N KBD
MicroTAN 1979 Y Y -

1
defines_cbm.s
View File

@ -14,6 +14,7 @@ CONFIG_CBM_ALL := 1
CONFIG_11 := 1
CONFIG_11A := 1
CONFIG_2 := 1
CONFIG_2A := 1
CBM2_KBD := 1 ; 2 weird instances
CBM2_MICROTAN := 1
CBM2_KIM := 1

3
defines_kbd.s
View File

@ -1,10 +1,11 @@
.define CONFIG_SCRTCH_ORDER 3
CONFIG_SMALL := 1
CONFIG_2 := 1
CBM2_KBD := 1 ; 2 weird instances
KBD_MICROTAN := 1
CONFIG_11 := 1
CONFIG_11A := 1
CONFIG_2 := 1
CONFIG_2A := 1
CONFIG_SAFE_NAMENOTFOUND := 1
; INPUTBUFFER > $0100
CONFIG_NO_POKE := 1

1
defines_microtan.s
View File

@ -8,6 +8,7 @@ CONFIG_MONCOUT_DESTROYS_Y := 1
APPLE_MICROTAN := 1
CONFIG_2 := 1
CONFIG_2A := 1
CONFIG_NULL := 1
CONFIG_PRINT_CR := 1 ; print CR when line end reached

3
eval.s
View File

@ -242,6 +242,7 @@ FRM_STACK2:
sta INDEX
.ifndef KBD_MICROTAN
inc INDEX ; bug: assumes not on page boundary
; bug exists on AppleSoft II
.endif
pla
sta INDEX+1
@ -473,7 +474,7 @@ LCE3B:
jmp LD353
LCE53:
.endif
.ifdef KBD_MICROTAN ; also AppleSoft 2
.ifdef KBD_MICROTAN ; also AppleSoft II
; bugfix?
ldx #$00
stx STRNG1+1

3
float.s
View File

@ -170,7 +170,8 @@ L36C7:
sty FACEXTENSION
adc #$08
.ifdef KBD_MICROTAN
; bugfix? does not exist on AppleSoft 2
; bugfix?
; fix does not exist on AppleSoft 2
cmp #(MANTISSA_BYTES+1)*8
.else
cmp #MANTISSA_BYTES*8

4
flow.s
View File

@ -276,7 +276,7 @@ END2:
ldy TXTPTR+1
.if (INPUTBUFFER >=$0100) && .def(CONFIG_2)
; BUG on AppleSoft I
; exists on AppleSoft II
; fix exists on AppleSoft II
; TXTPTR+1 will always be > 0
ldx CURLIN+1
inx
@ -459,7 +459,7 @@ POP:
bne L281E
lda #$FF
.ifdef CONFIG_2
sta FORPNT+1 ; bugfix, wrong in AppleSoft
sta FORPNT+1 ; bugfix, wrong in AppleSoft II
.else
sta FORPNT
.endif

12
program.s
View File

@ -205,14 +205,14 @@ L23AD:
.endif
; ----------------------------------------------------------------------------
PUT_NEW_LINE:
.ifdef CBM2_MICROTAN
.ifndef KBD
.ifdef CONFIG_2
jsr SETPTRS
jsr LE33D
lda INPUTBUFFER
beq L2351
clc
.else
.ifndef KBD
.else
lda INPUTBUFFER
beq FIX_LINKS
lda MEMSIZ
@ -333,11 +333,9 @@ LE39A:
lda VARTAB+1,x
adc $051C,y
sta VARTAB+1,y
RET3:
rts
.endif
.ifdef CBM2_MICROTAN
.ifdef CONFIG_2
RET3:
rts
.endif
@ -527,7 +525,7 @@ L2498:
jsr GET_UPPER
.else
lda INPUTBUFFERX,x
.ifndef CBM2_MICROTAN
.ifndef CONFIG_2
cmp #$20
beq L2497
.endif

8
trig.s
View File

@ -115,12 +115,16 @@ 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
.ifdef CBM2_MICROTAN
.ifdef CBM1
; no easter egg text on CBM1
.elseif .def(CONFIG_2A)
; PET encoded easter egg text since CBM2
MICROSOFT:
.byte $A1,$54,$46,$8F,$13,$8F,$52,$43
.byte $89,$CD
.elseif .def(CONFIG_CBM_ALL)
.else
; ASCII encoded easter egg in between
; also AppleSoft II
MICROSOFT:
.byte $A6,$D3,$C1,$C8,$D4,$C8,$D5,$C4
.byte $CE,$CA