.opt no list
font = $6000
	*=$4000
inicio
	lda #$0
	tax
; vamos a borrar primero la zona del font
loop1
	sta font,x
	sta font+256,x
	sta font+512,x
	sta font+768,x
	inx
	bne loop1
;ahora vamos a preparar el font
	lda #>font
	sta 756
	sta $d409
;producto del loop, ya sabemos que x vale cero.
;ahora vamos a generar un loop de animación
loop2
	ldy #$0
loop3
	lda tabla.font,x
	sta font,y
	inx
	iny
	cpy #$08
	bne loop3
	cpx #64
	bne loop4
	ldx #$0
loop4
	lda #1
	sta 540
loop5
	lda 540
	bne loop5
	jmp loop2
;
;
tabla.font
	.byte 1,1,1,1,1,1,1,255
	.byte 2,2,2,2,2,2,255,2
	.byte 4,4,4,4,4,255,4,4
	.byte 8,8,8,8,255,8,8,8
	.byte 16,16,16,255,16,16,16,16
	.byte 32,32,255,32,32,32,32,32
	.byte 64,255,64,64,64,64,64,64
	.byte 255,128,128,128,128,128,128,128
	.byte 255,1,1,1,1,1,1,1
	.byte 2,255,2,2,2,2,2,2
	.byte 4,4,255,4,4,4,4,4
	.byte 8,8,8,255,8,8,8,8
	.byte 16,16,16,16,255,16,16,16
	.byte 32,32,32,32,32,255,32,32
	.byte 64,64,64,64,64,64,255,64
	.byte 128,128,128,128,128,128,128,255
;
;
	*=$2e0
	.word inicio