;z80
;zx-spectrum
;assembler

; haiku (c) Gasman 2005
; fizzle.asm: effect for revealing dragon curve in a fizzly manner

			ld b,128
fizzle_frame
			halt
			push bc
			ld hl,ylo
fizzle_line
			push bc
			push hl
			ld e,(hl)
			inc h
			ld d,(hl)
fizzle_bitmap
			ld hl,dragon + (32 * 144) + 9 ; + 18
		rept 32
			ldi
		endm
			pop hl
			inc l
			pop bc
			djnz fizzle_line
			ld bc,65536 - 32
			ld hl,(fizzle_bitmap + 1)
			add hl,bc
			ld (fizzle_bitmap + 1),hl
			pop bc
			djnz fizzle_frame