home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / hacking / phreak_utils_pc / video.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-04-01  |  1.3 KB  |  36 lines

  1. unit video;
  2.  
  3. interface
  4.  
  5. const videocards :array[0..9] of string = ('NO','Hercules','CGA','Unknown',
  6.                                            'EGA','EGA','Unknown','VGA',
  7.                                            'VGA','Unknown');
  8.  
  9.  
  10. var vadr   :word;              { Video memory adress for direct access }
  11.     vcolor :boolean;           { Color video adapter?                  }
  12.     card   :byte;              { Type of video card installed          }
  13.  
  14. implementation
  15.  
  16. begin
  17.   asm
  18.     mov ah,1ah
  19.     xor al,al
  20.     int 10h
  21.     mov card,bl
  22.   end;
  23.   case card of
  24.     0 :begin vcolor:=false; vadr:=0; end;     { No video card             }
  25.     1 :begin vcolor:=false; vadr:=$B000; end; { Hercules w/mono screen    }
  26.     2 :begin vcolor:=true; vadr:=$B800; end;  { CGA w/CGA screen          }
  27.     3 :begin vcolor:=false; vadr:=0; end;     { reserved                  }
  28.     4 :begin vcolor:=true; vadr:=$B800; end;  { EGA w/EGA or multi screen }
  29.     5 :begin vcolor:=false; vadr:=$B800; end; { EGA w/mono screen         }
  30.     6 :begin vcolor:=false; vadr:=0; end;     { reserved                  }
  31.     7 :begin vcolor:=false; vadr:=$B800; end; { VGA w/analog mono screen  }
  32.     8 :begin vcolor:=true; vadr:=$B800; end;  { VGA w/color screen        }
  33.     9 :begin vcolor:=false; vadr:=0; end;     { reserved                  }
  34.   end;
  35. end.
  36.