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

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-13 09:34:49 +00:00
parent ff2ac39a97
commit f33416770d
11 changed files with 36 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
NOTES.txt
View File

@ -1,7 +1,7 @@
Name Year MS Version ROM 9digit extensions comment Name Year MS Version ROM 9digit extensions comment
Commodore BASIC 1 1977 Y Y CBM Commodore BASIC 1 1977 Y Y CBM
OSI BASIC 1977 1.0 REV 3.2 Y N - OSI BASIC 1977 1.0 REV 3.2 Y N -
AppleSoft I 1977 1.1 N Y Apple AppleSoft I 1977 1.1 N Y Apple CONFIG_11
KIM BASIC 1977 1.1 N Y - KIM BASIC 1977 1.1 N Y - CONFIG_11A
Commodore BASIC 2 1979 Y Y CBM Commodore BASIC 2 1979 Y Y CBM
KBD BASIC 1980 Y N KBD KBD BASIC 1980 Y N KBD

2
defines_apple.s
View File

@ -36,7 +36,7 @@ INPUTFLG := $0015
CPRMASK := $0016 CPRMASK := $0016
Z14 := $0017 ; Ctrl+O flag Z14 := $0017 ; Ctrl+O flag
Z15 := $0018 Z15 := $0018
Z16 := $0050 POSX := $0050
Z17 := $0051 Z17 := $0051
Z18 := $0052 Z18 := $0052
LINNUM := $0053 LINNUM := $0053

6
defines_cbm.s
View File

@ -11,7 +11,7 @@ CONFIG_INPUTBUFFER_ORDER := 1 ; ldx/ldy or ldy/ldx
.else .else
CONFIG_CBM_ALL := 1 CONFIG_CBM_ALL := 1
CONFIG_11 := 1 CONFIG_11 := 1
CONFIG_11_NOAPPLE := 1 CONFIG_11A := 1
CBM2_KBD := 1 CBM2_KBD := 1
CBM2_KIM := 1 CBM2_KIM := 1
CBM2_APPLE := 1 CBM2_APPLE := 1
@ -45,7 +45,7 @@ GOSTROUT := $0006
GOGIVEAYF := $0008 GOGIVEAYF := $0008
Z15 := $0004 Z15 := $0004
Z16 := $0005 POSX := $0005
Z17 := $0006 Z17 := $0006
Z18 := $0007 Z18 := $0007
LINNUM := $0008 LINNUM := $0008
@ -94,7 +94,7 @@ GOGIVEAYF := $0008
Z03 := $000E;3 ; same Z03 := $000E;3 ; same
LINNUM := $0011;0008 LINNUM := $0011;0008
Z96 := $00E8-82 Z96 := $00E8-82
Z16 := $0118-82 POSX := $0118-82
TXPSV = LASTOP TXPSV = LASTOP
INPUTBUFFER := $0200;00A INPUTBUFFER := $0200;00A

4
defines_kbd.s
View File

@ -3,7 +3,7 @@ CONFIG_SMALL := 1
CBM2_KBD := 1 CBM2_KBD := 1
KIM_KBD := 1 KIM_KBD := 1
CONFIG_11 := 1 CONFIG_11 := 1
CONFIG_11_NOAPPLE := 1 CONFIG_11A := 1
CONFIG_SAFE_NAMENOTFOUND := 1 CONFIG_SAFE_NAMENOTFOUND := 1
; INPUTBUFFER > $0100 ; INPUTBUFFER > $0100
@ -21,7 +21,7 @@ GOGIVEAYF := $0008
USR := $000A USR := $000A
Z15 := $000D Z15 := $000D
Z16 := $0010 POSX := $0010
Z17 := $06FC;$000F Z17 := $06FC;$000F
Z18 := $06FD;$0010 Z18 := $06FD;$0010
LINNUM := $0013;11 LINNUM := $0013;11

4
defines_kim.s
View File

@ -1,6 +1,6 @@
KIM_KBD := 1 KIM_KBD := 1
CONFIG_11 := 1 CONFIG_11 := 1
CONFIG_11_NOAPPLE := 1 CONFIG_11A := 1
CONFIG_SAFE_NAMENOTFOUND := 1 CONFIG_SAFE_NAMENOTFOUND := 1
CBM2_KIM_APPLE := 1 ; OUTDO difference CBM2_KIM_APPLE := 1 ; OUTDO difference
KIM_APPLE := 1 KIM_APPLE := 1
@ -33,7 +33,7 @@ INPUTFLG := $0012
CPRMASK := $0013 CPRMASK := $0013
Z14 := $0014 ; Ctrl+O flag Z14 := $0014 ; Ctrl+O flag
Z15 := $0015 Z15 := $0015
Z16 := $0016 POSX := $0016
Z17 := $0017 Z17 := $0017
Z18 := $0018 Z18 := $0018
LINNUM := $0019 LINNUM := $0019

2
defines_osi.s
View File

@ -23,7 +23,7 @@ GOGIVEAYF := $0008
USR := $000A USR := $000A
Z15 := $000D Z15 := $000D
Z16 := $000E POSX := $000E
Z17 := $000F Z17 := $000F
Z18 := $0010 Z18 := $0010
LINNUM := $0011 LINNUM := $0011

6
flow.s
View File

@ -140,7 +140,7 @@ NEWSTT2:
; CARRY IS SET ; CARRY IS SET
; ---------------------------------------------------------------------------- ; ----------------------------------------------------------------------------
EXECUTE_STATEMENT: EXECUTE_STATEMENT:
.ifndef CONFIG_11_NOAPPLE .ifndef CONFIG_11A
beq RET1 beq RET1
.ifndef APPLE .ifndef APPLE
sec sec
@ -338,7 +338,7 @@ LE68E:
.endif .endif
.if .def(CONFIG_NULL) || .def(CBM1) .if .def(CONFIG_NULL) || .def(CBM1)
; CBM1 has the keyword removed, ; CBM1 has the keyword removed,
; but the code is, still here ; but the code is still here
NULL: NULL:
jsr GETBYT jsr GETBYT
bne RET1 bne RET1
@ -351,7 +351,7 @@ NULL:
L2739: L2739:
jmp IQERR jmp IQERR
.endif .endif
.ifndef CONFIG_11_NOAPPLE .ifndef CONFIG_11A
CLEAR: CLEAR:
bne RET1 bne RET1
jmp CLEARC jmp CLEARC

6
init.s
View File

@ -76,8 +76,8 @@ COLD_START2:
ldy #>L29D0 ldy #>L29D0
.endif .endif
.ifdef CBM_APPLE .ifdef CBM_APPLE
sta L0001 sta USR+1
sty L0001+1 sty USR+2
.endif .endif
.ifndef CONFIG_CBM_ALL .ifndef CONFIG_CBM_ALL
.ifdef APPLE .ifdef APPLE
@ -129,7 +129,7 @@ L4098:
sta Z15 sta Z15
.endif .endif
.ifndef CONFIG_11 .ifndef CONFIG_11
sta Z16 sta POSX
.endif .endif
pha pha
sta Z14 sta Z14

2
misc2.s
View File

@ -31,7 +31,7 @@ GIVAYF:
ldx #$90 ldx #$90
jmp FLOAT1 jmp FLOAT1
POS: POS:
ldy Z16 ldy POSX
; ---------------------------------------------------------------------------- ; ----------------------------------------------------------------------------
; FLOAT (Y) INTO FAC, GIVING VALUE 0-255 ; FLOAT (Y) INTO FAC, GIVING VALUE 0-255

34
print.s
View File

@ -37,7 +37,7 @@ PRINT2:
ldy #$00 ldy #$00
lda (FAC_LAST-1),y lda (FAC_LAST-1),y
clc clc
adc Z16 adc POSX
.ifdef KBD .ifdef KBD
cmp #$28 cmp #$28
.else .else
@ -103,7 +103,7 @@ LC9D8:
.endif .endif
lda #CRLF_1 lda #CRLF_1
.ifndef CONFIG_CBM_ALL .ifndef CONFIG_CBM_ALL
sta Z16 sta POSX
.endif .endif
jsr OUTDO jsr OUTDO
LE882: LE882:
@ -135,7 +135,7 @@ L29D3:
dex dex
bne L29D3 bne L29D3
L29D9: L29D9:
stx Z16 stx POSX
pla pla
tax tax
.else .else
@ -149,13 +149,13 @@ L29D9:
L29DD: L29DD:
rts rts
L29DE: L29DE:
lda Z16 lda POSX
.ifndef CONFIG_CBM_ALL .ifndef CONFIG_NO_CR
.ifdef KBD .ifdef KBD
cmp #$1A cmp #$1A
.else .else
cmp Z18 cmp Z18
.endif .endif
bcc L29EA bcc L29EA
jsr CRDO jsr CRDO
jmp L2A0D jmp L2A0D
@ -166,25 +166,25 @@ L29EB:
.ifdef CONFIG_CBM_ALL .ifdef CONFIG_CBM_ALL
sbc #$0A sbc #$0A
.else .else
.ifdef KBD .ifdef KBD
sbc #$0D sbc #$0D
.else .else
sbc #$0E sbc #$0E
.endif .endif
.endif .endif
bcs L29EB bcs L29EB
eor #$FF eor #$FF
adc #$01 adc #$01
bne L2A08 bne L2A08
L29F5: L29F5:
.ifdef CONFIG_11_NOAPPLE .ifdef CONFIG_11A
php php
.else .else
pha pha
.endif .endif
jsr GTBYTC jsr GTBYTC
cmp #$29 cmp #')'
.ifndef CONFIG_11_NOAPPLE .ifndef CONFIG_11A
.ifdef APPLE .ifdef APPLE
beq L1185 beq L1185
jmp SYNERR jmp SYNERR
@ -211,7 +211,7 @@ L1185:
bcc L2A09 bcc L2A09
.endif .endif
txa txa
sbc Z16 sbc POSX
bcc L2A0D bcc L2A0D
.ifndef CONFIG_11 .ifndef CONFIG_11
beq L2A0D beq L2A0D
@ -321,7 +321,7 @@ LCA6A:
nop nop
.endif .endif
.ifdef CONFIG_PRINT_CR .ifdef CONFIG_PRINT_CR
lda Z16 lda POSX
cmp Z17 cmp Z17
bne L2A4C bne L2A4C
.ifdef APPLE .ifdef APPLE
@ -334,7 +334,7 @@ LCA6A:
L2A4C: L2A4C:
.endif .endif
.ifndef CONFIG_CBM_ALL .ifndef CONFIG_CBM_ALL
inc Z16 inc POSX
.endif .endif
L2A4E: L2A4E:
.ifndef CBM2_KBD .ifndef CBM2_KBD

2
string.s
View File

@ -703,7 +703,7 @@ ASC:
ldy #$00 ldy #$00
lda (INDEX),y lda (INDEX),y
tay tay
.ifndef CONFIG_11_NOAPPLE .ifndef CONFIG_11A
jmp SNGFLT1 jmp SNGFLT1
.else .else
jmp SNGFLT jmp SNGFLT