;;Sys vars
define __rnd $fe
define __lastkey $ff

;;Framework vars
define param0 $fb
define param1 $fc
define param2 $fd

define f_minH 2
define f_maxH 5
define f_overflowedH 6

;;Player vars
define playerL 0
define playerH 1
define playerColor 2

define playerLOld 3
define playerHOld 4

;;Configs
define f_playerColor 3
define f_backgroundColor 0
define f_particleFreq $ff

	JSR init
loop:
	JSR tick
	JSR draw
	LDA #1
	STA param0
	JSR sleep
	JMP loop


init:
	JSR initPlayer
	RTS

tick:
	JSR tickPlayer
	RTS


draw:
	JSR drawPlayer
	RTS



initPlayer:
	LDA #0
	STA playerL
	LDA #2
	STA playerH
	LDA #f_playerColor
	STA playerColor
	RTS

tickPlayer:
	LDA playerL
	STA playerLOld
	LDA playerH
	STA playerHOld

	INC playerL
	BNE _done

	INC playerH
	LDA playerH

	CMP #f_overflowedH
	BNE _done
	LDA #f_minH
	STA playerH

	_done:
		RTS

drawPlayer:
	LDA #f_particleFreq
	CMP __rnd
	BEQ _drawNewPos
	LDY #0
	LDA #f_backgroundColor
	STA (playerLOld),Y

	_drawNewPos:
		LDA playerColor
		;LDA #5
		STA (playerL),Y
		RTS

sleep:
	LDX param0
	_loop:
		NOP
		DEX
		CPX #0
		BNE _loop
		RTS