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

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-11 09:56:31 +00:00
parent be65c33ec8
commit 1fd4d7d934
2 changed files with 117 additions and 115 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
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 -
KIM BASIC 1977 1.1 N Y -
AppleSoft I 1977 N Y Apple AppleSoft I 1977 N Y Apple
KIM BASIC 1977 1.1 N Y -
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

230
msbasic.s
View File

@ -1,60 +1,24 @@
; Microsoft BASIC for 6502 ; Microsoft BASIC for 6502
.ifdef KBD
.include "defines_kbd.s"
OSI_KBD_APPLE := 1
OSI_KBD := 1
CBM_KBD := 1
CBM_KBD_APPLE := 1
CBM2_KBD := 1
KIM_KBD := 1
CONFIG_11 := 1
CONFIG_11_NOAPPLE := 1
CBM2_KBD_APPLE := 1
KIM_KBD_APPLE := 1
.endif
.ifdef OSI
.include "defines_osi.s"
OSI_KBD := 1
OSI_KBD_APPLE := 1
.endif
.ifdef KIM
.include "defines_kim.s"
KIM_KBD := 1
CONFIG_11 := 1
CONFIG_11_NOAPPLE := 1
CBM2_KIM := 1
KIM_KBD_APPLE := 1
CBM2_KIM_APPLE := 1
KIM_APPLE := 1
.endif
.ifdef CBM1 .ifdef CBM1
.include "defines_cbm.s" .include "defines_cbm.s" ; 6
CBM := 1 CONFIG_CBM_ALL := 1
CBM_KBD := 1
CBM_KBD_APPLE := 1
CONFIG_CBM1_PATCHES := 1 CONFIG_CBM1_PATCHES := 1
CBM1_APPLE := 1 CBM1_APPLE := 1
CBM_APPLE := 1 CBM_APPLE := 1
.endif .endif
.ifdef CBM2
.include "defines_cbm.s" .ifdef OSI
CBM := 1 .include "defines_osi.s"; 2
CONFIG_11 := 1 OSI_KBD := 1
CONFIG_11_NOAPPLE := 1 OSI_KBD_APPLE := 1
CBM_KBD := 1 CONFIG_NULL := 1
CBM_KBD_APPLE := 1 CONFIG_OSI_APPLE_KIM := 1
CBM2_KBD_APPLE := 1
CBM2_KBD := 1
CBM2_KIM := 1
CBM2_APPLE := 1
CBM2_KIM_APPLE := 1
CBM_APPLE := 1
.endif .endif
.ifdef APPLE .ifdef APPLE
.include "defines_apple.s" .include "defines_apple.s"; 10
CONFIG_11 := 1 CONFIG_11 := 1
CBM_KBD_APPLE := 1
CBM2_APPLE := 1 CBM2_APPLE := 1
CBM2_KBD_APPLE := 1 CBM2_KBD_APPLE := 1
KIM_KBD_APPLE := 1 KIM_KBD_APPLE := 1
@ -63,8 +27,46 @@ CBM1_APPLE := 1
CBM_APPLE := 1 CBM_APPLE := 1
KIM_APPLE := 1 KIM_APPLE := 1
OSI_KBD_APPLE := 1 OSI_KBD_APPLE := 1
CONFIG_OSI_APPLE_KIM := 1
.endif .endif
.ifdef KIM
.include "defines_kim.s" ; 7
KIM_KBD := 1
CONFIG_11 := 1
CONFIG_11_NOAPPLE := 1
CBM2_KIM := 1
KIM_KBD_APPLE := 1
CBM2_KIM_APPLE := 1
KIM_APPLE := 1
CONFIG_NULL := 1
CONFIG_OSI_APPLE_KIM := 1
.endif
.ifdef CBM2
.include "defines_cbm.s" ; 11
CONFIG_CBM_ALL := 1
CONFIG_11 := 1
CONFIG_11_NOAPPLE := 1
CBM2_KBD_APPLE := 1
CBM2_KBD := 1
CBM2_KIM := 1
CBM2_APPLE := 1
CBM2_KIM_APPLE := 1
CBM_APPLE := 1
.endif
.ifdef KBD
.include "defines_kbd.s" ; 10
OSI_KBD_APPLE := 1
OSI_KBD := 1
CBM2_KBD := 1
KIM_KBD := 1
CONFIG_11 := 1
CONFIG_11_NOAPPLE := 1
CBM2_KBD_APPLE := 1
KIM_KBD_APPLE := 1
.endif
.include "macros.s" .include "macros.s"
@ -84,7 +86,7 @@ TOKEN_ADDRESS_TABLE:
.word FOR-1 .word FOR-1
.word NEXT-1 .word NEXT-1
.word DATA-1 .word DATA-1
.ifdef CBM .ifdef CONFIG_CBM_ALL
.word INPUTH-1 .word INPUTH-1
.endif .endif
.word INPUT-1 .word INPUT-1
@ -108,7 +110,7 @@ TOKEN_ADDRESS_TABLE:
.endif .endif
.word STOP-1 .word STOP-1
.word ON-1 .word ON-1
.ifndef CBM_KBD_APPLE .ifdef CONFIG_NULL
.word NULL-1 .word NULL-1
.endif .endif
.ifdef KBD .ifdef KBD
@ -121,7 +123,7 @@ TOKEN_ADDRESS_TABLE:
.word LOAD-1 .word LOAD-1
.word SAVE-1 .word SAVE-1
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
.word VERIFY-1 .word VERIFY-1
.endif .endif
.word DEF-1 .word DEF-1
@ -130,14 +132,14 @@ TOKEN_ADDRESS_TABLE:
.else .else
.word POKE-1 .word POKE-1
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
.word PRINTH-1 .word PRINTH-1
.endif .endif
.word PRINT-1 .word PRINT-1
.word CONT-1 .word CONT-1
.word LIST-1 .word LIST-1
.word CLEAR-1 .word CLEAR-1
.ifdef CBM .ifdef CONFIG_CBM_ALL
.word CMD-1 .word CMD-1
.word SYS-1 .word SYS-1
.word OPEN-1 .word OPEN-1
@ -212,7 +214,7 @@ TOKEN_NAME_TABLE:
htasc "FOR" htasc "FOR"
htasc "NEXT" htasc "NEXT"
htasc "DATA" htasc "DATA"
.ifdef CBM .ifdef CONFIG_CBM_ALL
htasc "INPUT#" htasc "INPUT#"
.endif .endif
htasc "INPUT" htasc "INPUT"
@ -236,7 +238,7 @@ TOKEN_NAME_TABLE:
.endif .endif
htasc "STOP" htasc "STOP"
htasc "ON" htasc "ON"
.ifndef CBM_KBD_APPLE .ifdef CONFIG_NULL
htasc "NULL" htasc "NULL"
.endif .endif
.ifdef KBD .ifdef KBD
@ -249,7 +251,7 @@ TOKEN_NAME_TABLE:
htasc "LOAD" htasc "LOAD"
htasc "SAVE" htasc "SAVE"
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
htasc "VERIFY" htasc "VERIFY"
.endif .endif
htasc "DEF" htasc "DEF"
@ -258,18 +260,18 @@ TOKEN_NAME_TABLE:
.else .else
htasc "POKE" htasc "POKE"
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
htasc "PRINT#" htasc "PRINT#"
.endif .endif
htasc "PRINT" htasc "PRINT"
htasc "CONT" htasc "CONT"
htasc "LIST" htasc "LIST"
.ifdef CBM .ifdef CONFIG_CBM_ALL
htasc "CLR" htasc "CLR"
.else .else
htasc "CLEAR" htasc "CLEAR"
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
htasc "CMD" htasc "CMD"
htasc "SYS" htasc "SYS"
htasc "OPEN" htasc "OPEN"
@ -414,7 +416,7 @@ ERR_BADTYPE := <(*-ERROR_MESSAGES)
htasc ERRSTR_BADTYPE htasc ERRSTR_BADTYPE
ERR_STRLONG := <(*-ERROR_MESSAGES) ERR_STRLONG := <(*-ERROR_MESSAGES)
htasc ERRSTR_STRLONG htasc ERRSTR_STRLONG
.ifdef CBM .ifdef CONFIG_CBM_ALL
ERR_BADDATA := <(*-ERROR_MESSAGES) ERR_BADDATA := <(*-ERROR_MESSAGES)
htasc ERRSTR_BADDATA htasc ERRSTR_BADDATA
.endif .endif
@ -446,7 +448,7 @@ QT_OK:
.byte "K" .byte "K"
.else .else
.byte $0D,$0A .byte $0D,$0A
.ifdef CBM .ifdef CONFIG_CBM_ALL
.byte "READY." .byte "READY."
.else .else
.byte "OK" .byte "OK"
@ -593,7 +595,7 @@ MEMERR:
ldx #ERR_MEMFULL ldx #ERR_MEMFULL
ERROR: ERROR:
lsr Z14 lsr Z14
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda Z03 ; output lda Z03 ; output
beq LC366 ; is screen beq LC366 ; is screen
jsr CLRCH ; otherwise redirect output back to screen jsr CLRCH ; otherwise redirect output back to screen
@ -644,7 +646,7 @@ LE28E:
lsr Z14 lsr Z14
lda #<QT_OK lda #<QT_OK
ldy #>QT_OK ldy #>QT_OK
.ifdef CBM .ifdef CONFIG_CBM_ALL
jsr STROUT jsr STROUT
.else .else
jsr GOWARM jsr GOWARM
@ -928,13 +930,13 @@ INLIN:
ldx #$00 ldx #$00
INLIN2: INLIN2:
jsr GETLN jsr GETLN
.ifndef CBM .ifndef CONFIG_CBM_ALL
cmp #$07 cmp #$07
beq L2443 beq L2443
.endif .endif
cmp #$0D cmp #$0D
beq L2453 beq L2453
.ifndef CBM .ifndef CONFIG_CBM_ALL
cmp #$20 cmp #$20
bcc INLIN2 bcc INLIN2
cmp #$7D cmp #$7D
@ -955,7 +957,7 @@ L2443:
bne INLIN2 bne INLIN2
.endif .endif
L244C: L244C:
.ifndef CBM .ifndef CONFIG_CBM_ALL
lda #$07 lda #$07
jsr OUTDO jsr OUTDO
bne INLIN2 bne INLIN2
@ -963,7 +965,7 @@ L244C:
L2453: L2453:
jmp L29B9 jmp L29B9
GETLN: GETLN:
.ifdef CBM .ifdef CONFIG_CBM_ALL
jsr CHRIN jsr CHRIN
ldy Z03 ldy Z03
bne L2465 bne L2465
@ -1004,7 +1006,7 @@ PARSE_INPUT_LINE:
sty DATAFLG sty DATAFLG
L246C: L246C:
lda INPUTBUFFERX,x lda INPUTBUFFERX,x
.ifdef CBM .ifdef CONFIG_CBM_ALL
bpl LC49E bpl LC49E
cmp #$FF cmp #$FF
beq L24AC beq L24AC
@ -1201,7 +1203,7 @@ CLEARC:
.endif .endif
sta FRETOP sta FRETOP
sty FRETOP+1 sty FRETOP+1
.ifdef CBM .ifdef CONFIG_CBM_ALL
jsr CLALL jsr CLALL
.endif .endif
lda VARTAB lda VARTAB
@ -1563,7 +1565,7 @@ SETDA:
sty DATPTR+1 sty DATPTR+1
RET2: RET2:
rts rts
.ifndef CBM .ifndef CONFIG_CBM_ALL
ISCNTC: ISCNTC:
.endif .endif
.ifdef APPLE .ifdef APPLE
@ -1601,7 +1603,7 @@ LE633:
cmp #$03 cmp #$03
bne LE633 bne LE633
.endif .endif
.ifndef CBM_KBD .ifdef CONFIG_OSI_APPLE_KIM
cmp #$03 cmp #$03
.endif .endif
STOP: STOP:
@ -2028,7 +2030,7 @@ LETSTRING:
pla pla
PUTSTR: PUTSTR:
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
ldy FORPNT+1 ldy FORPNT+1
.ifdef CBM1 .ifdef CBM1
cpy #$D0 cpy #$D0
@ -2138,7 +2140,7 @@ L2963:
lda (DSCPTR),y lda (DSCPTR),y
sta (FORPNT),y sta (FORPNT),y
rts rts
.ifdef CBM .ifdef CONFIG_CBM_ALL
PRINTH: PRINTH:
jsr CMD jsr CMD
jmp LCAD6 jmp LCAD6
@ -2181,7 +2183,7 @@ PRINT2:
bmi PRSTRING bmi PRSTRING
jsr FOUT jsr FOUT
jsr STRLIT jsr STRLIT
.ifndef CBM .ifndef CONFIG_CBM_ALL
ldy #$00 ldy #$00
lda (FAC_LAST-1),y lda (FAC_LAST-1),y
clc clc
@ -2236,7 +2238,7 @@ L29B9:
ldx #LINNUM+1 ldx #LINNUM+1
.endif .endif
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda Z03 lda Z03
bne L29DD bne L29DD
LC9D2: LC9D2:
@ -2249,7 +2251,7 @@ CRDO:
LC9D8: LC9D8:
.endif .endif
lda #$0D lda #$0D
.ifndef CBM .ifndef CONFIG_CBM_ALL
sta Z16 sta Z16
.endif .endif
jsr OUTDO jsr OUTDO
@ -2290,7 +2292,7 @@ L29DD:
rts rts
L29DE: L29DE:
lda Z16 lda Z16
.ifndef CBM .ifndef CONFIG_CBM_ALL
.ifdef KBD .ifdef KBD
cmp #$1A cmp #$1A
.else .else
@ -2303,7 +2305,7 @@ L29EA:
.endif .endif
sec sec
L29EB: L29EB:
.ifdef CBM .ifdef CONFIG_CBM_ALL
sbc #$0A sbc #$0A
.else .else
.ifdef KBD .ifdef KBD
@ -2405,7 +2407,7 @@ OUTSP:
.byte $2C .byte $2C
LCA40: LCA40:
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda #$1D lda #$1D
.else .else
lda #$20 lda #$20
@ -2447,12 +2449,12 @@ LCA6A:
jsr PATCH6 jsr PATCH6
nop nop
.endif .endif
.ifndef CBM_KBD .ifdef CONFIG_OSI_APPLE_KIM
lda Z16 lda Z16
cmp Z17 cmp Z17
bne L2A4C bne L2A4C
.ifdef APPLE .ifdef APPLE
nop nop ; PATCH!
nop nop
nop nop
.else .else
@ -2460,7 +2462,7 @@ LCA6A:
.endif .endif
L2A4C: L2A4C:
.endif .endif
.ifndef CBM .ifndef CONFIG_CBM_ALL
inc Z16 inc Z16
.endif .endif
L2A4E: L2A4E:
@ -2525,7 +2527,7 @@ L2A67:
SYNERR4: SYNERR4:
jmp SYNERR jmp SYNERR
L2A6E: L2A6E:
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda Z03 lda Z03
beq LCA8F beq LCA8F
ldx #ERR_BADDATA ldx #ERR_BADDATA
@ -2544,7 +2546,7 @@ LE920:
.ifndef OSI_KBD .ifndef OSI_KBD
GET: GET:
jsr ERRDIR jsr ERRDIR
.ifdef CBM .ifdef CONFIG_CBM_ALL
cmp #$23 cmp #$23
bne LCAB6 bne LCAB6
jsr CHRGET jsr CHRGET
@ -2565,13 +2567,13 @@ LCAB6:
.endif .endif
lda #$40 lda #$40
jsr PROCESS_INPUT_LIST jsr PROCESS_INPUT_LIST
.ifdef CBM .ifdef CONFIG_CBM_ALL
ldx Z03 ldx Z03
bne LCAD8 bne LCAD8
.endif .endif
rts rts
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
INPUTH: INPUTH:
jsr GETBYT jsr GETBYT
lda #$2C lda #$2C
@ -2616,7 +2618,7 @@ NXIN:
pla pla
jmp LE86C jmp LE86C
.else .else
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda Z03 lda Z03
beq LCB0C beq LCB0C
lda Z96 lda Z96
@ -2628,7 +2630,7 @@ LCB0C:
.endif .endif
lda INPUTBUFFER lda INPUTBUFFER
bne L2ABE bne L2ABE
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda Z03 lda Z03
bne LCAF8 bne LCAF8
.ifdef CONFIG_CBM1_PATCHES .ifdef CONFIG_CBM1_PATCHES
@ -2706,7 +2708,7 @@ PROCESS_INPUT_ITEM:
L2AF0: L2AF0:
.endif .endif
bmi FINDATA bmi FINDATA
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda Z03 lda Z03
bne LCB64 bne LCB64
.endif .endif
@ -2828,7 +2830,7 @@ L2B94:
ldy #$00 ldy #$00
lda (INPTR),y lda (INPTR),y
beq L2BA1 beq L2BA1
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda Z03 lda Z03
bne L2BA1 bne L2BA1
.endif .endif
@ -3125,7 +3127,7 @@ L2D36:
L2D39: L2D39:
jsr ISLETC jsr ISLETC
bcs FRM_VARIABLE bcs FRM_VARIABLE
.ifdef CBM .ifdef CONFIG_CBM_ALL
cmp #$FF cmp #$FF
bne LCDC1 bne LCDC1
lda #<CON_PI lda #<CON_PI
@ -3204,13 +3206,13 @@ FRM_VARIABLE:
FRM_VARIABLE_CALL = *-1 FRM_VARIABLE_CALL = *-1
sta FAC_LAST-1 sta FAC_LAST-1
sty FAC_LAST sty FAC_LAST
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda VARNAM lda VARNAM
ldy VARNAM+1 ldy VARNAM+1
.endif .endif
ldx VALTYP ldx VALTYP
beq L2DB1 beq L2DB1
.ifdef CBM .ifdef CONFIG_CBM_ALL
.ifdef CONFIG_CBM1_PATCHES .ifdef CONFIG_CBM1_PATCHES
jmp PATCH2 jmp PATCH2
clc clc
@ -3264,13 +3266,13 @@ L2DC2:
cmp #$54 cmp #$54
bne LCE82 bne LCE82
.endif .endif
.ifndef CBM .ifndef CONFIG_CBM_ALL
jmp LOAD_FAC_FROM_YA jmp LOAD_FAC_FROM_YA
.endif .endif
.ifdef CBM1 .ifdef CBM1
.byte $19 .byte $19
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
LCE69: LCE69:
cpy #$49 cpy #$49
.ifdef CBM1 .ifdef CBM1
@ -3562,7 +3564,7 @@ C_ZERO:
.byte $00,$00 .byte $00,$00
.endif .endif
MAKENEWVARIABLE: MAKENEWVARIABLE:
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda VARNAM lda VARNAM
ldy VARNAM+1 ldy VARNAM+1
cmp #$54 cmp #$54
@ -6196,7 +6198,7 @@ L3D3E:
and #$80 and #$80
tax tax
cpy #DECTBL_END-DECTBL cpy #DECTBL_END-DECTBL
.ifdef CBM .ifdef CONFIG_CBM_ALL
beq LDD96 beq LDD96
cpy #$3C cpy #$3C
.endif .endif
@ -6270,7 +6272,7 @@ DECTBL:
.byte $FF,$FF,$FF,$FF .byte $FF,$FF,$FF,$FF
DECTBL_END: DECTBL_END:
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
.byte $FF,$DF,$0A,$80 ; TI$ .byte $FF,$DF,$0A,$80 ; TI$
.byte $00,$03,$4B,$C0 .byte $00,$03,$4B,$C0
.byte $FF,$FF,$73,$60 .byte $FF,$FF,$73,$60
@ -6490,7 +6492,7 @@ GOMOVMF:
.byte $F0 .byte $F0
.else .else
jsr SIGN jsr SIGN
.ifdef CBM .ifdef CONFIG_CBM_ALL
bmi L3F01 bmi L3F01
bne LDF63 bne LDF63
lda ENTROPY lda ENTROPY
@ -6510,7 +6512,7 @@ LDF63:
lda #<RNDSEED lda #<RNDSEED
ldy #$00 ldy #$00
jsr LOAD_FAC_FROM_YA jsr LOAD_FAC_FROM_YA
.ifndef CBM .ifndef CONFIG_CBM_ALL
txa txa
beq L3EDA beq L3EDA
.endif .endif
@ -6525,7 +6527,7 @@ L3F01:
lda FAC+1 lda FAC+1
sta FAC_LAST sta FAC_LAST
stx FAC+1 stx FAC+1
.ifdef CBM .ifdef CONFIG_CBM_ALL
ldx FAC+2 ldx FAC+2
lda FAC+3 lda FAC+3
sta FAC+2 sta FAC+2
@ -6629,7 +6631,7 @@ POLY_SIN:
.byte $07,$FB,$F8,$87,$99,$68,$89,$01 .byte $07,$FB,$F8,$87,$99,$68,$89,$01
.byte $87,$23,$35,$DF,$E1,$86,$A5,$5D .byte $87,$23,$35,$DF,$E1,$86,$A5,$5D
.byte $E7,$28,$83,$49,$0F,$DA,$A2 .byte $E7,$28,$83,$49,$0F,$DA,$A2
.ifndef CBM .ifndef CONFIG_CBM_ALL
MICROSOFT: MICROSOFT:
.byte $A6,$D3,$C1,$C8,$D4,$C8,$D5,$C4 .byte $A6,$D3,$C1,$C8,$D4,$C8,$D5,$C4
.byte $CE,$CA .byte $CE,$CA
@ -6750,7 +6752,7 @@ COLD_START:
lda $0353 lda $0353
sta $05 sta $05
.else .else
.ifndef CBM .ifndef CONFIG_CBM_ALL
lda #<QT_WRITTEN_BY lda #<QT_WRITTEN_BY
ldy #>QT_WRITTEN_BY ldy #>QT_WRITTEN_BY
jsr STROUT jsr STROUT
@ -6764,7 +6766,7 @@ COLD_START2:
ldx #$FB ldx #$FB
.endif .endif
txs txs
.ifndef CBM .ifndef CONFIG_CBM_ALL
lda #<COLD_START2 lda #<COLD_START2
ldy #>COLD_START2 ldy #>COLD_START2
sta Z00+1 sta Z00+1
@ -6781,7 +6783,7 @@ COLD_START2:
sty GOGIVEAYF+1 sty GOGIVEAYF+1
.endif .endif
lda #$4C lda #$4C
.ifdef CBM .ifdef CONFIG_CBM_ALL
sta JMPADRS sta JMPADRS
sta Z00 sta Z00
.else .else
@ -6799,7 +6801,7 @@ COLD_START2:
sta $0B sta $0B
sty $0C sty $0C
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
lda #<IQERR lda #<IQERR
ldy #>IQERR ldy #>IQERR
.endif .endif
@ -6811,7 +6813,7 @@ COLD_START2:
sta L0001 sta L0001
sty L0001+1 sty L0001+1
.endif .endif
.ifndef CBM .ifndef CONFIG_CBM_ALL
.ifdef APPLE .ifdef APPLE
lda #$28 lda #$28
.else .else
@ -6853,7 +6855,7 @@ L4098:
.ifndef KBD .ifndef KBD
txa txa
sta SHIFTSIGNEXT sta SHIFTSIGNEXT
.ifdef CBM .ifdef CONFIG_CBM_ALL
sta Z03 sta Z03
.endif .endif
sta LASTPT+1 sta LASTPT+1
@ -6885,7 +6887,7 @@ L4098:
.endif .endif
ldx #TEMPST ldx #TEMPST
stx TEMPPT stx TEMPPT
.ifndef CBM .ifndef CONFIG_CBM_ALL
lda #<QT_MEMORY_SIZE lda #<QT_MEMORY_SIZE
ldy #>QT_MEMORY_SIZE ldy #>QT_MEMORY_SIZE
jsr STROUT jsr STROUT
@ -6941,7 +6943,7 @@ L40DD:
asl a asl a
sta (LINNUM),y sta (LINNUM),y
cmp (LINNUM),y cmp (LINNUM),y
.ifdef CBM .ifdef CONFIG_CBM_ALL
beq L40D7 beq L40D7
.endif .endif
.ifdef OSI_KBD .ifdef OSI_KBD
@ -6953,7 +6955,7 @@ L40DD:
beq L40D7 beq L40D7
.endif .endif
L40EE: L40EE:
.ifndef CBM .ifndef CONFIG_CBM_ALL
jsr CHRGOT jsr CHRGOT
jsr LINGET jsr LINGET
tay tay
@ -6968,7 +6970,7 @@ L40FA:
sta FRETOP sta FRETOP
sty FRETOP+1 sty FRETOP+1
L4106: L4106:
.ifndef CBM .ifndef CONFIG_CBM_ALL
.ifdef APPLE .ifdef APPLE
lda #$FF lda #$FF
jmp L2829 jmp L2829
@ -7077,7 +7079,7 @@ L4192:
.ifndef OSI_KBD_APPLE .ifndef OSI_KBD_APPLE
jsr SCRTCH jsr SCRTCH
.endif .endif
.ifdef CBM .ifdef CONFIG_CBM_ALL
jmp RESTART jmp RESTART
.else .else
lda #<STROUT lda #<STROUT
@ -7099,7 +7101,7 @@ QT_WANT:
.byte $00 .byte $00
.endif .endif
QT_WRITTEN_BY: QT_WRITTEN_BY:
.ifndef CBM .ifndef CONFIG_CBM_ALL
.ifdef APPLE .ifdef APPLE
; set the MSB of every byte of a string ; set the MSB of every byte of a string
.macro asc80 str .macro asc80 str
@ -7156,7 +7158,7 @@ QT_BASIC:
.byte $0A,$0D,$0A .byte $0A,$0D,$0A
.byte "APPLE BASIC V1.1" .byte "APPLE BASIC V1.1"
.endif .endif
.ifndef CBM .ifndef CONFIG_CBM_ALL
.byte $0D,$0A .byte $0D,$0A
.byte "COPYRIGHT 1977 BY MICROSOFT CO." .byte "COPYRIGHT 1977 BY MICROSOFT CO."
.byte $0D,$0A,$00 .byte $0D,$0A,$00