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

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-18 05:18:45 +00:00
parent 7051d3fe9a
commit d22cda67d6
8 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
defines_apple.s
View File

@ -25,6 +25,10 @@ USR := $000A
;LINNUM := $0053 ;LINNUM := $0053
TXPSV := $0053 TXPSV := $0053
CONFIG_NO_INPUTBUFFER_ZP := 1
CONFIG_INPUTBUFFER_0200 := 1
INPUTBUFFER := $0200 INPUTBUFFER := $0200
INPUTBUFFERX := $0200 INPUTBUFFERX := $0200

3
defines_cbm.s
View File

@ -76,6 +76,9 @@ POSX := $00C6
TXPSV = LASTOP TXPSV = LASTOP
CONFIG_NO_INPUTBUFFER_ZP := 1
CONFIG_INPUTBUFFER_0200 := 1
INPUTBUFFER := $0200 INPUTBUFFER := $0200
INPUTBUFFERX := $0200 INPUTBUFFERX := $0200
.endif .endif

3
defines_kbd.s
View File

@ -30,6 +30,9 @@ Z18 := $06FD
TXPSV := $0049 TXPSV := $0049
CONFIG_NO_INPUTBUFFER_ZP := 1
INPUTBUFFER := $0700 INPUTBUFFER := $0700
INPUTBUFFERX := $0700 INPUTBUFFERX := $0700

4
flow.s
View File

@ -82,7 +82,7 @@ NEWSTT:
jsr ISCNTC jsr ISCNTC
lda TXTPTR lda TXTPTR
ldy TXTPTR+1 ldy TXTPTR+1
.if (INPUTBUFFER >=$0100) && .def(CONFIG_2) .if .def(CONFIG_NO_INPUTBUFFER_ZP) && .def(CONFIG_2)
cpy #>INPUTBUFFER cpy #>INPUTBUFFER
.ifdef CBM2 .ifdef CBM2
nop nop
@ -274,7 +274,7 @@ END2:
bne RET1 bne RET1
lda TXTPTR lda TXTPTR
ldy TXTPTR+1 ldy TXTPTR+1
.if (INPUTBUFFER >=$0100) && .def(CONFIG_2) .if .def(CONFIG_NO_INPUTBUFFER_ZP) && .def(CONFIG_2)
; BUG on AppleSoft I ; BUG on AppleSoft I
; fix exists on AppleSoft II ; fix exists on AppleSoft II
; TXTPTR+1 will always be > 0 ; TXTPTR+1 will always be > 0

2
init.s
View File

@ -30,7 +30,7 @@ COLD_START2:
ldx #$FF ldx #$FF
stx CURLIN+1 stx CURLIN+1
.endif .endif
.if INPUTBUFFER >= $0100 .ifdef CONFIG_NO_INPUTBUFFER_ZP
ldx #$FB ldx #$FB
.endif .endif
txs txs

2
input.s
View File

@ -66,7 +66,7 @@ LCAB6:
.endif .endif
ldx #<(INPUTBUFFER+1) ldx #<(INPUTBUFFER+1)
ldy #>(INPUTBUFFER+1) ldy #>(INPUTBUFFER+1)
.if INPUTBUFFER >= $0100 .ifdef CONFIG_NO_INPUTBUFFER_ZP
lda #$00 lda #$00
sta INPUTBUFFER+1 sta INPUTBUFFER+1
.else .else

4
program.s
View File

@ -232,7 +232,7 @@ PUT_NEW_LINE:
L23D6: L23D6:
sty HIGHDS+1 sty HIGHDS+1
jsr BLTU jsr BLTU
.if INPUTBUFFER = $0200 .ifdef CONFIG_INPUTBUFFER_0200
lda LINNUM lda LINNUM
ldy LINNUM+1 ldy LINNUM+1
sta INPUTBUFFER-2 sta INPUTBUFFER-2
@ -590,7 +590,7 @@ L24DB:
; ---END OF LINE------------------ ; ---END OF LINE------------------
L24EA: L24EA:
sta INPUTBUFFER-3,y sta INPUTBUFFER-3,y
.if INPUTBUFFER >= $0100 .ifdef CONFIG_NO_INPUTBUFFER_ZP
dec TXTPTR+1 dec TXTPTR+1
.endif .endif
lda #<INPUTBUFFER-1 lda #<INPUTBUFFER-1

2
string.s
View File

@ -82,7 +82,7 @@ L32AA:
L32B6: L32B6:
stx STRNG2+1 stx STRNG2+1
lda STRNG1+1 lda STRNG1+1
.if INPUTBUFFER >= $0100 .ifdef CONFIG_NO_INPUTBUFFER_ZP
beq LD399 beq LD399
cmp #>INPUTBUFFER cmp #>INPUTBUFFER
.endif .endif