Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!mit-eddie!uw-beaver!ubc-cs!alberta!herald.usask.ca!news
From: reeves@dvinci (Malcolm Reeves)
Newsgroups: comp.lang.pascal
Subject: Re: Detecting AT&T PC6300 in TP5.0
Message-ID: <1990Nov27.232329.2270@herald.usask.ca>
Date: 27 Nov 90 23:23:29 GMT
Sender: news@herald.usask.ca (USENET News System)
Reply-To: reeves@dvinci
Organization: University of Saskatchewan
Lines: 21

Someone recently asked for this? I don't know if this code works on all
PC6300's but it works on all the ones I've tested with Rev. 1.21 and Rev 1.43
Bios's. Just use InitGraph immediately after AutoDetect.

Procedure AutoDetect(Var GrDriver,GrMode: integer);
{* Works for Bios Rev 1.21 and 1.43 and maybe others :-)                   *}
{* $fc40:$000  32 char ASCIIZ string 'COPYRIGHT (C)   OLIVETTI 1984   '    *}
{* Autodetect uses the last 16 bytes to check for an AT&T6300              *}
{* Revision numbers are at $fdab:$0002 and $fd9e:$0000 respectively        *}
{* Bios release date is at $fff6:$0000                                     *}
{* Malcolm Reeves reeves@dvinci.usask.ca                                   *}
Type
  ATTString = Array[1..8] of char;
Const
  ATTBios: ATTString = ('O','L','I','V','E','T','T','I');
Var
  ATTDetect: ATTString absolute $FC05:000;
Begin
  GrDriver:=ATT400; GrMode := ATT400Hi;
  if ATTDetect<>ATTBios then GrDriver:=Detect;
End;