console.dll in PE format

git-svn-id: svn://kolibrios.org@6699 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/libraries/console_coff/font.inc

@@ -0,0 +1,48 @@
+fontname equ 'font8x16.bmp'
+virtual at 0
+file fontname, 3Eh
+; sanity check
+load a1 word from 0
+load a2 dword from 0xE
+if (a1 <> 'BM') | (a2 <> 0x28)
+error 'not BMP file!'
+end if
+load a1 dword from 0x12
+load a2 dword from 0x16
+if (a1 and 0xF) | (a2 and 0xF) | (a1 > 16*16)
+error 'font: invalid width or height'
+end if
+font_width = a1 shr 4
+font_bmp_scanline = (font_width*2 + 3) and not 3
+font_height = a2 shr 4
+load a1 dword from 0x1A
+if a1 <> 0x10001
+error 'font: not monochrome bitmap'
+end if
+end virtual
+
+font:
+repeat font_height
+cur_scan = %
+        repeat 256
+                virtual at 0
+                a2 = (font_width+14) shr 3
+                if cur_scan=1 & %=0x10
+                a2 = (font_width+7) shr 3
+                end if
+                file fontname:3Eh + font_bmp_scanline*(font_height*(16-((%-1) shr 4))-cur_scan) + ((((%-1) and 0xF)*font_width) shr 3), a2
+                dd 0
+                load a1 dword from 0
+                a1 = ((a1 and 0x55555555) shl 1) or ((a1 and 0xAAAAAAAA) shr 1)
+                a1 = ((a1 and 0x33333333) shl 2) or ((a1 and 0xCCCCCCCC) shr 2)
+                a1 = ((a1 and 0x0F0F0F0F) shl 4) or ((a1 and 0xF0F0F0F0) shr 4)
+                end virtual
+                a1 = (a1 shr (((%-1)*font_width) and 7)) and ((1 shl font_width) - 1)
+                a1 = a1 xor ((1 shl font_width) - 1)
+                if font_width > 8
+                dw      a1
+                else
+                db      a1
+                end if
+        end repeat
+end repeat