From 0add45b79872d0175b52f811753bea90ce0e7968 Mon Sep 17 00:00:00 2001
From: Paul Gardner-Stephen <paul@servalproject.org>
Date: Sat, 20 Apr 2019 23:17:44 +0930
Subject: [PATCH] implement home key

---
 c64/kernal/chrout.s | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/c64/kernal/chrout.s b/c64/kernal/chrout.s
index 946b29fb..479234b9 100644
--- a/c64/kernal/chrout.s
+++ b/c64/kernal/chrout.s
@@ -38,8 +38,6 @@ not_0a:
 not_0d:	
 
 	;; Check for cursor movement keys
-	sta $0400
-	
 	cmp #$11
 	bne not_11
 	inc current_screen_y
@@ -92,6 +90,16 @@ delete_non_zero_column:
 	jmp chrout_done
 	
 not_14:	
+
+	;; Home cursor
+	cmp #$13
+	bne not_13
+	lda #0
+	sta current_screen_x
+	sta current_screen_y
+	jsr calculate_screen_line_pointer
+	jmp chrout_done
+not_13:	
 	
 	;; Clear screen
 	cmp #$93