From 63645c8ef804dcde4878ede9b3f73a04c8decc38 Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Fri, 19 Apr 2019 22:53:31 +0930
Subject: [PATCH] fix bugs with chrout to make work with BASIC

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

diff --git a/c64/kernal/chrout.s b/c64/kernal/chrout.s
index 28e4ff3b..e6adbfeb 100644
--- a/c64/kernal/chrout.s
+++ b/c64/kernal/chrout.s
@@ -12,12 +12,13 @@ chrout:
 	tya
 	pha
 	lda last_printed_character_ascii
+	tax
 	
 	;; Write character on the screen
 	ldy current_screen_x
 
 	;; Carriage return
-	cmp #$0d
+	cmp #$0d		
 	beq screen_advance_to_next_line
 
 	;; Clear screen
@@ -52,12 +53,13 @@ chrout_l1:
 	jmp screen_advance_to_next_line
 no_screen_advance_to_next_line:
 chrout_done:	
-	;; Restore X and Y
+	;; Restore X and Y, set carry to mark success on exit
 	pla
 	tay
 	pla
 	tax
-	
+	lda last_printed_character_ascii
+	clc 			; indicate success
 	rts
 
 screen_grow_logical_line: