fixed another CHRIN problem, with empty lines
This commit is contained in:
1 parent
88a0a583e4
commit
f218a3ca84
2 files changed
+16
-8
No files matched your search
@@ -41,15 +41,15 @@ chrin_keyboard_repeat:
|
|||||||
cmp INDX
|
cmp INDX
|
||||||
bne chrin_keyboard_not_end_of_input
|
bne chrin_keyboard_not_end_of_input
|
||||||
|
|
||||||
|
; FALLTROUGH
|
||||||
|
|
||||||
|
chrin_keyboard_empty_line:
|
||||||
|
|
||||||
; Clear pending input and quote flags
|
; Clear pending input and quote flags
|
||||||
lda #$00
|
lda #$00
|
||||||
sta CRSW
|
sta CRSW
|
||||||
sta QTSW
|
sta QTSW
|
||||||
|
|
||||||
; FALLTROUGH
|
|
||||||
|
|
||||||
chrin_keyboard_empty_line:
|
|
||||||
|
|
||||||
; For an empty line, just return the carriage return
|
; For an empty line, just return the carriage return
|
||||||
|
|
||||||
+ply_trash_a
|
+ply_trash_a
|
||||||
@@ -142,6 +142,10 @@ chrin_enter_loop:
|
|||||||
pha
|
pha
|
||||||
sta CRSW
|
sta CRSW
|
||||||
|
|
||||||
|
; Another empty line case
|
||||||
|
cmp INDX
|
||||||
|
bcs chrin_keyboard_empty_line
|
||||||
|
|
||||||
; Clear quote mode mark
|
; Clear quote mode mark
|
||||||
ldy #$00
|
ldy #$00
|
||||||
sty QTSW
|
sty QTSW
|
||||||
|
|||||||
@@ -35,16 +35,16 @@ m65_chrin_keyboard_repeat:
|
|||||||
cmp INDX
|
cmp INDX
|
||||||
bne m65_chrin_keyboard_not_end_of_input
|
bne m65_chrin_keyboard_not_end_of_input
|
||||||
|
|
||||||
|
; FALLTROUGH
|
||||||
|
|
||||||
|
m65_chrin_keyboard_empty_line:
|
||||||
|
|
||||||
; Clear pending input and quote flags
|
; Clear pending input and quote flags
|
||||||
|
|
||||||
lda #$00
|
lda #$00
|
||||||
sta CRSW
|
sta CRSW
|
||||||
sta QTSW
|
sta QTSW
|
||||||
|
|
||||||
; FALLTROUGH
|
|
||||||
|
|
||||||
m65_chrin_keyboard_empty_line:
|
|
||||||
|
|
||||||
; For an empty line, just return the carriage return
|
; For an empty line, just return the carriage return
|
||||||
|
|
||||||
lda #$0D
|
lda #$0D
|
||||||
@@ -149,6 +149,10 @@ m65_chrin_enter_loop:
|
|||||||
pha
|
pha
|
||||||
sta CRSW
|
sta CRSW
|
||||||
|
|
||||||
|
; Another empty line case
|
||||||
|
cmp INDX
|
||||||
|
bcs m65_chrin_keyboard_empty_line
|
||||||
|
|
||||||
; Clear quote mode mark
|
; Clear quote mode mark
|
||||||
ldy #$00
|
ldy #$00
|
||||||
sty QTSW
|
sty QTSW
|
||||||
|
|||||||
Reference in new issue
Block a user