Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!ucsd!nosc!manta!north
From: north@manta.NOSC.MIL (Mark H. North)
Newsgroups: comp.lang.pascal
Subject: Re: Detecting AT&T PC6300 in TP5.0
Message-ID: <1474@manta.NOSC.MIL>
Date: 28 Nov 90 03:22:32 GMT
References: <1990Nov27.232329.2270@herald.usask.ca>
Reply-To: north@manta.nosc.mil.UUCP (Mark H. North)
Organization: Naval Ocean Systems Center, San Diego
Lines: 35

In article <1990Nov27.232329.2270@herald.usask.ca> reeves@dvinci writes:
>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;

Sorry I think I'm coming in late on this. Another way to detect an AT&T
PC6300 is by how slow it goes and how you can't see what's on the screen
(monochrome CGA) when a program actually writes in color after being told
it's a real CGA. I guess this isn't useful though. I use mine for a boat
anchor and works good for that. 8^)






Mark