Apple-2gs-SW/GSCats
1
0
Fork 0
mirror of https://github.com/blondie7575/GSCats.git synced 2024-11-22 06:31:48 +00:00
Code Issues Projects Releases Wiki Activity

Top to bottom terrain rendering

Browse Source
This commit is contained in:
blondie7575 2017-11-01 12:42:52 -07:00
parent cd38f829a7
commit e49d1ea908
2 changed files with 33 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
graphics.s
View File

@ -155,6 +155,20 @@ drawNumber:
rts rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; BORDER_COLOR
;
; Trashes A
;
.macro BORDER_COLOR color
BITS8
lda BORDERCOLOR
and #$f0
ora color
sta BORDERCOLOR
BITS16
.endmacro
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Vertical blank checkers ; Vertical blank checkers
; ;

26
terrain.s
View File

@ -21,9 +21,9 @@ VISIBLETERRAINWINDOW = 80 ; In words
; ;
renderTerrain: renderTerrain:
FASTGRAPHICS FASTGRAPHICS
lda #MAXTERRAINHEIGHT lda #0
sta SCRATCHL2 ; Row counter sta SCRATCHL2 ; Row counter
lda #$9cff ; 4 Point stack to end of VRAM lda #$5f1f ; 4 Point stack to end of VRAM
tcs ; 2 tcs ; 2
sec sec
@ -43,9 +43,20 @@ renderRowComplete:
sec sec
sbc #COMPILEDTERRAINROW sbc #COMPILEDTERRAINROW
sta PARAML0 sta PARAML0
dec SCRATCHL2
bne renderTerrainLoop
tsc
clc
adc #320
tcs
lda SCRATCHL2
inc
cmp #MAXTERRAINHEIGHT
beq renderTerrainDone
sta SCRATCHL2
bra renderTerrainLoop
renderTerrainDone:
SLOWGRAPHICS SLOWGRAPHICS
rts rts
@ -216,15 +227,16 @@ unclipTerrainLoop:
compileTerrain: compileTerrain:
SAVE_AY SAVE_AY
ldy #MAXTERRAINHEIGHT-1 ldy #0
lda #compiledTerrain lda #compiledTerrain
sta PARAML0 sta PARAML0
compileTerrainLoop: compileTerrainLoop:
sty PARAML1 sty PARAML1
jsr compileTerrainRow jsr compileTerrainRow
dey iny
bmi compileTerrainDone cpy #MAXTERRAINHEIGHT
beq compileTerrainDone
clc clc
lda #COMPILEDTERRAINROW lda #COMPILEDTERRAINROW