	/**
	 * Blinking Star by Xai
	 * 127 bytes intro for the Commodore 64 computer
	 * Compile with KickAssembler:
	 * java -jar KickAss.jar star-intro.asm
	 */

	*=$0801

	.word $080b
	.word $0a
	.byte $9e
	.text "2061"
	.byte 0,0,0

	jsr $e544
i:
	ldy #0
m:
	ldx #$00
n:
	txa
	sta $1000,y
	inx
	iny
	beq b
	cpx #6
	bne n
	jmp m
b:
	ldx #$03
a:
	sty $fb
	txa
	clc
	adc $fb
	tay
	lda $1000,y
	beq p
	txa
	sec
	sbc $fb
	bpl *+7
	eor #$ff
	clc
	adc #1
	tay
	lda $1000,y
	bne k
p:
	nop
	lda #$2a
s:
	sta $4f7,x
k:
	ldy $fb
	inx
	cpx #22
	bne a
	lda s+1
	clc
	adc #40
	sta s+1
	bcc *+5
	inc s+2
	iny
	cpy #19
	bne b

	lda #$ad
	sta p
	lda #$12
	sta p+1
	lda #$d0
	sta p+2
	lda #$d8
	sta s+2
	lda #$f7
	sta s+1

	jmp i