
		*= $801
		.word +, 2025
		.null $9e, "2070"
+		.byte 0

star		.byte %00000000
		.byte %00000010
		.byte %01010001
		.byte %00110000
		.byte %01110010
		.byte %00001001
		.byte %00000100
		.byte %10010010
		.byte %01001001
		.byte %11111111
start
		lda star,x
		sta $fb
		sec
		rol a
		sta $fc
		txa
		ror a
		cpx #9
		bne +
		lda #0
		*= *-1
		dex
		sta at
+		ldy #18
-		bcc +
		pha
		lda #"*"
		sta ($d1),y
		pla
+		asl a
		ror $fc
		rol $fb
		dey
		bpl -
		jsr $aad7
at		inx
		bpl start
		rts
