home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / Samples / VGAFONT.ARJ / VGAFONT.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1993-02-11  |  57.0 KB  |  878 lines
  1. {$M 50000,0,655360}
  2. program VGAFONT;
  3.  
  4.   USES
  5.    TpString,TpDOS,TpCRT;
  6.  
  7.   Type
  8.    F8x8  = array [0..256*8-1]  of byte;  F8x8Ptr = ^F8x8;
  9.    F8x14 = array [0..256*14-1] of byte;  F8x14Ptr = ^F8x14;
  10.    F8x16 = array [0..256*16-1] of byte;  F8x16Ptr = ^F8x16;
  11.  
  12.   VAR
  13.    VBIOS : Array [0..$7fff] of byte absolute $C000:0;
  14.  
  15.  
  16.    DatFName : String ;
  17.    DatFile  : Text ;
  18.  
  19.  
  20.   procedure Font8x8; assembler;
  21.   asm
  22.    DB 000h,000h,000h,000h,000h,000h,000h,000h,07Eh,081h,0A5h,081h,0BDh,099h,081h,07Eh
  23.    DB 07Eh,0FFh,0DBh,0FFh,0C3h,0E7h,0FFh,07Eh,06Ch,0FEh,0FEh,0FEh,07Ch,038h,010h,000h
  24.    DB 010h,038h,07Ch,0FEh,07Ch,038h,010h,000h,038h,07Ch,038h,0FEh,0FEh,0D6h,010h,038h
  25.    DB 010h,038h,07Ch,0FEh,0FEh,07Ch,010h,038h,000h,000h,018h,03Ch,03Ch,018h,000h,000h
  26.    DB 0FFh,0FFh,0E7h,0C3h,0C3h,0E7h,0FFh,0FFh,000h,03Ch,066h,042h,042h,066h,03Ch,000h
  27.    DB 0FFh,0C3h,099h,0BDh,0BDh,099h,0C3h,0FFh,00Fh,007h,00Fh,07Dh,0CCh,0CCh,0CCh,078h
  28.    DB 03Ch,066h,066h,066h,03Ch,018h,07Eh,018h,03Fh,033h,03Fh,030h,030h,070h,0F0h,0E0h
  29.    DB 07Fh,063h,07Fh,063h,063h,067h,0E6h,0C0h,018h,0DBh,03Ch,0E7h,0E7h,03Ch,0DBh,018h
  30.    DB 080h,0E0h,0F8h,0FEh,0F8h,0E0h,080h,000h,002h,00Eh,03Eh,0FEh,03Eh,00Eh,002h,000h
  31.    DB 018h,03Ch,07Eh,018h,018h,07Eh,03Ch,018h,066h,066h,066h,066h,066h,000h,066h,000h
  32.    DB 07Fh,0DBh,0DBh,07Bh,01Bh,01Bh,01Bh,000h,03Eh,061h,03Ch,066h,066h,03Ch,086h,07Ch
  33.    DB 000h,000h,000h,000h,07Eh,07Eh,07Eh,000h,018h,03Ch,07Eh,018h,07Eh,03Ch,018h,0FFh
  34.    DB 018h,03Ch,07Eh,018h,018h,018h,018h,000h,018h,018h,018h,018h,07Eh,03Ch,018h,000h
  35.    DB 000h,018h,00Ch,0FEh,00Ch,018h,000h,000h,000h,030h,060h,0FEh,060h,030h,000h,000h
  36.    DB 000h,000h,0C0h,0C0h,0C0h,0FFh,000h,000h,000h,024h,066h,0FFh,066h,024h,000h,000h
  37.    DB 000h,018h,03Ch,07Eh,0FFh,0FFh,000h,000h,000h,0FFh,0FFh,07Eh,03Ch,018h,000h,000h
  38.    DB 000h,000h,000h,000h,000h,000h,000h,000h,018h,03Ch,03Ch,018h,018h,000h,018h,000h
  39.    DB 066h,066h,024h,000h,000h,000h,000h,000h,06Ch,06Ch,0FEh,06Ch,0FEh,06Ch,06Ch,000h
  40.    DB 018h,03Eh,060h,03Ch,006h,07Ch,018h,000h,000h,0C6h,0CCh,018h,030h,066h,0C6h,000h
  41.    DB 038h,06Ch,038h,076h,0DCh,0CCh,076h,000h,018h,018h,030h,000h,000h,000h,000h,000h
  42.    DB 00Ch,018h,030h,030h,030h,018h,00Ch,000h,030h,018h,00Ch,00Ch,00Ch,018h,030h,000h
  43.    DB 000h,066h,03Ch,0FFh,03Ch,066h,000h,000h,000h,018h,018h,07Eh,018h,018h,000h,000h
  44.    DB 000h,000h,000h,000h,000h,018h,018h,030h,000h,000h,000h,07Eh,000h,000h,000h,000h
  45.    DB 000h,000h,000h,000h,000h,018h,018h,000h,006h,00Ch,018h,030h,060h,0C0h,080h,000h
  46.    DB 038h,06Ch,0C6h,0D6h,0C6h,06Ch,038h,000h,018h,038h,018h,018h,018h,018h,07Eh,000h
  47.    DB 07Ch,0C6h,006h,01Ch,030h,066h,0FEh,000h,07Ch,0C6h,006h,03Ch,006h,0C6h,07Ch,000h
  48.    DB 01Ch,03Ch,06Ch,0CCh,0FEh,00Ch,01Eh,000h,0FEh,0C0h,0C0h,0FCh,006h,0C6h,07Ch,000h
  49.    DB 038h,060h,0C0h,0FCh,0C6h,0C6h,07Ch,000h,0FEh,0C6h,00Ch,018h,030h,030h,030h,000h
  50.    DB 07Ch,0C6h,0C6h,07Ch,0C6h,0C6h,07Ch,000h,07Ch,0C6h,0C6h,07Eh,006h,00Ch,078h,000h
  51.    DB 000h,018h,018h,000h,000h,018h,018h,000h,000h,018h,018h,000h,000h,018h,018h,030h
  52.    DB 006h,00Ch,018h,030h,018h,00Ch,006h,000h,000h,000h,07Eh,000h,000h,07Eh,000h,000h
  53.    DB 060h,030h,018h,00Ch,018h,030h,060h,000h,07Ch,0C6h,00Ch,018h,018h,000h,018h,000h
  54.    DB 07Ch,0C6h,0DEh,0DEh,0DEh,0C0h,078h,000h,038h,06Ch,0C6h,0FEh,0C6h,0C6h,0C6h,000h
  55.    DB 0FCh,066h,066h,07Ch,066h,066h,0FCh,000h,03Ch,066h,0C0h,0C0h,0C0h,066h,03Ch,000h
  56.    DB 0F8h,06Ch,066h,066h,066h,06Ch,0F8h,000h,0FEh,062h,068h,078h,068h,062h,0FEh,000h
  57.    DB 0FEh,062h,068h,078h,068h,060h,0F0h,000h,03Ch,066h,0C0h,0C0h,0CEh,066h,03Ah,000h
  58.    DB 0C6h,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h,000h,03Ch,018h,018h,018h,018h,018h,03Ch,000h
  59.    DB 01Eh,00Ch,00Ch,00Ch,0CCh,0CCh,078h,000h,0E6h,066h,06Ch,078h,06Ch,066h,0E6h,000h
  60.    DB 0F0h,060h,060h,060h,062h,066h,0FEh,000h,0C6h,0EEh,0FEh,0FEh,0D6h,0C6h,0C6h,000h
  61.    DB 0C6h,0E6h,0F6h,0DEh,0CEh,0C6h,0C6h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,0C6h,07Ch,000h
  62.    DB 0FCh,066h,066h,07Ch,060h,060h,0F0h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,0CEh,07Ch,00Eh
  63.    DB 0FCh,066h,066h,07Ch,06Ch,066h,0E6h,000h,03Ch,066h,030h,018h,00Ch,066h,03Ch,000h
  64.    DB 07Eh,07Eh,05Ah,018h,018h,018h,03Ch,000h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,07Ch,000h
  65.    DB 0C6h,0C6h,0C6h,0C6h,0C6h,06Ch,038h,000h,0C6h,0C6h,0C6h,0D6h,0D6h,0FEh,06Ch,000h
  66.    DB 0C6h,0C6h,06Ch,038h,06Ch,0C6h,0C6h,000h,066h,066h,066h,03Ch,018h,018h,03Ch,000h
  67.    DB 0FEh,0C6h,08Ch,018h,032h,066h,0FEh,000h,03Ch,030h,030h,030h,030h,030h,03Ch,000h
  68.    DB 0C0h,060h,030h,018h,00Ch,006h,002h,000h,03Ch,00Ch,00Ch,00Ch,00Ch,00Ch,03Ch,000h
  69.    DB 010h,038h,06Ch,0C6h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,0FFh
  70.    DB 030h,018h,00Ch,000h,000h,000h,000h,000h,000h,000h,078h,00Ch,07Ch,0CCh,076h,000h
  71.    DB 0E0h,060h,07Ch,066h,066h,066h,0DCh,000h,000h,000h,07Ch,0C6h,0C0h,0C6h,07Ch,000h
  72.    DB 01Ch,00Ch,07Ch,0CCh,0CCh,0CCh,076h,000h,000h,000h,07Ch,0C6h,0FEh,0C0h,07Ch,000h
  73.    DB 03Ch,066h,060h,0F8h,060h,060h,0F0h,000h,000h,000h,076h,0CCh,0CCh,07Ch,00Ch,0F8h
  74.    DB 0E0h,060h,06Ch,076h,066h,066h,0E6h,000h,018h,000h,038h,018h,018h,018h,03Ch,000h
  75.    DB 006h,000h,006h,006h,006h,066h,066h,03Ch,0E0h,060h,066h,06Ch,078h,06Ch,0E6h,000h
  76.    DB 038h,018h,018h,018h,018h,018h,03Ch,000h,000h,000h,0ECh,0FEh,0D6h,0D6h,0D6h,000h
  77.    DB 000h,000h,0DCh,066h,066h,066h,066h,000h,000h,000h,07Ch,0C6h,0C6h,0C6h,07Ch,000h
  78.    DB 000h,000h,0DCh,066h,066h,07Ch,060h,0F0h,000h,000h,076h,0CCh,0CCh,07Ch,00Ch,01Eh
  79.    DB 000h,000h,0DCh,076h,060h,060h,0F0h,000h,000h,000h,07Eh,0C0h,07Ch,006h,0FCh,000h
  80.    DB 030h,030h,0FCh,030h,030h,036h,01Ch,000h,000h,000h,0CCh,0CCh,0CCh,0CCh,076h,000h
  81.    DB 000h,000h,0C6h,0C6h,0C6h,06Ch,038h,000h,000h,000h,0C6h,0D6h,0D6h,0FEh,06Ch,000h
  82.    DB 000h,000h,0C6h,06Ch,038h,06Ch,0C6h,000h,000h,000h,0C6h,0C6h,0C6h,07Eh,006h,0FCh
  83.    DB 000h,000h,07Eh,04Ch,018h,032h,07Eh,000h,00Eh,018h,018h,070h,018h,018h,00Eh,000h
  84.    DB 018h,018h,018h,018h,018h,018h,018h,000h,070h,018h,018h,00Eh,018h,018h,070h,000h
  85.    DB 076h,0DCh,000h,000h,000h,000h,000h,000h,000h,010h,038h,06Ch,0C6h,0C6h,0FEh,000h
  86.    DB 01Eh,036h,066h,0C6h,0FEh,0C6h,0C6h,000h,0FEh,042h,040h,07Ch,066h,066h,0FCh,000h
  87.    DB 0FCh,066h,066h,07Ch,066h,066h,0FCh,000h,0FEh,062h,060h,060h,060h,060h,0F0h,000h
  88.    DB 01Eh,036h,066h,066h,066h,066h,0FFh,0C3h,0FEh,062h,068h,078h,068h,062h,0FEh,000h
  89.    DB 0DBh,0DBh,05Ah,03Ch,05Ah,0DBh,0DBh,000h,07Ch,0C6h,006h,01Ch,006h,0C6h,07Ch,000h
  90.    DB 0C6h,0C6h,0CEh,0DEh,0F6h,0E6h,0C6h,000h,0D6h,0C6h,0CEh,0DEh,0F6h,0E6h,0C6h,000h
  91.    DB 0C6h,0CCh,0D8h,0F0h,0D8h,0CCh,0C6h,000h,00Eh,01Eh,036h,066h,0C6h,0C6h,0C6h,000h
  92.    DB 0C6h,0EEh,0FEh,0FEh,0D6h,0C6h,0C6h,000h,0C6h,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h,000h
  93.    DB 07Ch,0C6h,0C6h,0C6h,0C6h,0C6h,07Ch,000h,0FEh,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,000h
  94.    DB 0FCh,066h,066h,07Ch,060h,060h,0F0h,000h,03Ch,066h,0C0h,0C0h,0C0h,066h,03Ch,000h
  95.    DB 07Eh,07Eh,05Ah,018h,018h,018h,03Ch,000h,0C6h,0C6h,0C6h,07Eh,006h,0C6h,07Ch,000h
  96.    DB 018h,07Eh,0DBh,0DBh,0DBh,07Eh,018h,000h,0C6h,0C6h,06Ch,038h,06Ch,0C6h,0C6h,000h
  97.    DB 0CCh,0CCh,0CCh,0CCh,0CCh,0CCh,0FEh,006h,0C6h,0C6h,0C6h,07Eh,006h,006h,006h,000h
  98.    DB 0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0FEh,000h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0FEh,003h
  99.    DB 0F8h,0B0h,030h,03Eh,033h,033h,07Eh,000h,0C3h,0C3h,0C3h,0FBh,0CFh,0CFh,0FBh,000h
  100.    DB 0F0h,060h,060h,07Ch,066h,066h,0FCh,000h,078h,0CCh,006h,01Eh,006h,0CCh,078h,000h
  101.    DB 0CEh,0DBh,0DBh,0FBh,0DBh,0DBh,0CEh,000h,07Eh,0C6h,0C6h,07Eh,036h,066h,0C6h,000h
  102.    DB 000h,000h,078h,00Ch,07Ch,0CCh,076h,000h,006h,07Ch,0C0h,0FCh,0C6h,0C6h,07Ch,000h
  103.    DB 000h,000h,0FCh,0C6h,0FCh,0C6h,0FCh,000h,000h,000h,07Eh,060h,060h,060h,060h,000h
  104.    DB 000h,000h,01Eh,036h,066h,066h,0FFh,0C3h,000h,000h,07Ch,0C6h,0FEh,0C0h,07Eh,000h
  105.    DB 000h,000h,0DBh,05Ah,03Ch,05Ah,0DBh,000h,000h,000h,07Ch,0C6h,01Ch,0C6h,07Ch,000h
  106.    DB 000h,000h,0C6h,0CEh,0FEh,0E6h,0C6h,000h,000h,010h,0C6h,0CEh,0FEh,0E6h,0C6h,000h
  107.    DB 000h,000h,0C6h,0CCh,0F8h,0CCh,0C6h,000h,000h,000h,00Eh,01Eh,036h,066h,0C6h,000h
  108.    DB 000h,000h,0C6h,0EEh,0D6h,0C6h,0C6h,000h,000h,000h,0C6h,0C6h,0FEh,0C6h,0C6h,000h
  109.    DB 000h,000h,07Ch,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,0FEh,0C6h,0C6h,0C6h,0C6h,000h
  110.    DB 022h,088h,022h,088h,022h,088h,022h,088h,055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
  111.    DB 0DDh,077h,0DDh,077h,0DDh,077h,0DDh,077h,018h,018h,018h,018h,018h,018h,018h,018h
  112.    DB 018h,018h,018h,018h,0F8h,018h,018h,018h,018h,018h,0F8h,0F8h,0F8h,018h,018h,018h
  113.    DB 03Ch,03Ch,03Ch,03Ch,0FCh,03Ch,03Ch,03Ch,000h,000h,000h,000h,0FCh,03Ch,03Ch,03Ch
  114.    DB 000h,000h,0F8h,0F8h,0F8h,018h,018h,018h,03Ch,03Ch,0FCh,0FCh,0FCh,03Ch,03Ch,03Ch
  115.    DB 03Ch,03Ch,03Ch,03Ch,03Ch,03Ch,03Ch,03Ch,000h,000h,0FCh,0FCh,0FCh,03Ch,03Ch,03Ch
  116.    DB 03Ch,03Ch,0FCh,0FCh,0FCh,000h,000h,000h,03Ch,03Ch,03Ch,03Ch,0FCh,000h,000h,000h
  117.    DB 018h,018h,0F8h,0F8h,0F8h,000h,000h,000h,000h,000h,000h,000h,0F8h,018h,018h,018h
  118.    DB 018h,018h,018h,018h,01Fh,000h,000h,000h,018h,018h,018h,018h,0FFh,000h,000h,000h
  119.    DB 000h,000h,000h,000h,0FFh,018h,018h,018h,018h,018h,018h,018h,01Fh,018h,018h,018h
  120.    DB 000h,000h,000h,000h,0FFh,000h,000h,000h,018h,018h,018h,018h,0FFh,018h,018h,018h
  121.    DB 018h,018h,01Fh,01Fh,01Fh,018h,018h,018h,03Ch,03Ch,03Ch,03Ch,03Fh,03Ch,03Ch,03Ch
  122.    DB 03Ch,03Ch,03Fh,03Fh,03Fh,000h,000h,000h,000h,000h,03Fh,03Fh,03Fh,03Ch,03Ch,03Ch
  123.    DB 03Ch,03Ch,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,0FFh,0FFh,0FFh,03Ch,03Ch,03Ch
  124.    DB 03Ch,03Ch,03Fh,03Fh,03Fh,03Ch,03Ch,03Ch,000h,000h,0FFh,0FFh,0FFh,000h,000h,000h
  125.    DB 03Ch,03Ch,0FFh,0FFh,0FFh,03Ch,03Ch,03Ch,018h,018h,0FFh,0FFh,0FFh,000h,000h,000h
  126.    DB 03Ch,03Ch,03Ch,03Ch,0FFh,000h,000h,000h,000h,000h,0FFh,0FFh,0FFh,018h,018h,018h
  127.    DB 000h,000h,000h,000h,0FFh,03Ch,03Ch,03Ch,03Ch,03Ch,03Ch,03Ch,03Fh,000h,000h,000h
  128.    DB 018h,018h,01Fh,01Fh,01Fh,000h,000h,000h,000h,000h,01Fh,01Fh,01Fh,018h,018h,018h
  129.    DB 000h,000h,000h,000h,03Fh,03Ch,03Ch,03Ch,03Ch,03Ch,03Ch,03Ch,0FFh,03Ch,03Ch,03Ch
  130.    DB 018h,018h,0FFh,0FFh,0FFh,018h,018h,018h,018h,018h,018h,018h,0F8h,000h,000h,000h
  131.    DB 000h,000h,000h,000h,01Fh,018h,018h,018h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
  132.    DB 000h,000h,000h,000h,0FFh,0FFh,0FFh,0FFh,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h
  133.    DB 00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,0FFh,0FFh,0FFh,0FFh,000h,000h,000h,000h
  134.    DB 000h,000h,0FCh,0C6h,0C6h,0FCh,0C0h,0C0h,000h,000h,07Ch,0C6h,0C0h,0C6h,07Ch,000h
  135.    DB 000h,000h,07Eh,018h,018h,018h,018h,000h,000h,000h,0C6h,0C6h,07Eh,006h,0C6h,07Ch
  136.    DB 000h,018h,07Eh,0DBh,0DBh,07Eh,018h,018h,000h,000h,0C6h,06Ch,038h,06Ch,0C6h,000h
  137.    DB 000h,000h,0CCh,0CCh,0CCh,0CCh,0FEh,006h,000h,000h,0C6h,0C6h,07Eh,006h,006h,000h
  138.    DB 000h,000h,0D6h,0D6h,0D6h,0D6h,0FEh,000h,000h,000h,0D6h,0D6h,0D6h,0D6h,0FEh,003h
  139.    DB 000h,000h,0E0h,060h,07Eh,063h,07Eh,000h,000h,000h,0C3h,0C3h,0FBh,0C7h,0FBh,000h
  140.    DB 000h,000h,0C0h,0C0h,0FCh,0C6h,0FCh,000h,000h,000h,07Ch,0C6h,01Eh,0C6h,07Ch,000h
  141.    DB 000h,000h,0CEh,0DBh,0FBh,0DBh,0CEh,000h,000h,000h,07Eh,0C6h,07Eh,026h,0C6h,000h
  142.    DB 028h,0FEh,062h,078h,060h,062h,0FEh,000h,028h,000h,07Ch,0C6h,0FEh,0C0h,07Eh,000h
  143.    DB 000h,000h,000h,003h,006h,00Ch,018h,000h,000h,000h,000h,0C0h,060h,030h,018h,000h
  144.    DB 018h,030h,060h,0C0h,000h,000h,000h,000h,018h,00Ch,006h,003h,000h,000h,000h,000h
  145.    DB 000h,018h,00Ch,0FEh,00Ch,018h,000h,000h,000h,030h,060h,0FEh,060h,030h,000h,000h
  146.    DB 018h,018h,018h,018h,07Eh,03Ch,018h,000h,018h,03Ch,07Eh,018h,018h,018h,018h,000h
  147.    DB 000h,018h,000h,07Eh,000h,018h,000h,000h,018h,018h,07Eh,018h,018h,000h,07Eh,000h
  148.    DB 08Bh,0CBh,0E8h,0B8h,098h,088h,088h,000h,081h,042h,03Ch,066h,066h,03Ch,042h,081h
  149.    DB 000h,000h,03Ch,03Ch,03Ch,03Ch,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  150.   end;
  151.  
  152.   procedure Font8x14; assembler ;
  153.   asm
  154.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  155.    DB 07Eh,081h,0A5h,081h,081h,0BDh,099h,081h,07Eh,000h,000h,000h,000h,000h,07Eh,0FFh
  156.    DB 0DBh,0FFh,0FFh,0C3h,0E7h,0FFh,07Eh,000h,000h,000h,000h,000h,000h,06Ch,0FEh,0FEh
  157.    DB 0FEh,0FEh,07Ch,038h,010h,000h,000h,000h,000h,000h,000h,010h,038h,07Ch,0FEh,07Ch
  158.    DB 038h,010h,000h,000h,000h,000h,000h,000h,018h,03Ch,03Ch,0E7h,0E7h,0E7h,018h,018h
  159.    DB 03Ch,000h,000h,000h,000h,000h,018h,03Ch,07Eh,0FFh,0FFh,07Eh,018h,018h,03Ch,000h
  160.    DB 000h,000h,000h,000h,000h,000h,000h,018h,03Ch,03Ch,018h,000h,000h,000h,000h,000h
  161.    DB 0FFh,0FFh,0FFh,0FFh,0FFh,0E7h,0C3h,0C3h,0E7h,0FFh,0FFh,0FFh,0FFh,0FFh,000h,000h
  162.    DB 000h,000h,03Ch,066h,042h,042h,066h,03Ch,000h,000h,000h,000h,0FFh,0FFh,0FFh,0FFh
  163.    DB 0C3h,099h,0BDh,0BDh,099h,0C3h,0FFh,0FFh,0FFh,0FFh,000h,000h,01Eh,00Eh,01Ah,032h
  164.    DB 078h,0CCh,0CCh,0CCh,078h,000h,000h,000h,000h,000h,03Ch,066h,066h,066h,03Ch,018h
  165.    DB 07Eh,018h,018h,000h,000h,000h,000h,000h,03Fh,033h,03Fh,030h,030h,030h,070h,0F0h
  166.    DB 0E0h,000h,000h,000h,000h,000h,07Fh,063h,07Fh,063h,063h,063h,067h,0E7h,0E6h,0C0h
  167.    DB 000h,000h,000h,000h,018h,018h,0DBh,03Ch,0E7h,03Ch,0DBh,018h,018h,000h,000h,000h
  168.    DB 000h,000h,080h,0C0h,0E0h,0F8h,0FEh,0F8h,0E0h,0C0h,080h,000h,000h,000h,000h,000h
  169.    DB 002h,006h,00Eh,03Eh,0FEh,03Eh,00Eh,006h,002h,000h,000h,000h,000h,000h,018h,03Ch
  170.    DB 07Eh,018h,018h,018h,07Eh,03Ch,018h,000h,000h,000h,000h,000h,066h,066h,066h,066h
  171.    DB 066h,066h,000h,066h,066h,000h,000h,000h,000h,000h,07Fh,0DBh,0DBh,0DBh,07Bh,01Bh
  172.    DB 01Bh,01Bh,01Bh,000h,000h,000h,000h,07Ch,0C6h,060h,038h,06Ch,0C6h,0C6h,06Ch,038h
  173.    DB 00Ch,0C6h,07Ch,000h,000h,000h,000h,000h,000h,000h,000h,000h,0FEh,0FEh,0FEh,000h
  174.    DB 000h,000h,000h,000h,018h,03Ch,07Eh,018h,018h,018h,07Eh,03Ch,018h,07Eh,000h,000h
  175.    DB 000h,000h,018h,03Ch,07Eh,018h,018h,018h,018h,018h,018h,000h,000h,000h,000h,000h
  176.    DB 018h,018h,018h,018h,018h,018h,07Eh,03Ch,018h,000h,000h,000h,000h,000h,000h,000h
  177.    DB 018h,00Ch,0FEh,00Ch,018h,000h,000h,000h,000h,000h,000h,000h,000h,000h,030h,060h
  178.    DB 0FEh,060h,030h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,0C0h,0C0h,0C0h
  179.    DB 0FEh,000h,000h,000h,000h,000h,000h,000h,000h,000h,028h,06Ch,0FEh,06Ch,028h,000h
  180.    DB 000h,000h,000h,000h,000h,000h,000h,010h,038h,038h,07Ch,07Ch,0FEh,0FEh,000h,000h
  181.    DB 000h,000h,000h,000h,000h,0FEh,0FEh,07Ch,07Ch,038h,038h,010h,000h,000h,000h,000h
  182.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  183.    DB 018h,03Ch,03Ch,03Ch,018h,018h,000h,018h,018h,000h,000h,000h,000h,066h,066h,066h
  184.    DB 024h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,06Ch,06Ch,0FEh,06Ch
  185.    DB 06Ch,06Ch,0FEh,06Ch,06Ch,000h,000h,000h,018h,018h,07Ch,0C6h,0C2h,0C0h,07Ch,006h
  186.    DB 086h,0C6h,07Ch,018h,018h,000h,000h,000h,000h,000h,0C2h,0C6h,00Ch,018h,030h,066h
  187.    DB 0C6h,000h,000h,000h,000h,000h,038h,06Ch,06Ch,038h,076h,0DCh,0CCh,0CCh,076h,000h
  188.    DB 000h,000h,000h,018h,018h,018h,030h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  189.    DB 000h,000h,00Ch,018h,030h,030h,030h,030h,030h,018h,00Ch,000h,000h,000h,000h,000h
  190.    DB 030h,018h,00Ch,00Ch,00Ch,00Ch,00Ch,018h,030h,000h,000h,000h,000h,000h,000h,000h
  191.    DB 066h,03Ch,0FFh,03Ch,066h,000h,000h,000h,000h,000h,000h,000h,000h,000h,018h,018h
  192.    DB 07Eh,018h,018h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  193.    DB 018h,018h,018h,030h,000h,000h,000h,000h,000h,000h,000h,000h,0FEh,000h,000h,000h
  194.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,018h,018h,000h
  195.    DB 000h,000h,000h,000h,002h,006h,00Ch,018h,030h,060h,0C0h,080h,000h,000h,000h,000h
  196.    DB 000h,000h,038h,06Ch,0C6h,0C6h,0D6h,0C6h,0C6h,06Ch,038h,000h,000h,000h,000h,000h
  197.    DB 018h,038h,078h,018h,018h,018h,018h,018h,07Eh,000h,000h,000h,000h,000h,07Ch,0C6h
  198.    DB 006h,00Ch,018h,030h,060h,0C6h,0FEh,000h,000h,000h,000h,000h,07Ch,0C6h,006h,006h
  199.    DB 03Ch,006h,006h,0C6h,07Ch,000h,000h,000h,000h,000h,00Ch,01Ch,03Ch,06Ch,0CCh,0FEh
  200.    DB 00Ch,00Ch,01Eh,000h,000h,000h,000h,000h,0FEh,0C0h,0C0h,0C0h,0FCh,006h,006h,0C6h
  201.    DB 07Ch,000h,000h,000h,000h,000h,038h,060h,0C0h,0C0h,0FCh,0C6h,0C6h,0C6h,07Ch,000h
  202.    DB 000h,000h,000h,000h,0FEh,0C6h,006h,00Ch,018h,030h,030h,030h,030h,000h,000h,000h
  203.    DB 000h,000h,07Ch,0C6h,0C6h,0C6h,07Ch,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,000h,000h
  204.    DB 07Ch,0C6h,0C6h,0C6h,07Eh,006h,006h,00Ch,078h,000h,000h,000h,000h,000h,000h,018h
  205.    DB 018h,000h,000h,000h,018h,018h,000h,000h,000h,000h,000h,000h,000h,018h,018h,000h
  206.    DB 000h,000h,018h,018h,030h,000h,000h,000h,000h,000h,00Ch,018h,030h,060h,0C0h,060h
  207.    DB 030h,018h,00Ch,000h,000h,000h,000h,000h,000h,000h,000h,07Eh,000h,000h,07Eh,000h
  208.    DB 000h,000h,000h,000h,000h,000h,060h,030h,018h,00Ch,006h,00Ch,018h,030h,060h,000h
  209.    DB 000h,000h,000h,000h,07Ch,0C6h,0C6h,00Ch,018h,018h,000h,018h,018h,000h,000h,000h
  210.    DB 000h,000h,07Ch,0C6h,0C6h,0DEh,0DEh,0DEh,0DCh,0C0h,07Ch,000h,000h,000h,000h,000h
  211.    DB 010h,038h,06Ch,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h,000h,000h,000h,000h,000h,0FCh,066h
  212.    DB 066h,066h,07Ch,066h,066h,066h,0FCh,000h,000h,000h,000h,000h,03Ch,066h,0C2h,0C0h
  213.    DB 0C0h,0C0h,0C2h,066h,03Ch,000h,000h,000h,000h,000h,0F8h,06Ch,066h,066h,066h,066h
  214.    DB 066h,06Ch,0F8h,000h,000h,000h,000h,000h,0FEh,066h,062h,068h,078h,068h,062h,066h
  215.    DB 0FEh,000h,000h,000h,000h,000h,0FEh,066h,062h,068h,078h,068h,060h,060h,0F0h,000h
  216.    DB 000h,000h,000h,000h,03Ch,066h,0C2h,0C0h,0C0h,0DEh,0C6h,066h,03Ah,000h,000h,000h
  217.    DB 000h,000h,0C6h,0C6h,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h,0C6h,000h,000h,000h,000h,000h
  218.    DB 03Ch,018h,018h,018h,018h,018h,018h,018h,03Ch,000h,000h,000h,000h,000h,01Eh,00Ch
  219.    DB 00Ch,00Ch,00Ch,00Ch,0CCh,0CCh,078h,000h,000h,000h,000h,000h,0E6h,066h,06Ch,06Ch
  220.    DB 078h,06Ch,06Ch,066h,0E6h,000h,000h,000h,000h,000h,0F0h,060h,060h,060h,060h,060h
  221.    DB 062h,066h,0FEh,000h,000h,000h,000h,000h,0C6h,0EEh,0FEh,0FEh,0D6h,0C6h,0C6h,0C6h
  222.    DB 0C6h,000h,000h,000h,000h,000h,0C6h,0E6h,0F6h,0FEh,0DEh,0CEh,0C6h,0C6h,0C6h,000h
  223.    DB 000h,000h,000h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,07Ch,000h,000h,000h
  224.    DB 000h,000h,0FCh,066h,066h,066h,07Ch,060h,060h,060h,0F0h,000h,000h,000h,000h,000h
  225.    DB 07Ch,0C6h,0C6h,0C6h,0C6h,0C6h,0D6h,0DEh,07Ch,00Eh,000h,000h,000h,000h,0FCh,066h
  226.    DB 066h,066h,07Ch,06Ch,066h,066h,0E6h,000h,000h,000h,000h,000h,07Ch,0C6h,0C6h,060h
  227.    DB 038h,00Ch,0C6h,0C6h,07Ch,000h,000h,000h,000h,000h,07Eh,07Eh,05Ah,018h,018h,018h
  228.    DB 018h,018h,03Ch,000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h
  229.    DB 07Ch,000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,06Ch,038h,010h,000h
  230.    DB 000h,000h,000h,000h,0C6h,0C6h,0C6h,0C6h,0D6h,0D6h,0FEh,06Ch,06Ch,000h,000h,000h
  231.    DB 000h,000h,0C6h,0C6h,06Ch,038h,038h,038h,06Ch,0C6h,0C6h,000h,000h,000h,000h,000h
  232.    DB 066h,066h,066h,066h,03Ch,018h,018h,018h,03Ch,000h,000h,000h,000h,000h,0FEh,0C6h
  233.    DB 08Ch,018h,030h,060h,0C2h,0C6h,0FEh,000h,000h,000h,000h,000h,03Ch,030h,030h,030h
  234.    DB 030h,030h,030h,030h,03Ch,000h,000h,000h,000h,000h,080h,0C0h,0E0h,070h,038h,01Ch
  235.    DB 00Eh,006h,002h,000h,000h,000h,000h,000h,03Ch,00Ch,00Ch,00Ch,00Ch,00Ch,00Ch,00Ch
  236.    DB 03Ch,000h,000h,000h,010h,038h,06Ch,0C6h,000h,000h,000h,000h,000h,000h,000h,000h
  237.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,0FFh,000h
  238.    DB 030h,030h,018h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  239.    DB 000h,000h,000h,078h,00Ch,07Ch,0CCh,0CCh,076h,000h,000h,000h,000h,000h,0E0h,060h
  240.    DB 060h,078h,06Ch,066h,066h,066h,07Ch,000h,000h,000h,000h,000h,000h,000h,000h,07Ch
  241.    DB 0C6h,0C0h,0C0h,0C6h,07Ch,000h,000h,000h,000h,000h,01Ch,00Ch,00Ch,03Ch,06Ch,0CCh
  242.    DB 0CCh,0CCh,076h,000h,000h,000h,000h,000h,000h,000h,000h,07Ch,0C6h,0FEh,0C0h,0C6h
  243.    DB 07Ch,000h,000h,000h,000h,000h,01Ch,036h,032h,030h,07Ch,030h,030h,030h,078h,000h
  244.    DB 000h,000h,000h,000h,000h,000h,000h,076h,0CCh,0CCh,0CCh,07Ch,00Ch,0CCh,078h,000h
  245.    DB 000h,000h,0E0h,060h,060h,06Ch,076h,066h,066h,066h,0E6h,000h,000h,000h,000h,000h
  246.    DB 018h,018h,000h,038h,018h,018h,018h,018h,03Ch,000h,000h,000h,000h,000h,006h,006h
  247.    DB 000h,00Eh,006h,006h,006h,006h,066h,066h,03Ch,000h,000h,000h,0E0h,060h,060h,066h
  248.    DB 06Ch,078h,06Ch,066h,0E6h,000h,000h,000h,000h,000h,038h,018h,018h,018h,018h,018h
  249.    DB 018h,018h,03Ch,000h,000h,000h,000h,000h,000h,000h,000h,0ECh,0FEh,0D6h,0D6h,0D6h
  250.    DB 0D6h,000h,000h,000h,000h,000h,000h,000h,000h,0DCh,066h,066h,066h,066h,066h,000h
  251.    DB 000h,000h,000h,000h,000h,000h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,07Ch,000h,000h,000h
  252.    DB 000h,000h,000h,000h,000h,0DCh,066h,066h,066h,07Ch,060h,060h,0F0h,000h,000h,000h
  253.    DB 000h,000h,000h,076h,0CCh,0CCh,0CCh,07Ch,00Ch,00Ch,01Eh,000h,000h,000h,000h,000h
  254.    DB 000h,0DCh,076h,066h,060h,060h,0F0h,000h,000h,000h,000h,000h,000h,000h,000h,07Ch
  255.    DB 0C6h,070h,01Ch,0C6h,07Ch,000h,000h,000h,000h,000h,010h,030h,030h,0FCh,030h,030h
  256.    DB 030h,036h,01Ch,000h,000h,000h,000h,000h,000h,000h,000h,0CCh,0CCh,0CCh,0CCh,0CCh
  257.    DB 076h,000h,000h,000h,000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,06Ch,038h,010h,000h
  258.    DB 000h,000h,000h,000h,000h,000h,000h,0C6h,0C6h,0D6h,0D6h,0FEh,06Ch,000h,000h,000h
  259.    DB 000h,000h,000h,000h,000h,0C6h,06Ch,038h,038h,06Ch,0C6h,000h,000h,000h,000h,000h
  260.    DB 000h,000h,000h,0C6h,0C6h,0C6h,0C6h,07Eh,006h,00Ch,078h,000h,000h,000h,000h,000h
  261.    DB 000h,0FEh,0CCh,018h,030h,066h,0FEh,000h,000h,000h,000h,000h,00Eh,018h,018h,018h
  262.    DB 070h,018h,018h,018h,00Eh,000h,000h,000h,000h,000h,018h,018h,018h,018h,000h,018h
  263.    DB 018h,018h,018h,000h,000h,000h,000h,000h,070h,018h,018h,018h,00Eh,018h,018h,018h
  264.    DB 070h,000h,000h,000h,000h,076h,0DCh,000h,000h,000h,000h,000h,000h,000h,000h,000h
  265.    DB 000h,000h,000h,000h,000h,000h,010h,038h,06Ch,0C6h,0C6h,0FEh,000h,000h,000h,000h
  266.    DB 000h,000h,010h,038h,06Ch,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h,000h,000h,000h,000h,000h
  267.    DB 0FEh,066h,062h,060h,07Ch,066h,066h,066h,0FCh,000h,000h,000h,000h,000h,0FCh,066h
  268.    DB 066h,066h,07Ch,066h,066h,066h,0FCh,000h,000h,000h,000h,000h,0FEh,066h,062h,060h
  269.    DB 060h,060h,060h,060h,0F0h,000h,000h,000h,000h,000h,01Eh,036h,066h,066h,066h,066h
  270.    DB 066h,066h,0FFh,0C3h,081h,000h,000h,000h,0FEh,066h,062h,068h,078h,068h,062h,066h
  271.    DB 0FEh,000h,000h,000h,000h,000h,0DBh,0DBh,05Ah,03Ch,03Ch,05Ah,0DBh,0DBh,0DBh,000h
  272.    DB 000h,000h,000h,000h,078h,0CCh,086h,00Ch,038h,00Ch,086h,0CCh,078h,000h,000h,000h
  273.    DB 000h,000h,0C6h,0C6h,0CEh,0DEh,0FEh,0F6h,0E6h,0C6h,0C6h,000h,000h,000h,038h,010h
  274.    DB 0C6h,0C6h,0CEh,0DEh,0FEh,0F6h,0E6h,0C6h,0C6h,000h,000h,000h,000h,000h,0C6h,0C6h
  275.    DB 0CCh,0D8h,0F0h,0D8h,0CCh,0C6h,0C6h,000h,000h,000h,000h,000h,01Eh,036h,066h,066h
  276.    DB 066h,066h,066h,066h,0C6h,000h,000h,000h,000h,000h,0C6h,0EEh,0FEh,0D6h,0D6h,0C6h
  277.    DB 0C6h,0C6h,0C6h,000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h
  278.    DB 0C6h,000h,000h,000h,000h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,07Ch,000h
  279.    DB 000h,000h,000h,000h,0FEh,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,000h,000h,000h
  280.    DB 000h,000h,0FCh,066h,066h,066h,07Ch,060h,060h,060h,0F0h,000h,000h,000h,000h,000h
  281.    DB 03Ch,066h,0C2h,0C0h,0C0h,0C0h,0C2h,066h,03Ch,000h,000h,000h,000h,000h,07Eh,07Eh
  282.    DB 05Ah,018h,018h,018h,018h,018h,03Ch,000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,066h
  283.    DB 03Eh,006h,086h,0CCh,078h,000h,000h,000h,000h,000h,018h,07Eh,0DBh,0DBh,0DBh,0DBh
  284.    DB 07Eh,018h,03Ch,000h,000h,000h,000h,000h,0C6h,0C6h,06Ch,038h,038h,038h,06Ch,0C6h
  285.    DB 0C6h,000h,000h,000h,000h,000h,0CCh,0CCh,0CCh,0CCh,0CCh,0CCh,0CCh,0CCh,0FEh,006h
  286.    DB 002h,000h,000h,000h,0C6h,0C6h,0C6h,0C6h,07Eh,006h,006h,006h,006h,000h,000h,000h
  287.    DB 000h,000h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0FEh,000h,000h,000h,000h,000h
  288.    DB 0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0FFh,003h,001h,000h,000h,000h,0F8h,0F0h
  289.    DB 0B0h,030h,03Eh,033h,033h,033h,07Eh,000h,000h,000h,000h,000h,0C3h,0C3h,0C3h,0C3h
  290.    DB 0FBh,0CFh,0CFh,0CFh,0FBh,000h,000h,000h,000h,000h,0F0h,060h,060h,060h,07Ch,066h
  291.    DB 066h,066h,0FCh,000h,000h,000h,000h,000h,078h,0CCh,086h,016h,01Eh,016h,086h,0CCh
  292.    DB 078h,000h,000h,000h,000h,000h,0CEh,0DBh,0DBh,0DBh,0FBh,0DBh,0DBh,0DBh,0CEh,000h
  293.    DB 000h,000h,000h,000h,07Eh,0C6h,0C6h,0C6h,07Eh,036h,066h,0C6h,0C6h,000h,000h,000h
  294.    DB 000h,000h,000h,000h,000h,078h,00Ch,07Ch,0CCh,0CCh,076h,000h,000h,000h,000h,000h
  295.    DB 006h,03Ch,060h,0C0h,0FCh,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,000h,000h,000h,000h
  296.    DB 000h,0FCh,0C6h,0FCh,0C6h,0C6h,0FCh,000h,000h,000h,000h,000h,000h,000h,000h,07Eh
  297.    DB 060h,060h,060h,060h,060h,000h,000h,000h,000h,000h,000h,000h,000h,01Eh,036h,066h
  298.    DB 066h,066h,0FFh,0C3h,081h,000h,000h,000h,000h,000h,000h,07Ch,0C6h,0FEh,0C0h,0C6h
  299.    DB 07Ch,000h,000h,000h,000h,000h,000h,000h,000h,0DBh,0DBh,07Eh,05Ah,0DBh,0DBh,000h
  300.    DB 000h,000h,000h,000h,000h,000h,000h,07Ch,0C6h,01Ch,006h,0C6h,07Ch,000h,000h,000h
  301.    DB 000h,000h,000h,000h,000h,0C6h,0CEh,0DEh,0F6h,0E6h,0C6h,000h,000h,000h,000h,000h
  302.    DB 000h,038h,010h,0C6h,0CEh,0DEh,0F6h,0E6h,0C6h,000h,000h,000h,000h,000h,000h,000h
  303.    DB 000h,0CCh,0D8h,0F0h,0D8h,0CCh,0C6h,000h,000h,000h,000h,000h,000h,000h,000h,01Eh
  304.    DB 036h,066h,066h,066h,0C6h,000h,000h,000h,000h,000h,000h,000h,000h,0C6h,0EEh,0FEh
  305.    DB 0D6h,0C6h,0C6h,000h,000h,000h,000h,000h,000h,000h,000h,0C6h,0C6h,0FEh,0C6h,0C6h
  306.    DB 0C6h,000h,000h,000h,000h,000h,000h,000h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,07Ch,000h
  307.    DB 000h,000h,000h,000h,000h,000h,000h,0FEh,0C6h,0C6h,0C6h,0C6h,0C6h,000h,000h,000h
  308.    DB 011h,044h,011h,044h,011h,044h,011h,044h,011h,044h,011h,044h,011h,044h,055h,0AAh
  309.    DB 055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh,0DDh,077h,0DDh,077h
  310.    DB 0DDh,077h,0DDh,077h,0DDh,077h,0DDh,077h,0DDh,077h,018h,018h,018h,018h,018h,018h
  311.    DB 018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,0F8h
  312.    DB 018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,0F8h,0F8h,0F8h,018h,018h
  313.    DB 018h,018h,018h,018h,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,0FEh,03Eh,03Eh,03Eh,03Eh
  314.    DB 03Eh,03Eh,000h,000h,000h,000h,000h,000h,000h,0FEh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  315.    DB 000h,000h,000h,000h,000h,0F8h,0F8h,0F8h,018h,018h,018h,018h,018h,018h,03Eh,03Eh
  316.    DB 03Eh,03Eh,03Eh,0FEh,0FEh,0FEh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  317.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,000h,000h,000h,000h,000h,0FEh
  318.    DB 0FEh,0FEh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,0FEh,0FEh,0FEh
  319.    DB 000h,000h,000h,000h,000h,000h,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,0FEh,000h,000h
  320.    DB 000h,000h,000h,000h,018h,018h,018h,018h,018h,0F8h,0F8h,0F8h,000h,000h,000h,000h
  321.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,0F8h,018h,018h,018h,018h,018h,018h
  322.    DB 018h,018h,018h,018h,018h,018h,018h,01Fh,000h,000h,000h,000h,000h,000h,018h,018h
  323.    DB 018h,018h,018h,018h,018h,0FFh,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  324.    DB 000h,000h,000h,0FFh,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h
  325.    DB 018h,01Fh,018h,018h,018h,018h,018h,018h,000h,000h,000h,000h,000h,000h,000h,0FFh
  326.    DB 000h,000h,000h,000h,000h,000h,018h,018h,018h,018h,018h,018h,018h,0FFh,018h,018h
  327.    DB 018h,018h,018h,018h,018h,018h,018h,018h,018h,01Fh,01Fh,01Fh,018h,018h,018h,018h
  328.    DB 018h,018h,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Fh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  329.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Fh,03Fh,03Fh,000h,000h,000h,000h,000h,000h,000h,000h
  330.    DB 000h,000h,000h,03Fh,03Fh,03Fh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  331.    DB 03Eh,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,0FFh
  332.    DB 0FFh,0FFh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Fh,03Fh,03Fh
  333.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,000h,000h,000h,000h,000h,0FFh,0FFh,0FFh,000h,000h
  334.    DB 000h,000h,000h,000h,03Eh,03Eh,03Eh,03Eh,03Eh,0FFh,0FFh,0FFh,03Eh,03Eh,03Eh,03Eh
  335.    DB 03Eh,03Eh,018h,018h,018h,018h,018h,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h
  336.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,0FFh,000h,000h,000h,000h,000h,000h,000h,000h
  337.    DB 000h,000h,000h,0FFh,0FFh,0FFh,018h,018h,018h,018h,018h,018h,000h,000h,000h,000h
  338.    DB 000h,000h,000h,0FFh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  339.    DB 03Eh,03Fh,000h,000h,000h,000h,000h,000h,018h,018h,018h,018h,018h,01Fh,01Fh,01Fh
  340.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,01Fh,01Fh,01Fh,018h,018h
  341.    DB 018h,018h,018h,018h,000h,000h,000h,000h,000h,000h,000h,03Fh,03Eh,03Eh,03Eh,03Eh
  342.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,0FFh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  343.    DB 018h,018h,018h,018h,018h,0FFh,0FFh,0FFh,018h,018h,018h,018h,018h,018h,018h,018h
  344.    DB 018h,018h,018h,018h,018h,0F8h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  345.    DB 000h,000h,000h,01Fh,018h,018h,018h,018h,018h,018h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
  346.    DB 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h,0FFh
  347.    DB 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h
  348.    DB 0F0h,0F0h,0F0h,0F0h,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh
  349.    DB 00Fh,00Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h
  350.    DB 000h,000h,000h,000h,000h,0FCh,0C6h,0C6h,0C6h,0FCh,0C0h,0C0h,0C0h,000h,000h,000h
  351.    DB 000h,000h,000h,03Ch,066h,0C0h,0C0h,066h,03Ch,000h,000h,000h,000h,000h,000h,000h
  352.    DB 000h,07Eh,018h,018h,018h,018h,018h,000h,000h,000h,000h,000h,000h,000h,000h,0C6h
  353.    DB 0C6h,0C6h,0C6h,07Eh,006h,0CCh,078h,000h,000h,000h,000h,000h,018h,07Eh,0DBh,0DBh
  354.    DB 0DBh,0DBh,07Eh,018h,018h,000h,000h,000h,000h,000h,000h,0C6h,06Ch,038h,038h,06Ch
  355.    DB 0C6h,000h,000h,000h,000h,000h,000h,000h,000h,0CCh,0CCh,0CCh,0CCh,0CCh,0FEh,006h
  356.    DB 002h,000h,000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,07Eh,006h,006h,000h,000h,000h
  357.    DB 000h,000h,000h,000h,000h,0C6h,0D6h,0D6h,0D6h,0D6h,0FEh,000h,000h,000h,000h,000h
  358.    DB 000h,000h,000h,0C6h,0D6h,0D6h,0D6h,0D6h,0FFh,003h,001h,000h,000h,000h,000h,000h
  359.    DB 000h,0E0h,060h,07Eh,063h,063h,07Eh,000h,000h,000h,000h,000h,000h,000h,000h,0C3h
  360.    DB 0C3h,0FBh,0CFh,0CFh,0FBh,000h,000h,000h,000h,000h,000h,000h,000h,0C0h,0C0h,0FCh
  361.    DB 0C6h,0C6h,0FCh,000h,000h,000h,000h,000h,000h,000h,000h,07Ch,0C6h,01Eh,006h,0C6h
  362.    DB 07Ch,000h,000h,000h,000h,000h,000h,000h,000h,0CEh,0DBh,0FBh,0DBh,0DBh,0CEh,000h
  363.    DB 000h,000h,000h,000h,000h,000h,000h,07Eh,0C6h,07Eh,036h,066h,0C6h,000h,000h,000h
  364.    DB 024h,000h,0FEh,066h,062h,068h,078h,068h,062h,066h,0FEh,000h,000h,000h,000h,000h
  365.    DB 000h,028h,000h,07Ch,0C6h,0FEh,0C0h,0C6h,07Ch,000h,000h,000h,000h,000h,000h,000h
  366.    DB 000h,001h,003h,006h,00Ch,018h,010h,000h,000h,000h,000h,000h,000h,000h,080h,0C0h
  367.    DB 060h,030h,018h,00Ch,004h,000h,000h,000h,008h,018h,030h,060h,0C0h,080h,000h,000h
  368.    DB 000h,000h,000h,000h,000h,000h,010h,018h,00Ch,006h,003h,001h,000h,000h,000h,000h
  369.    DB 000h,000h,000h,000h,000h,000h,000h,000h,018h,00Ch,0FEh,00Ch,018h,000h,000h,000h
  370.    DB 000h,000h,000h,000h,000h,000h,030h,060h,0FEh,060h,030h,000h,000h,000h,000h,000h
  371.    DB 000h,000h,018h,018h,018h,018h,018h,018h,07Eh,03Ch,018h,000h,000h,000h,000h,000h
  372.    DB 018h,03Ch,07Eh,018h,018h,018h,018h,018h,018h,000h,000h,000h,000h,000h,000h,018h
  373.    DB 018h,000h,07Eh,000h,018h,018h,000h,000h,000h,000h,000h,000h,000h,000h,018h,018h
  374.    DB 07Eh,018h,018h,000h,07Eh,000h,000h,000h,000h,000h,08Bh,08Bh,0CBh,0E8h,0F8h,0B8h
  375.    DB 098h,088h,088h,000h,000h,000h,000h,000h,081h,0C3h,03Ch,066h,066h,066h,03Ch,0C3h
  376.    DB 081h,000h,000h,000h,000h,000h,000h,000h,07Eh,07Eh,07Eh,07Eh,07Eh,07Eh,000h,000h
  377.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  378.   end;
  379.  
  380.   procedure Font8x16; assembler ;
  381.   asm
  382.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  383.    DB 000h,000h,07Eh,081h,0A5h,081h,081h,0BDh,099h,081h,081h,07Eh,000h,000h,000h,000h
  384.    DB 000h,000h,07Eh,0FFh,0DBh,0FFh,0FFh,0C3h,0E7h,0FFh,0FFh,07Eh,000h,000h,000h,000h
  385.    DB 000h,000h,000h,000h,06Ch,0FEh,0FEh,0FEh,0FEh,07Ch,038h,010h,000h,000h,000h,000h
  386.    DB 000h,000h,000h,000h,010h,038h,07Ch,0FEh,07Ch,038h,010h,000h,000h,000h,000h,000h
  387.    DB 000h,000h,000h,018h,03Ch,03Ch,0E7h,0E7h,0E7h,018h,018h,03Ch,000h,000h,000h,000h
  388.    DB 000h,000h,000h,018h,03Ch,07Eh,0FFh,0FFh,07Eh,018h,018h,03Ch,000h,000h,000h,000h
  389.    DB 000h,000h,000h,000h,000h,000h,018h,03Ch,03Ch,018h,000h,000h,000h,000h,000h,000h
  390.    DB 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0E7h,0C3h,0C3h,0E7h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
  391.    DB 000h,000h,000h,000h,000h,03Ch,066h,042h,042h,066h,03Ch,000h,000h,000h,000h,000h
  392.    DB 0FFh,0FFh,0FFh,0FFh,0FFh,0C3h,099h,0BDh,0BDh,099h,0C3h,0FFh,0FFh,0FFh,0FFh,0FFh
  393.    DB 000h,000h,01Eh,00Eh,01Ah,032h,078h,0CCh,0CCh,0CCh,0CCh,078h,000h,000h,000h,000h
  394.    DB 000h,000h,03Ch,066h,066h,066h,066h,03Ch,018h,07Eh,018h,018h,000h,000h,000h,000h
  395.    DB 000h,000h,03Fh,033h,03Fh,030h,030h,030h,030h,070h,0F0h,0E0h,000h,000h,000h,000h
  396.    DB 000h,000h,07Fh,063h,07Fh,063h,063h,063h,063h,067h,0E7h,0E6h,0C0h,000h,000h,000h
  397.    DB 000h,000h,000h,018h,018h,0DBh,03Ch,0E7h,03Ch,0DBh,018h,018h,000h,000h,000h,000h
  398.    DB 000h,080h,0C0h,0E0h,0F0h,0F8h,0FEh,0F8h,0F0h,0E0h,0C0h,080h,000h,000h,000h,000h
  399.    DB 000h,002h,006h,00Eh,01Eh,03Eh,0FEh,03Eh,01Eh,00Eh,006h,002h,000h,000h,000h,000h
  400.    DB 000h,000h,018h,03Ch,07Eh,018h,018h,018h,07Eh,03Ch,018h,000h,000h,000h,000h,000h
  401.    DB 000h,000h,066h,066h,066h,066h,066h,066h,066h,000h,066h,066h,000h,000h,000h,000h
  402.    DB 000h,000h,07Fh,0DBh,0DBh,0DBh,07Bh,01Bh,01Bh,01Bh,01Bh,01Bh,000h,000h,000h,000h
  403.    DB 000h,07Ch,0C6h,060h,038h,06Ch,0C6h,0C6h,06Ch,038h,00Ch,0C6h,07Ch,000h,000h,000h
  404.    DB 000h,000h,000h,000h,000h,000h,000h,000h,0FEh,0FEh,0FEh,0FEh,000h,000h,000h,000h
  405.    DB 000h,000h,018h,03Ch,07Eh,018h,018h,018h,07Eh,03Ch,018h,07Eh,000h,000h,000h,000h
  406.    DB 000h,000h,018h,03Ch,07Eh,018h,018h,018h,018h,018h,018h,018h,000h,000h,000h,000h
  407.    DB 000h,000h,018h,018h,018h,018h,018h,018h,018h,07Eh,03Ch,018h,000h,000h,000h,000h
  408.    DB 000h,000h,000h,000h,000h,018h,00Ch,0FEh,00Ch,018h,000h,000h,000h,000h,000h,000h
  409.    DB 000h,000h,000h,000h,000h,030h,060h,0FEh,060h,030h,000h,000h,000h,000h,000h,000h
  410.    DB 000h,000h,000h,000h,000h,000h,0C0h,0C0h,0C0h,0FEh,000h,000h,000h,000h,000h,000h
  411.    DB 000h,000h,000h,000h,000h,028h,06Ch,0FEh,06Ch,028h,000h,000h,000h,000h,000h,000h
  412.    DB 000h,000h,000h,000h,010h,038h,038h,07Ch,07Ch,0FEh,0FEh,000h,000h,000h,000h,000h
  413.    DB 000h,000h,000h,000h,0FEh,0FEh,07Ch,07Ch,038h,038h,010h,000h,000h,000h,000h,000h
  414.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  415.    DB 000h,000h,018h,03Ch,03Ch,03Ch,018h,018h,018h,000h,018h,018h,000h,000h,000h,000h
  416.    DB 000h,066h,066h,066h,024h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  417.    DB 000h,000h,000h,06Ch,06Ch,0FEh,06Ch,06Ch,06Ch,0FEh,06Ch,06Ch,000h,000h,000h,000h
  418.    DB 018h,018h,07Ch,0C6h,0C2h,0C0h,07Ch,006h,006h,086h,0C6h,07Ch,018h,018h,000h,000h
  419.    DB 000h,000h,000h,000h,0C2h,0C6h,00Ch,018h,030h,060h,0C6h,086h,000h,000h,000h,000h
  420.    DB 000h,000h,038h,06Ch,06Ch,038h,076h,0DCh,0CCh,0CCh,0CCh,076h,000h,000h,000h,000h
  421.    DB 000h,030h,030h,030h,060h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  422.    DB 000h,000h,00Ch,018h,030h,030h,030h,030h,030h,030h,018h,00Ch,000h,000h,000h,000h
  423.    DB 000h,000h,030h,018h,00Ch,00Ch,00Ch,00Ch,00Ch,00Ch,018h,030h,000h,000h,000h,000h
  424.    DB 000h,000h,000h,000h,000h,066h,03Ch,0FFh,03Ch,066h,000h,000h,000h,000h,000h,000h
  425.    DB 000h,000h,000h,000h,000h,018h,018h,07Eh,018h,018h,000h,000h,000h,000h,000h,000h
  426.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,018h,018h,018h,030h,000h,000h,000h
  427.    DB 000h,000h,000h,000h,000h,000h,000h,0FEh,000h,000h,000h,000h,000h,000h,000h,000h
  428.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,018h,018h,000h,000h,000h,000h
  429.    DB 000h,000h,000h,000h,002h,006h,00Ch,018h,030h,060h,0C0h,080h,000h,000h,000h,000h
  430.    DB 000h,000h,038h,06Ch,0C6h,0C6h,0D6h,0D6h,0C6h,0C6h,06Ch,038h,000h,000h,000h,000h
  431.    DB 000h,000h,018h,038h,078h,018h,018h,018h,018h,018h,018h,07Eh,000h,000h,000h,000h
  432.    DB 000h,000h,07Ch,0C6h,006h,00Ch,018h,030h,060h,0C0h,0C6h,0FEh,000h,000h,000h,000h
  433.    DB 000h,000h,07Ch,0C6h,006h,006h,03Ch,006h,006h,006h,0C6h,07Ch,000h,000h,000h,000h
  434.    DB 000h,000h,00Ch,01Ch,03Ch,06Ch,0CCh,0FEh,00Ch,00Ch,00Ch,01Eh,000h,000h,000h,000h
  435.    DB 000h,000h,0FEh,0C0h,0C0h,0C0h,0FCh,006h,006h,006h,0C6h,07Ch,000h,000h,000h,000h
  436.    DB 000h,000h,038h,060h,0C0h,0C0h,0FCh,0C6h,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,000h
  437.    DB 000h,000h,0FEh,0C6h,006h,006h,00Ch,018h,030h,030h,030h,030h,000h,000h,000h,000h
  438.    DB 000h,000h,07Ch,0C6h,0C6h,0C6h,07Ch,0C6h,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,000h
  439.    DB 000h,000h,07Ch,0C6h,0C6h,0C6h,07Eh,006h,006h,006h,00Ch,078h,000h,000h,000h,000h
  440.    DB 000h,000h,000h,000h,018h,018h,000h,000h,000h,018h,018h,000h,000h,000h,000h,000h
  441.    DB 000h,000h,000h,000h,018h,018h,000h,000h,000h,018h,018h,030h,000h,000h,000h,000h
  442.    DB 000h,000h,000h,006h,00Ch,018h,030h,060h,030h,018h,00Ch,006h,000h,000h,000h,000h
  443.    DB 000h,000h,000h,000h,000h,07Eh,000h,000h,07Eh,000h,000h,000h,000h,000h,000h,000h
  444.    DB 000h,000h,000h,060h,030h,018h,00Ch,006h,00Ch,018h,030h,060h,000h,000h,000h,000h
  445.    DB 000h,000h,07Ch,0C6h,0C6h,00Ch,018h,018h,018h,000h,018h,018h,000h,000h,000h,000h
  446.    DB 000h,000h,000h,07Ch,0C6h,0C6h,0DEh,0DEh,0DEh,0DCh,0C0h,07Ch,000h,000h,000h,000h
  447.    DB 000h,000h,010h,038h,06Ch,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h,0C6h,000h,000h,000h,000h
  448.    DB 000h,000h,0FCh,066h,066h,066h,07Ch,066h,066h,066h,066h,0FCh,000h,000h,000h,000h
  449.    DB 000h,000h,03Ch,066h,0C2h,0C0h,0C0h,0C0h,0C0h,0C2h,066h,03Ch,000h,000h,000h,000h
  450.    DB 000h,000h,0F8h,06Ch,066h,066h,066h,066h,066h,066h,06Ch,0F8h,000h,000h,000h,000h
  451.    DB 000h,000h,0FEh,066h,062h,068h,078h,068h,060h,062h,066h,0FEh,000h,000h,000h,000h
  452.    DB 000h,000h,0FEh,066h,062h,068h,078h,068h,060h,060h,060h,0F0h,000h,000h,000h,000h
  453.    DB 000h,000h,03Ch,066h,0C2h,0C0h,0C0h,0DEh,0C6h,0C6h,066h,03Ah,000h,000h,000h,000h
  454.    DB 000h,000h,0C6h,0C6h,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h,0C6h,0C6h,000h,000h,000h,000h
  455.    DB 000h,000h,03Ch,018h,018h,018h,018h,018h,018h,018h,018h,03Ch,000h,000h,000h,000h
  456.    DB 000h,000h,01Eh,00Ch,00Ch,00Ch,00Ch,00Ch,0CCh,0CCh,0CCh,078h,000h,000h,000h,000h
  457.    DB 000h,000h,0E6h,066h,066h,06Ch,078h,078h,06Ch,066h,066h,0E6h,000h,000h,000h,000h
  458.    DB 000h,000h,0F0h,060h,060h,060h,060h,060h,060h,062h,066h,0FEh,000h,000h,000h,000h
  459.    DB 000h,000h,0C6h,0EEh,0FEh,0FEh,0D6h,0C6h,0C6h,0C6h,0C6h,0C6h,000h,000h,000h,000h
  460.    DB 000h,000h,0C6h,0E6h,0F6h,0FEh,0DEh,0CEh,0C6h,0C6h,0C6h,0C6h,000h,000h,000h,000h
  461.    DB 000h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,000h
  462.    DB 000h,000h,0FCh,066h,066h,066h,07Ch,060h,060h,060h,060h,0F0h,000h,000h,000h,000h
  463.    DB 000h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0D6h,0DEh,07Ch,00Ch,00Eh,000h,000h
  464.    DB 000h,000h,0FCh,066h,066h,066h,07Ch,06Ch,066h,066h,066h,0E6h,000h,000h,000h,000h
  465.    DB 000h,000h,07Ch,0C6h,0C6h,060h,038h,00Ch,006h,0C6h,0C6h,07Ch,000h,000h,000h,000h
  466.    DB 000h,000h,07Eh,07Eh,05Ah,018h,018h,018h,018h,018h,018h,03Ch,000h,000h,000h,000h
  467.    DB 000h,000h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,000h
  468.    DB 000h,000h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,06Ch,038h,010h,000h,000h,000h,000h
  469.    DB 000h,000h,0C6h,0C6h,0C6h,0C6h,0D6h,0D6h,0D6h,0FEh,0EEh,06Ch,000h,000h,000h,000h
  470.    DB 000h,000h,0C6h,0C6h,06Ch,07Ch,038h,038h,07Ch,06Ch,0C6h,0C6h,000h,000h,000h,000h
  471.    DB 000h,000h,066h,066h,066h,066h,03Ch,018h,018h,018h,018h,03Ch,000h,000h,000h,000h
  472.    DB 000h,000h,0FEh,0C6h,086h,00Ch,018h,030h,060h,0C2h,0C6h,0FEh,000h,000h,000h,000h
  473.    DB 000h,000h,03Ch,030h,030h,030h,030h,030h,030h,030h,030h,03Ch,000h,000h,000h,000h
  474.    DB 000h,000h,000h,080h,0C0h,0E0h,070h,038h,01Ch,00Eh,006h,002h,000h,000h,000h,000h
  475.    DB 000h,000h,03Ch,00Ch,00Ch,00Ch,00Ch,00Ch,00Ch,00Ch,00Ch,03Ch,000h,000h,000h,000h
  476.    DB 010h,038h,06Ch,0C6h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  477.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,0FFh,000h,000h
  478.    DB 000h,030h,018h,00Ch,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  479.    DB 000h,000h,000h,000h,000h,078h,00Ch,07Ch,0CCh,0CCh,0CCh,076h,000h,000h,000h,000h
  480.    DB 000h,000h,0E0h,060h,060h,078h,06Ch,066h,066h,066h,066h,07Ch,000h,000h,000h,000h
  481.    DB 000h,000h,000h,000h,000h,07Ch,0C6h,0C0h,0C0h,0C0h,0C6h,07Ch,000h,000h,000h,000h
  482.    DB 000h,000h,01Ch,00Ch,00Ch,03Ch,06Ch,0CCh,0CCh,0CCh,0CCh,076h,000h,000h,000h,000h
  483.    DB 000h,000h,000h,000h,000h,07Ch,0C6h,0FEh,0C0h,0C0h,0C6h,07Ch,000h,000h,000h,000h
  484.    DB 000h,000h,01Ch,036h,032h,030h,078h,030h,030h,030h,030h,078h,000h,000h,000h,000h
  485.    DB 000h,000h,000h,000h,000h,076h,0CCh,0CCh,0CCh,0CCh,0CCh,07Ch,00Ch,0CCh,078h,000h
  486.    DB 000h,000h,0E0h,060h,060h,06Ch,076h,066h,066h,066h,066h,0E6h,000h,000h,000h,000h
  487.    DB 000h,000h,018h,018h,000h,038h,018h,018h,018h,018h,018h,03Ch,000h,000h,000h,000h
  488.    DB 000h,000h,006h,006h,000h,00Eh,006h,006h,006h,006h,006h,006h,066h,066h,03Ch,000h
  489.    DB 000h,000h,0E0h,060h,060h,066h,06Ch,078h,078h,06Ch,066h,0E6h,000h,000h,000h,000h
  490.    DB 000h,000h,038h,018h,018h,018h,018h,018h,018h,018h,018h,03Ch,000h,000h,000h,000h
  491.    DB 000h,000h,000h,000h,000h,0ECh,0FEh,0D6h,0D6h,0D6h,0D6h,0C6h,000h,000h,000h,000h
  492.    DB 000h,000h,000h,000h,000h,0DCh,066h,066h,066h,066h,066h,066h,000h,000h,000h,000h
  493.    DB 000h,000h,000h,000h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,000h
  494.    DB 000h,000h,000h,000h,000h,0DCh,066h,066h,066h,066h,066h,07Ch,060h,060h,0F0h,000h
  495.    DB 000h,000h,000h,000h,000h,076h,0CCh,0CCh,0CCh,0CCh,0CCh,07Ch,00Ch,00Ch,01Eh,000h
  496.    DB 000h,000h,000h,000h,000h,0DCh,076h,066h,060h,060h,060h,0F0h,000h,000h,000h,000h
  497.    DB 000h,000h,000h,000h,000h,07Ch,0C6h,060h,038h,00Ch,0C6h,07Ch,000h,000h,000h,000h
  498.    DB 000h,000h,010h,030h,030h,0FCh,030h,030h,030h,030h,036h,01Ch,000h,000h,000h,000h
  499.    DB 000h,000h,000h,000h,000h,0CCh,0CCh,0CCh,0CCh,0CCh,0CCh,076h,000h,000h,000h,000h
  500.    DB 000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,0C6h,0C6h,06Ch,038h,000h,000h,000h,000h
  501.    DB 000h,000h,000h,000h,000h,0C6h,0C6h,0D6h,0D6h,0D6h,0FEh,06Ch,000h,000h,000h,000h
  502.    DB 000h,000h,000h,000h,000h,0C6h,06Ch,038h,038h,038h,06Ch,0C6h,000h,000h,000h,000h
  503.    DB 000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,07Eh,006h,00Ch,0F8h,000h
  504.    DB 000h,000h,000h,000h,000h,0FEh,0CCh,018h,030h,060h,0C6h,0FEh,000h,000h,000h,000h
  505.    DB 000h,000h,00Eh,018h,018h,018h,070h,018h,018h,018h,018h,00Eh,000h,000h,000h,000h
  506.    DB 000h,000h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,000h,000h,000h,000h
  507.    DB 000h,000h,070h,018h,018h,018h,00Eh,018h,018h,018h,018h,070h,000h,000h,000h,000h
  508.    DB 000h,076h,0DCh,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  509.    DB 000h,000h,000h,000h,010h,038h,06Ch,0C6h,0C6h,0C6h,0FEh,000h,000h,000h,000h,000h
  510.    DB 000h,000h,010h,038h,06Ch,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h,0C6h,000h,000h,000h,000h
  511.    DB 000h,000h,0FEh,066h,062h,060h,07Ch,066h,066h,066h,066h,0FCh,000h,000h,000h,000h
  512.    DB 000h,000h,0FCh,066h,066h,066h,07Ch,066h,066h,066h,066h,0FCh,000h,000h,000h,000h
  513.    DB 000h,000h,0FEh,066h,062h,060h,060h,060h,060h,060h,060h,0F0h,000h,000h,000h,000h
  514.    DB 000h,000h,01Eh,036h,066h,066h,066h,066h,066h,066h,066h,0FFh,0C3h,081h,000h,000h
  515.    DB 000h,000h,0FEh,066h,062h,068h,078h,068h,060h,062h,066h,0FEh,000h,000h,000h,000h
  516.    DB 000h,000h,0DBh,0DBh,05Ah,05Ah,03Ch,03Ch,05Ah,05Ah,0DBh,0DBh,000h,000h,000h,000h
  517.    DB 000h,000h,078h,0CCh,006h,00Ch,038h,00Ch,006h,006h,0CCh,078h,000h,000h,000h,000h
  518.    DB 000h,000h,0C6h,0C6h,0C6h,0CEh,0DEh,0FEh,0F6h,0E6h,0C6h,0C6h,000h,000h,000h,000h
  519.    DB 038h,010h,0C6h,0C6h,0C6h,0CEh,0DEh,0FEh,0F6h,0E6h,0C6h,0C6h,000h,000h,000h,000h
  520.    DB 000h,000h,0C6h,0C6h,0CCh,0D8h,0F0h,0D8h,0CCh,0C6h,0C6h,0C6h,000h,000h,000h,000h
  521.    DB 000h,000h,01Eh,036h,066h,066h,066h,066h,066h,066h,066h,0C6h,000h,000h,000h,000h
  522.    DB 000h,000h,0C6h,0EEh,0FEh,0FEh,0D6h,0D6h,0C6h,0C6h,0C6h,0C6h,000h,000h,000h,000h
  523.    DB 000h,000h,0C6h,0C6h,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h,0C6h,0C6h,000h,000h,000h,000h
  524.    DB 000h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,000h
  525.    DB 000h,000h,0FEh,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,000h,000h,000h,000h
  526.    DB 000h,000h,0FCh,066h,066h,066h,07Ch,060h,060h,060h,060h,0F0h,000h,000h,000h,000h
  527.    DB 000h,000h,03Ch,066h,0C2h,0C0h,0C0h,0C0h,0C0h,0C2h,066h,03Ch,000h,000h,000h,000h
  528.    DB 000h,000h,07Eh,07Eh,05Ah,018h,018h,018h,018h,018h,018h,03Ch,000h,000h,000h,000h
  529.    DB 000h,000h,0C6h,0C6h,0C6h,0C6h,066h,03Eh,006h,086h,0C6h,07Ch,000h,000h,000h,000h
  530.    DB 000h,000h,018h,07Eh,0DBh,0DBh,0DBh,0DBh,0DBh,07Eh,018h,03Ch,000h,000h,000h,000h
  531.    DB 000h,000h,0C6h,0C6h,06Ch,06Ch,038h,038h,06Ch,06Ch,0C6h,0C6h,000h,000h,000h,000h
  532.    DB 000h,000h,0CCh,0CCh,0CCh,0CCh,0CCh,0CCh,0CCh,0CCh,0CCh,0FEh,006h,002h,000h,000h
  533.    DB 000h,000h,0C6h,0C6h,0C6h,0C6h,07Eh,006h,006h,006h,006h,006h,000h,000h,000h,000h
  534.    DB 000h,000h,0C6h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0FEh,000h,000h,000h,000h
  535.    DB 000h,000h,0C6h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0FFh,003h,001h,000h,000h
  536.    DB 000h,000h,0F8h,0F0h,0B0h,0B0h,03Eh,033h,033h,033h,033h,07Eh,000h,000h,000h,000h
  537.    DB 000h,000h,0C3h,0C3h,0C3h,0C3h,0FBh,0CFh,0CFh,0CFh,0CFh,0FBh,000h,000h,000h,000h
  538.    DB 000h,000h,0F0h,060h,060h,060h,07Ch,066h,066h,066h,066h,0FCh,000h,000h,000h,000h
  539.    DB 000h,000h,078h,0CCh,086h,016h,01Eh,016h,006h,086h,0CCh,078h,000h,000h,000h,000h
  540.    DB 000h,000h,0CEh,0DBh,0DBh,0DBh,0FBh,0FBh,0DBh,0DBh,0DBh,0CEh,000h,000h,000h,000h
  541.    DB 000h,000h,07Eh,0C6h,0C6h,0C6h,07Eh,036h,066h,0C6h,0C6h,0C6h,000h,000h,000h,000h
  542.    DB 000h,000h,000h,000h,000h,078h,00Ch,07Ch,0CCh,0CCh,0CCh,076h,000h,000h,000h,000h
  543.    DB 000h,000h,006h,03Ch,060h,0C0h,0FCh,0C6h,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,000h
  544.    DB 000h,000h,000h,000h,000h,0FCh,0C6h,0C6h,0FCh,0C6h,0C6h,0FCh,000h,000h,000h,000h
  545.    DB 000h,000h,000h,000h,000h,07Eh,060h,060h,060h,060h,060h,060h,000h,000h,000h,000h
  546.    DB 000h,000h,000h,000h,000h,01Eh,036h,066h,066h,066h,066h,0FFh,0C3h,081h,000h,000h
  547.    DB 000h,000h,000h,000h,000h,07Ch,0C6h,0FEh,0C0h,0C0h,0C6h,07Ch,000h,000h,000h,000h
  548.    DB 000h,000h,000h,000h,000h,0DBh,0DBh,05Ah,03Ch,05Ah,0DBh,0DBh,000h,000h,000h,000h
  549.    DB 000h,000h,000h,000h,000h,03Ch,066h,006h,01Ch,006h,0C6h,07Ch,000h,000h,000h,000h
  550.    DB 000h,000h,000h,000h,000h,0C6h,0C6h,0CEh,0DEh,0F6h,0E6h,0C6h,000h,000h,000h,000h
  551.    DB 000h,000h,000h,038h,010h,0C6h,0C6h,0CEh,0DEh,0F6h,0E6h,0C6h,000h,000h,000h,000h
  552.    DB 000h,000h,000h,000h,000h,0C6h,0CCh,0D8h,0F0h,0D8h,0CCh,0C6h,000h,000h,000h,000h
  553.    DB 000h,000h,000h,000h,000h,01Eh,036h,066h,066h,066h,066h,0C6h,000h,000h,000h,000h
  554.    DB 000h,000h,000h,000h,000h,0C6h,0EEh,0FEh,0D6h,0D6h,0C6h,0C6h,000h,000h,000h,000h
  555.    DB 000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,0FEh,0C6h,0C6h,0C6h,000h,000h,000h,000h
  556.    DB 000h,000h,000h,000h,000h,07Ch,0C6h,0C6h,0C6h,0C6h,0C6h,07Ch,000h,000h,000h,000h
  557.    DB 000h,000h,000h,000h,000h,0FEh,0C6h,0C6h,0C6h,0C6h,0C6h,0C6h,000h,000h,000h,000h
  558.    DB 011h,044h,011h,044h,011h,044h,011h,044h,011h,044h,011h,044h,011h,044h,011h,044h
  559.    DB 055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh,055h,0AAh
  560.    DB 0DDh,077h,0DDh,077h,0DDh,077h,0DDh,077h,0DDh,077h,0DDh,077h,0DDh,077h,0DDh,077h
  561.    DB 018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h,018h
  562.    DB 018h,018h,018h,018h,018h,018h,018h,0F8h,018h,018h,018h,018h,018h,018h,018h,018h
  563.    DB 018h,018h,018h,018h,018h,0F8h,0F8h,0F8h,018h,018h,018h,018h,018h,018h,018h,018h
  564.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,0FEh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  565.    DB 000h,000h,000h,000h,000h,000h,000h,0FEh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  566.    DB 000h,000h,000h,000h,000h,0F8h,0F8h,0F8h,018h,018h,018h,018h,018h,018h,018h,018h
  567.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,0FEh,0FEh,0FEh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  568.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  569.    DB 000h,000h,000h,000h,000h,0FEh,0FEh,0FEh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  570.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,0FEh,0FEh,0FEh,000h,000h,000h,000h,000h,000h,000h,000h
  571.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,0FEh,000h,000h,000h,000h,000h,000h,000h,000h
  572.    DB 018h,018h,018h,018h,018h,0F8h,0F8h,0F8h,000h,000h,000h,000h,000h,000h,000h,000h
  573.    DB 000h,000h,000h,000h,000h,000h,000h,0F8h,018h,018h,018h,018h,018h,018h,018h,018h
  574.    DB 018h,018h,018h,018h,018h,018h,018h,01Fh,000h,000h,000h,000h,000h,000h,000h,000h
  575.    DB 018h,018h,018h,018h,018h,018h,018h,0FFh,000h,000h,000h,000h,000h,000h,000h,000h
  576.    DB 000h,000h,000h,000h,000h,000h,000h,0FFh,018h,018h,018h,018h,018h,018h,018h,018h
  577.    DB 018h,018h,018h,018h,018h,018h,018h,01Fh,018h,018h,018h,018h,018h,018h,018h,018h
  578.    DB 000h,000h,000h,000h,000h,000h,000h,0FFh,000h,000h,000h,000h,000h,000h,000h,000h
  579.    DB 018h,018h,018h,018h,018h,018h,018h,0FFh,018h,018h,018h,018h,018h,018h,018h,018h
  580.    DB 018h,018h,018h,018h,018h,01Fh,01Fh,01Fh,018h,018h,018h,018h,018h,018h,018h,018h
  581.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Fh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  582.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Fh,03Fh,03Fh,000h,000h,000h,000h,000h,000h,000h,000h
  583.    DB 000h,000h,000h,000h,000h,03Fh,03Fh,03Fh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  584.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h,000h
  585.    DB 000h,000h,000h,000h,000h,0FFh,0FFh,0FFh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  586.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Fh,03Fh,03Fh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  587.    DB 000h,000h,000h,000h,000h,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h,000h
  588.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,0FFh,0FFh,0FFh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  589.    DB 018h,018h,018h,018h,018h,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h,000h
  590.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,0FFh,000h,000h,000h,000h,000h,000h,000h,000h
  591.    DB 000h,000h,000h,000h,000h,0FFh,0FFh,0FFh,018h,018h,018h,018h,018h,018h,018h,018h
  592.    DB 000h,000h,000h,000h,000h,000h,000h,0FFh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  593.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Fh,000h,000h,000h,000h,000h,000h,000h,000h
  594.    DB 018h,018h,018h,018h,018h,01Fh,01Fh,01Fh,000h,000h,000h,000h,000h,000h,000h,000h
  595.    DB 000h,000h,000h,000h,000h,01Fh,01Fh,01Fh,018h,018h,018h,018h,018h,018h,018h,018h
  596.    DB 000h,000h,000h,000h,000h,000h,000h,03Fh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  597.    DB 03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,0FFh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh,03Eh
  598.    DB 018h,018h,018h,018h,018h,0FFh,0FFh,0FFh,018h,018h,018h,018h,018h,018h,018h,018h
  599.    DB 018h,018h,018h,018h,018h,018h,018h,0F8h,000h,000h,000h,000h,000h,000h,000h,000h
  600.    DB 000h,000h,000h,000h,000h,000h,000h,01Fh,018h,018h,018h,018h,018h,018h,018h,018h
  601.    DB 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
  602.    DB 000h,000h,000h,000h,000h,000h,000h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
  603.    DB 0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,0F0h
  604.    DB 00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,00Fh
  605.    DB 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h,000h,000h
  606.    DB 000h,000h,000h,000h,000h,0FCh,0C6h,0C6h,0C6h,0C6h,0C6h,0FCh,0C0h,0C0h,0C0h,000h
  607.    DB 000h,000h,000h,000h,000h,03Ch,066h,0C0h,0C0h,0C0h,066h,03Ch,000h,000h,000h,000h
  608.    DB 000h,000h,000h,000h,000h,07Eh,018h,018h,018h,018h,018h,018h,000h,000h,000h,000h
  609.    DB 000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,0C6h,066h,03Eh,006h,086h,0CCh,078h,000h
  610.    DB 000h,000h,000h,000h,000h,018h,07Eh,0DBh,0DBh,0DBh,0DBh,07Eh,018h,018h,018h,000h
  611.    DB 000h,000h,000h,000h,000h,0C6h,06Ch,038h,010h,038h,06Ch,0C6h,000h,000h,000h,000h
  612.    DB 000h,000h,000h,000h,000h,0CCh,0CCh,0CCh,0CCh,0CCh,0CCh,0FEh,006h,002h,000h,000h
  613.    DB 000h,000h,000h,000h,000h,0C6h,0C6h,0C6h,07Eh,006h,006h,006h,000h,000h,000h,000h
  614.    DB 000h,000h,000h,000h,000h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0FEh,000h,000h,000h,000h
  615.    DB 000h,000h,000h,000h,000h,0D6h,0D6h,0D6h,0D6h,0D6h,0D6h,0FFh,003h,001h,000h,000h
  616.    DB 000h,000h,000h,000h,000h,0E0h,060h,07Eh,063h,063h,063h,07Eh,000h,000h,000h,000h
  617.    DB 000h,000h,000h,000h,000h,0C3h,0C3h,0FBh,0CFh,0CFh,0CFh,0FBh,000h,000h,000h,000h
  618.    DB 000h,000h,000h,000h,000h,0C0h,0C0h,0FCh,0C6h,0C6h,0C6h,0FCh,000h,000h,000h,000h
  619.    DB 000h,000h,000h,000h,000h,078h,0CCh,006h,01Eh,006h,0CCh,078h,000h,000h,000h,000h
  620.    DB 000h,000h,000h,000h,000h,0CEh,0DBh,0DBh,0FBh,0DBh,0DBh,0CEh,000h,000h,000h,000h
  621.    DB 000h,000h,000h,000h,000h,07Eh,0C6h,0C6h,07Eh,036h,066h,0C6h,000h,000h,000h,000h
  622.    DB 024h,000h,0FEh,066h,062h,068h,078h,068h,060h,062h,066h,0FEh,000h,000h,000h,000h
  623.    DB 000h,000h,000h,028h,000h,07Ch,0C6h,0FEh,0C0h,0C0h,0C6h,07Ch,000h,000h,000h,000h
  624.    DB 000h,000h,000h,000h,000h,001h,003h,006h,00Ch,018h,030h,020h,000h,000h,000h,000h
  625.    DB 000h,000h,000h,000h,000h,080h,0C0h,060h,030h,018h,00Ch,004h,000h,000h,000h,000h
  626.    DB 004h,00Ch,018h,030h,060h,0C0h,080h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  627.    DB 020h,030h,018h,00Ch,006h,003h,001h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  628.    DB 000h,000h,000h,000h,000h,018h,00Ch,0FEh,00Ch,018h,000h,000h,000h,000h,000h,000h
  629.    DB 000h,000h,000h,000h,000h,030h,060h,0FEh,060h,030h,000h,000h,000h,000h,000h,000h
  630.    DB 000h,000h,018h,018h,018h,018h,018h,018h,018h,07Eh,03Ch,018h,000h,000h,000h,000h
  631.    DB 000h,000h,018h,03Ch,07Eh,018h,018h,018h,018h,018h,018h,018h,000h,000h,000h,000h
  632.    DB 000h,000h,000h,000h,000h,018h,000h,07Eh,000h,018h,000h,000h,000h,000h,000h,000h
  633.    DB 000h,000h,000h,000h,018h,018h,07Eh,018h,018h,000h,000h,07Eh,000h,000h,000h,000h
  634.    DB 000h,000h,08Bh,0CBh,0CBh,0E8h,0A8h,0B8h,098h,098h,088h,088h,000h,000h,000h,000h
  635.    DB 000h,081h,0C3h,042h,03Ch,066h,066h,066h,066h,03Ch,042h,0C3h,081h,000h,000h,000h
  636.    DB 000h,000h,000h,000h,07Eh,07Eh,07Eh,07Eh,07Eh,07Eh,07Eh,000h,000h,000h,000h,000h
  637.    DB 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
  638.   end;
  639.  
  640.   procedure Binout(b:Byte);
  641.   var i : byte;
  642.       c : Char;
  643.   begin
  644.    for i := 0 to 7 do
  645.     begin
  646.      if (($80 shr i) and b) <> 0 then c := '*' else c := ' ';
  647.      write(c);
  648.     end;
  649.   end;
  650.  
  651.   procedure Show8x8;
  652.   var i : word ;
  653.   begin
  654.    for i := $48f0 to $50ef do
  655.     begin
  656.      write(Hexw(I)+'   ');Binout(VBIOS[i]);Writeln;
  657.     end;
  658.   end;
  659.  
  660.  
  661.  
  662.   procedure Show8x14;
  663.   var i : word ;
  664.   begin
  665.    for i := $50f0 to $5eef do
  666.     begin
  667.      write(Hexw(I)+'   ');Binout(VBIOS[i]);Writeln;
  668.     end;
  669.   end;
  670.  
  671.  
  672.   procedure Show8x16;
  673.   var i : word ;
  674.   begin
  675.    for i := $7000 to $7fff do
  676.     begin
  677.      if (i mod $12) = 0 then writeln(#13#10'-------------------------------');
  678.      write(Hexw(I)+'   ');Binout(VBIOS[i]);writeln;
  679.      delay(10);
  680.     end;
  681.   end;
  682.  
  683. {  procedure Show8x;
  684.   var i : word ;
  685.   begin
  686.    for i := $7000 to $7fff do
  687.     begin
  688.      write(Hexw(I)+'   ');Binout(VBIOS[i]);Writeln;
  689.     end;
  690.   end;
  691. }
  692.  
  693.  
  694.  
  695.   PROCEDURE Abort(s:String);
  696.   begin
  697.    Writeln(#13#10'Abort: '+S+'.');
  698.    Halt(1)
  699.   end;
  700.  
  701.  
  702.  VAR
  703.   VGAIDENT : String ;
  704.   Bseg : Word ;
  705.  
  706.  
  707.   PROCEDURE Check(var S:String);
  708.   var W : Word;
  709.       What  : String;
  710.       Where : ^Char;
  711.       tmp : String;
  712.   begin
  713.     tmp := ExtractWord(2,S,['=',' ']);
  714.     if not Str2Word(tmp,W) then Abort('Invalid Check Offset syntax: '+tmp);
  715.     Where := Ptr(Bseg,W);
  716.     tmp := ExtractWord(2,S,['"']);
  717.     if tmp <> '' then
  718.      begin
  719.       W := 1;
  720.       while W <= Length(tmp) do
  721.        begin
  722.         if tmp[W] <> Where^ then Abort('CHECK Failed! This is not ('+VGAIdent+') Card');
  723.         inc(W);
  724.         inc(Where);
  725.        end;
  726.      end;
  727.  
  728.   end;
  729.  
  730.   PROCEDURE Identify(var S:String);
  731.   begin
  732.    VGAIDENT := ExtractWord(2,S,['=']);
  733.    Writeln('Assuming VGA Type is : '+VGAIdent);
  734.   end;
  735.  
  736.   PROCEDURE SetBiosSeg(var S:String);
  737.   var tmp : string ;
  738.   begin
  739.    tmp := ExtractWord(2,S,['=',' ']);
  740.    if not Str2Word(tmp,Bseg) then
  741.      Abort('Invalid Video BIOS segment definition syntax: '+tmp);
  742.   end;
  743.  
  744.   FUNCTION WriteAble(P:Pointer):boolean;
  745.   begin
  746.    WriteAble := False;
  747.    Word(P^) := $1234;
  748.    if Word(P^) <> $1234 then Exit;
  749.    Word(P^) := Word(not $1234);
  750.    if Word(P^) <> (not $1234) then Exit;
  751.    writeable := True;
  752.   end;
  753.  
  754.   PROCEDURE MoveFont(Src,Dst:Pointer;Size:Word);
  755.   begin
  756.    if WriteAble(Dst) then
  757.     begin
  758.      Move(Src^,Dst^,Size);
  759.     end else Abort('VIDEO BIOS Area is not writeable at :'+HexPtr(Dst));
  760.   end;
  761.  
  762.   PROCEDURE Set8x8Ofs(var S:String);
  763.   var tmp : String;
  764.       ofs : Word;
  765.       P : Pointer ;
  766.   begin
  767.    tmp := ExtractWord(2,S,['=',' ']);
  768.    if Str2Word(tmp,Ofs) then
  769.     begin
  770.      P  := Ptr(Bseg,Ofs);
  771.      MoveFont(@Font8x8,P,256*8);
  772.     end else Abort('Invalid Offset syntax: '+tmp);
  773.   end;
  774.  
  775.   PROCEDURE Set8x14Ofs(var S:String);
  776.   var tmp : String;
  777.       ofs : Word;
  778.       P : Pointer ;
  779.   begin
  780.    tmp := ExtractWord(2,S,['=',' ']);
  781.    if Str2Word(tmp,Ofs) then
  782.     begin
  783.      P  := Ptr(Bseg,Ofs);
  784.      MoveFont(@Font8x14,P,256*14);
  785.     end else Abort('Invalid Offset syntax: '+tmp);
  786.   end;
  787.  
  788.   PROCEDURE Set8x16Ofs(var S:String);
  789.   var tmp : String;
  790.       ofs : Word;
  791.       P : Pointer ;
  792.   begin
  793.    tmp := ExtractWord(2,S,['=',' ']);
  794.    if Str2Word(tmp,Ofs) then
  795.     begin
  796.      P  := Ptr(Bseg,Ofs);
  797.      MoveFont(@Font8x16,P,256*16);
  798.     end else Abort('Invalid Offset syntax: '+tmp);
  799.   end;
  800.  
  801.   PROCEDURE ParseLine(var L:String);
  802.   VAR Key : String ;
  803.   begin
  804.    Key := StUpCase(ExtractWord(1,L,[' ']));
  805.    if Key <> '' then
  806.     begin
  807.      if Key[1] <> ';' then
  808.       begin
  809.        if Key='VGAID'    then Identify(L) else
  810.        if Key='CHKREV'   then Check(L) else
  811.        if Key='BIOSSEG'  then SetBiosSeg(L) else
  812.        if Key='FONT8X8'  then Set8x8Ofs(L) else
  813.        if Key='FONT8X14' then Set8x14Ofs(L) else
  814.        if Key='FONT8X16' then Set8x16Ofs(L) else
  815.        begin
  816.         Abort('Illegal KeyWord : ('+Key+') in '+StUpCase(DatFName));
  817.        end;
  818.       end;
  819.     end;
  820.   end;
  821.  
  822.  
  823.   PROCEDURE LoadDatFile;
  824.   var l : String;
  825.   begin
  826.    DatFName := ForceExtension(ParamStr(0),'dat');
  827.    if ExistFile(DatFname) then
  828.     begin
  829.      Assign(DatFile,DatFName);
  830.      Reset(DatFile);
  831.  
  832.      while not eof(DatFile) do
  833.       begin
  834.        Readln(DatFile,l);
  835.        if l <> '' then
  836.         begin
  837.          ParseLine(l);
  838.         end;
  839.       end;
  840.  
  841.      Close(DatFile);
  842.     end;
  843.   end;
  844.  
  845.  
  846.  
  847.  
  848.   procedure upload;
  849.   var
  850.    Mode : Byte;
  851.    Scr  : Array [0..$7fff] of Byte;
  852.    X,Y : Integer;
  853.   begin
  854.    Mode := getCrtMode;
  855.    X := WhereX;
  856.    Y := WhereY;
  857.    Move(Ptr($B800,0)^,Scr,$8000);
  858.    TextMode(3);
  859.    TextMode(Mode);
  860.    Move(Scr,Ptr($B800,0)^,$8000);
  861.    GotoXY(X,Y);
  862.   end;
  863.  
  864.  
  865. begin
  866.  
  867.  writeln('VGA Permanent Font Loader. Ver 1.0 (C) 1993 KoroSoft Pte Ltd.'#13#10);
  868.  
  869.  LoadDatFile;
  870.  
  871.  Upload;
  872.  
  873.  Writeln('Fonts are loaded...');
  874.  
  875.  
  876. end.
  877.  
  878.