*FONTZZ.4
*LBL+TXT:STANDARD
*START :$5000
*NEED: FONT

	ORG $5000

FONT1	EQU $E000
FONT2	EQU $5400

	LDA #9
	STA 709
	LDA #0
	STA 710

	LDA #33
	STA 559

	LDA #DL:L
	STA 560
	LDA #DL:H
	STA 561
	LDA #FONT2:H
	STA 756

	LDX #0
RF	LDA #0
	STA FONT2,X
	STA FONT2+256,X
	STA FONT2+512,X
	STA FONT2+768,X
	TXA
	STA $5800,X
	INX
	BNE RF


	JMP CTRL


GO	LDX #0

RG	LDA #0
	STA $DA
	STA $DC
	LDA #FONT1:H
	STA $DB
	LDA #FONT2:H
	STA $DD

	LDA FX1,X
	PHA
	LSR
	LSR
	LSR
	TAY
	PLA
	AND #7
	STA BYT

GH	STX UX
	LDA FLAG
	BEQ WL
	LDA ($DC),Y
	JMP OR
WL	LDA ($DA),Y
OR	PHA
	LDX BYT
	LDA FLAG
	BEQ WP
	PLA
	AND NTAB,X
	JMP FR
WP	PLA
	AND BITTAB,X
	ORA ($DC),Y
FR	STA ($DC),Y
	LDX UX
	LDA $DA
	CLC
	ADC #8
	STA $DA
	BCC WD
	INC $DB
WD	LDA $DC
	CLC
	ADC #8
	STA $DC
	BCC PS	
	INC $DD
	LDA $DD
	CMP #$58
	BEQ OW

PS	JMP GH

OW	JSR WAIT
	INX
	CPX #64
	BNE RG
	RTS

FX1	DFB 0,1,2,3,4,5,6,7
	DFB 15,23,31,39,47,55,63
	DFB 62,61,60,59,58,57,56,48
	DFB 40,32,24,16,8,9,10,11
	DFB 12,13,14,22,30,38,46
	DFB 54,53,52,51,50,49,41
	DFB 33,25,17,18,19,20,21
	DFB 29,37,45,44,43,42,34
	DFB 26,27,28,36,35

DL	DFB 112,112,112
	DFB 64+2,0,$58
	DFB 2,2,2,2,2,2,2
	DFB 64+2,0,$58
	DFB 2,2,2,2,2,2,2
	DFB 64+2,0,$58
	DFB 2,2,2,2,2,2,2
	DFB 65,DL:L,DL:H

BYT	NOP
UX	NOP
BITTAB	DFB 128,64,32,16,8,4,2,1

NTAB	DFB 127,191,223,239,247
	DFB 251,253,254


WAIT	LDA #0
	STA 20
GG	LDA 20
	CMP #1
	BNE GG
	RTS

FLAG	NOP

CTRL	LDA #0
	STA FLAG
JY	LDA 53279
	CMP #6
	BNE JY
	JSR GO
	LDA #1
	STA FLAG
WW	LDA 53279
	CMP #5
	BNE WW
	JSR GO
	JMP CTRL