Apple-2-SW/msbasic
1
0
Fork 0
mirror of https://github.com/mist64/msbasic.git synced 2025-01-17 17:30:48 +00:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Michael Steil 2008-10-16 09:04:00 +00:00
parent 5385c48978
commit e5eaeff307
3 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
flow.s
View File

@ -82,15 +82,15 @@ NEWSTT:
jsr ISCNTC jsr ISCNTC
lda TXTPTR lda TXTPTR
ldy TXTPTR+1 ldy TXTPTR+1
.ifdef CBM2_KBD .if (INPUTBUFFER >=$0100) && .def(CONFIG_2)
cpy #>INPUTBUFFER cpy #>INPUTBUFFER
.endif .ifdef CBM2
.ifdef CBM2
nop nop
.endif .endif
.ifdef CBM2_KBD
beq LC6D4 beq LC6D4
.else .else
; BUG on AppleSoft I,
; fixed differently on AppleSoft II (ldx/inx)
beq L2683 beq L2683
.endif .endif
sta OLDTEXT sta OLDTEXT
@ -274,7 +274,10 @@ END2:
bne RET1 bne RET1
lda TXTPTR lda TXTPTR
ldy TXTPTR+1 ldy TXTPTR+1
.ifdef CBM2_KBD .if (INPUTBUFFER >=$0100) && .def(CONFIG_2)
; BUG on AppleSoft I
; exists on AppleSoft II
; TXTPTR+1 will always be > 0
ldx CURLIN+1 ldx CURLIN+1
inx inx
.endif .endif

4
init.s
View File

@ -175,7 +175,7 @@ L4098:
tay tay
bne L40EE bne L40EE
.endif .endif
.ifndef CBM2_KBD .ifndef CBM2
lda #<RAMSTART2 lda #<RAMSTART2
.endif .endif
ldy #>RAMSTART2 ldy #>RAMSTART2
@ -185,7 +185,7 @@ L4098:
.endif .endif
sta LINNUM sta LINNUM
sty LINNUM+1 sty LINNUM+1
.ifdef CBM2_KBD .ifdef CBM2
tay tay
.else .else
ldy #$00 ldy #$00

7
input.s
View File

@ -187,12 +187,13 @@ READ:
ldx DATPTR ldx DATPTR
ldy DATPTR+1 ldy DATPTR+1
.ifdef CBM2_KBD .ifdef CBM2_KBD
lda #$98 ; AppleSoft, too ; AppleSoft II, too
lda #$98 ; READ
.byte $2C .byte $2C
L2ABE: L2ABE:
lda #$00 lda #$00 ; INPUT
.else .else
.byte $A9 .byte $A9 ; LDA #$98
L2ABE: L2ABE:
tya tya
.endif .endif