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