* CONVERTS 8X8-FONTS. D0/D1=SAVE START/END *
* PIC MUST BE RAW NORM, EACH CHAR ASIDE THE OTHER *
BWid	=368/8
Chars	=46
Start:
	lea Data(PC),a0
	lea Font(PC),a1
	moveq #Chars-1,d7
.loop:	move.b (a0)+,(a1)+
	move.b Bwid*1-1(a0),(a1)+
	move.b Bwid*2-1(a0),(a1)+
	move.b Bwid*3-1(a0),(a1)+
	move.b Bwid*4-1(a0),(a1)+
	move.b Bwid*5-1(a0),(a1)+
	move.b Bwid*6-1(a0),(a1)+
	move.b Bwid*7-1(a0),(a1)+
	dbra d7,.loop
	move.l #Font,d0
	move.l #E,d1
	RTS
Data:
INCBIN "gfx/test"
Font:
blk.b Chars*8,0
E: