* Zupa.256 b. Fox/Tqa

ramek	equ	3
sound	equ	0	8

scr	equ	$bc40

si	equ	$80
mask	equ	$82

	org	$9000
font	dta	%00000000
	dta	%00000000
	dta	%00000000
	dta	%00000000
	dta	%00000000
	dta	%00000000
	dta	%00000000
	dta	%00000000

	dta	%00000000
	dta	%00000000
	dta	%00000000
	dta	%00011000
	dta	%00011000
	dta	%00000000
	dta	%00000000
	dta	%00000000

	dta	%00000000
	dta	%00000000
	dta	%00011000
	dta	%00111100
	dta	%00111100
	dta	%00011000
	dta	%00000000
	dta	%00000000

	dta	%00000000
	dta	%00011000
	dta	%00111100
	dta	%01111110
	dta	%01111110
	dta	%00111100
	dta	%00011000
	dta	%00000000

	dta	%00011000
	dta	%00111100
	dta	%01111110
	dta	%11111111
	dta	%11111111
	dta	%01111110
	dta	%00111100
	dta	%00011000

	dta	%00111100
	dta	%01111110
	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%01111110
	dta	%00111100

	dta	%01111110
	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%01111110

	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%11111111
	dta	%11111111

	dta	%11101110
	dta	%11111111
	dta	%10111011
	dta	%11111111
	dta	%11101110
	dta	%11111111
	dta	%10111011
	dta	%11111111

	dta	%10101010
	dta	%11011101
	dta	%10101010
	dta	%01110111
	dta	%10101010
	dta	%11011101
	dta	%10101010
	dta	%01110111

	dta	%10101010
	dta	%01010101
	dta	%10101010
	dta	%01010101
	dta	%10101010
	dta	%01010101
	dta	%10101010
	dta	%01010101

	dta	%10001000
	dta	%01010101
	dta	%00100010
	dta	%01010101
	dta	%10001000
	dta	%01010101
	dta	%00100010
	dta	%01010101

	dta	%01000100
	dta	%00010001
	dta	%01000100
	dta	%00010001
	dta	%01000100
	dta	%00010001
	dta	%01000100
	dta	%00010001

	dta	%00000000
	dta	%01000100
	dta	%00000000
	dta	%00010001
	dta	%00000000
	dta	%01000100
	dta	%00000000
	dta	%00010001

last	equ	*

start	equ	*

i1	ldy	#0
i2	ldx	#12
i3	lda	text,x
	asl	@
	sta	si
	lda	#$e0/2+$80
	rol	@
	sta	si+1
	lda	(si),y
	rol	@
	sta	mask
i4	lda	#%01110
	and	^2a
	ror	@
	sta	scr
	inw	*-2
	asl	mask
	bne	i4
:3	dex
	bpl	i3
	iny:cpy	#8
	bcc	i2
	inc	i3+1
	dec	$52
	bpl	i1

	ldy	#3
	mva	>font	$2f4
s1	sta	^00,y
	sta	$2c0,y
	sbc	#$20
	dey
	bpl	s1
	sta	$2c6

:sound!=0	mva	#$a0+sound	^21

main	equ	*

	ldx	#9
m1	mva	#$ff	^08-1,x
	mva	font-1,x	last-1,x-
	bne	m1

	mva:rpl	font+8,x	font,x+

:sound!=0	mva	^2a	^20
	lda	#ramek-1
	adc	20	+
	cmp:rne	20
	beq	main	!

text	dta	['!'-' ']*4,['B'-' ']*4,['X'-' ']*4
	dta	['A'-' ']*4,[' '-' ']*4,['O'-' ']*4
	dta	['P'-' ']*4,['6'-' ']*4,['F'-' ']*4
	dta	['U'-' ']*4,['5'-' ']*4,['.'-' ']*4
	dta	['Z'-' ']*4,['2'-' ']*4,['B'-' ']*4

	run	start
	end