asmgen/hisprite.s

;
;  hisprite.s
;
;  Created by Quinn Dunki on 7/19/16
;  Copyright (c) 2015 One Girl, One Laptop Productions. All rights reserved.
;


.org $6000

.include "macros.s"

; Softswitches
TEXT = $c050
HIRES1 = $c057
HIRES2 = $c058
HIRESPAGE1 = $c054
HIRESPAGE2 = $c055
RDPAGE2 = $c01c

; ROM entry points
COUT = $fded
ROMWAIT = $fca8

; Zero page locations we use (unused by Monitor, Applesoft, or ProDOS)
PARAM0			= $06
PARAM1			= $07
PARAM2			= $08
PARAM3			= $09
SCRATCH0		= $19
SCRATCH1		= $1a
HIRES_PAGE_L	= $1b
HIRES_PAGE_H	= $1c

; Macros
.macro BLITBYTE xPos,yPos,addr
	lda #xPos
	sta PARAM0
	lda #yPos
	sta PARAM1
	lda #<addr
	sta PARAM2
	lda #>addr
	sta PARAM3
	jsr BlitSpriteOnByte
.endmacro

.macro BLIT xPos,yPos,addr
	lda #xPos
	sta PARAM0
	lda #yPos
	sta PARAM1
	lda #<addr
	sta PARAM2
	lda #>addr
	sta PARAM3
	jsr BlitSprite
.endmacro


.macro WAIT
	lda #$80
	jsr $fca8
.endmacro



main:
	jsr EnableHires

	lda #$00
	jsr VenetianFill

;	lda #<bgFilename
;	sta PARAM0
;	lda #>bgFilename
;	sta PARAM1
;	jsr BloadHires

	jsr WritePage2

	ldx #0
;;;;
;	stz PARAM0
;	stz PARAM1
;	jsr BOXW_MAG
;
;	lda #10
;	sta PARAM1
;	jsr BOXW_MIX
;
;	lda #20
;	sta PARAM1
;	jsr BOXW_ORG
;
;	rts
;;;;

loop:
	txa
	sta PARAM0
	lda #0
	sta PARAM1

	lda RDPAGE2
	bmi loop_SavePage1

loop_SavePage2:
	lda #<bgBuffer2
	sta PARAM2
	lda #>bgBuffer2
	sta PARAM3
	bra loop_SavePage

loop_SavePage1:
	lda #<bgBuffer1
	sta PARAM2
	lda #>bgBuffer1
	sta PARAM3

loop_SavePage:
	jsr SaveBackground

	jsr BOXW_MAG
	lda #$60
	jsr ROMWAIT

	; Sync to VBL
;@1: lda $C019
;	beq @1
;	bpl @1
;@0:	lda $C019
;	bmi @0

	jsr PageFlip

	lda RDPAGE2
	bmi loop_RestorePage1

loop_RestorePage2:
	lda #<bgBuffer2
	sta PARAM2
	lda #>bgBuffer2
	sta PARAM3
	bra loop_RestorePage

loop_RestorePage1:
	lda #<bgBuffer1
	sta PARAM2
	lda #>bgBuffer1
	sta PARAM3

loop_RestorePage:
	dec PARAM0
	jsr RestoreBackground
	inc PARAM0

	inx
	cpx #133
	bne loop
;	ldx #0
;   jmp loop

	rts

bgBuffer1:
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0

bgBuffer2:
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0
	.byte 0


bgFilename:
	.byte "KOL",0

.include "graphics.s"
.include "hgrtableX.s"
.include "hgrtableY.s"
.include "spritegen0.s"
;.include "spritegen1.s"
;.include "spritegen2.s"
;.include "spritegen3.s"
;.include "spritegen4.s"

; Suppress some linker warnings - Must be the last thing in the file
.SEGMENT "ZPSAVE"
.SEGMENT "EXEHDR"
.SEGMENT "STARTUP"
.SEGMENT "INIT"
.SEGMENT "LOWCODE"