From 2319adb9f5e95166f45e38adf126c8acb3e39657 Mon Sep 17 00:00:00 2001
From: blondie7575 <qd@quinndunki.com>
Date: Wed, 1 Nov 2017 12:42:52 -0700
Subject: [PATCH] Top to bottom terrain rendering

---
 graphics.s | 14 ++++++++++++++
 terrain.s  | 26 +++++++++++++++++++-------
 2 files changed, 33 insertions(+), 7 deletions(-)

diff --git a/graphics.s b/graphics.s
index 110a7a1..2b087c5 100644
--- a/graphics.s
+++ b/graphics.s
@@ -155,6 +155,20 @@ drawNumber:
 	rts
 
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; BORDER_COLOR
+;
+; Trashes A
+;
+.macro BORDER_COLOR color
+	BITS8
+	lda BORDERCOLOR
+	and #$f0
+	ora color
+	sta BORDERCOLOR
+	BITS16
+.endmacro
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Vertical blank checkers
 ;
diff --git a/terrain.s b/terrain.s
index 1b1d9a3..12d46b1 100644
--- a/terrain.s
+++ b/terrain.s
@@ -21,9 +21,9 @@ VISIBLETERRAINWINDOW = 80				; In words
 ;
 renderTerrain:
 	FASTGRAPHICS
-	lda #MAXTERRAINHEIGHT
+	lda #0
 	sta SCRATCHL2		; Row counter
-	lda #$9cff			; 4   Point stack to end of VRAM
+	lda #$5f1f			; 4   Point stack to end of VRAM
 	tcs					; 2
 
 	sec
@@ -43,9 +43,20 @@ renderRowComplete:
 	sec
 	sbc #COMPILEDTERRAINROW
 	sta PARAML0
-	dec SCRATCHL2
-	bne renderTerrainLoop
 
+	tsc
+	clc
+	adc #320
+	tcs
+
+	lda SCRATCHL2
+	inc
+	cmp #MAXTERRAINHEIGHT
+	beq renderTerrainDone
+	sta SCRATCHL2
+	bra renderTerrainLoop
+
+renderTerrainDone:
 	SLOWGRAPHICS
 	rts
 
@@ -216,15 +227,16 @@ unclipTerrainLoop:
 compileTerrain:
 	SAVE_AY
 
-	ldy #MAXTERRAINHEIGHT-1
+	ldy #0
 	lda #compiledTerrain
 	sta PARAML0
 
 compileTerrainLoop:
 	sty PARAML1
 	jsr compileTerrainRow
-	dey
-	bmi compileTerrainDone
+	iny
+	cpy #MAXTERRAINHEIGHT
+	beq compileTerrainDone
 
 	clc
 	lda #COMPILEDTERRAINROW