From e40b2f9679e34d8050ae3de0c58c32ec0b5b5226 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Fri, 20 Jul 2018 23:51:25 -0400
Subject: [PATCH] kfest: have it mostly looking nice

still have troubles at times acuiring vapor lock
---
 kfest2018/raster.s | 28 ++++++++++++----------------
 1 file changed, 12 insertions(+), 16 deletions(-)

diff --git a/kfest2018/raster.s b/kfest2018/raster.s
index 0f24d294..af6e1bd5 100644
--- a/kfest2018/raster.s
+++ b/kfest2018/raster.s
@@ -50,9 +50,14 @@ WAIT	= $FCA8				;; delay 1/2(26+27A+5A^2) us
 	; Clear Page1
 	lda	#$4
 	sta	DRAW_PAGE
-	lda	#$44
+	lda	#$0
 	jsr	clear_gr
 
+	; draw some green lines for character
+	lda	#$44
+	ldy	#28
+	jsr	clear_page_loop
+
 	; draw border line
 
 	lda	#$55
@@ -61,7 +66,7 @@ WAIT	= $FCA8				;; delay 1/2(26+27A+5A^2) us
 
 
 	;==================
-	; Draw Top Border
+	; Draw Blue Border on screen
 	;==================
 	; F -> 7 -> 6 -> 2
 
@@ -71,20 +76,11 @@ WAIT	= $FCA8				;; delay 1/2(26+27A+5A^2) us
 	ldy	#0
 	jsr	hline
 
-;	lda	#$3f
-;	ldy	#12
-;	jsr	hline
-
 	lda	#$4
 	sta	DRAW_PAGE
 	lda	#$27
 	ldy	#0
 	jsr	hline
-;	lda	#$1b
-;	ldy	#12
-;	jsr	hline
-
-
 
 	;=====================================
 	; Print the apple logos plus vmw logos
@@ -94,16 +90,16 @@ WAIT	= $FCA8				;; delay 1/2(26+27A+5A^2) us
 	ldx	#0
 data_loop2:
 	lda	words,Y
-	sta	$7a8,X
-
-	lda	words2,Y
 	sta	$450,X
 
+	lda	words2,Y
+	sta	$4d0,X
+
 	lda	words3,Y
-	sta	$ba8,X
+	sta	$850,X
 
 	lda	words4,Y
-	sta	$850,X
+	sta	$8d0,X
 
 	iny
 	inx