From e538bfee0e9799794d01631f51519d169560b9ee Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Fri, 19 Apr 2019 21:20:17 +0930
Subject: [PATCH] implement CHROUT clear screen.

---
 c64/kernal/chrout.s | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/c64/kernal/chrout.s b/c64/kernal/chrout.s
index 737ddc3f..28e4ff3b 100644
--- a/c64/kernal/chrout.s
+++ b/c64/kernal/chrout.s
@@ -16,6 +16,18 @@ chrout:
 	;; Write character on the screen
 	ldy current_screen_x
 
+	;; Carriage return
+	cmp #$0d
+	beq screen_advance_to_next_line
+
+	;; Clear screen
+	cmp #$93
+	bne not_clearscreen
+	jsr clear_screen
+	jmp chrout_done
+	
+not_clearscreen:	
+	
 	;;  Convert PETSCII to screen code
 	cmp #$40
 	bcc chrout_l1
@@ -37,9 +49,9 @@ chrout_l1:
 	jsr screen_grow_logical_line
 	cpy #79
 	bcc no_screen_advance_to_next_line
-	jsr screen_advance_to_next_line
+	jmp screen_advance_to_next_line
 no_screen_advance_to_next_line:
-
+chrout_done:	
 	;; Restore X and Y
 	pla
 	tay
@@ -64,4 +76,4 @@ screen_advance_to_next_line:
 	;; XXX -- implement this check and scrolling of the screen
 	;; and updating the screen line links.
 	
-	rts
+	jmp chrout_done