ignore LF character in CHROUT (BASIC READY prompt tries to display it)
This commit is contained in:
1 parent
a5183785ea
commit
1ca55c8df3
1 file changed
+13
-2
+13
-2
@@ -14,9 +14,16 @@ chrout:
|
|||||||
lda last_printed_character_ascii
|
lda last_printed_character_ascii
|
||||||
tax
|
tax
|
||||||
|
|
||||||
;; Write character on the screen
|
|
||||||
ldy current_screen_x
|
|
||||||
|
|
||||||
|
;; Check for special characters
|
||||||
|
|
||||||
|
;; Linefeed (simply ignored)
|
||||||
|
;; Trivia: BASIC does CRLF with READY. prompt
|
||||||
|
cmp #$0a
|
||||||
|
bne not_0a
|
||||||
|
jmp chrout_done
|
||||||
|
not_0a:
|
||||||
|
|
||||||
;; Carriage return
|
;; Carriage return
|
||||||
cmp #$0d
|
cmp #$0d
|
||||||
beq screen_advance_to_next_line
|
beq screen_advance_to_next_line
|
||||||
@@ -37,8 +44,12 @@ not_clearscreen:
|
|||||||
and #$1f
|
and #$1f
|
||||||
|
|
||||||
chrout_l1:
|
chrout_l1:
|
||||||
|
;; Write normal character on the screen
|
||||||
|
ldy current_screen_x
|
||||||
sta (current_screen_line_ptr),y
|
sta (current_screen_line_ptr),y
|
||||||
|
|
||||||
|
;; XXX - Update colour RAM also
|
||||||
|
|
||||||
;; Advance the column, and scroll screen down if we need
|
;; Advance the column, and scroll screen down if we need
|
||||||
;; to insert a 2nd line in this logical line.
|
;; to insert a 2nd line in this logical line.
|
||||||
;; (eg Compute's Mapping the 64 p41)
|
;; (eg Compute's Mapping the 64 p41)
|
||||||
|
|||||||
Reference in new issue
Block a user