peasant: hgr2: actually clear correct page

games/peasant/hgr_hgr2.s

@@ -5,13 +5,14 @@
 	;	unrolled here takes         0x0A501 =  42,241 cycles
 
 hgr2:
-	bit	SET_GR
-	bit	HIRES
 	bit	PAGE2
-
+	bit	FULLGR
 	lda	#$40
 	sta	HGR_PAGE
 
+	lda	HIRES
+	lda	SET_GR
+
 	lda	#$00
 
 hgr2_clearscreen:
@@ -19,38 +20,38 @@ hgr2_clearscreen:
 before:
 	ldy	#0
 hgr_cls_loop:
-	sta	$2000,Y
-	sta	$2100,Y
-	sta	$2200,Y
-	sta	$2300,Y
-	sta	$2400,Y
-	sta	$2500,Y
-	sta	$2600,Y
-	sta	$2700,Y
-	sta	$2800,Y
-	sta	$2900,Y
-	sta	$2A00,Y
-	sta	$2B00,Y
-	sta	$2C00,Y
-	sta	$2D00,Y
-	sta	$2E00,Y
-	sta	$2F00,Y
-	sta	$3000,Y
-	sta	$3100,Y
-	sta	$3200,Y
-	sta	$3300,Y
-	sta	$3400,Y
-	sta	$3500,Y
-	sta	$3600,Y
-	sta	$3700,Y
-	sta	$3800,Y
-	sta	$3900,Y
-	sta	$3A00,Y
-	sta	$3B00,Y
-	sta	$3C00,Y
-	sta	$3D00,Y
-	sta	$3E00,Y
-	sta	$3F00,Y
+	sta	$4000,Y
+	sta	$4100,Y
+	sta	$4200,Y
+	sta	$4300,Y
+	sta	$4400,Y
+	sta	$4500,Y
+	sta	$4600,Y
+	sta	$4700,Y
+	sta	$4800,Y
+	sta	$4900,Y
+	sta	$4A00,Y
+	sta	$4B00,Y
+	sta	$4C00,Y
+	sta	$4D00,Y
+	sta	$4E00,Y
+	sta	$4F00,Y
+	sta	$5000,Y
+	sta	$5100,Y
+	sta	$5200,Y
+	sta	$5300,Y
+	sta	$5400,Y
+	sta	$5500,Y
+	sta	$5600,Y
+	sta	$5700,Y
+	sta	$5800,Y
+	sta	$5900,Y
+	sta	$5A00,Y
+	sta	$5B00,Y
+	sta	$5C00,Y
+	sta	$5D00,Y
+	sta	$5E00,Y
+	sta	$5F00,Y
 	iny
 	bne	hgr_cls_loop