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
|
||||
bne chrin_keyboard_not_end_of_input
|
||||
|
||||
; FALLTROUGH
|
||||
|
||||
chrin_keyboard_empty_line:
|
||||
|
||||
; Clear pending input and quote flags
|
||||
lda #$00
|
||||
sta CRSW
|
||||
sta QTSW
|
||||
|
||||
; FALLTROUGH
|
||||
|
||||
chrin_keyboard_empty_line:
|
||||
|
||||
; For an empty line, just return the carriage return
|
||||
|
||||
+ply_trash_a
|
||||
@@ -142,6 +142,10 @@ chrin_enter_loop:
|
||||
pha
|
||||
sta CRSW
|
||||
|
||||
; Another empty line case
|
||||
cmp INDX
|
||||
bcs chrin_keyboard_empty_line
|
||||
|
||||
; Clear quote mode mark
|
||||
ldy #$00
|
||||
sty QTSW
|
||||
|
||||
@@ -35,16 +35,16 @@ m65_chrin_keyboard_repeat:
|
||||
cmp INDX
|
||||
bne m65_chrin_keyboard_not_end_of_input
|
||||
|
||||
; FALLTROUGH
|
||||
|
||||
m65_chrin_keyboard_empty_line:
|
||||
|
||||
; Clear pending input and quote flags
|
||||
|
||||
lda #$00
|
||||
sta CRSW
|
||||
sta QTSW
|
||||
|
||||
; FALLTROUGH
|
||||
|
||||
m65_chrin_keyboard_empty_line:
|
||||
|
||||
; For an empty line, just return the carriage return
|
||||
|
||||
lda #$0D
|
||||
@@ -149,6 +149,10 @@ m65_chrin_enter_loop:
|
||||
pha
|
||||
sta CRSW
|
||||
|
||||
; Another empty line case
|
||||
cmp INDX
|
||||
bcs m65_chrin_keyboard_empty_line
|
||||
|
||||
; Clear quote mode mark
|
||||
ldy #$00
|
||||
sty QTSW
|
||||
|
||||
Reference in new issue
Block a user