mirror of
https://github.com/mist64/msbasic.git
synced 2024-10-12 03:23:41 +00:00
cleanup
This commit is contained in:
parent
7051d3fe9a
commit
d22cda67d6
@ -25,6 +25,10 @@ USR := $000A
|
||||
;LINNUM := $0053
|
||||
|
||||
TXPSV := $0053
|
||||
|
||||
CONFIG_NO_INPUTBUFFER_ZP := 1
|
||||
CONFIG_INPUTBUFFER_0200 := 1
|
||||
|
||||
INPUTBUFFER := $0200
|
||||
INPUTBUFFERX := $0200
|
||||
|
||||
|
@ -76,6 +76,9 @@ POSX := $00C6
|
||||
|
||||
TXPSV = LASTOP
|
||||
|
||||
CONFIG_NO_INPUTBUFFER_ZP := 1
|
||||
CONFIG_INPUTBUFFER_0200 := 1
|
||||
|
||||
INPUTBUFFER := $0200
|
||||
INPUTBUFFERX := $0200
|
||||
.endif
|
||||
|
@ -30,6 +30,9 @@ Z18 := $06FD
|
||||
|
||||
|
||||
TXPSV := $0049
|
||||
|
||||
CONFIG_NO_INPUTBUFFER_ZP := 1
|
||||
|
||||
INPUTBUFFER := $0700
|
||||
INPUTBUFFERX := $0700
|
||||
|
||||
|
4
flow.s
4
flow.s
@ -82,7 +82,7 @@ NEWSTT:
|
||||
jsr ISCNTC
|
||||
lda TXTPTR
|
||||
ldy TXTPTR+1
|
||||
.if (INPUTBUFFER >=$0100) && .def(CONFIG_2)
|
||||
.if .def(CONFIG_NO_INPUTBUFFER_ZP) && .def(CONFIG_2)
|
||||
cpy #>INPUTBUFFER
|
||||
.ifdef CBM2
|
||||
nop
|
||||
@ -274,7 +274,7 @@ END2:
|
||||
bne RET1
|
||||
lda TXTPTR
|
||||
ldy TXTPTR+1
|
||||
.if (INPUTBUFFER >=$0100) && .def(CONFIG_2)
|
||||
.if .def(CONFIG_NO_INPUTBUFFER_ZP) && .def(CONFIG_2)
|
||||
; BUG on AppleSoft I
|
||||
; fix exists on AppleSoft II
|
||||
; TXTPTR+1 will always be > 0
|
||||
|
2
init.s
2
init.s
@ -30,7 +30,7 @@ COLD_START2:
|
||||
ldx #$FF
|
||||
stx CURLIN+1
|
||||
.endif
|
||||
.if INPUTBUFFER >= $0100
|
||||
.ifdef CONFIG_NO_INPUTBUFFER_ZP
|
||||
ldx #$FB
|
||||
.endif
|
||||
txs
|
||||
|
2
input.s
2
input.s
@ -66,7 +66,7 @@ LCAB6:
|
||||
.endif
|
||||
ldx #<(INPUTBUFFER+1)
|
||||
ldy #>(INPUTBUFFER+1)
|
||||
.if INPUTBUFFER >= $0100
|
||||
.ifdef CONFIG_NO_INPUTBUFFER_ZP
|
||||
lda #$00
|
||||
sta INPUTBUFFER+1
|
||||
.else
|
||||
|
@ -232,7 +232,7 @@ PUT_NEW_LINE:
|
||||
L23D6:
|
||||
sty HIGHDS+1
|
||||
jsr BLTU
|
||||
.if INPUTBUFFER = $0200
|
||||
.ifdef CONFIG_INPUTBUFFER_0200
|
||||
lda LINNUM
|
||||
ldy LINNUM+1
|
||||
sta INPUTBUFFER-2
|
||||
@ -590,7 +590,7 @@ L24DB:
|
||||
; ---END OF LINE------------------
|
||||
L24EA:
|
||||
sta INPUTBUFFER-3,y
|
||||
.if INPUTBUFFER >= $0100
|
||||
.ifdef CONFIG_NO_INPUTBUFFER_ZP
|
||||
dec TXTPTR+1
|
||||
.endif
|
||||
lda #<INPUTBUFFER-1
|
||||
|
Loading…
Reference in New Issue
Block a user