manipulationv215sep2019

.include "libsfx.i"

VRAM_SPRITES_LOC = $0000

Main:
  VRAM_memcpy VRAM_SPRITES_LOC, kati, sizeof_kati
	CGRAM_memcpy 128, kapa, sizeof_kapa
	CGRAM_setcolor 0, 23453

	lda #tm(OFF, OFF, OFF, OFF, ON)
	sta TM
	RW a8i16

	ldx #512 + 32 - 4
  zero_oam:
    stz shadow_oam + 3, x
    dex
    bne zero_oam

	ldx #1
	lda #$e0

	sweepspritedown:
    sta shadow_oam, x
    inx
    inx
    inx
    inx
    cpx #513
    bne sweepspritedown

	ldx #4
	lda #%00110000

	sta shadow_oam-1, x
	dex

	kanirend:
	lda kafr
	sta shadow_oam-1, x
	dex
	lda kay
	sta shadow_oam-1, x
	dex
	lda kax
	sta shadow_oam-1, x
	dex
	ldx #512
	lda #%00000010
	sta shadow_oam, x

	lda #$01
	sta kas

	lda #$80 ;force blank
	sta $2100

	lda #$0f ;turn on
	sta $2100

	VBL_set VerticalDMABeam
	lda #inidisp(ON, DISP_BRIGHTNESS_MAX)
	sta SFX_inidisp
	VBL_on

:	wai
	bra :-

VerticalDMABeam:
  lda #%10100000
	sta $2101
	lda #%00000010 ;Dear B Bus, 2 bytes to 1 address, increment, From, CPU
	sta $4300
	lda #$04 ;OAM Data Write
	sta $4301
	lda #.bankbyte(shadow_oam)
	sta $4304
	ldx #shadow_oam
	stx $4302
	ldx #544 ;bytes
	stx $4305
	lda #%00000001 ;channel 0
	sta $420B

	RW a8i8
	lda #$01
	sta kas

	lda SFX_joy1cont + 1
	and #.hibyte(JOY_Y)
	beq :+

krf:
	lda #$02
	sta kas

:
	lda SFX_joy1cont + 1
	and #.hibyte(JOY_RIGHT)
	beq :+

kmr:
	lda kax
	clc
	adc kas
	sta shadow_oam
	sta kax

:
	lda SFX_joy1cont + 1
	and #.hibyte(JOY_LEFT)
	beq :+

kml:
	lda kax
	sec
	sbc kas
	sta shadow_oam
	sta kax

:
	lda SFX_joy1cont + 1
	and #.hibyte(JOY_UP)
	beq :+

kmu:
	lda kay
	sec
	sbc kas
	sta shadow_oam + 1
	sta kay

:
	lda SFX_joy1cont + 1
	and #.hibyte(JOY_DOWN)
	beq :+

kmd:
	lda kay
	clc
	adc kas
	sta shadow_oam + 1
	sta kay

:
	lda $2D
	lsr
	lsr
	lsr
	sta mmr
	bit #%00000000
	bne kf1
	bit #%00000001
	bne kf2
	bit #%00000010
	bne kf3
	bit #%00000011
	bne kf2
kf1:
	stz shadow_oam + 2
	bra :+
kf2:
	lda #$80
	sta shadow_oam + 2
	bra :+
kf3:
	lda #$08
	sta shadow_oam + 2
:

	RW a8i16
	rtl


;--
;RODATA ROMDATA
.RODATA
incbin  kapa,        "data/karunss.png.palette"
incbin  kati,            "data/karunss.png.tiles"

.segment "LORAM"

shadow_oam: .res 512+32

kax: .res 1
kay: .res 1
kas: .res 1
kafr: .res 1
mmr: .res 1