;
;  gscats
;
;  Created by Quinn Dunki on 7/9/17
;


.include "macros.s"
.include "equates.s"
.include "loader.s"

mainBank2:
	SYNCDBR

	BITS8
	lda #$f0
	sta TEXTCOLOR
	BITS16

	; Set up SCBs
	jsr initSCBs
	SHRVIDEO

	lda #basePalette
	sta PARAML0
	lda #0
	jsr setPalette
	
	ldx #$2222
	jsr colorFill

;	jsr generateTerrain
	jsr compileTerrain
	jsr clipTerrain

;	jsr unclipTerrain
;	jsr clipTerrain

mainGameLoop:

;	jsr syncVBL

;	lda scrollV
;	bmi negV

;	clc
;	lda mapScrollPos
;	adc scrollV
;	cmp #COMPILEDTERRAINROW-80
;	beq reverseScroll
;	sta mapScrollPos
	bra render

negV:
	clc
	lda mapScrollPos
	adc scrollV
	beq reverseScroll
	sta mapScrollPos

render:
	tay
	jsr renderTerrain
	jsr kbdScan

	lda mapScrollRequested
	bpl scrollMap

	lda quitRequested
	beq mainGameLoop

quit:
	CLASSICVIDEO
	jml (proDOSLongJump)

scrollMap:
	jsr unclipTerrain
	sta mapScrollPos
	jsr clipTerrain
	lda #$ffff
	sta mapScrollRequested
	jmp mainGameLoop

reverseScroll:
	lda scrollV
	eor #$ffff
	inc
	sta scrollV
	jmp mainGameLoop

scrollV:
	.word 1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; kbdScan
; Processes keyboard input
;
; Trashes A
;

kbdScan:
	EMULATION

kbdScanLoop:
	lda KBD
	bpl kbdScanDone
	sta KBDSTROBE

	cmp #(8 + $80)
	beq kbdScanLeftArrow

	cmp #(21 + $80)
	beq kbdScanRightArrow

	cmp #(32 + $80)
	beq kbdScanSpace

kbdScanDone:
	NATIVE
	rts

kbdScanLeftArrow:
	NATIVE
	lda mapScrollPos
	cmp #VISIBLETERRAINWIDTH-VISIBLETERRAINWINDOW
	beq kbdScanDone
	inc
	sta mapScrollRequested
	rts

kbdScanRightArrow:
	NATIVE
	lda mapScrollPos
	beq kbdScanDone
	dec
	sta mapScrollRequested
	rts

kbdScanSpace:
	NATIVE
	lda #1
	sta quitRequested
	rts




basePalette:
	.word $0800,$0080,$0000,$000F,$0FFF,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
mapScrollPos:	; 4-pixel columns distance from right terrain edge
	.word 0
quitRequested:
	.word $0000
mapScrollRequested:
	.word $FFFF

.include "graphics.s"
.include "terrain.s"
.include "tables.s"
endMainBank2:


; Suppress some linker warnings - Must be the last thing in the file
; This is because Quinn doesn't really know how to use ca65 properly
.SEGMENT "ZPSAVE"
.SEGMENT "EXEHDR"
.SEGMENT "STARTUP"
.SEGMENT "INIT"
.SEGMENT "LOWCODE"