home *** CD-ROM | disk | FTP | other *** search
/ Gambler 19 / GAMBLERCD19.BIN / UTILS / DDTPACK / PROGS / FM-EXT / SOURCE / FONT.ASM < prev    next >
Assembly Source File  |  1995-09-20  |  13KB  |  233 lines
  1. code        segment word public
  2.         assume cs:code
  3.  
  4.         Public Setfont
  5.  
  6. Setfont    Proc    far
  7.     push    bp
  8.     push     es
  9.     mov    ax,offset lettertype
  10.     mov    bp,ax
  11.     mov    ax,cs
  12.     mov    es,ax
  13.     mov    ax,1110h
  14.     mov    bh,10h
  15.     xor    bl,bl
  16.     mov    cx,100h
  17.     xor    dx,dx
  18.     int    10h
  19.     pop    es
  20.     pop    bp
  21.     ret
  22.  
  23. Setfont    Endp
  24.  
  25. lettertype:
  26.  DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,126,67
  27.  DB 193,181,129,165,157,217,99,62,0,0,0,0,0,0,126,127,255,203,255,219
  28.  DB 195,231,127,62,0,0,0,0,0,0,0,0,108,254,254,254,254,124,56,16
  29.  DB 0,0,0,0,0,0,0,0,16,56,124,254,124,56,16,0,0,0,0,0
  30.  DB 0,0,0,24,60,60,255,255,255,48,48,120,0,0,0,0,0,0,0,24
  31.  DB 60,126,255,255,126,28,28,62,0,0,0,0,0,0,0,0,0,0,24,60
  32.  DB 60,28,0,0,0,0,0,0,255,255,255,255,255,255,231,195,195,227,255,255
  33.  DB 255,255,255,255,0,0,0,0,0,60,102,66,66,98,62,0,0,0,0,0
  34.  DB 255,255,255,255,255,195,153,189,189,157,193,255,255,255,255,255,0,31,7,13
  35.  DB 25,120,204,134,130,130,198,124,0,0,0,0,0,0,120,204,134,130,130,198
  36.  DB 124,16,16,124,32,32,32,0,0,7,29,19,30,16,16,48,32,32,96,96
  37.  DB 96,0,0,0,0,7,61,51,47,57,33,35,98,70,198,198,192,0,0,0
  38.  DB 0,0,0,8,138,84,56,214,56,84,162,32,0,0,0,0,0,0,96,112
  39.  DB 120,124,126,126,124,120,112,96,0,0,0,0,0,0,6,14,30,62,126,126
  40.  DB 62,30,14,6,0,0,0,0,0,16,56,60,126,12,24,24,62,60,28,8
  41.  DB 0,0,0,0,0,0,36,36,36,36,36,108,72,72,0,0,108,108,0,0
  42.  DB 0,0,15,58,234,138,143,221,117,5,5,5,5,4,0,0,28,36,68,96
  43.  DB 48,120,204,134,130,198,124,48,24,136,144,224,0,0,0,0,0,0,0,0
  44.  DB 126,254,254,254,0,0,0,0,0,16,56,60,126,12,24,24,62,60,28,8
  45.  DB 31,240,0,0,0,0,24,60,126,24,24,24,48,48,48,48,0,0,0,0
  46.  DB 0,0,12,12,12,12,24,24,24,126,60,24,0,0,0,0,0,0,0,0
  47.  DB 16,24,204,126,12,24,0,0,0,0,0,0,0,0,0,0,0,48,103,252
  48.  DB 96,48,24,0,0,0,0,0,0,0,0,0,0,0,192,192,207,248,0,0
  49.  DB 0,0,0,0,0,0,0,32,100,230,255,103,38,4,0,0,0,0,0,0
  50.  DB 0,0,0,0,0,24,60,126,255,255,0,0,0,0,0,0,0,0,0,0
  51.  DB 0,255,255,126,60,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  52.  DB 0,0,0,0,0,0,0,0,0,0,8,8,8,8,8,24,16,16,0,0
  53.  DB 24,24,0,0,0,36,100,76,72,0,0,0,0,0,0,0,0,0,0,0
  54.  DB 0,0,18,18,50,63,230,100,127,228,68,68,0,0,0,0,16,16,124,215
  55.  DB 144,200,124,14,11,137,211,126,16,16,0,0,0,97,147,146,102,4,12,24
  56.  DB 16,54,105,201,135,0,0,0,0,60,66,66,64,112,192,128,143,136,248,0
  57.  DB 0,0,0,0,0,32,32,64,64,0,0,0,0,0,0,0,0,0,0,0
  58.  DB 0,0,8,24,48,32,32,32,32,48,16,24,8,0,0,0,0,0,48,24
  59.  DB 8,12,4,4,4,4,4,12,56,0,0,0,0,0,0,0,0,103,60,255
  60.  DB 60,230,0,0,0,0,0,0,0,0,0,0,0,8,8,126,16,16,0,0
  61.  DB 0,0,0,0,0,0,0,0,0,0,0,0,0,8,8,24,48,0,0,0
  62.  DB 0,0,0,0,0,0,0,14,120,0,0,0,0,0,0,0,0,0,0,0
  63.  DB 0,0,0,0,0,16,24,56,0,0,0,0,0,0,2,2,6,4,12,24
  64.  DB 16,48,32,96,192,0,0,0,0,0,126,195,135,141,137,153,177,163,230,124
  65.  DB 0,0,0,0,0,0,0,8,24,56,104,8,8,8,8,8,0,0,0,0
  66.  DB 0,0,60,102,2,2,6,4,12,24,48,127,0,0,0,0,0,0,254,6
  67.  DB 12,24,60,6,2,2,198,124,0,0,0,0,0,0,4,12,28,52,100,196
  68.  DB 255,2,2,2,0,0,0,0,0,0,15,120,192,64,124,6,2,2,198,124
  69.  DB 0,0,0,0,0,60,102,192,128,248,204,134,130,198,124,0,0,0,0,0
  70.  DB 0,0,31,243,2,6,4,12,8,8,24,16,48,32,0,0,0,0,124,198
  71.  DB 131,129,195,126,195,129,129,195,126,0,0,0,0,0,58,110,194,130,206,122
  72.  DB 6,4,4,4,12,8,0,0,0,0,0,0,8,24,0,0,0,8,24,0
  73.  DB 0,0,0,0,0,0,0,0,8,24,0,0,0,8,8,24,48,0,0,0
  74.  DB 0,0,0,0,6,28,48,96,96,48,24,12,6,0,0,0,0,0,0,0
  75.  DB 0,14,120,0,14,120,0,0,0,0,0,0,0,0,0,0,96,48,24,12
  76.  DB 6,6,12,56,96,0,0,0,0,0,124,198,130,2,6,12,24,16,16,0
  77.  DB 24,24,0,0,0,0,62,99,65,193,159,145,145,142,128,131,126,0,0,0
  78.  DB 0,0,0,16,24,56,44,36,46,122,66,67,193,128,0,0,0,0,0,16
  79.  DB 252,134,130,140,250,131,129,195,254,0,0,0,0,0,0,126,192,128,128,128
  80.  DB 128,128,227,62,0,0,0,0,0,0,28,246,130,131,129,193,65,67,70,92
  81.  DB 112,0,0,0,0,7,252,192,128,188,224,128,128,128,143,248,0,0,0,0
  82.  DB 0,0,7,124,64,64,204,248,128,128,128,128,0,0,0,0,0,0,60,102
  83.  DB 66,192,128,158,130,198,124,0,0,0,0,0,0,0,66,66,66,70,76,244
  84.  DB 132,132,132,132,0,0,0,0,0,0,8,8,8,8,24,24,16,16,16,16
  85.  DB 0,0,0,0,0,0,4,4,4,4,4,4,12,136,216,112,0,0,0,0
  86.  DB 0,0,64,65,71,92,112,224,176,152,140,134,131,0,0,0,0,0,64,64
  87.  DB 64,64,192,128,128,159,240,0,0,0,0,0,0,0,67,103,125,89,65,195
  88.  DB 130,130,130,130,0,0,0,0,0,0,66,98,98,98,118,212,148,148,156,136
  89.  DB 0,0,0,0,0,0,126,67,193,129,129,129,129,193,99,62,0,0,0,0
  90.  DB 0,0,112,92,71,65,225,187,142,128,128,128,0,0,0,0,0,0,62,99
  91.  DB 193,129,129,129,129,153,143,206,123,1,1,0,0,0,126,67,65,65,71,124
  92.  DB 196,132,134,131,0,0,0,0,0,0,124,199,128,192,124,6,3,129,195,126
  93.  DB 0,0,0,0,0,0,0,63,232,8,8,8,24,16,16,16,0,0,0,0
  94.  DB 0,0,65,65,65,195,130,130,130,194,102,60,0,0,0,0,0,0,0,129
  95.  DB 131,194,70,100,44,56,24,16,0,0,0,0,0,0,129,129,129,201,73,73
  96.  DB 105,59,62,38,0,0,0,0,0,0,129,195,102,60,24,28,52,102,194,131
  97.  DB 0,0,0,0,0,0,129,195,102,52,28,24,8,8,8,8,8,0,0,0
  98.  DB 0,0,254,6,12,8,24,48,96,192,127,0,0,0,0,0,0,0,62,48
  99.  DB 48,48,48,96,96,96,96,124,0,0,0,0,0,0,128,192,64,96,48,24
  100.  DB 12,6,2,2,0,0,0,0,0,0,60,12,12,12,12,24,24,24,24,120
  101.  DB 0,0,0,0,24,20,36,66,0,0,0,0,0,0,0,0,0,0,0,0
  102.  DB 0,0,0,0,0,0,0,0,0,0,0,0,62,227,0,0,0,64,64,32
  103.  DB 32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,56,110,194
  104.  DB 130,198,100,63,0,0,0,0,0,64,64,64,64,64,124,198,130,130,134,252
  105.  DB 0,0,0,0,0,0,0,0,126,64,192,128,128,192,126,0,0,0,0,0
  106.  DB 0,0,0,2,2,2,114,222,134,132,132,228,60,0,0,0,0,0,0,0
  107.  DB 0,124,194,134,252,128,198,124,0,0,0,0,0,0,12,8,24,16,28,48
  108.  DB 80,16,16,16,16,0,0,0,0,0,0,0,122,202,134,130,194,126,2,2
  109.  DB 2,134,252,0,0,64,64,64,64,192,184,236,196,132,132,134,3,0,0,0
  110.  DB 0,0,8,8,0,8,8,24,24,16,16,16,0,0,0,0,0,0,4,4
  111.  DB 0,4,4,4,4,4,4,4,108,56,0,0,0,64,64,64,64,76,216,176
  112.  DB 224,152,140,132,0,0,0,0,0,0,8,8,8,8,24,16,16,16,24,12
  113.  DB 0,0,0,0,0,0,0,0,0,188,246,146,146,146,146,146,0,0,0,0
  114.  DB 0,0,0,0,0,92,118,66,66,66,66,66,0,0,0,0,0,0,0,0
  115.  DB 0,120,204,134,130,130,198,124,0,0,0,0,0,0,0,0,0,94,115,65
  116.  DB 65,67,230,188,128,128,128,0,0,0,0,0,0,122,206,130,130,194,126,4
  117.  DB 4,4,4,0,0,0,0,0,0,0,188,231,192,128,128,128,128,0,0,0
  118.  DB 0,0,0,0,0,0,124,194,120,12,6,196,120,0,0,0,0,0,32,32
  119.  DB 32,32,224,92,64,64,64,96,62,0,0,0,0,0,0,0,66,66,66,66
  120.  DB 66,66,103,61,0,0,0,0,0,0,0,0,0,194,66,102,36,36,36,60
  121.  DB 24,0,0,0,0,0,0,0,129,129,145,145,153,203,110,56,0,0,0,0
  122.  DB 0,0,0,0,0,0,130,230,60,28,22,51,97,0,0,0,0,0,0,0
  123.  DB 0,68,70,66,66,102,62,2,2,14,120,0,0,0,0,0,0,255,2,6
  124.  DB 12,24,112,255,0,0,0,0,0,0,14,24,24,24,112,48,48,48,48,28
  125.  DB 0,0,0,0,0,0,24,24,24,24,24,56,48,48,48,48,48,48,0,0
  126.  DB 0,0,56,12,12,12,14,24,24,24,24,112,0,0,0,0,0,96,118,220
  127.  DB 12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,56,108,66
  128.  DB 194,198,254,0,0,0,0,0,0,0,0,126,192,128,128,128,128,128,227,62
  129.  DB 24,12,120,0,0,6,96,0,66,66,66,66,66,66,103,61,0,0,0,0
  130.  DB 6,4,24,32,0,124,194,134,252,128,198,124,0,0,0,0,24,20,36,66
  131.  DB 0,56,110,194,130,198,100,63,0,0,0,0,0,6,96,0,0,56,110,194
  132.  DB 130,198,100,63,0,0,0,0,96,32,24,4,0,56,110,194,130,198,100,63
  133.  DB 0,0,0,0,124,66,60,0,0,56,110,194,130,198,100,63,0,0,0,0
  134.  DB 0,0,0,0,126,64,192,128,128,192,126,24,12,120,0,0,24,20,36,66
  135.  DB 0,124,194,134,252,128,198,124,0,0,0,0,0,6,96,0,0,124,194,134
  136.  DB 252,128,198,124,0,0,0,0,96,32,24,4,0,124,194,134,252,128,198,124
  137.  DB 0,0,0,0,0,0,36,36,0,8,8,24,24,16,16,16,0,0,0,0
  138.  DB 24,20,36,66,0,8,8,24,24,16,16,16,0,0,0,0,96,32,24,4
  139.  DB 0,8,8,24,24,16,16,16,0,0,0,0,0,96,6,16,24,56,44,36
  140.  DB 46,122,66,67,193,128,0,0,56,68,56,16,24,56,44,36,46,122,66,67
  141.  DB 193,128,0,0,24,20,38,64,7,252,192,128,188,224,128,128,128,143,248,0
  142.  DB 0,0,0,0,0,238,187,25,126,216,137,119,0,0,0,0,0,0,63,73
  143.  DB 200,136,143,252,200,136,137,143,0,0,0,0,24,20,36,66,0,120,204,134
  144.  DB 130,130,198,124,0,0,0,0,0,6,96,0,0,120,204,134,130,130,198,124
  145.  DB 0,0,0,0,96,32,24,4,0,120,204,134,130,130,198,124,0,0,0,0
  146.  DB 48,40,70,0,66,66,66,66,66,66,103,61,0,0,0,0,96,56,6,0
  147.  DB 66,66,66,66,66,66,103,61,0,0,0,0,0,6,96,0,0,68,70,66
  148.  DB 66,102,62,2,2,14,120,0,99,0,126,67,193,129,129,129,129,193,99,62
  149.  DB 0,0,0,0,99,0,65,65,65,195,130,130,130,194,102,60,0,0,0,0
  150.  DB 0,8,8,8,126,72,200,136,144,208,126,16,16,16,0,0,0,28,34,34
  151.  DB 32,240,96,64,64,95,240,0,0,0,0,0,0,0,129,195,102,52,28,24
  152.  DB 11,60,8,62,8,8,0,0,112,92,71,65,225,187,143,136,136,136,184,151
  153.  DB 16,16,14,0,0,0,12,8,24,16,28,48,80,16,16,48,32,96,0,0
  154.  DB 6,4,24,32,0,56,110,194,130,198,100,63,0,0,0,0,6,4,24,32
  155.  DB 0,8,8,24,24,16,16,16,0,0,0,0,6,4,24,32,0,120,204,134
  156.  DB 130,130,198,124,0,0,0,0,6,12,48,0,66,66,66,66,66,66,103,61
  157.  DB 0,0,0,0,0,54,204,0,0,92,118,66,66,66,66,66,0,0,0,0
  158.  DB 0,27,102,0,66,66,98,102,116,212,148,148,148,136,0,0,0,60,100,108
  159.  DB 62,0,112,14,0,0,0,0,0,0,0,0,0,56,100,76,56,0,112,12
  160.  DB 0,0,0,0,0,0,0,0,0,0,24,24,0,8,8,24,48,96,64,65
  161.  DB 99,62,0,0,0,0,0,0,0,15,252,192,192,192,192,0,0,0,0,0
  162.  DB 0,0,0,0,0,240,30,6,6,6,6,0,0,0,0,0,32,96,32,33
  163.  DB 39,4,28,56,96,206,139,6,12,15,0,0,32,96,32,33,39,4,28,56
  164.  DB 98,202,138,31,6,2,0,0,0,24,24,0,0,8,8,24,16,16,16,16
  165.  DB 16,0,0,0,0,0,0,0,24,54,108,216,108,54,3,0,0,0,0,0
  166.  DB 0,0,0,0,192,108,54,27,54,108,24,0,0,0,0,0,17,68,17,68
  167.  DB 17,68,17,68,17,68,17,68,17,68,17,68,85,170,85,170,85,170,85,170
  168.  DB 85,170,85,170,85,170,85,170,221,119,221,119,221,119,221,119,221,119,221,119
  169.  DB 221,119,221,119,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24
  170.  DB 24,24,24,24,24,24,24,24,248,24,24,24,24,24,24,24,24,24,24,24
  171.  DB 24,24,248,248,248,24,24,24,24,24,24,24,60,60,60,60,60,60,60,60
  172.  DB 252,60,60,60,60,60,60,60,0,0,0,0,0,0,0,0,252,60,60,60
  173.  DB 60,60,60,60,0,0,0,0,0,0,248,248,248,24,24,24,24,24,24,24
  174.  DB 60,60,60,60,60,60,252,252,252,60,60,60,60,60,60,60,60,60,60,60
  175.  DB 60,60,60,60,60,60,60,60,60,60,60,60,0,0,0,0,0,0,252,252
  176.  DB 252,60,60,60,60,60,60,60,60,60,60,60,60,60,252,252,252,0,0,0
  177.  DB 0,0,0,0,60,60,60,60,60,60,60,60,252,0,0,0,0,0,0,0
  178.  DB 24,24,24,24,24,24,248,248,248,0,0,0,0,0,0,0,0,0,0,0
  179.  DB 0,0,0,0,248,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24
  180.  DB 31,0,0,0,0,0,0,0,24,24,24,24,24,24,24,24,255,0,0,0
  181.  DB 0,0,0,0,0,0,0,0,0,0,0,0,255,24,24,24,24,24,24,24
  182.  DB 24,24,24,24,24,24,24,24,31,24,24,24,24,24,24,24,0,0,0,0
  183.  DB 0,0,0,0,255,0,0,0,0,0,0,0,24,24,24,24,24,24,24,24
  184.  DB 255,24,24,24,24,24,24,24,24,24,24,24,24,24,31,31,31,24,24,24
  185.  DB 24,24,24,24,60,60,60,60,60,60,60,60,63,60,60,60,60,60,60,60
  186.  DB 60,60,60,60,60,60,63,63,63,0,0,0,0,0,0,0,0,0,0,0
  187.  DB 0,0,63,63,63,60,60,60,60,60,60,60,60,60,60,60,60,60,255,255
  188.  DB 255,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,60,60,60
  189.  DB 60,60,60,60,60,60,60,60,60,60,63,63,63,60,60,60,60,60,60,60
  190.  DB 0,0,0,0,0,0,255,255,255,0,0,0,0,0,0,0,60,60,60,60
  191.  DB 60,60,255,255,255,60,60,60,60,60,60,60,24,24,24,24,24,24,255,255
  192.  DB 255,0,0,0,0,0,0,0,60,60,60,60,60,60,60,60,255,0,0,0
  193.  DB 0,0,0,0,0,0,0,0,0,0,255,255,255,24,24,24,24,24,24,24
  194.  DB 0,0,0,0,0,0,0,0,255,60,60,60,60,60,60,60,60,60,60,60
  195.  DB 60,60,60,60,63,0,0,0,0,0,0,0,24,24,24,24,24,24,31,31
  196.  DB 31,0,0,0,0,0,0,0,0,0,0,0,0,0,31,31,31,24,24,24
  197.  DB 24,24,24,24,0,0,0,0,0,0,0,0,63,60,60,60,60,60,60,60
  198.  DB 60,60,60,60,60,60,60,60,255,60,60,60,60,60,60,60,24,24,24,24
  199.  DB 24,24,255,255,255,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24
  200.  DB 248,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,31,24,24,24
  201.  DB 24,24,24,24,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255
  202.  DB 0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,255,240,240,240,240
  203.  DB 240,240,240,240,240,240,240,240,240,240,240,240,15,15,15,15,15,15,15,15
  204.  DB 15,15,15,15,15,15,15,15,255,255,255,255,255,255,255,0,0,0,0,0
  205.  DB 0,0,0,0,0,0,0,0,0,55,125,204,132,206,107,57,0,0,0,0
  206.  DB 0,0,60,102,66,76,90,67,193,193,153,134,128,128,0,0,0,0,7,125
  207.  DB 65,65,192,128,128,128,128,128,0,0,0,0,0,0,0,57,102,228,36,108
  208.  DB 108,72,72,204,0,0,0,0,0,7,253,192,128,64,32,24,48,193,143,248
  209.  DB 0,0,0,0,0,0,0,0,63,120,204,134,130,130,198,124,0,0,0,0
  210.  DB 0,0,0,0,66,66,66,66,66,66,230,188,128,128,0,0,0,0,0,57
  211.  DB 70,200,8,24,24,16,16,16,0,0,0,0,0,0,112,30,24,60,38,102
  212.  DB 100,60,24,120,14,0,0,0,0,0,126,67,193,129,255,129,129,193,99,62
  213.  DB 0,0,0,0,0,0,56,108,70,198,194,194,230,110,108,238,0,0,0,0
  214.  DB 0,0,30,48,24,12,118,222,134,132,132,228,60,0,0,0,0,0,0,0
  215.  DB 0,126,217,201,203,126,0,0,0,0,0,0,0,0,1,2,6,124,204,142
  216.  DB 146,146,230,124,64,192,0,0,0,0,0,126,192,128,128,254,128,128,227,62
  217.  DB 0,0,0,0,0,0,28,118,66,66,66,66,66,66,66,0,0,0,0,0
  218.  DB 0,0,0,62,227,0,124,199,0,62,227,0,0,0,0,0,0,0,0,0
  219.  DB 8,8,126,16,16,0,0,62,227,0,0,0,0,0,0,96,24,12,6,12
  220.  DB 24,48,0,62,227,0,0,0,0,0,0,6,24,48,96,48,24,12,0,124
  221.  DB 199,0,0,0,0,0,30,51,51,51,48,48,56,56,24,24,24,24,24,24
  222.  DB 24,24,28,12,12,12,12,12,204,204,204,120,0,0,0,0,0,0,0,0
  223.  DB 24,24,0,254,0,48,48,0,0,0,0,0,0,0,0,0,0,0,96,118
  224.  DB 220,12,96,118,220,12,0,0,0,56,108,100,56,0,0,0,0,0,0,0
  225.  DB 0,0,0,0,0,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0
  226.  DB 0,0,0,0,0,0,0,0,24,0,0,0,0,0,0,0,0,7,4,6
  227.  DB 2,2,2,98,38,44,56,48,0,0,0,0,0,92,118,66,66,66,66,0
  228.  DB 0,0,0,0,0,0,0,0,60,102,2,6,4,12,24,48,126,0,0,0
  229.  DB 0,0,0,0,0,0,0,0,120,124,124,124,124,124,60,0,0,0,0,0
  230.  DB 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  231.  
  232. code    ends
  233.     end