

rle
	lo: output char
	hi: 

lz
	lo: output char
	hi: output 2 chars from this minus n

	unpack(ptr)
	   a=*ptr
	   if lo: output(a)
	   if hi: a-=const, push ptr, unpack(ptr), unpack(ptr), pop ptr

unpack
	ldy #0
	lda (ptr),y

	cmp #$d0		; limit
	bcs unpack_output	; $00..$cf -> output symbol

	sta tmp			; $ffd0..$ffff -> pointer to symbolpair

	; lo -> output

	lda ptr
	pha
	clc
	adc tmp
	sta ptr
	lda ptr+1
	pha
	abc #ff
	sta ptr+1

	jsr unpack
	jsr unpack

	pla
	sta ptr+1
	pla
	sta ptr

	inc ptr
	bcc ohi
	    inc ptr+1
	rts

unpack_output
	sta stuff,x
	inx
	if at last char: 
	   - wait until scrolled, x=0
	   - while waiting: play drum samples etc

	lda source,x
	

	sta output,x


