commodore.gen.tr

	!to "sprite_animator.prg",cbm

;
; Constants
;
	SCREEN_ADDRESS		= $0400
	BASIC_START		= $0801
	CODE_START		= $080d
	SPRITE_ADDRESS		= $0c00	

	NUMBER_OF_SPRITES	= (SPRITE_END_ADDRESS - SPRITE_ADDRESS) / $40
	ANIMATION_SPEED		= 5 ; Wait For "N" Frames

	FrameCounter		= $fa
	SpritePointer		= $fb
;
; Basic Autorun
;
	* = BASIC_START
	!byte 12,8,0,0,158
	!if CODE_START >= 10000 {!byte 48+((CODE_START/10000)%10)}
	!if CODE_START >= 1000 {!byte 48+((CODE_START/1000)%10)}
	!if CODE_START >= 100 {!byte 48+((CODE_START/100)%10)}
	!if CODE_START >= 10 {!byte 48+((CODE_START/10)%10)}
	!byte 48+(CODE_START % 10),0,0,0

	* = CODE_START
	sei

	jsr $e544
	lda #$02
	sta $d020
	lda #$00
	sta $d021

	lda #$01
	sta $d015

	lda #$01
	sta $d027

	lda #$a0
	sta $d000

	lda #$a0
	sta $d001

Start
	lda #NUMBER_OF_SPRITES
	sta FrameCounter

	lda #(SPRITE_ADDRESS & $3fff)/$40
	sta SpritePointer

MainLoop
	lda SpritePointer
	sta SCREEN_ADDRESS+$3f8

	lda #$ff
	cmp $d012
	bne *-3

	ldy #ANIMATION_SPEED
WaitOL	ldx $d012
	dex
WaitIL	cpx $d012
	bne WaitIL
	dey
	bne WaitOL

	inc SpritePointer
	dec FrameCounter
	bne MainLoop

	jmp Start

	* = SPRITE_ADDRESS
;sprite 0
	!fill 63,$aa
	!byte 0
;sprite 1
	!fill 63,$f0
	!byte 0
;sprite 2
	!fill 63,$0f
	!byte 0
;sprite 3
	!fill 63,$55
	!byte 0
;sprite 4
	!fill 63,$18
	!byte 0

SPRITE_END_ADDRESS = *

	lda #$01
	sta $d027

	lda #$01
	sta $d01c

	lda #$01
	sta $d027
	lda #$02
	sta $d025
	lda #$03
	sta $d026