; thread28
; c64 demo in 28 bytes
; (30 byte prg file)
;
; nom de nom
; le colonial
; rv6502
;
; 2010-06-19
; @party
;
; w/ Turbo Macro Pro v1.2

*= $1000

lda #$80
sta $d40f ; noise speed hi
sta $d412 ; noise waveform

flourish

tay
lda ($f9),y ; load color
sta $0286 ; set char color
lda $d41b ; random
and #1 ; lose all but low bit
adc #$6d ; value of one diag
; now either left or right diag
jsr $ffd2 ; output character
; inx
; bne flourish ; do 256 times.. 

inc $f9 ; shift to new region
bvc flourish ; loop back..
