home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tegl_ii / svga / svgatest.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1991-10-08  |  10.1 KB  |  292 lines
  1.  
  2.  
  3. {$F+}  { -- all the external routines are far }
  4. Procedure getsvgatype(VAR vgatype,memsize:Word); external;
  5. {$L svgamode.obj}
  6. {$F-}
  7.  
  8. const
  9.      cirrus       = 1;
  10.      everex       = 2;
  11.      paradise       = 3;
  12.      tseng       = 4;
  13.      trident       = 5;
  14.      t8900       = 6;
  15.      ativga       = 7;
  16.      aheada       = 8;
  17.      aheadb       = 9;
  18.      oaktech       = 10;
  19.      video7       = 11;
  20.      chipstech       = 12;
  21.      tseng4       = 13;
  22.      genoa       = 14;
  23.      ncr       = 15;
  24.      compaq       = 16;
  25.      vesa       = 17;
  26.  
  27.  
  28.  
  29. procedure getvideotype;
  30.    var vgatype,memsize : word;
  31.        szstr : string[5];
  32.    begin
  33.       getsvgatype(vgatype,memsize);
  34.  
  35.       str(memsize,szstr);
  36.       case vgatype of
  37.      cirrus       :  write('CIRRUS w/'+szstr+'k');
  38.      everex       :  begin
  39.                  writeln('EVEREX VGA Chip w/'+szstr+'k');
  40.                  writeln('  AX    BX      Video Mode     TEGL ');
  41.                  writeln('  0x70  0x01    752 410  16         ');
  42.                  writeln('  0x70  0x02    800 600  16      *  ');
  43.                  writeln('  0x70  0x11   1280 350   4         ');
  44.                  writeln('  0x70  0x12   1280 600   4         ');
  45.                  writeln('  0x70  0x13    640 350 256         ');
  46.                  writeln('  0x70  0x14    640 400 256         ');
  47.                  writeln('  0x70  0x15    512 480 256         ');
  48.                  if memsize>256 then
  49.                 begin
  50.                  writeln('  0x70  0x30    640 480 256      *  ');
  51.                  writeln('  0x70  0x31    800 600 256      *  ');
  52.                  writeln('  0x70  0x20   1024 768  16         ');
  53.                 end;
  54.  
  55.                  writeln;
  56.                  writeln('Boards: Everex EV-673')
  57.              end;
  58.      paradise     :  begin
  59.                  writeln('PARADISE Chip Set w/'+szstr+'k');
  60.                  writeln('  AX      Video Mode      TEGL ');
  61.                  writeln('  0x59     800 600   2         ');
  62.                  writeln('  0x58     800 600  16      *  ');
  63.                  writeln('  0x5E     640 400 256         ');
  64.                  writeln('  0x5D    1024 768  16         ');
  65.                  if memsize>256 then
  66.                 begin
  67.                  writeln('  0x5F     640 480 256      *  ');
  68.                 end;
  69.  
  70.                  writeln;
  71.                  writeln('Boards: Paradise VGA Pro, AST, Compaq and DELL')
  72.              end;
  73.      tseng          :  begin
  74.                  writeln('TSENG ET 3000 VGA Chip w/'+szstr+'k');
  75.                  writeln('  AX      Video Mode      TEGL ');
  76.                  writeln('  0x29    800 600  16       *  ');
  77.                  writeln('  0x37   1024 768  16          ');
  78.                  writeln('  0x2D    640 350 256          ');
  79.                  writeln('  0x2F    720 512 256          ');
  80.                  writeln('  0x36    960 720  16          ');
  81.                  if memsize>256 then
  82.                 begin
  83.                  writeln('  0x2E    640 480 256       *  ');
  84.                  writeln('  0x30    800 600 256       *  ');
  85.                 end;
  86.                  if memsize>512 then
  87.                  writeln('  0x38   1024 768 256       *  ');
  88.  
  89.                  writeln;
  90.                  writeln('Boards: Genoa 5400, Orchid Designer, STB VGA/EM')
  91.              end;
  92.      trident      :  begin
  93.                  writeln('TRIDENT TVGA 8800CS VGA Chip w/'+szstr+'k');
  94.                  writeln('  AX      Video Mode      TEGL ');
  95.                  writeln('  0x5B    800 600  16       *  ');
  96.                  writeln('  0x5F   1024 768  16          ');
  97.                  writeln('  0x5C    640 400 256          ');
  98.                  if memsize>256 then
  99.                 begin
  100.                  writeln('  0x5D    640 480 256       *  ');
  101.                  writeln('  0x5E    800 600 256       *  ');
  102.                 end;
  103.  
  104.                  writeln;
  105.                  writeln('Boards: Maxxon, Everex 678(use Everex Codes), ATI Prism Elite, Imtec,');
  106.                  writeln('        Logix, Phoebes, Zymos');
  107.              end;
  108.      t8900          :  begin
  109.                  writeln('TRIDENT TVGA 8900 Chip w/'+szstr+'k');
  110.                  writeln('  AX      Video Mode      TEGL ');
  111.                  writeln('  0x5B    800 600  16       *  ');
  112.                  writeln('  0x6A    800 600  16       *  ');
  113.                  writeln('  0x5C    640 400 256          ');
  114.                  writeln('  0x60   1024 768   4          ');
  115.                  writeln('  0x5F   1024 768  16          ');
  116.                  if memsize>256 then
  117.                 begin
  118.                  writeln('  0x5D    640 480 256       *  ');
  119.                  writeln('  0x5E    800 600 256       *  ');
  120.                 end;
  121.                  if memsize>512 then
  122.                  writeln('  0x62   1024 768 256       *  ');
  123.  
  124.                  writeln;
  125.                  writeln('Boards: Zymos Hi Res 512, Trident 8900');
  126.              end;
  127.      ativga       :  begin
  128.                  writeln('ATI VGA Chip w/'+szstr+'k');
  129.                  writeln('  AX      Video Mode      TEGL ');
  130.                  writeln('  0x54    800 600  16       *  ');
  131.                  writeln('  0x61    640 400 256          ');
  132.                  if memsize>256 then
  133.                 begin
  134.                  writeln('  0x55(+)1024 768  16          ');
  135.                  writeln('  0x65   1024 768  16          ');
  136.                  writeln('  0x62    640 480 256       *  ');
  137.                  writeln('  0x63    800 600 256       *  ');
  138.                 end;
  139.  
  140.                  writeln;
  141.                  writeln('Boards: ATI VGA Wonder, (ver 2) VGAWonder+');
  142.              end;
  143.      aheada,
  144.      aheadb       :  begin
  145.                  if vgatype=aheada then
  146.                  writeln('AHEAD A w/'+szstr+'k')
  147.                  else
  148.                  writeln('AHEAD B w/'+szstr+'k');
  149.  
  150.                  writeln('  AX      Video Mode      TEGL ');
  151.                  writeln('  0x6A    800 600  16       *  ');
  152.                  writeln('  0x71    800 600  16       *  ');
  153.                  writeln('  0x60    640 400 256          ');
  154.                  if memsize>256 then
  155.                 begin
  156.                  writeln('  0x74   1024 768  16          ');
  157.                  writeln('  0x61    640 480 256       *  ');
  158.                  writeln('  0x62    800 600 256       *  ');
  159.                 end;
  160.  
  161.                  writeln;
  162.                  writeln('Boards: Ahead VGA Wizard/Deluxe, AHEADA');
  163.              end;
  164.      oaktech      :  begin
  165.                  writeln('OAK VGA Chip w/'+szstr+'k');
  166.                  writeln('  AX      Video Mode      TEGL ');
  167.                  writeln('  0x52    800 600  16       *  ');
  168.                  if memsize>256 then
  169.                 begin
  170.                  writeln('  0x53    640 480 256       *  ');
  171.                  writeln('  0x54    800 600 256       *  ');
  172.                  writeln('  0x56   1024 768  16       *  ');
  173.                  writeln('  0x6F   1024 768   4          ');
  174.                 end;
  175.  
  176.                  writeln;
  177.                  writeln('Boards: Oak');
  178.              end;
  179.      video7       :  begin
  180.                  writeln('VIDEO 7 VGA Chip w/'+szstr+'k');
  181.                  writeln('  AX      BL      Video Mode      TEGL ');
  182.                  writeln('  0x6F05  0x60    752 410  16          ');
  183.                  writeln('  0x6F05  0x61    720 540  16          ');
  184.                  writeln('  0x6F05  0x62    800 600  16       *  ');
  185.                  writeln('  0x6F05  0x63   1024 768   2          ');
  186.                  writeln('  0x6F05  0x64   1024 768   4          ');
  187.                  writeln('  0x6F05  0x66    640 400 256          ');
  188.                  if memsize>256 then
  189.                 begin
  190.                  writeln('  0x6F05  0x65   1024 768  16          ');
  191.                  writeln('  0x6F05  0x67    640 480 256       *  ');
  192.                  writeln('  0x6F05  0x68    720 540 256          ');
  193.                  writeln('  0x6F05  0x69    800 600 256       *  ');
  194.                 end;
  195.                  if memsize>512 then
  196.                  writeln('  0x6F05  0x6A   1024 768 256       *  ');
  197.  
  198.                  writeln;
  199.                  writeln('Boards: Video 7 Fastwrite, Video 7 Vram, Video 7 VEGA Deluxe, Northgate Pro');
  200.              end;
  201.      chipstech    :  begin
  202.                  writeln('Chips & Technology 82C452 w/'+szstr+'k');
  203.                  writeln('  AX      Video Mode      TEGL ');
  204.                  writeln('  0x70    800 600  16       *  ');
  205.                  writeln('  0x71    960 720  16          ');
  206.                  writeln('  0x72   1024 768  16          ');
  207.                  writeln('  0x78    640 400 256          ');
  208.                  if memsize>256 then
  209.                 begin
  210.                  writeln('  0x79    640 480 256       *  ');
  211.                  writeln('  0x7A    720 540 256          ');
  212.                  writeln('  0x7B    800 600 256       *  ');
  213.                 end;
  214.  
  215.                  writeln;
  216.                  writeln('Boards: Cardinal, Older Boca, C&T MK82452');
  217.              end;
  218.      tseng4       :  begin
  219.                  writeln('TSENG ET 4000 VGA Chip w/'+szstr+'k');
  220.                  writeln('  AX      Video Mode      TEGL ');
  221.                  writeln('  0x29    800 600  16       *  ');
  222.                  writeln('  0x37   1024 768  16          ');
  223.                  writeln('  0x2D    640 350 256          ');
  224.                  writeln('  0x2F    640 400 256          ');
  225.                  if memsize>256 then
  226.                 begin
  227.                  writeln('  0x2E    640 480 256       *  ');
  228.                  writeln('  0x30    800 600 256       *  ');
  229.                 end;
  230.                  if memsize>512 then
  231.                  writeln('  0x38   1024 768 256       *  ');
  232.  
  233.                  writeln;
  234.                  writeln('Boards: Orchid Pro Designer II, STB EM 16');
  235.              end;
  236.      genoa          :  begin
  237.                  writeln('GENOA GVGA Chip w/'+szstr+'k');
  238.                  writeln('  AX      Video Mode      TEGL ');
  239.                  writeln('  0x7c    512 512 16           ');
  240.                  writeln('  0x59    720 512 16           ');
  241.                  writeln('  0x6A    800 600 16        *  ');
  242.                  writeln('  0x79    800 600 16        *  ');
  243.                  writeln('  0x7d    512 512 256          ');
  244.                  writeln('  0x5b    640 350 256          ');
  245.                  writeln('  0x7e    640 400 256          ');
  246.                  writeln;
  247.                  writeln(' !0x2b    640 350 256          ');
  248.                  writeln(' !0x2e    640 480 256       *  ');
  249.                  writeln(' !0x30    800 600 256       *  ');
  250.                  writeln(' !0x29    800 600 16        *  ');
  251.                  writeln(' !0x37   1024 768 16           ');
  252.                  writeln;
  253.  
  254.                  if memsize>256 then
  255.                 begin
  256.                  writeln('  0x5c    640 480 256       *  ');
  257.                  writeln('  0x5d    720 512 256          ');
  258.                  writeln('  0x5e    800 600 256       *  ');
  259.                  writeln('  0x6c    800 600 256          ');
  260.                  writeln('  0x7f   1024 768 4            ');
  261.                  writeln('  0x5f   1024 768 16           ');
  262.                 end;
  263.  
  264.                  writeln;
  265.                  writeln('Boards: (!)Genoa 6400(512k), Sim ET 3000, Genoa 5300/6300 (256k)');
  266.              end;
  267.      ncr          :  begin
  268.                  writeln('NCR VGA w/'+szstr+'k');
  269.                  writeln('  AX      Video Mode      TEGL ');
  270.                  writeln('  0x59    800 600   2          ');
  271.                  writeln('  0x58    800 600  16       *  ');
  272.                  writeln('  0x5e    640 400 256          ');
  273.  
  274.                  if memsize>256 then
  275.                 begin
  276.                  writeln('  0x5f    640 480 256       *  ');
  277.                  writeln('  0x5c    800 600 256       *  ');
  278.                  writeln('  0x5a   1024 768   2          ');
  279.                  writeln('  0x5d   1024 768  16          ');
  280.                 end;
  281.              end;
  282.      compaq       :  write('COMPAQ w/'+szstr+'k');
  283.      vesa          :  write('VESA w/'+szstr+'k');
  284.       else
  285.      write('UNKNOWN');
  286.       end;
  287.    end;
  288.  
  289. begin
  290.    getvideotype;
  291. end.
  292.