MiniInit:
	movem.l D0-A6,-(SP)
	lea MinisculeBits(PC),a0
	moveq #0,d0
	moveq #0,d4
	moveq #53-1,d7
.charl:move.w d0,d1
	moveq #7,d2
	sub.w d0,d2
	lsr.w #3,d1
	and.b #7,d2
	move.w d4,d3
	moveq #15,d5
	sub.w d4,d5
	lsr.w #4,d3
	and.b #15,d5
	addq.w #2,d4
	btst d2,(a0,d1.w)
	beq.s .w2
	not.b d3
	addq.w #1,d4
.w2:
	move.b d3,(a1)+
	move.b d5,(a1)+
	addq.w #1,d0
	dbf d7,.charl
	movem.l (SP)+,D0-A6
	RTS
MiniWrite:
	movem.l D0-A6,-(SP)
	lea Miniscule,a0
	moveq #0,d1
	moveq #7,d2
	ror.l #3,d2
.charl:move.b (a2)+,d1
	sub.b #$20,d1
	beq.s .skip
	subq.b #6,d1
	bmi.s .done
	move.w d1,d4
	add.w d4,d1
	add.w d4,d1
	moveq #15,d3
	and.w d1,d3
	move.l d2,d5
	ror.l d3,d5
	move.w d1,d6
	lsr.w #4,d6
	move.w d0,d4
	lsr.w #4,d4
	moveq #15,d7
	and.w d0,d7
	sub.w d3,d7
	bpl.s .oksh
	add.w #16,d7
	subq.w #1,d4
.oksh:ror.l #4,d7
	or.l #$0dfc0000,d7
	add.w d4,d4
	add.w d6,d6
	add.w d6,a0
	add.w d4,a1
	blit #4<<6+2,d7,#(20-4)<<16+(bwid-4),d5
	sub.w d6,a0
	sub.w d4,a1
.skip:addq.w #4,d0
	bra.s .charl
.done:movem.l (SP)+,D0-A6
	RTS
MinisculeBits:
	dc.b %00011000,%11011101,%11100000,%10110100
	dc.b %11001011,%11100111,%11100<<3,0
Miniscule:
	dc.w $136a,$8003,$afee,$7ff4,$969a,$28b2,$ca45,$25cb
	dc.w $34bd,$34dc,$1225,$c606,$e2ac,$c550,$2046,$5d2e
	dc.w $9305,$67b6,$d915,$b6d4,$022a,$900a,$a47a,$aaf4
	dc.w $9680,$7b2c,$d6c5,$a5b7,$3895,$bd38,$0360,$2093
	dc.w $af8e,$eb91,$000a,$5cb2,$8ec9,$75aa,$1993,$56ec