* 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: