From 39d8a965ee83ba38448804205695cf5a9e5f3930 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Wed, 27 Jun 2018 08:14:27 -0400
Subject: [PATCH] split: more hgr code

---
 split_screen/rainbow.s | 45 +++++++++++++++++++++++++++++++-----------
 1 file changed, 33 insertions(+), 12 deletions(-)

diff --git a/split_screen/rainbow.s b/split_screen/rainbow.s
index 949bc17b..8cb4dd36 100644
--- a/split_screen/rainbow.s
+++ b/split_screen/rainbow.s
@@ -5,6 +5,8 @@
 	TEMPY	= $FB
 
 	HGR	= $F3E2
+	HPLOT0	= $F457
+	HCOLOR	= $F6EC
 	HLINE	= $F819
 	VLINE	= $F828
 	COLOR	= $F864
@@ -14,24 +16,43 @@
 	jsr	TEXT
 	jsr	HOME
 
-;30 HPLOT 0,Y TO X,Y:RETURN
-
 	jsr	HGR
 	lda	#0
 	sta	$C052		; POKE  - 16302,0
-;X=279
-;80 HCOLOR= 4:HPLOT 0,0
+
+	ldx	#4
+	jsr	HCOLOR			; HCOLOR= 4
+	ldx	#0
+	ldy	#0
+	lda	#0
+	jsr	HPLOT0			; HPLOT 0,0
+
 	jsr	$F3F6			; CALL 62454
 					; BGND, fill screen with color
 
-;90 HCOLOR= 2:Y=63:GOSUB 30:Y=62:GOSUB 30
-;100 HCOLOR= 6:Y=61:GOSUB 30:Y=60:GOSUB 30
-;110 HCOLOR= 1:Y=59:GOSUB 30:Y=58:GOSUB 30
-;120 HCOLOR= 5:Y=55:GOSUB 30:Y=54:GOSUB 30
-;C=100
-;130 HCOLOR= 0:X=C
-;140 Y=123:GOSUB 30:Y=122:GOSUB 30
-;150 Y=119:GOSUB 30:Y=118:GOSUB 30
+	ldx	#2
+	jsr	HCOLOR			; HCOLOR= 2
+;HPLOT 0,63 TO 279,63:RETURN
+;HPLOT 0,62 TO 279,62:RETURN
+	ldx	#6
+	jsr	HCOLOR			; HCOLOR= 6
+;HPLOT 0,61 TO 279,61:RETURN
+;HPLOT 0,60 TO 279,60:RETURN
+	ldx	#1
+	jsr	HCOLOR			; HCOLOR= 1
+;HPLOT 0,59 TO 279,59:RETURN
+;HPLOT 0,58 TO 279,58:RETURN
+	ldx	#5
+	jsr	HCOLOR			; HCOLOR= 5
+;HPLOT 0,55 TO 279,55:RETURN
+;HPLOT 0,54 TO 279,54:RETURN
+	ldx	#0
+	jsr	HCOLOR			; HCOLOR= 0
+;HPLOT 0,123 TO 100,123:RETURN
+;HPLOT 0,122 TO 100,122:RETURN
+;HPLOT 0,119 TO 100,119:RETURN
+;HPLOT 0,118 TO 100,118:RETURN
+
 	lda	#0
 	jsr	COLOR	; COLOR= 0