#!/usr/bin/perl

open(IN, "/proc/bus/pci/01/00.0") || die "read error :$!";

binmode(IN);
read(IN, $bender, 2);
read(IN, $device, 2);

close(IN);

$val_bender = unpack("S", $bender);
$val_device = unpack("S", $device);

#printf "bender:%04x\n",$val_bender;
#printf "device:%04x\n",$val_device;

$retval = 0;
if($val_bender == 0x10de){
    if($val_device == 0x00f5){
	$retval = 1;
#	print "7800GS\n";
    }else{
	$retval = 2;
#	print "6800GT\n";
    }
}else{
    $retval = 0;
#    print "???\n";
}
exit($retval);