home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / 80X0393.ZIP / DBVGAL15.ASM < prev    next >
Encoding:
Assembly Source File  |  1993-03-30  |  23.3 KB  |  394 lines
  1. comment |
  2. -------------------------------------------------------------------------
  3.         DBVGAL15.ZIP            David Boynton's VGA Library, V1.5
  4. -------------------------------------------------------------------------
  5.         This library is placed in the public domain. However, if you like
  6.         it, and would like to make a small donation to encourage me to
  7.         improve this product, my address is:
  8.                 David Boynton
  9.                 8083 Budding Br Rd, T-3
  10.                 Glen Burnie  MD 21061-5077
  11.          Please let me know of any "corrections" or improvements you'd
  12.          like to see.
  13.  
  14.          Send netmail to either: Avi-technic BBS 1:261/662
  15.                              or: Dave's Doghouse 1:261/1096 (different Dave)
  16.  
  17. end of comment |
  18.  
  19.  
  20. EGA12SET_TEXT   SEGMENT word public 'DATA'
  21.         PUBLIC  _EGA12set
  22. _EGA12set       LABEL   FAR
  23.     db 0,0,0,0,0,0,0,0,0,0,0,0                                      ;     0
  24.     db 0,126,129,165,129,129,189,153,129,126,0,0                    ;     1
  25.     db 0,126,255,219,255,255,195,231,255,126,0,0                    ;     2
  26.     db 0,0,108,238,254,254,254,124,56,16,0,0                        ;     3
  27.     db 0,0,16,56,124,254,124,56,16,0,0,0                            ;     4
  28.     db 0,0,16,56,16,108,238,108,16,56,0,0                           ;     5
  29.     db 0,16,56,124,124,254,254,108,16,56,0,0                        ;     6
  30.     db 0,0,0,0,24,60,60,24,0,0,0,0                                  ;     7
  31.     db 255,255,255,255,231,195,195,231,255,255,255,255              ;     8
  32.     db 0,0,0,24,60,102,102,60,24,0,0,0                              ;     9
  33.     db 255,255,255,231,195,153,153,195,231,255,255,255              ;     10
  34.     db 0,30,14,30,54,120,204,204,204,120,0,0                        ;     11
  35.     db 0,60,102,102,102,60,24,126,24,24,0,0                         ;     12
  36.     db 0,30,26,30,24,24,24,120,248,112,0,0                          ;     13
  37.     db 62,54,62,54,54,118,246,102,14,30,12,0                        ;     14
  38.     db 24,219,126,60,102,102,60,126,219,24,0,0                      ;     15
  39.     db 0,128,224,240,252,254,252,240,224,128,0,0                    ;     16
  40.     db 0,2,14,62,126,254,126,62,14,2,0,0                            ;     17
  41.     db 0,24,60,126,24,24,24,126,60,24,0,0                           ;     18
  42.     db 0,102,102,102,102,102,102,0,102,102,0,0                      ;     19
  43.     db 0,127,219,219,219,123,27,27,27,27,0,0                        ;     20
  44.     db 124,198,198,96,124,246,222,124,12,198,198,124                ;     21
  45.     db 0,0,0,0,0,0,0,254,254,254,0,0                                ;     22
  46.     db 0,24,60,126,24,24,126,60,24,126,0,0                          ;     23
  47.     db 0,24,60,126,24,24,24,24,24,24,0,0                            ;     24
  48.     db 0,24,24,24,24,24,24,126,60,24,0,0                            ;     25
  49.     db 0,0,0,12,14,255,14,12,0,0,0,0                                ;     26
  50.     db 0,0,0,48,112,254,112,48,0,0,0,0                              ;     27
  51.     db 0,0,0,0,192,192,192,254,0,0,0,0                              ;     28
  52.     db 0,0,0,36,102,255,102,36,0,0,0,0                              ;     29
  53.     db 0,16,56,56,56,124,124,254,254,0,0,0                          ;     30
  54.     db 0,254,254,124,124,124,56,56,16,0,0,0                         ;     31
  55.     db 0,0,0,0,0,0,0,0,0,0,0,0                                      ; ' ' 32
  56.     db 0,24,60,60,60,24,24,0,24,24,0,0                              ; '!' 33
  57.     db 54,54,54,20,0,0,0,0,0,0,0,0                                  ; '"' 34
  58.     db 0,108,108,108,254,108,108,254,108,108,0,0                    ; '#' 35
  59.     db 24,24,124,198,192,120,60,6,198,124,24,24                     ; '$' 36
  60.     db 0,0,0,98,102,12,24,48,102,198,0,0                            ; '%' 37
  61.     db 0,56,108,56,56,118,246,206,204,118,0,0                       ; '&' 38
  62.     db 12,12,12,24,0,0,0,0,0,0,0,0                                  ; ''' 39
  63.     db 0,12,24,48,48,48,48,48,24,12,0,0                             ; '(' 40
  64.     db 0,48,24,12,12,12,12,12,24,48,0,0                             ; ')' 41
  65.     db 0,0,0,108,56,254,56,108,0,0,0,0                              ; '*' 42
  66.     db 0,0,0,24,24,126,24,24,0,0,0,0                                ; '+' 43
  67.     db 0,0,0,0,0,0,0,12,12,12,24,0                                  ; ',' 44
  68.     db 0,0,0,0,0,254,0,0,0,0,0,0                                    ; '-' 45
  69.     db 0,0,0,0,0,0,0,0,24,24,0,0                                    ; '.' 46
  70.     db 0,0,2,6,12,24,48,96,192,128,0,0                              ; '/' 47
  71.     db 0,124,198,206,222,246,230,198,198,124,0,0                    ; '0' 48
  72.     db 0,24,120,24,24,24,24,24,24,126,0,0                           ; '1' 49
  73.     db 0,124,198,198,12,24,48,96,198,254,0,0                        ; '2' 50
  74.     db 0,124,198,6,6,60,6,6,198,124,0,0                             ; '3' 51
  75.     db 0,12,28,60,108,204,254,12,12,12,0,0                          ; '4' 52
  76.     db 0,254,192,192,192,252,6,6,198,124,0,0                        ; '5' 53
  77.     db 0,124,198,192,192,252,198,198,198,124,0,0                    ; '6' 54
  78.     db 0,254,198,12,24,48,48,48,48,48,0,0                           ; '7' 55
  79.     db 0,124,198,198,198,124,198,198,198,124,0,0                    ; '8' 56
  80.     db 0,124,198,198,198,126,6,6,198,124,0,0                        ; '9' 57
  81.     db 0,0,0,12,12,0,0,12,12,0,0,0                                  ; ':' 58
  82.     db 0,0,0,12,12,0,0,12,12,12,24,0                                ; ';' 59
  83.     db 0,12,24,48,96,192,96,48,24,12,0,0                            ; '<' 60
  84.     db 0,0,0,0,254,0,254,0,0,0,0,0                                  ; '=' 61
  85.     db 0,96,48,24,12,6,12,24,48,96,0,0                              ; '>' 62
  86.     db 0,124,198,198,12,24,24,0,24,24,0,0                           ; '?' 63
  87.     db 0,124,198,198,222,222,222,220,192,126,0,0                    ; '@' 64
  88.     db 0,56,108,198,198,198,254,198,198,198,0,0                     ; 'A' 65
  89.     db 0,252,102,102,102,124,102,102,102,252,0,0                    ; 'B' 66
  90.     db 0,60,102,192,192,192,192,192,102,60,0,0                      ; 'C' 67
  91.     db 0,248,108,102,102,102,102,102,108,248,0,0                    ; 'D' 68
  92.     db 0,254,102,96,96,124,96,96,102,254,0,0                        ; 'E' 69
  93.     db 0,254,102,96,96,124,96,96,96,240,0,0                         ; 'F' 70
  94.     db 0,124,198,198,192,192,206,198,198,124,0,0                    ; 'G' 71
  95.     db 0,198,198,198,198,254,198,198,198,198,0,0                    ; 'H' 72
  96.     db 0,60,24,24,24,24,24,24,24,60,0,0                             ; 'I' 73
  97.     db 0,60,24,24,24,24,24,216,216,112,0,0                          ; 'J' 74
  98.     db 0,198,204,216,240,240,216,204,198,198,0,0                    ; 'K' 75
  99.     db 0,240,96,96,96,96,96,98,102,254,0,0                          ; 'L' 76
  100.     db 0,198,198,238,254,214,214,214,198,198,0,0                    ; 'M' 77
  101.     db 0,198,198,230,230,246,222,206,206,198,0,0                    ; 'N' 78
  102.     db 0,124,198,198,198,198,198,198,198,124,0,0                    ; 'O' 79
  103.     db 0,252,102,102,102,124,96,96,96,240,0,0                       ; 'P' 80
  104.     db 0,124,198,198,198,198,198,198,214,124,6,0                    ; 'Q' 81
  105.     db 0,252,102,102,102,124,120,108,102,230,0,0                    ; 'R' 82
  106.     db 0,124,198,192,96,56,12,6,198,124,0,0                         ; 'S' 83
  107.     db 0,126,90,24,24,24,24,24,24,60,0,0                            ; 'T' 84
  108.     db 0,198,198,198,198,198,198,198,198,124,0,0                    ; 'U' 85
  109.     db 0,198,198,198,198,198,198,108,56,16,0,0                      ; 'V' 86
  110.     db 0,198,198,214,214,214,254,238,198,198,0,0                    ; 'W' 87
  111.     db 0,198,198,108,56,56,56,108,198,198,0,0                       ; 'X' 88
  112.     db 0,102,102,102,102,60,24,24,24,60,0,0                         ; 'Y' 89
  113.     db 0,254,198,140,24,48,96,194,198,254,0,0                       ; 'Z' 90
  114.     db 0,124,96,96,96,96,96,96,96,124,0,0                           ; '[' 91
  115.     db 0,0,128,192,96,48,24,12,6,2,0,0                              ; '\' 92
  116.     db 0,124,12,12,12,12,12,12,12,124,0,0                           ; ']' 93
  117.     db 16,56,108,198,0,0,0,0,0,0,0,0                                ; '^' 94
  118.     db 0,0,0,0,0,0,0,0,0,0,0,255                                    ; '_' 95
  119.     db 24,24,24,12,0,0,0,0,0,0,0,0                                  ; '`' 96
  120.     db 0,0,0,0,120,12,124,204,220,118,0,0                           ; 'a' 97
  121.     db 0,224,96,96,124,102,102,102,102,252,0,0                      ; 'b' 98
  122.     db 0,0,0,0,124,198,192,192,198,124,0,0                          ; 'c' 99
  123.     db 0,28,12,12,124,204,204,204,204,126,0,0                       ; 'd' 100
  124.     db 0,0,0,0,124,198,254,192,198,124,0,0                          ; 'e' 101
  125.     db 0,28,54,48,48,252,48,48,48,120,0,0                           ; 'f' 102
  126.     db 0,0,0,0,118,206,198,198,126,6,198,124                        ; 'g' 103
  127.     db 0,224,96,96,108,118,102,102,102,230,0,0                      ; 'h' 104
  128.     db 0,24,24,0,56,24,24,24,24,60,0,0                              ; 'i' 105
  129.     db 0,12,12,0,28,12,12,12,12,204,204,120                         ; 'j' 106
  130.     db 0,224,96,96,102,108,120,108,102,230,0,0                      ; 'k' 107
  131.     db 0,56,24,24,24,24,24,24,24,60,0,0                             ; 'l' 108
  132.     db 0,0,0,0,108,254,214,214,198,198,0,0                          ; 'm' 109
  133.     db 0,0,0,0,220,102,102,102,102,102,0,0                          ; 'n' 110
  134.     db 0,0,0,0,124,198,198,198,198,124,0,0                          ; 'o' 111
  135.     db 0,0,0,0,220,102,102,102,124,96,96,240                        ; 'p' 112
  136.     db 0,0,0,0,118,204,204,204,124,12,12,30                         ; 'q' 113
  137.     db 0,0,0,0,220,102,96,96,96,240,0,0                             ; 'r' 114
  138.     db 0,0,0,0,124,198,112,28,198,124,0,0                           ; 's' 115
  139.     db 0,48,48,48,252,48,48,48,54,28,0,0                            ; 't' 116
  140.     db 0,0,0,0,204,204,204,204,204,118,0,0                          ; 'u' 117
  141.     db 0,0,0,0,198,198,198,108,56,16,0,0                            ; 'v' 118
  142.     db 0,0,0,0,198,198,214,214,254,108,0,0                          ; 'w' 119
  143.     db 0,0,0,0,198,108,56,56,108,198,0,0                            ; 'x' 120
  144.     db 0,0,0,0,198,198,198,206,118,6,198,124                        ; 'y' 121
  145.     db 0,0,0,0,254,140,24,48,98,254,0,0                             ; 'z' 122
  146.     db 0,14,24,24,24,112,24,24,24,14,0,0                            ; '{' 123
  147.     db 0,24,24,24,24,0,24,24,24,24,0,0                              ; '|' 124
  148.     db 0,112,24,24,24,14,24,24,24,112,0,0                           ; '}' 125
  149.     db 0,118,220,0,0,0,0,0,0,0,0,0                                  ; '~' 126
  150.     db 0,0,0,16,56,56,108,108,254,0,0,0                             ; '' 127
  151.     db 0,60,102,192,192,192,198,102,60,24,204,56                    ; 'Ç' 128
  152.     db 0,198,198,0,198,198,198,198,206,118,0,0                      ; 'ü' 129
  153.     db 12,24,48,0,124,198,254,192,198,124,0,0                       ; 'é' 130
  154.     db 48,120,204,0,120,12,124,204,220,118,0,0                      ; 'â' 131
  155.     db 0,204,204,0,120,12,124,204,220,118,0,0                       ; 'ä' 132
  156.     db 96,48,24,0,120,12,124,204,220,118,0,0                        ; 'à' 133
  157.     db 56,108,56,0,120,12,124,204,220,118,0,0                       ; 'å' 134
  158.     db 0,0,0,124,198,192,192,198,124,24,108,56                      ; 'ç' 135
  159.     db 48,120,204,0,124,198,254,192,198,124,0,0                     ; 'ê' 136
  160.     db 0,204,204,0,124,198,254,192,198,124,0,0                      ; 'ë' 137
  161.     db 48,24,12,0,124,198,254,192,198,124,0,0                       ; 'è' 138
  162.     db 0,102,102,0,56,24,24,24,24,60,0,0                            ; 'ï' 139
  163.     db 24,60,102,0,56,24,24,24,24,60,0,0                            ; 'î' 140
  164.     db 96,48,24,0,56,24,24,24,24,60,0,0                             ; ' ' 141
  165.     db 198,198,0,56,108,198,254,198,198,198,0,0                     ; 'Ä' 142
  166.     db 56,108,56,0,56,108,198,198,254,198,198,0                     ; 'Å' 143
  167.     db 12,24,48,0,254,96,96,124,96,96,254,0                         ; 'É' 144
  168.     db 0,0,0,102,219,27,127,216,223,118,0,0                         ; 'æ' 145
  169.     db 126,216,216,216,216,254,216,216,216,222,0,0                  ; 'Æ' 146
  170.     db 48,120,204,0,124,198,198,198,198,124,0,0                     ; 'ô' 147
  171.     db 0,198,198,0,124,198,198,198,198,124,0,0                      ; 'ö' 148
  172.     db 48,24,12,0,124,198,198,198,198,124,0,0                       ; 'ò' 149
  173.     db 48,120,204,0,198,198,198,198,206,118,0,0                     ; 'û' 150
  174.     db 96,48,24,0,198,198,198,198,206,118,0,0                       ; 'ù' 151
  175.     db 0,198,198,0,198,198,198,206,118,6,198,124                    ; 'ÿ' 152
  176.     db 198,198,0,124,198,198,198,198,198,124,0,0                    ; 'Ö' 153
  177.     db 198,198,0,198,198,198,198,198,198,124,0,0                    ; 'Ü' 154
  178.     db 24,24,60,102,96,96,102,60,24,24,0,0                          ; '¢' 155
  179.     db 0,56,108,96,96,240,96,102,246,108,0,0                        ; '£' 156
  180.     db 0,102,102,60,24,126,24,60,24,24,0,0                          ; '¥' 157
  181.     db 252,198,252,192,204,222,204,204,204,198,0,0                  ; '₧' 158
  182.     db 14,27,24,24,24,126,24,24,24,24,216,112                       ; 'ƒ' 159
  183.     db 12,24,48,0,120,12,124,204,220,118,0,0                        ; 'á' 160
  184.     db 12,24,48,0,56,24,24,24,24,60,0,0                             ; 'í' 161
  185.     db 12,24,48,0,124,198,198,198,198,124,0,0                       ; 'ó' 162
  186.     db 24,48,96,0,204,204,204,204,220,118,0,0                       ; 'ú' 163
  187.     db 0,118,220,0,188,102,102,102,102,230,0,0                      ; 'ñ' 164
  188.     db 118,220,0,198,198,230,246,222,206,198,0,0                    ; 'Ñ' 165
  189.     db 60,108,108,62,0,126,0,0,0,0,0,0                              ; 'ª' 166
  190.     db 56,108,108,56,0,124,0,0,0,0,0,0                              ; 'º' 167
  191.     db 0,48,48,0,48,48,96,198,198,124,0,0                           ; '¿' 168
  192.     db 0,0,0,0,0,126,96,96,96,0,0,0                                 ; '⌐' 169
  193.     db 0,0,0,0,0,126,6,6,6,0,0,0                                    ; '¬' 170
  194.     db 96,98,102,108,24,48,96,220,54,12,24,62                       ; '½' 171
  195.     db 96,98,102,108,24,54,110,222,54,126,6,6                       ; '¼' 172
  196.     db 0,24,24,0,24,24,60,60,60,24,0,0                              ; '¡' 173
  197.     db 0,0,0,54,108,216,108,54,0,0,0,0                              ; '«' 174
  198.     db 0,0,0,216,108,54,108,216,0,0,0,0                             ; '»' 175
  199.     db 17,68,17,68,17,68,17,68,17,68,17,68                          ; '░' 176
  200.     db 85,170,85,170,85,170,85,170,85,170,85,170                    ; '▒' 177
  201.     db 221,119,221,119,221,119,221,119,221,119,221,119              ; '▓' 178
  202.     db 24,24,24,24,24,24,24,24,24,24,24,24                          ; '│' 179
  203.     db 24,24,24,24,24,24,248,24,24,24,24,24                         ; '┤' 180
  204.     db 24,24,24,24,248,24,248,24,24,24,24,24                        ; '╡' 181
  205.     db 54,54,54,54,54,54,246,54,54,54,54,54                         ; '╢' 182
  206.     db 0,0,0,0,0,0,254,54,54,54,54,54                               ; '╖' 183
  207.     db 0,0,0,0,248,24,248,24,24,24,24,24                            ; '╕' 184
  208.     db 54,54,54,54,246,6,246,54,54,54,54,54                         ; '╣' 185
  209.     db 54,54,54,54,54,54,54,54,54,54,54,54                          ; '║' 186
  210.     db 0,0,0,0,254,6,246,54,54,54,54,54                             ; '╗' 187
  211.     db 54,54,54,54,246,6,254,0,0,0,0,0                              ; '╝' 188
  212.     db 54,54,54,54,54,54,254,0,0,0,0,0                              ; '╜' 189
  213.     db 24,24,24,24,248,24,248,0,0,0,0,0                             ; '╛' 190
  214.     db 0,0,0,0,0,0,248,24,24,24,24,24                               ; '┐' 191
  215.     db 24,24,24,24,24,24,31,0,0,0,0,0                               ; '└' 192
  216.     db 24,24,24,24,24,24,255,0,0,0,0,0                              ; '┴' 193
  217.     db 0,0,0,0,0,0,255,24,24,24,24,24                               ; '┬' 194
  218.     db 24,24,24,24,24,24,31,24,24,24,24,24                          ; '├' 195
  219.     db 0,0,0,0,0,0,255,0,0,0,0,0                                    ; '─' 196
  220.     db 24,24,24,24,24,24,255,24,24,24,24,24                         ; '┼' 197
  221.     db 24,24,24,24,31,24,31,24,24,24,24,24                          ; '╞' 198
  222.     db 54,54,54,54,54,54,55,54,54,54,54,54                          ; '╟' 199
  223.     db 54,54,54,54,55,48,63,0,0,0,0,0                               ; '╚' 200
  224.     db 0,0,0,0,63,48,55,54,54,54,54,54                              ; '╔' 201
  225.     db 54,54,54,54,247,0,255,0,0,0,0,0                              ; '╩' 202
  226.     db 0,0,0,0,255,0,247,54,54,54,54,54                             ; '╦' 203
  227.     db 54,54,54,54,55,48,55,54,54,54,54,54                          ; '╠' 204
  228.     db 0,0,0,0,255,0,255,0,0,0,0,0                                  ; '═' 205
  229.     db 54,54,54,54,247,0,247,54,54,54,54,54                         ; '╬' 206
  230.     db 24,24,24,24,255,0,255,0,0,0,0,0                              ; '╧' 207
  231.     db 54,54,54,54,54,54,255,0,0,0,0,0                              ; '╨' 208
  232.     db 0,0,0,0,255,0,255,24,24,24,24,24                             ; '╤' 209
  233.     db 0,0,0,0,0,0,255,54,54,54,54,54                               ; '╥' 210
  234.     db 54,54,54,54,54,54,63,0,0,0,0,0                               ; '╙' 211
  235.     db 24,24,24,24,31,24,31,0,0,0,0,0                               ; '╘' 212
  236.     db 0,0,0,0,31,24,31,24,24,24,24,24                              ; '╒' 213
  237.     db 0,0,0,0,0,0,63,54,54,54,54,54                                ; '╓' 214
  238.     db 54,54,54,54,54,54,255,54,54,54,54,54                         ; '╫' 215
  239.     db 24,24,24,24,255,24,255,24,24,24,24,24                        ; '╪' 216
  240.     db 24,24,24,24,24,24,248,0,0,0,0,0                              ; '┘' 217
  241.     db 0,0,0,0,0,0,31,24,24,24,24,24                                ; '┌' 218
  242.     db 255,255,255,255,255,255,255,255,255,255,255,255              ; '█' 219
  243.     db 0,0,0,0,0,0,255,255,255,255,255,255                          ; '▄' 220
  244.     db 240,240,240,240,240,240,240,240,240,240,240,240              ; '▌' 221
  245.     db 15,15,15,15,15,15,15,15,15,15,15,15                          ; '▐' 222
  246.     db 255,255,255,255,255,255,0,0,0,0,0,0                          ; '▀' 223
  247.     db 0,0,0,118,220,216,216,216,220,118,0,0                        ; 'α' 224
  248.     db 0,0,0,120,204,216,252,198,230,220,192,192                    ; 'ß' 225
  249.     db 0,254,102,98,96,96,96,96,96,96,0,0                           ; 'Γ' 226
  250.     db 0,0,0,0,254,108,108,108,108,108,0,0                          ; 'π' 227
  251.     db 0,254,198,98,48,24,48,98,198,254,0,0                         ; 'Σ' 228
  252.     db 0,0,0,0,126,216,204,204,204,120,0,0                          ; 'σ' 229
  253.     db 0,0,0,102,102,102,102,124,96,192,128,0                       ; 'µ' 230
  254.     db 0,0,0,0,118,220,24,24,24,24,0,0                              ; 'τ' 231
  255.     db 0,254,56,108,198,198,198,108,56,254,0,0                      ; 'Φ' 232
  256.     db 0,56,108,198,198,254,198,198,108,56,0,0                      ; 'Θ' 233
  257.     db 0,56,108,198,198,198,108,108,108,238,0,0                     ; 'Ω' 234
  258.     db 0,62,96,48,60,102,198,198,204,120,0,0                        ; 'δ' 235
  259.     db 0,0,0,0,126,219,219,126,0,0,0,0                              ; '∞' 236
  260.     db 0,6,12,124,222,246,230,124,96,192,0,0                        ; 'φ' 237
  261.     db 0,28,48,96,96,124,96,96,48,28,0,0                            ; 'ε' 238
  262.     db 0,124,198,198,198,198,198,198,198,198,0,0                    ; '∩' 239
  263.     db 0,0,0,0,254,0,254,0,254,0,0,0                                ; '≡' 240
  264.     db 0,0,0,24,24,126,24,24,0,126,0,0                              ; '±' 241
  265.     db 0,48,24,12,6,12,24,48,0,126,0,0                              ; '≥' 242
  266.     db 0,12,24,48,96,48,24,12,0,126,0,0                             ; '≤' 243
  267.     db 0,0,12,30,26,24,24,24,24,24,24,24                            ; '⌠' 244
  268.     db 24,24,24,24,24,24,24,24,88,120,48,0                          ; '⌡' 245
  269.     db 0,0,24,24,0,126,0,24,24,0,0,0                                ; '÷' 246
  270.     db 0,0,0,0,118,220,0,118,220,0,0,0                              ; '≈' 247
  271.     db 0,120,204,204,120,0,0,0,0,0,0,0                              ; '°' 248
  272.     db 0,0,0,0,0,24,24,0,0,0,0,0                                    ; '∙' 249
  273.     db 0,0,0,0,0,0,24,0,0,0,0,0                                     ; '·' 250
  274.     db 0,0,31,24,24,24,24,216,120,56,24,0                           ; '√' 251
  275.     db 216,108,108,108,108,0,0,0,0,0,0,0                            ; 'ⁿ' 252
  276.     db 112,216,48,96,248,0,0,0,0,0,0,0                              ; '²' 253
  277.     db 0,0,0,126,126,126,126,126,126,0,0,0                          ; '■' 254
  278.     db 0,0,0,0,0,0,0,0,0,0,0,0                                      ; ' ' 255
  279. EGA12SET_TEXT   ENDS
  280.     END
  281.  
  282.         name    _L33set
  283.         ;   void L33set(void);
  284.         extrn   _EGA12set:FAR
  285. L33_TEXT       segment byte public 'CODE'
  286.         public  _L33set
  287.         assume  cs:L33_TEXT
  288. _L33set         proc    far
  289.         push    ds
  290.  
  291.         MOV     AX,0003         ; textmode 0x03
  292.         INT     10h
  293.  
  294.         MOV     AX,1111h        ; 8x14 char set & video parameters
  295.         MOV     BL,00
  296.         INT     10h
  297.  
  298.         mov     dx,03d4h
  299.         mov     al,09h
  300.         out     dx,al
  301.         inc     dx
  302.         in      al,dx
  303.         and     al,0e0h
  304.         or      al,0bh
  305.         out     dx,al
  306.  
  307.         mov     dx,03d4h
  308.         mov     al,12h
  309.         out     dx,al
  310.         inc     dx
  311.         mov     al,8bh
  312.         out     dx,al
  313.  
  314.         XOR     AX,AX
  315.         MOV     DS,AX
  316.         MOV     AL,0ch
  317.         MOV     ds:[0485h],AL           ; update BIOScrtpoints
  318.         MOV     AL,20h
  319.         MOV     ds:[0484h],AL           ; update BIOScrtrows
  320.  
  321.         mov     ah,1
  322.         mov     ch,9
  323.         mov     cl,0bh
  324.         int     10h                     ; set cursor size
  325.  
  326.         mov     ax,seg _EGA12set
  327.         mov     es,ax
  328.         mov     bp,offset _EGA12set
  329.         mov     ax,1100h
  330.         mov     bx,0c00h
  331.         mov     cx,0100h
  332.         mov     dx,0
  333.         int     10h                    ; load custom character generator
  334.  
  335.         pop     ds
  336.         ret
  337. _L33set         endp
  338. L33_TEXT        ends
  339.         end
  340.  
  341. ;        name    _L40set
  342. ;        void L40set(void);
  343. L40_TEXT       segment para public 'CODE'
  344.         public  _L40set
  345.         assume  cs:L40_TEXT
  346. _L40set         proc    far
  347.         push    ds
  348.  
  349.         MOV     AX,0003         ; textmode 0x03
  350.         INT     10h
  351.  
  352.         MOV     AX,1111h        ; 8x14 char set & video parameters
  353.         MOV     BL,00
  354.         INT     10h
  355.  
  356.         MOV     AX,1102h        ; set 8 point font
  357.         MOV     BL,00
  358.         INT     10h
  359.  
  360.         mov     dx,03d4h        ; update CRTC register 9
  361.         mov     al,09h
  362.         out     dx,al
  363.         inc     dx
  364.         in      al,dx
  365.         and     al,0e0h
  366.         or      al,09h
  367.         out     dx,al
  368.  
  369.         mov     dx,03d4h        ; update CRTC register 12h
  370.         mov     al,12h
  371.         out     dx,al
  372.         inc     dx
  373.         mov     al,90h
  374.         out     dx,al
  375.  
  376.         XOR     AX,AX
  377.         MOV     DS,AX
  378.         MOV     AL,09
  379.         MOV     ds:[0485h],AL           ; update BIOScrtpoints
  380.         MOV     AL,27h
  381.         MOV     ds:[0484h],AL           ; update BIOScrtrows
  382.  
  383.         mov     ah,1
  384.         mov     ch,7
  385.         mov     cl,9
  386.         int     10h     ; set cursor size
  387.  
  388.         xor     ax,ax
  389.         pop     ds
  390.         ret
  391. _L40set         endp
  392. L40_TEXT        ends
  393.         end
  394.