home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l391 / 2.ddi / CHARTASM.AS$ / CHARTASM.bin
Encoding:
Text File  |  1992-08-19  |  20.5 KB  |  451 lines
  1. ; ------------------------------------------------------------------------
  2. ; Assembly language routines for the Visual Basic for MS-DOS
  3. ; Presentation Graphics ToolKit.
  4. ;
  5. ;   DefaultFont - provides the segment:offset address for
  6. ;                 the default font
  7. ;
  8. ; Copyright (C) 1982-1992 Microsoft Corporation
  9. ;
  10. ; You have a royalty-free right to use, modify, reproduce
  11. ; and distribute the sample applications and toolkits provided with
  12. ; Visual Basic for MS-DOS (and/or any modified version)
  13. ; in any way you find useful, provided that you agree that
  14. ; Microsoft has no warranty, obligations or liability for
  15. ; any of the sample applications or toolkits.
  16. ; ------------------------------------------------------------------------
  17.  
  18. .MODEL medium
  19.  
  20. .FARDATA
  21. _IBM8_def label byte
  22.  
  23.       db   000h,000h,07Eh,00Ch,000h,000h,000h,000h
  24.       db   000h,000h,000h,000h,000h,000h,000h,000h
  25.       db   000h,000h,000h,000h,000h,000h,000h,000h
  26.       db   000h,000h,000h,000h,000h,000h,000h,000h
  27.       db   000h,000h,000h,000h,000h,000h,000h,000h
  28.       db   000h,000h,000h,000h,000h,000h,000h,000h
  29.       db   000h,000h,000h,000h,000h,000h,000h,000h
  30.       db   000h,000h,000h,000h,000h,000h,000h,000h
  31.       db   000h,000h,000h,000h,008h,000h,030h,000h
  32.       db   060h,000h,007h,000h,000h,000h,000h,000h
  33.       db   000h,000h,000h,090h,001h,000h,008h,000h
  34.       db   008h,000h,000h,008h,000h,008h,000h,000h
  35.       db   0FFh,02Eh,020h,0FFh,000h,000h,000h,000h
  36.       db   000h,07Ah,004h,000h,000h,000h,000h,000h
  37.       db   000h,07Eh,004h,000h,000h,000h,008h,000h
  38.       db   07Eh,004h,008h,000h,086h,004h,008h,000h
  39.       db   08Eh,004h,008h,000h,096h,004h,008h,000h
  40.       db   09Eh,004h,008h,000h,0A6h,004h,008h,000h
  41.       db   0AEh,004h,008h,000h,0B6h,004h,008h,000h
  42.       db   0BEh,004h,008h,000h,0C6h,004h,008h,000h
  43.       db   0CEh,004h,008h,000h,0D6h,004h,008h,000h
  44.       db   0DEh,004h,008h,000h,0E6h,004h,008h,000h
  45.       db   0EEh,004h,008h,000h,0F6h,004h,008h,000h
  46.       db   0FEh,004h,008h,000h,006h,005h,008h,000h
  47.       db   00Eh,005h,008h,000h,016h,005h,008h,000h
  48.       db   01Eh,005h,008h,000h,026h,005h,008h,000h
  49.       db   02Eh,005h,008h,000h,036h,005h,008h,000h
  50.       db   03Eh,005h,008h,000h,046h,005h,008h,000h
  51.       db   04Eh,005h,008h,000h,056h,005h,008h,000h
  52.       db   05Eh,005h,008h,000h,066h,005h,008h,000h
  53.       db   06Eh,005h,008h,000h,076h,005h,008h,000h
  54.       db   07Eh,005h,008h,000h,086h,005h,008h,000h
  55.       db   08Eh,005h,008h,000h,096h,005h,008h,000h
  56.       db   09Eh,005h,008h,000h,0A6h,005h,008h,000h
  57.       db   0AEh,005h,008h,000h,0B6h,005h,008h,000h
  58.       db   0BEh,005h,008h,000h,0C6h,005h,008h,000h
  59.       db   0CEh,005h,008h,000h,0D6h,005h,008h,000h
  60.       db   0DEh,005h,008h,000h,0E6h,005h,008h,000h
  61.       db   0EEh,005h,008h,000h,0F6h,005h,008h,000h
  62.       db   0FEh,005h,008h,000h,006h,006h,008h,000h
  63.       db   00Eh,006h,008h,000h,016h,006h,008h,000h
  64.       db   01Eh,006h,008h,000h,026h,006h,008h,000h
  65.       db   02Eh,006h,008h,000h,036h,006h,008h,000h
  66.       db   03Eh,006h,008h,000h,046h,006h,008h,000h
  67.       db   04Eh,006h,008h,000h,056h,006h,008h,000h
  68.       db   05Eh,006h,008h,000h,066h,006h,008h,000h
  69.       db   06Eh,006h,008h,000h,076h,006h,008h,000h
  70.       db   07Eh,006h,008h,000h,086h,006h,008h,000h
  71.       db   08Eh,006h,008h,000h,096h,006h,008h,000h
  72.       db   09Eh,006h,008h,000h,0A6h,006h,008h,000h
  73.       db   0AEh,006h,008h,000h,0B6h,006h,008h,000h
  74.       db   0BEh,006h,008h,000h,0C6h,006h,008h,000h
  75.       db   0CEh,006h,008h,000h,0D6h,006h,008h,000h
  76.       db   0DEh,006h,008h,000h,0E6h,006h,008h,000h
  77.       db   0EEh,006h,008h,000h,0F6h,006h,008h,000h
  78.       db   0FEh,006h,008h,000h,006h,007h,008h,000h
  79.       db   00Eh,007h,008h,000h,016h,007h,008h,000h
  80.       db   01Eh,007h,008h,000h,026h,007h,008h,000h
  81.       db   02Eh,007h,008h,000h,036h,007h,008h,000h
  82.       db   03Eh,007h,008h,000h,046h,007h,008h,000h
  83.       db   04Eh,007h,008h,000h,056h,007h,008h,000h
  84.       db   05Eh,007h,008h,000h,066h,007h,008h,000h
  85.       db   06Eh,007h,008h,000h,076h,007h,008h,000h
  86.       db   07Eh,007h,008h,000h,086h,007h,008h,000h
  87.       db   08Eh,007h,008h,000h,096h,007h,008h,000h
  88.       db   09Eh,007h,008h,000h,0A6h,007h,008h,000h
  89.       db   0AEh,007h,008h,000h,0B6h,007h,008h,000h
  90.       db   0BEh,007h,008h,000h,0C6h,007h,008h,000h
  91.       db   0CEh,007h,008h,000h,0D6h,007h,008h,000h
  92.       db   0DEh,007h,008h,000h,0E6h,007h,008h,000h
  93.       db   0EEh,007h,008h,000h,0F6h,007h,008h,000h
  94.       db   0FEh,007h,008h,000h,006h,008h,008h,000h
  95.       db   00Eh,008h,008h,000h,016h,008h,008h,000h
  96.       db   01Eh,008h,008h,000h,026h,008h,008h,000h
  97.       db   02Eh,008h,008h,000h,036h,008h,008h,000h
  98.       db   03Eh,008h,008h,000h,046h,008h,008h,000h
  99.       db   04Eh,008h,008h,000h,056h,008h,008h,000h
  100.       db   05Eh,008h,008h,000h,066h,008h,008h,000h
  101.       db   06Eh,008h,008h,000h,076h,008h,008h,000h
  102.       db   07Eh,008h,008h,000h,086h,008h,008h,000h
  103.       db   08Eh,008h,008h,000h,096h,008h,008h,000h
  104.       db   09Eh,008h,008h,000h,0A6h,008h,008h,000h
  105.       db   0AEh,008h,008h,000h,0B6h,008h,008h,000h
  106.       db   0BEh,008h,008h,000h,0C6h,008h,008h,000h
  107.       db   0CEh,008h,008h,000h,0D6h,008h,008h,000h
  108.       db   0DEh,008h,008h,000h,0E6h,008h,008h,000h
  109.       db   0EEh,008h,008h,000h,0F6h,008h,008h,000h
  110.       db   0FEh,008h,008h,000h,006h,009h,008h,000h
  111.       db   00Eh,009h,008h,000h,016h,009h,008h,000h
  112.       db   01Eh,009h,008h,000h,026h,009h,008h,000h
  113.       db   02Eh,009h,008h,000h,036h,009h,008h,000h
  114.       db   03Eh,009h,008h,000h,046h,009h,008h,000h
  115.       db   04Eh,009h,008h,000h,056h,009h,008h,000h
  116.       db   05Eh,009h,008h,000h,066h,009h,008h,000h
  117.       db   06Eh,009h,008h,000h,076h,009h,008h,000h
  118.       db   07Eh,009h,008h,000h,086h,009h,008h,000h
  119.       db   08Eh,009h,008h,000h,096h,009h,008h,000h
  120.       db   09Eh,009h,008h,000h,0A6h,009h,008h,000h
  121.       db   0AEh,009h,008h,000h,0B6h,009h,008h,000h
  122.       db   0BEh,009h,008h,000h,0C6h,009h,008h,000h
  123.       db   0CEh,009h,008h,000h,0D6h,009h,008h,000h
  124.       db   0DEh,009h,008h,000h,0E6h,009h,008h,000h
  125.       db   0EEh,009h,008h,000h,0F6h,009h,008h,000h
  126.       db   0FEh,009h,008h,000h,006h,00Ah,008h,000h
  127.       db   00Eh,00Ah,008h,000h,016h,00Ah,008h,000h
  128.       db   01Eh,00Ah,008h,000h,026h,00Ah,008h,000h
  129.       db   02Eh,00Ah,008h,000h,036h,00Ah,008h,000h
  130.       db   03Eh,00Ah,008h,000h,046h,00Ah,008h,000h
  131.       db   04Eh,00Ah,008h,000h,056h,00Ah,008h,000h
  132.       db   05Eh,00Ah,008h,000h,066h,00Ah,008h,000h
  133.       db   06Eh,00Ah,008h,000h,076h,00Ah,008h,000h
  134.       db   07Eh,00Ah,008h,000h,086h,00Ah,008h,000h
  135.       db   08Eh,00Ah,008h,000h,096h,00Ah,008h,000h
  136.       db   09Eh,00Ah,008h,000h,0A6h,00Ah,008h,000h
  137.       db   0AEh,00Ah,008h,000h,0B6h,00Ah,008h,000h
  138.       db   0BEh,00Ah,008h,000h,0C6h,00Ah,008h,000h
  139.       db   0CEh,00Ah,008h,000h,0D6h,00Ah,008h,000h
  140.       db   0DEh,00Ah,008h,000h,0E6h,00Ah,008h,000h
  141.       db   0EEh,00Ah,008h,000h,0F6h,00Ah,008h,000h
  142.       db   0FEh,00Ah,008h,000h,006h,00Bh,008h,000h
  143.       db   00Eh,00Bh,008h,000h,016h,00Bh,008h,000h
  144.       db   01Eh,00Bh,008h,000h,026h,00Bh,008h,000h
  145.       db   02Eh,00Bh,008h,000h,036h,00Bh,008h,000h
  146.       db   03Eh,00Bh,008h,000h,046h,00Bh,008h,000h
  147.       db   04Eh,00Bh,008h,000h,056h,00Bh,008h,000h
  148.       db   05Eh,00Bh,008h,000h,066h,00Bh,008h,000h
  149.       db   06Eh,00Bh,008h,000h,076h,00Bh,008h,000h
  150.       db   07Eh,00Bh,008h,000h,086h,00Bh,008h,000h
  151.       db   08Eh,00Bh,008h,000h,096h,00Bh,008h,000h
  152.       db   09Eh,00Bh,008h,000h,0A6h,00Bh,008h,000h
  153.       db   0AEh,00Bh,008h,000h,0B6h,00Bh,008h,000h
  154.       db   0BEh,00Bh,008h,000h,0C6h,00Bh,008h,000h
  155.       db   0CEh,00Bh,008h,000h,0D6h,00Bh,008h,000h
  156.       db   0DEh,00Bh,008h,000h,0E6h,00Bh,008h,000h
  157.       db   0EEh,00Bh,008h,000h,0F6h,00Bh,008h,000h
  158.       db   0FEh,00Bh,008h,000h,006h,00Ch,008h,000h
  159.       db   00Eh,00Ch,008h,000h,016h,00Ch,008h,000h
  160.       db   01Eh,00Ch,008h,000h,026h,00Ch,008h,000h
  161.       db   02Eh,00Ch,008h,000h,036h,00Ch,008h,000h
  162.       db   03Eh,00Ch,008h,000h,046h,00Ch,008h,000h
  163.       db   04Eh,00Ch,008h,000h,056h,00Ch,008h,000h
  164.       db   05Eh,00Ch,008h,000h,066h,00Ch,008h,000h
  165.       db   06Eh,00Ch,008h,000h,076h,00Ch,008h,000h
  166.       db   07Eh,005h,049h,042h,04Dh,000h,000h,000h
  167.       db   000h,000h,000h,000h,000h,000h,07Eh,081h
  168.       db   0A5h,081h,0BDh,099h,081h,07Eh,07Eh,0FFh
  169.       db   0DBh,0FFh,0C3h,0E7h,0FFh,07Eh,06Ch,0FEh
  170.       db   0FEh,0FEh,07Ch,038h,010h,000h,010h,038h
  171.       db   07Ch,0FEh,07Ch,038h,010h,000h,038h,07Ch
  172.       db   038h,0FEh,0FEh,07Ch,038h,07Ch,010h,010h
  173.       db   038h,07Ch,0FEh,07Ch,038h,07Ch,010h,010h
  174.       db   038h,07Ch,0FEh,07Ch,038h,07Ch,0FFh,0FFh
  175.       db   0E7h,0C3h,0C3h,0E7h,0FFh,0FFh,000h,000h
  176.       db   000h,000h,000h,000h,000h,000h,000h,000h
  177.       db   000h,000h,000h,000h,000h,000h,000h,000h
  178.       db   000h,000h,000h,000h,000h,000h,000h,000h
  179.       db   000h,000h,000h,000h,000h,000h,000h,000h
  180.       db   000h,000h,000h,000h,000h,000h,07Fh,063h
  181.       db   07Fh,063h,063h,067h,0E6h,0C0h,099h,05Ah
  182.       db   03Ch,0E7h,0E7h,03Ch,05Ah,099h,080h,0E0h
  183.       db   0F8h,0FEh,0F8h,0E0h,080h,000h,002h,00Eh
  184.       db   03Eh,0FEh,03Eh,00Eh,002h,000h,018h,03Ch
  185.       db   07Eh,018h,018h,07Eh,03Ch,018h,066h,066h
  186.       db   066h,066h,066h,000h,066h,000h,07Fh,0DBh
  187.       db   0DBh,07Bh,01Bh,01Bh,01Bh,000h,03Eh,063h
  188.       db   038h,06Ch,06Ch,038h,0CCh,078h,000h,000h
  189.       db   000h,000h,07Eh,07Eh,07Eh,000h,018h,03Ch
  190.       db   07Eh,018h,07Eh,03Ch,018h,0FFh,018h,03Ch
  191.       db   07Eh,018h,018h,018h,018h,000h,018h,018h
  192.       db   018h,018h,07Eh,03Ch,018h,000h,000h,018h
  193.       db   00Ch,0FEh,00Ch,018h,000h,000h,000h,030h
  194.       db   060h,0FEh,060h,030h,000h,000h,000h,030h
  195.       db   060h,0FEh,060h,030h,000h,000h,000h,030h
  196.       db   060h,0FEh,060h,030h,000h,000h,000h,030h
  197.       db   060h,0FEh,060h,030h,000h,000h,000h,030h
  198.       db   060h,0FEh,060h,030h,000h,000h,000h,000h
  199.       db   000h,000h,000h,000h,000h,000h,030h,078h
  200.       db   078h,030h,030h,000h,030h,000h,06Ch,06Ch
  201.       db   06Ch,000h,000h,000h,000h,000h,06Ch,06Ch
  202.       db   0FEh,06Ch,0FEh,06Ch,06Ch,000h,030h,07Ch
  203.       db   0C0h,078h,00Ch,0F8h,030h,000h,000h,0C6h
  204.       db   0CCh,018h,030h,066h,0C6h,000h,038h,06Ch
  205.       db   038h,076h,0DCh,0CCh,076h,000h,060h,060h
  206.       db   0C0h,000h,000h,000h,000h,000h,018h,030h
  207.       db   060h,060h,060h,030h,018h,000h,060h,030h
  208.       db   018h,018h,018h,030h,060h,000h,000h,066h
  209.       db   03Ch,0FFh,03Ch,066h,000h,000h,000h,030h
  210.       db   030h,0FCh,030h,030h,000h,000h,000h,000h
  211.       db   000h,000h,000h,030h,030h,060h,000h,000h
  212.       db   000h,0FCh,000h,000h,000h,000h,000h,000h
  213.       db   000h,000h,000h,030h,030h,000h,006h,00Ch
  214.       db   018h,030h,060h,0C0h,080h,000h,07Ch,0C6h
  215.       db   0CEh,0DEh,0F6h,0E6h,07Ch,000h,030h,070h
  216.       db   030h,030h,030h,030h,0FCh,000h,078h,0CCh
  217.       db   00Ch,038h,060h,0CCh,0FCh,000h,078h,0CCh
  218.       db   00Ch,038h,00Ch,0CCh,078h,000h,01Ch,03Ch
  219.       db   06Ch,0CCh,0FEh,00Ch,01Eh,000h,0FCh,0C0h
  220.       db   0F8h,00Ch,00Ch,0CCh,078h,000h,038h,060h
  221.       db   0C0h,0F8h,0CCh,0CCh,078h,000h,0FCh,0CCh
  222.       db   00Ch,018h,030h,030h,030h,000h,078h,0CCh
  223.       db   0CCh,078h,0CCh,0CCh,078h,000h,078h,0CCh
  224.       db   0CCh,07Ch,00Ch,018h,070h,000h,000h,030h
  225.       db   030h,000h,000h,030h,030h,000h,000h,030h
  226.       db   030h,000h,000h,030h,030h,060h,018h,030h
  227.       db   060h,0C0h,060h,030h,018h,000h,000h,000h
  228.       db   0FCh,000h,000h,0FCh,000h,000h,060h,030h
  229.       db   018h,00Ch,018h,030h,060h,000h,078h,0CCh
  230.       db   00Ch,018h,030h,000h,030h,000h,07Ch,0C6h
  231.       db   0DEh,0DEh,0DEh,0C0h,078h,000h,030h,078h
  232.       db   0CCh,0CCh,0FCh,0CCh,0CCh,000h,0FCh,066h
  233.       db   066h,07Ch,066h,066h,0FCh,000h,03Ch,066h
  234.       db   0C0h,0C0h,0C0h,066h,03Ch,000h,0F8h,06Ch
  235.       db   066h,066h,066h,06Ch,0F8h,000h,0FEh,062h
  236.       db   068h,078h,068h,062h,0FEh,000h,0FEh,062h
  237.       db   068h,078h,068h,060h,0F0h,000h,03Ch,066h
  238.       db   0C0h,0C0h,0CEh,066h,03Eh,000h,0CCh,0CCh
  239.       db   0CCh,0FCh,0CCh,0CCh,0CCh,000h,078h,030h
  240.       db   030h,030h,030h,030h,078h,000h,01Eh,00Ch
  241.       db   00Ch,00Ch,0CCh,0CCh,078h,000h,0E6h,066h
  242.       db   06Ch,078h,06Ch,066h,0E6h,000h,0F0h,060h
  243.       db   060h,060h,062h,066h,0FEh,000h,0C6h,0EEh
  244.       db   0FEh,0FEh,0D6h,0C6h,0C6h,000h,0C6h,0E6h
  245.       db   0F6h,0DEh,0CEh,0C6h,0C6h,000h,038h,06Ch
  246.       db   0C6h,0C6h,0C6h,06Ch,038h,000h,0FCh,066h
  247.       db   066h,07Ch,060h,060h,0F0h,000h,078h,0CCh
  248.       db   0CCh,0CCh,0DCh,078h,01Ch,000h,0FCh,066h
  249.       db   066h,07Ch,06Ch,066h,0E6h,000h,078h,0CCh
  250.       db   0E0h,070h,01Ch,0CCh,078h,000h,0FCh,0B4h
  251.       db   030h,030h,030h,030h,078h,000h,0CCh,0CCh
  252.       db   0CCh,0CCh,0CCh,0CCh,0FCh,000h,0CCh,0CCh
  253.       db   0CCh,0CCh,0CCh,078h,030h,000h,0C6h,0C6h
  254.       db   0C6h,0D6h,0FEh,0EEh,0C6h,000h,0C6h,0C6h
  255.       db   06Ch,038h,038h,06Ch,0C6h,000h,0CCh,0CCh
  256.       db   0CCh,078h,030h,030h,078h,000h,0FEh,0C6h
  257.       db   08Ch,018h,032h,066h,0FEh,000h,078h,060h
  258.       db   060h,060h,060h,060h,078h,000h,0C0h,060h
  259.       db   030h,018h,00Ch,006h,002h,000h,078h,018h
  260.       db   018h,018h,018h,018h,078h,000h,010h,038h
  261.       db   06Ch,0C6h,000h,000h,000h,000h,000h,000h
  262.       db   000h,000h,000h,000h,000h,0FFh,030h,030h
  263.       db   018h,000h,000h,000h,000h,000h,000h,000h
  264.       db   078h,00Ch,07Ch,0CCh,076h,000h,0E0h,060h
  265.       db   060h,07Ch,066h,066h,0DCh,000h,000h,000h
  266.       db   078h,0CCh,0C0h,0CCh,078h,000h,01Ch,00Ch
  267.       db   00Ch,07Ch,0CCh,0CCh,076h,000h,000h,000h
  268.       db   078h,0CCh,0FCh,0C0h,078h,000h,038h,06Ch
  269.       db   060h,0F0h,060h,060h,0F0h,000h,000h,000h
  270.       db   076h,0CCh,0CCh,07Ch,00Ch,0F8h,0E0h,060h
  271.       db   06Ch,076h,066h,066h,0E6h,000h,030h,000h
  272.       db   070h,030h,030h,030h,078h,000h,00Ch,000h
  273.       db   00Ch,00Ch,00Ch,0CCh,0CCh,078h,0E0h,060h
  274.       db   066h,06Ch,078h,06Ch,0E6h,000h,070h,030h
  275.       db   030h,030h,030h,030h,078h,000h,000h,000h
  276.       db   0CCh,0FEh,0FEh,0D6h,0C6h,000h,000h,000h
  277.       db   0F8h,0CCh,0CCh,0CCh,0CCh,000h,000h,000h
  278.       db   078h,0CCh,0CCh,0CCh,078h,000h,000h,000h
  279.       db   0DCh,066h,066h,07Ch,060h,0F0h,000h,000h
  280.       db   076h,0CCh,0CCh,07Ch,00Ch,01Eh,000h,000h
  281.       db   0DCh,076h,066h,060h,0F0h,000h,000h,000h
  282.       db   07Ch,0C0h,078h,00Ch,0F8h,000h,010h,030h
  283.       db   07Ch,030h,030h,034h,018h,000h,000h,000h
  284.       db   0CCh,0CCh,0CCh,0CCh,076h,000h,000h,000h
  285.       db   0CCh,0CCh,0CCh,078h,030h,000h,000h,000h
  286.       db   0C6h,0D6h,0FEh,0FEh,06Ch,000h,000h,000h
  287.       db   0C6h,06Ch,038h,06Ch,0C6h,000h,000h,000h
  288.       db   0CCh,0CCh,0CCh,07Ch,00Ch,0F8h,000h,000h
  289.       db   0FCh,098h,030h,064h,0FCh,000h,01Ch,030h
  290.       db   030h,0E0h,030h,030h,01Ch,000h,018h,018h
  291.       db   018h,000h,018h,018h,018h,000h,0E0h,030h
  292.       db   030h,01Ch,030h,030h,0E0h,000h,076h,0DCh
  293.       db   000h,000h,000h,000h,000h,000h,000h,010h
  294.       db   038h,06Ch,0C6h,0C6h,0FEh,000h,078h,0CCh
  295.       db   0C0h,0CCh,078h,018h,00Ch,078h,000h,0CCh
  296.       db   000h,0CCh,0CCh,0CCh,07Eh,000h,01Ch,000h
  297.       db   078h,0CCh,0FCh,0C0h,078h,000h,07Eh,0C3h
  298.       db   03Ch,006h,03Eh,066h,03Fh,000h,0CCh,000h
  299.       db   078h,00Ch,07Ch,0CCh,07Eh,000h,0E0h,000h
  300.       db   078h,00Ch,07Ch,0CCh,07Eh,000h,030h,030h
  301.       db   078h,00Ch,07Ch,0CCh,07Eh,000h,000h,000h
  302.       db   078h,0C0h,0C0h,078h,00Ch,038h,07Eh,0C3h
  303.       db   03Ch,066h,07Eh,060h,03Ch,000h,0CCh,000h
  304.       db   078h,0CCh,0FCh,0C0h,078h,000h,0E0h,000h
  305.       db   078h,0CCh,0FCh,0C0h,078h,000h,0CCh,000h
  306.       db   070h,030h,030h,030h,078h,000h,07Ch,0C6h
  307.       db   038h,018h,018h,018h,03Ch,000h,0E0h,000h
  308.       db   070h,030h,030h,030h,078h,000h,0C6h,038h
  309.       db   06Ch,0C6h,0FEh,0C6h,0C6h,000h,030h,030h
  310.       db   000h,078h,0CCh,0FCh,0CCh,000h,01Ch,000h
  311.       db   0FCh,060h,078h,060h,0FCh,000h,000h,000h
  312.       db   07Fh,00Ch,07Fh,0CCh,07Fh,000h,03Eh,06Ch
  313.       db   0CCh,0FEh,0CCh,0CCh,0CEh,000h,078h,0CCh
  314.       db   000h,078h,0CCh,0CCh,078h,000h,000h,0CCh
  315.       db   000h,078h,0CCh,0CCh,078h,000h,000h,0E0h
  316.       db   000h,078h,0CCh,0CCh,078h,000h,078h,0CCh
  317.       db   000h,0CCh,0CCh,0CCh,07Eh,000h,000h,0E0h
  318.       db   000h,0CCh,0CCh,0CCh,07Eh,000h,000h,0CCh
  319.       db   000h,0CCh,0CCh,07Ch,00Ch,0F8h,0C3h,018h
  320.       db   03Ch,066h,066h,03Ch,018h,000h,0CCh,000h
  321.       db   0CCh,0CCh,0CCh,0CCh,078h,000h,018h,018h
  322.       db   07Eh,0C0h,0C0h,07Eh,018h,018h,038h,06Ch
  323.       db   064h,0F0h,060h,0E6h,0FCh,000h,0CCh,0CCh
  324.       db   078h,0FCh,030h,0FCh,030h,030h,0F8h,0CCh
  325.       db   0CCh,0FAh,0C6h,0CFh,0C6h,0C7h,00Eh,01Bh
  326.       db   018h,03Ch,018h,018h,0D8h,070h,01Ch,000h
  327.       db   078h,00Ch,07Ch,0CCh,07Eh,000h,038h,000h
  328.       db   070h,030h,030h,030h,078h,000h,000h,01Ch
  329.       db   000h,078h,0CCh,0CCh,078h,000h,000h,01Ch
  330.       db   000h,0CCh,0CCh,0CCh,07Eh,000h,000h,0F8h
  331.       db   000h,0F8h,0CCh,0CCh,0CCh,000h,0FCh,000h
  332.       db   0CCh,0ECh,0FCh,0DCh,0CCh,000h,03Ch,06Ch
  333.       db   06Ch,03Eh,000h,07Eh,000h,000h,038h,06Ch
  334.       db   06Ch,038h,000h,07Ch,000h,000h,030h,000h
  335.       db   030h,060h,0C0h,0CCh,078h,000h,000h,000h
  336.       db   000h,0FCh,0C0h,0C0h,000h,000h,000h,000h
  337.       db   000h,0FCh,00Ch,00Ch,000h,000h,0C3h,0C6h
  338.       db   0CCh,0DEh,033h,066h,0CCh,00Fh,0C3h,0C6h
  339.       db   0CCh,0DBh,037h,06Fh,0CFh,003h,018h,018h
  340.       db   000h,018h,018h,018h,018h,000h,000h,033h
  341.       db   066h,0CCh,066h,033h,000h,000h,000h,0CCh
  342.       db   066h,033h,066h,0CCh,000h,000h,022h,088h
  343.       db   022h,088h,022h,088h,022h,088h,055h,0AAh
  344.       db   055h,0AAh,055h,0AAh,055h,0AAh,0DBh,077h
  345.       db   0DBh,0EEh,0DBh,077h,0DBh,0EEh,018h,018h
  346.       db   018h,018h,018h,018h,018h,018h,018h,018h
  347.       db   018h,018h,0F8h,018h,018h,018h,018h,018h
  348.       db   0F8h,018h,0F8h,018h,018h,018h,036h,036h
  349.       db   036h,036h,0F6h,036h,036h,036h,000h,000h
  350.       db   000h,000h,0FEh,036h,036h,036h,000h,000h
  351.       db   0F8h,018h,0F8h,018h,018h,018h,036h,036h
  352.       db   0F6h,006h,0F6h,036h,036h,036h,036h,036h
  353.       db   036h,036h,036h,036h,036h,036h,000h,000h
  354.       db   0FEh,006h,0F6h,036h,036h,036h,036h,036h
  355.       db   0F6h,006h,0FEh,000h,000h,000h,036h,036h
  356.       db   036h,036h,0FEh,000h,000h,000h,018h,018h
  357.       db   0F8h,018h,0F8h,000h,000h,000h,000h,000h
  358.       db   000h,000h,0F8h,018h,018h,018h,018h,018h
  359.       db   018h,018h,01Fh,000h,000h,000h,018h,018h
  360.       db   018h,018h,0FFh,000h,000h,000h,000h,000h
  361.       db   000h,000h,0FFh,018h,018h,018h,018h,018h
  362.       db   018h,018h,01Fh,018h,018h,018h,000h,000h
  363.       db   000h,000h,0FFh,000h,000h,000h,018h,018h
  364.       db   018h,018h,0FFh,018h,018h,018h,018h,018h
  365.       db   01Fh,018h,01Fh,018h,018h,018h,036h,036h
  366.       db   036h,036h,037h,036h,036h,036h,036h,036h
  367.       db   037h,030h,03Fh,000h,000h,000h,000h,000h
  368.       db   03Fh,030h,037h,036h,036h,036h,036h,036h
  369.       db   0F7h,000h,0FFh,000h,000h,000h,000h,000h
  370.       db   0FFh,000h,0F7h,036h,036h,036h,036h,036h
  371.       db   037h,030h,037h,036h,036h,036h,000h,000h
  372.       db   0FFh,000h,0FFh,000h,000h,000h,036h,036h
  373.       db   0F7h,000h,0F7h,036h,036h,036h,018h,018h
  374.       db   0FFh,000h,0FFh,000h,000h,000h,036h,036h
  375.       db   036h,036h,0FFh,000h,000h,000h,000h,000h
  376.       db   0FFh,000h,0FFh,018h,018h,018h,000h,000h
  377.       db   000h,000h,0FFh,036h,036h,036h,036h,036h
  378.       db   036h,036h,03Fh,000h,000h,000h,018h,018h
  379.       db   01Fh,018h,01Fh,000h,000h,000h,000h,000h
  380.       db   01Fh,018h,01Fh,018h,018h,018h,000h,000h
  381.       db   000h,000h,03Fh,036h,036h,036h,036h,036h
  382.       db   036h,036h,0FFh,036h,036h,036h,018h,018h
  383.       db   0FFh,018h,0FFh,018h,018h,018h,018h,018h
  384.       db   018h,018h,0F8h,000h,000h,000h,000h,000h
  385.       db   000h,000h,01Fh,018h,018h,018h,0FFh,0FFh
  386.       db   0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,000h,000h
  387.       db   000h,000h,0FFh,0FFh,0FFh,0FFh,0F0h,0F0h
  388.       db   0F0h,0F0h,0F0h,0F0h,0F0h,0F0h,00Fh,00Fh
  389.       db   00Fh,00Fh,00Fh,00Fh,00Fh,00Fh,0FFh,0FFh
  390.       db   0FFh,0FFh,000h,000h,000h,000h,000h,000h
  391.       db   076h,0DCh,0C8h,0DCh,076h,000h,000h,078h
  392.       db   0CCh,0F8h,0CCh,0F8h,0C0h,0C0h,000h,0FCh
  393.       db   0CCh,0C0h,0C0h,0C0h,0C0h,000h,000h,0FEh
  394.       db   06Ch,06Ch,06Ch,06Ch,06Ch,000h,0FCh,0CCh
  395.       db   060h,030h,060h,0CCh,0FCh,000h,000h,000h
  396.       db   07Eh,0D8h,0D8h,0D8h,070h,000h,000h,066h
  397.       db   066h,066h,066h,07Ch,060h,0C0h,000h,076h
  398.       db   0DCh,018h,018h,018h,018h,000h,0FCh,030h
  399.       db   078h,0CCh,0CCh,078h,030h,0FCh,038h,06Ch
  400.       db   0C6h,0FEh,0C6h,06Ch,038h,000h,038h,06Ch
  401.       db   0C6h,0C6h,06Ch,06Ch,0EEh,000h,01Ch,030h
  402.       db   018h,07Ch,0CCh,0CCh,078h,000h,000h,000h
  403.       db   07Eh,0DBh,0DBh,07Eh,000h,000h,006h,00Ch
  404.       db   07Eh,0DBh,0DBh,07Eh,060h,0C0h,038h,060h
  405.       db   0C0h,0F8h,0C0h,060h,038h,000h,078h,0CCh
  406.       db   0CCh,0CCh,0CCh,0CCh,0CCh,000h,000h,0FCh
  407.       db   000h,0FCh,000h,0FCh,000h,000h,030h,030h
  408.       db   0FCh,030h,030h,000h,0FCh,000h,060h,030h
  409.       db   018h,030h,060h,000h,0FCh,000h,018h,030h
  410.       db   060h,030h,018h,000h,0FCh,000h,00Eh,01Bh
  411.       db   01Bh,018h,018h,018h,018h,018h,018h,018h
  412.       db   018h,018h,018h,0D8h,0D8h,070h,030h,030h
  413.       db   000h,0FCh,000h,030h,030h,000h,000h,076h
  414.       db   0DCh,000h,076h,0DCh,000h,000h,038h,06Ch
  415.       db   06Ch,038h,000h,000h,000h,000h,000h,000h
  416.       db   000h,018h,018h,000h,000h,000h,000h,000h
  417.       db   000h,000h,018h,000h,000h,000h,00Fh,00Ch
  418.       db   00Ch,00Ch,0ECh,06Ch,03Ch,01Ch,078h,06Ch
  419.       db   06Ch,06Ch,06Ch,000h,000h,000h,070h,018h
  420.       db   030h,060h,078h,000h,000h,000h,000h,000h
  421.       db   03Ch,03Ch,03Ch,03Ch,000h,000h,000h,000h
  422.       db   000h,000h,000h,000h,000h,000h
  423.  
  424. ;=====End of Font
  425.  
  426. .CODE
  427.  
  428. ;********************************************************
  429. ;DefaultFont - Returns the Segment:Offset address of the
  430. ;          default font
  431. ;
  432. ; DefaultFont Segment%, Offset%
  433.  
  434. PUBLIC DEFAULTFONT
  435. DefaultFont PROC
  436.    push  bp
  437.    mov   bp,sp
  438.  
  439.    les   bx,[bp+10]     ;put address of first arg in es:si
  440.    mov   es:[bx],SEG _IBM8_def  ;move segment address to first arg of call
  441.  
  442.    les   bx,[bp+6]      ;repeat above for offset address of font
  443.    mov   word ptr es:[bx],OFFSET _IBM8_def
  444.  
  445.    pop   bp
  446.    ret   8
  447. DefaultFont ENDP
  448.  
  449.       END
  450.  
  451.