#!/bin/rc
#
# command: /bin/boddle /n/juke/plan_9/sys/src/cmd/aux/vga /sys/src/cmd/aux/vga
# srcdir: /n/juke/plan_9/sys/src/cmd/aux/vga
# version: 871963795
# date: Tue Aug 19 00:09:55 EDT 1997
#
myname=$0
doextract=no

fn usage{
	echo $myname: usage: $myname '[-X] [src-directory]' >[1=2]
	exit usage
}

fn sigint{
	rm -rf 871963795
	exit interrupt
}

while(~ $1 -*){
	switch($1){
	case -X
		doextract=yes
	case -*
		usage
	}
	shift
}

switch($#*){
case 0
	srcdir=/sys/src/cmd/aux/vga
case 1
	srcdir=$1
case *
	usage
}

if(! ~ $doextract yes){
	echo This shell file contains a bundle of diffs representing changes
	echo to original source files in the Plan 9 distribution. It will run
	echo against the files in
	echo ' ' $srcdir
	echo '(unless overridden by the optional source directory argument)'
	echo and create a directory 871963795 containing the updated files.
	echo It will NOT automatically update the original files.
	echo
	echo Invoke with argument -X to perform the actual extraction.
	exit 0
}

rm -rf 871963795
mkdir 871963795

target=871963795/att20c49x.c
echo -n '871963795/att20c49x.c: '
if(! test -f $srcdir/att20c49x.c || ! test -r $srcdir/att20c49x.c){
	echo $srcdir/att20c49x.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/att20c49x.c}
if(! ~ a6531ae41610  $sum(1)^$sum(2)){
	echo $srcdir/att20c49x.c is not the original distribution file
	exit original
}
cp $srcdir/att20c49x.c 871963795/att20c49x.c
ed 871963795/att20c49x.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM att20c49x.c'
72a

Ctlr att20c490 = {
	"att20c490",			/* name */
	0,				/* snarf */
	0,				/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};
.
68,69d
66c
dump(Vga*, Ctlr* ctlr)
.
45,46d
41c
load(Vga* vga, Ctlr* ctlr)
.
35,37c
		vga->f[0] = vga->mode->frequency;
	if(vga->f[0] > pclk)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);
.
19d
14c
init(Vga* vga, Ctlr* ctlr)
.
7c
 * ATT20C490 and ATT20C49[12] True-Color CMOS RAMDACs.
.
wq
//GO.SYSIN DD VADIM att20c49x.c
sum=`{sum < 871963795/att20c49x.c}
if(~ 29153b3e1696  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/att20c49x.c checksum error creating updated file
	exit checksum
}
target=871963795/att21c498.c
echo -n '871963795/att21c498.c: '
if(! test -f $srcdir/att21c498.c || ! test -r $srcdir/att21c498.c){
	echo $srcdir/att21c498.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/att21c498.c}
if(! ~ b350d1cd3369  $sum(1)^$sum(2)){
	echo $srcdir/att21c498.c is not the original distribution file
	exit original
}
cp $srcdir/att21c498.c 871963795/att21c498.c
ed 871963795/att21c498.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM att21c498.c'
153,154d
150c
dump(Vga*, Ctlr* ctlr)
.
127d
123c
load(Vga* vga, Ctlr* ctlr)
.
116,117c
	if(vga->f[0] > pclk)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);
.
112,113c
	if(vga->ctlr && (vga->ctlr->flag & Hpclk2x8) && vga->mode->z == 8 && vga->f[0] > 80000000){
		vga->f[0] /= 2;
.
104,105c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
.
74d
69c
init(Vga* vga, Ctlr* ctlr)
.
62,64d
60c
options(Vga*, Ctlr* ctlr)
.
56c
	outportb(Pixmask, data);
	inportb(PaddrW);
.
48c
	inportb(PaddrW);
.
45,46c
	attdacio(reg);
	r = inportb(Pixmask);
.
43c
	uchar r;
.
36,37c
		inportb(Pixmask);
.
33,34c
	inportb(PaddrW);
.
25d
21c
static void
.
wq
//GO.SYSIN DD VADIM att21c498.c
sum=`{sum < 871963795/att21c498.c}
if(~ 030c5b803175  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/att21c498.c checksum error creating updated file
	exit checksum
}
target=871963795/bt485.c
echo -n '871963795/bt485.c: '
if(! test -f $srcdir/bt485.c || ! test -r $srcdir/bt485.c){
	echo $srcdir/bt485.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/bt485.c}
if(! ~ 525d85df4997  $sum(1)^$sum(2)){
	echo $srcdir/bt485.c is not the original distribution file
	exit original
}
cp $srcdir/bt485.c 871963795/bt485.c
ed 871963795/bt485.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM bt485.c'
219,220d
216c
dump(Vga*, Ctlr* ctlr)
.
149,150d
145c
load(Vga*, Ctlr* ctlr)
.
136,137c
	if((ctlr->flag & Uclk2) == 0 && vga->f[0] > 67500000){
		vga->f[0] /= 2;
.
128,131c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	if(vga->f[0] > grade)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);
.
114d
109c
init(Vga* vga, Ctlr* ctlr)
.
102,105c
	ctlr->flag |= Hsid32|Hclk2|Hextsid|Henhanced|Foptions;
.
100c
options(Vga*, Ctlr* ctlr)
.
46c
		error("%s: bad reg - 0x%X\n", bt485.name, reg);
.
wq
//GO.SYSIN DD VADIM bt485.c
sum=`{sum < 871963795/bt485.c}
if(~ 93eae94e4870  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/bt485.c checksum error creating updated file
	exit checksum
}
target=871963795/ch9294.c
echo -n '871963795/ch9294.c: '
if(! test -f $srcdir/ch9294.c || ! test -r $srcdir/ch9294.c){
	echo $srcdir/ch9294.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/ch9294.c}
if(! ~ b751e3b81368  $sum(1)^$sum(2)){
	echo $srcdir/ch9294.c is not the original distribution file
	exit original
}
cp $srcdir/ch9294.c 871963795/ch9294.c
ed 871963795/ch9294.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM ch9294.c'
63c

	if(fmin > (vga->f[0]*5)/100)
		error("%s: can't find frequency %ld\n", ctlr->name, vga->f[0]);
	ctlr->flag |= Finit;
.
53,60c
		for(divisor = 1; divisor <= maxdivisor; divisor <<= 1){
			f = vga->f[0] - pattern->frequency[index]/divisor;
			if(f < 0)
				f = -f;
			if(f < fmin){
				/*vga->f = pattern->frequency[index];*/
				fmin = f;
				vga->d[0] = divisor;
				vga->i[0] = index;
			}
.
51a
	maxdivisor = 1;
	if(vga->ctlr && (vga->ctlr->flag & Hclkdiv))
		maxdivisor = 8;
	fmin = vga->f[0];
.
36,37c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
.
32d
30c
	int f, fmin, index, divisor, maxdivisor;
.
26c
init(Vga* vga, Ctlr* ctlr)
.
19a
	{ "k", "K",		/* Avance Logic */
	 50350000,  56644000,  89800000,  72000000,  75000000,  65000000,  63000000,  80000000,
	 57272000,  85000000,  94000000,  96000000, 100000000, 108000000, 110000000,  77000000,
	},
.
16,17c
	{ "e", "E",		/* Tseng */
	 50350000,  56644000,  65000000,  72000000,  80000000,  89800000,  63000000,  75000000,
	 VgaFreq0,  VgaFreq1,  31500000,  36000000,  40000000,  44900000,  50000000,  65000000,
	},
	{ "g", "G",		/* S3, IIT */
	 VgaFreq0,  VgaFreq1,  40000000,  72000000,  50000000,  77000000,  36000000,  44900000,
.
wq
//GO.SYSIN DD VADIM ch9294.c
sum=`{sum < 871963795/ch9294.c}
if(~ d07ffe532086  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/ch9294.c checksum error creating updated file
	exit checksum
}
target=871963795/clgd542x.c
echo -n '871963795/clgd542x.c: '
if(! test -f $srcdir/clgd542x.c || ! test -r $srcdir/clgd542x.c){
	echo $srcdir/clgd542x.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/clgd542x.c}
if(! ~ f08f7c605224  $sum(1)^$sum(2)){
	echo $srcdir/clgd542x.c is not the original distribution file
	exit original
}
cp $srcdir/clgd542x.c 871963795/clgd542x.c
ed 871963795/clgd542x.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM clgd542x.c'
243c
dump(Vga* vga, Ctlr* ctlr)
.
226,227d
224c
load(Vga* vga, Ctlr*)
.
191c
	if(vga->f[0] >= 42000000)
.
184,185c
	vga->sequencer[0x0E] = vga->n[0];
	vga->sequencer[0x1E] = (vga->d[0]<<1)|vga->p[0];
.
174,177c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	if(vga->f[0] > gd542x->vclk)
		error("%s: pclk %d too high\n", ctlr->name, vga->f[0]);
.
172c
	gd542x = identify(vga, ctlr);
.
169,170d
163c
init(Vga* vga, Ctlr* ctlr)
.
156,159c
	vga->f[0] = (RefFreq*nmin)/(dmin*(1+p));
	vga->d[0] = dmin;
	vga->n[0] = nmin;
	vga->p[0] = p;
.
145c
			f = vga->f[0] - (RefFreq*n)/(d*(1+p));
.
139c
	if(vga->f[0] >= 40000000)
.
136c
	fmin = vga->f[0];
.
132c
	 *	vclk = (RefFreq*n)/(d*(1+p));
.
118c
	trace("%s->init->clock\n", ctlr->name);
.
113c
clock(Vga* vga, Ctlr* ctlr)
.
105c
		vga->vmz = 2048*1024;
.
101c
		vga->vmz = 1024*1024;
.
97c
		vga->vmz = 512*1024;
.
93c
		vga->vmz = 256*1024;
.
59,60d
55c
snarf(Vga* vga, Ctlr* ctlr)
.
44c
	error("%s: unknown chip id - 0x%2.2X\n", ctlr->name, vga->crt[0x27]);
.
33c
identify(Vga* vga, Ctlr* ctlr)
.
28a
	{ 0xAC, 110000000, },		/* CL-GD5436 */
.
wq
//GO.SYSIN DD VADIM clgd542x.c
sum=`{sum < 871963795/clgd542x.c}
if(~ 88307b2f5203  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/clgd542x.c checksum error creating updated file
	exit checksum
}
target=871963795/data.c
echo -n '871963795/data.c: '
if(! test -f $srcdir/data.c || ! test -r $srcdir/data.c){
	echo $srcdir/data.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/data.c}
if(! ~ 35c28d791035  $sum(1)^$sum(2)){
	echo $srcdir/data.c is not the original distribution file
	exit original
}
cp $srcdir/data.c 871963795/data.c
ed 871963795/data.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM data.c'
38a
	&vision964,				/* ctlr */
	&vision968,				/* ctlr */
	&w30c516,				/* ctlr */
.
37a
	&tvp3026,				/* ramdac */
	&tvp3026clock,				/* clock */
	&tvp3026hwgc,				/* hwgc */
	&virge,					/* ctlr */
.
33a
	&trio64,				/* ctlr */
.
26a
	&rgb524,				/* ramdac */
	&rgb524hwgc,				/* hwgc */
.
25a
	&mach64ct,				/* ctlr */
	&mach64cthwgc,				/* hwgc */
.
23a
	&ics534x,				/* gendac */
.
16a
	&ct65540,				/* ctlr */
.
9a
	&ark2000pv,				/* ctlr */
	&ark2000pvhwgc,				/* hwgc */
	&att20c490,				/* ramdac */
.
wq
//GO.SYSIN DD VADIM data.c
sum=`{sum < 871963795/data.c}
if(~ c02158d31498  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/data.c checksum error creating updated file
	exit checksum
}
target=871963795/db.c
echo -n '871963795/db.c: '
if(! test -f $srcdir/db.c || ! test -r $srcdir/db.c){
	echo $srcdir/db.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/db.c}
if(! ~ 6ed20a745454  $sum(1)^$sum(2)){
	echo $srcdir/db.c is not the original distribution file
	exit original
}
cp $srcdir/db.c 871963795/db.c
ed 871963795/db.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM db.c'
232a

	for(attr = mode->attr; attr; attr = attr->next)
		print("mode->attr: %s=%s\n", attr->attr, attr->val);
.
228a
	print("shs=%d (0x%X), ehs=%d (0x%X)\n",
		mode->shs, mode->shs, mode->ehs, mode->ehs);
.
222a
	print("dbdumpmode\n");

.
221c
	Attr *attr;
.
219c
dbdumpmode(Mode* mode)
.
162c
dbmode(char* name, char* type, char* size)
.
147a
		else
			addattr(&mode->attr, t);
.
142c
		else if(strcmp(t->attr, "include") == 0){
.
129a
		else if(strcmp(t->attr, "shs") == 0 && mode->shs == 0)
			mode->shs = strtol(t->val, 0, 0);
		else if(strcmp(t->attr, "ehs") == 0 && mode->ehs == 0)
			mode->ehs = strtol(t->val, 0, 0);
.
100c
dbmonitor(Ndb* db, Mode* mode, char* type, char* size)
.
91d
85a

				if(vga->bios == 0){
					vga->bios = alloc(len+1);
					strncpy(vga->bios, bios, len);
				}

.
84a
					else if(strcmp(t->attr, "linear") == 0)
						vga->linear = strtol(t->val, 0, 0);
					else if(strtol(t->attr, 0, 0) == 0)
						addattr(&vga->attr, t);
.
73a
				addattr(&vga->attr, t);
.
72c
			if(vga->bios == 0)
				readbios(bios, len, offset);
.
68a
			if(vga->offset && offset != vga->offset)
				continue;
.
67c
			if((offset = strtol(t->attr, 0, 0)) == 0)
.
64a
	if(vga->bios)
		strcpy(bios, vga->bios);
.
58,59c
	char bios[256], *string;
.
53c
dbctlr(char* name, Vga* vga)
.
48c
	error("dbctlr: unknown controller \"%s\" ctlr\n", val);
.
19c
addctlr(Vga* vga, char* val)
.
17a
static void
addattr(Attr** app, Ndbtuple* t)
{
	Attr *attr, *l;

	attr = alloc(sizeof(Attr));
	attr->attr = alloc(strlen(t->attr)+1);
	strcpy(attr->attr, t->attr);
	attr->val = alloc(strlen(t->val)+1);
	strcpy(attr->val, t->val);

	for(l = *app; l; l = l->next)
		app = &l->next;
	*app = attr;
}

char*
dbattr(Attr* ap, char* attr)
{
	while(ap){
		if(strcmp(ap->attr, attr) == 0)
			return ap->val;
		ap = ap->next;
	}

	return 0;
}

.
9c
dbopen(char* dbname)
.
wq
//GO.SYSIN DD VADIM db.c
sum=`{sum < 871963795/db.c}
if(~ a4b5c8e66749  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/db.c checksum error creating updated file
	exit checksum
}
target=871963795/et4000.c
echo -n '871963795/et4000.c: '
if(! test -f $srcdir/et4000.c || ! test -r $srcdir/et4000.c){
	echo $srcdir/et4000.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/et4000.c}
if(! ~ 6fe7954b6628  $sum(1)^$sum(2)){
	echo $srcdir/et4000.c is not the original distribution file
	exit original
}
cp $srcdir/et4000.c 871963795/et4000.c
ed 871963795/et4000.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM et4000.c'
216c
dump(Vga* vga, Ctlr* ctlr)
.
196,197d
194c
load(Vga* vga, Ctlr* ctlr)
.
180c
	else if(vga->d[0] == 2)
.
178c
	if(vga->d[0] == 4)
.
175c
	vga->crt[0x31] |= (vga->i[0] & 0x18)<<3;
.
169,170c
	vga->misc |= (vga->i[0] & 0x03)<<2;
	if(vga->i[0] & 0x04)
.
166,167c
	if(vga->f[0] > 86000000)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);
.
107,108c
		vga->crt[0x04] = (mode->shs/2)>>3;
		vga->crt[0x05] = ((mode->ehs/2)>>3) & 0x1F;
.
97,98d
92c
init(Vga* vga, Ctlr* ctlr)
.
88c
	ctlr->flag |= Hclkdiv|Foptions;
.
76,77d
74c
options(Vga* vga, Ctlr* ctlr)
.
68c
		vga->vmz *= 2;
.
65c
			vga->vmz *= 2;
.
60c
		vga->vmz = 1024*1024;
.
56c
		vga->vmz = 512*1024;
.
52c
		vga->vmz = 256*1024;
.
32,33d
28c
snarf(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM et4000.c
sum=`{sum < 871963795/et4000.c}
if(~ a87778016520  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/et4000.c checksum error creating updated file
	exit checksum
}
target=871963795/et4000hwgc.c
echo -n '871963795/et4000hwgc.c: '
if(! test -f $srcdir/et4000hwgc.c || ! test -r $srcdir/et4000hwgc.c){
	echo $srcdir/et4000hwgc.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/et4000hwgc.c}
if(! ~ bc5cecc1554  $sum(1)^$sum(2)){
	echo $srcdir/et4000hwgc.c is not the original distribution file
	exit original
}
cp $srcdir/et4000hwgc.c 871963795/et4000hwgc.c
ed 871963795/et4000hwgc.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM et4000hwgc.c'
9d
7c
init(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM et4000hwgc.c
sum=`{sum < 871963795/et4000hwgc.c}
if(~ 9e0c350c518  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/et4000hwgc.c checksum error creating updated file
	exit checksum
}
target=871963795/ibm8514.c
echo -n '871963795/ibm8514.c: '
if(! test -f $srcdir/ibm8514.c || ! test -r $srcdir/ibm8514.c){
	echo $srcdir/ibm8514.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/ibm8514.c}
if(! ~ 305a3cb62396  $sum(1)^$sum(2)){
	echo $srcdir/ibm8514.c is not the original distribution file
	exit original
}
cp $srcdir/ibm8514.c 871963795/ibm8514.c
ed 871963795/ibm8514.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM ibm8514.c'
69,70d
67c
dump(Vga*, Ctlr* ctlr)
.
59c
	outportw(Multifunc, ScissorsB|(vga->vmz/vga->mode->x-1));
.
47,48d
45c
load(Vga* vga, Ctlr*)
.
wq
//GO.SYSIN DD VADIM ibm8514.c
sum=`{sum < 871963795/ibm8514.c}
if(~ 69f0f61f2337  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/ibm8514.c checksum error creating updated file
	exit checksum
}
target=871963795/icd2061a.c
echo -n '871963795/icd2061a.c: '
if(! test -f $srcdir/icd2061a.c || ! test -r $srcdir/icd2061a.c){
	echo $srcdir/icd2061a.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/icd2061a.c}
if(! ~ 4e1c808e2086  $sum(1)^$sum(2)){
	echo $srcdir/icd2061a.c is not the original distribution file
	exit original
}
cp $srcdir/icd2061a.c 871963795/icd2061a.c
ed 871963795/icd2061a.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM icd2061a.c'
103d
99,101c
	vga->f[0] = (Prescale*RefFreq*vga->n[0]/vga->d[0]);
	vga->d[0] -= 2;
	vga->n[0] -= 3;
.
88,89c
				vga->d[0] = d;
				vga->n[0] = n;
.
83c
			f = vga->f[0] - (Prescale*RefFreq*n/d);
.
79,81c
	vga->d[0] = d;
	vga->n[0] = 4;
	for(fmin = vga->f[0]; d <= dmax; d++){
.
77c
	 *	vga->f = (Prescale*RefFreq*n/d);
.
71,72c
	d = RefFreq/1000000 > 3 ? RefFreq/1000000: 3;
	dmax = RefFreq/200000 < 129 ? RefFreq/200000: 129;
.
64c
	 *	200KHz <= RefFreq/d <= 1MHz
.
59c
	for(vga->i[0] = NIndex-1; vga->f[0] < index[vga->i[0]] && vga->i[0]; vga->i[0]--)
.
53,54c
	for(vga->p[0] = 0; vga->f[0] <= 50000000; vga->p[0]++)
		vga->f[0] <<= 1;
.
46,47c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
.
42d
37c
init(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM icd2061a.c
sum=`{sum < 871963795/icd2061a.c}
if(~ 5ec562a82044  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/icd2061a.c checksum error creating updated file
	exit checksum
}
target=871963795/ics2494.c
echo -n '871963795/ics2494.c: '
if(! test -f $srcdir/ics2494.c || ! test -r $srcdir/ics2494.c){
	echo $srcdir/ics2494.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/ics2494.c}
if(! ~ 96bc40d71881  $sum(1)^$sum(2)){
	echo $srcdir/ics2494.c is not the original distribution file
	exit original
}
cp $srcdir/ics2494.c 871963795/ics2494.c
ed 871963795/ics2494.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM ics2494.c'
72c
	error("%s: can't find frequency %ld\n", ctlr->name, vga->f[0]);
.
64,65c
				vga->d[0] = divisor;
				vga->i[0] = index;
.
58,59c
		for(divisor = 1; divisor <= maxdivisor; divisor <<= 1){
			f = vga->f[0] - pattern->frequency[index]/divisor;
.
56a
	maxdivisor = 1;
	if(vga->ctlr && (vga->ctlr->flag & Hclkdiv))
		maxdivisor = 8;
.
41,42c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
.
37d
35c
	int f, index, divisor, maxdivisor;
.
31c
init(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM ics2494.c
sum=`{sum < 871963795/ics2494.c}
if(~ 8dbd6e481966  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/ics2494.c checksum error creating updated file
	exit checksum
}
target=871963795/io.c
echo -n '871963795/io.c: '
if(! test -f $srcdir/io.c || ! test -r $srcdir/io.c){
	echo $srcdir/io.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/io.c}
if(! ~ 57ea8f1a4930  $sum(1)^$sum(2)){
	echo $srcdir/io.c is not the original distribution file
	exit original
}
cp $srcdir/io.c 871963795/io.c
ed 871963795/io.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM io.c'
297,303c
	first = ' ';
	for(i = 31; i >= 0; i--){
		if((flag & (1<<i)) == 0)
			continue;
		if(flagname[i])
			print("%c%s", first, flagname[i]);
		else
			print("%c0x%x", first, 1<<i);
		first = '|';
.
295c
	int i;
	char first;
.
293c
printflag(ulong flag)
.
291a
static char *flagname[32] = {
	[0x00]	"Fsnarf",
	[0x01]	"Foptions",
	[0x02]	"Finit",
	[0x03]	"Fload",
	[0x04]	"Fdump",

	[0x08]	"Hpclk2x8",
	[0x09]	"Upclk2x8",
	[0x0A]	"Henhanced",
	[0x0B]	"Uenhanced",
	[0x0C]	"Hpvram",
	[0x0D]	"Upvram",
	[0x0E]	"Hextsid",
	[0x0F]	"Uextsid",
	[0x10]	"Hclk2",
	[0x11]	"Uclk2",
	[0x12]	"Hlinear",
	[0x13]	"Ulinear",
	[0x14]	"Hclkdiv",
	[0x15]	"Uclkdiv",
	[0x16]	"Hsid32",
};

.
289c
	curprintindex++;
.
286c
	if(curprintindex == 8)
.
283c
		curprintindex = 0;
.
281c
	if((curprintindex % 16) == 0 && curprintindex){
.
264,265c
	if(curprintindex){
		curprintindex = 0;
.
260c
printitem(char* ctlr, char* item)
.
257,258d
252c
		error("alloc: %d bytes - %r\n", nbytes);
.
229,245d
193c
		error("readbios: read: %r\n");
.
186c
readbios(char* buf, long len, long offset)
.
182c
	trace("-vgactlw %s\n", buf);

	ctlclean = 0;
.
179c
	trace("+vgactlw %s\n", buf);
.
169c
vgactlw(char* attr, char* val)
.
163a
	trace("vgactlr: %s not found\n", a);
.
160a
			trace("vgactlr: value %s\n", v);
.
157d
155a
	trace("vgactlr: look for %s\n", a);
.
152c
vgactlr(char* a, char* v)
.
148a

	ctlclean = 1;
.
127c
	ctlbuf[nattr] = 0;
.
125c
	nattr = read(ctlfd, ctlbuf, Nctlchar-1);
	if(nattr < 0)
.
121,123d
115a
	if(ctlclean)
		return;

.
26c
devopen(char* device, int mode)
.
18a
static int ctlclean;
.
6a
int curprintindex;

.
3d
wq
//GO.SYSIN DD VADIM io.c
sum=`{sum < 871963795/io.c}
if(~ f086a9725332  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/io.c checksum error creating updated file
	exit checksum
}
target=871963795/mach32.c
echo -n '871963795/mach32.c: '
if(! test -f $srcdir/mach32.c || ! test -r $srcdir/mach32.c){
	echo $srcdir/mach32.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/mach32.c}
if(! ~ 453d886a6283  $sum(1)^$sum(2)){
	echo $srcdir/mach32.c is not the original distribution file
	exit original
}
cp $srcdir/mach32.c 871963795/mach32.c
ed 871963795/mach32.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM mach32.c'
264c
dump(Vga* vga, Ctlr* ctlr)
.
236d
232c
load(Vga* vga, Ctlr* ctlr)
.
180c
		error("%s: no suitable clock for %d\n", ctlr->name, vga->f[0]);
.
176c
		if(clockp->frequency > vga->f[0]-100000)
.
174c
		if(clockp->frequency > vga->f[0]+100000)
.
171,172c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
.
168d
163c
init(Vga* vga, Ctlr* ctlr)
.
157,158d
155c
options(Vga*, Ctlr* ctlr)
.
147c
		vga->vmz = 4*1024*1024;
.
143c
		vga->vmz = 2*1024*1024;
.
139c
		vga->vmz = 1024*1024;
.
135c
		vga->vmz = 512*1024;
.
116,117d
111c
snarf(Vga* vga, Ctlr* ctlr)
.
84,88c
	atix = 0x1CE;
.
79,82c
	 * We could try to read in a part of the BIOS and try to determine
	 * the extended register address, but since we can't determine the offset value,
	 * we'll just have to assume the defaults all round.
.
73c
atixinit(Vga* vga, Ctlr*)
.
57d
wq
//GO.SYSIN DD VADIM mach32.c
sum=`{sum < 871963795/mach32.c}
if(~ 76fdac055915  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/mach32.c checksum error creating updated file
	exit checksum
}
target=871963795/mach64.c
echo -n '871963795/mach64.c: '
if(! test -f $srcdir/mach64.c || ! test -r $srcdir/mach64.c){
	echo $srcdir/mach64.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/mach64.c}
if(! ~ 636d2de78322  $sum(1)^$sum(2)){
	echo $srcdir/mach64.c is not the original distribution file
	exit original
}
cp $srcdir/mach64.c 871963795/mach64.c
ed 871963795/mach64.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM mach64.c'
347c
dump(Vga* vga, Ctlr* ctlr)
.
321,322d
319c
load(Vga* vga, Ctlr* ctlr)
.
313c
	vga->vmz = 1*1024*1024;
.
295,297c
	vga->crt[0xB9] |= pclkp[vga->i[0]].b9;
	vga->crt[0xBE] |= pclkp[vga->i[0]].be;
	vga->misc |= pclkp[vga->i[0]].genmo;
.
293c
	if(vga->d[0] == 2)
.
258,259c
	vga->d[0] = divisor;
	vga->i[0] = index;
.
256c
		error("%s: no suitable clock for %d\n", ctlr->name, vga->f[0]);
.
252c
		if(f < vga->f[0]+1000000 && f >= vga->f[0]-1000000)
.
247c
		if(f < vga->f[0]+1000000 && f >= vga->f[0]-1000000)
.
237,238c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
.
226d
221c
init(Vga* vga, Ctlr* ctlr)
.
213c
		vga->vmz = 8*1024*1024;
.
209c
		vga->vmz = 6*1024*1024;
.
205c
		vga->vmz = 4*1024*1024;
.
201c
		vga->vmz = 2*1024*1024;
.
197c
		vga->vmz = 1024*1024;
.
193c
		vga->vmz = 512*1024;
.
175,176d
170c
snarf(Vga* vga, Ctlr* ctlr)
.
166c
		vga->private = alloc(sizeof(Mach64));
.
147d
136d
133c
atixinit(Vga* vga, Ctlr*)
.
97c
static Pclk ati18818[Npclkx] = {
.
71c
static Pclk ati188111[Npclkx] = {
.
48c
static Pclk ati188110[Npclkx] = {
.
wq
//GO.SYSIN DD VADIM mach64.c
sum=`{sum < 871963795/mach64.c}
if(~ 82efeb008200  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/mach64.c checksum error creating updated file
	exit checksum
}
target=871963795/main.c
echo -n '871963795/main.c: '
if(! test -f $srcdir/main.c || ! test -r $srcdir/main.c){
	echo $srcdir/main.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/main.c}
if(! ~ b5a7a5cd3680  $sum(1)^$sum(2)){
	echo $srcdir/main.c is not the original distribution file
	exit original
}
cp $srcdir/main.c 871963795/main.c
ed 871963795/main.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM main.c'
212c
	trace("main->exits\n", 0);
.
205a
			sequencer(vga, 1);
.
200d
197a
				trace("%s->load\n", ctlr->name);
.
194a
			linear(vga);

			/*
			 * Turn off the display during the load.
			 */
			sequencer(vga, 0);

.
186,188c
				strncpy(buf, vga->ctlr->name, p - vga->ctlr->name);
				buf[p - vga->ctlr->name] = 0;
				vgactlw("type", buf);
.
178,182d
176c
					ctlr->name, vga->vmz);
.
173,174c
			trace("main->load\n", 0);
			if(vga->vmz && (vga->mode->x*vga->mode->y*vga->mode->z/8 > vga->vmz))
.
165a
			trace("%s->init\n", ctlr->name);
.
159a
			trace("%s->options\n", ctlr->name);
.
155c
			error("main: %s@%s not in %s\n", type, size, monitordb);
.
139a
		trace("%s->snarf\n", ctlr->name);
.
136a
	if(nflag)
		vga->linear = 0;

	trace("main->snarf\n", 0);
.
128,129c
	if(dbctlr(dbname, vga) == 0 || vga->ctlr == 0){
		print("%s: controller not in %s\n", argv0, dbname);
.
122a
	if(bios){
		if((vga->offset = strtol(bios, &p, 0)) == 0 || *p++ != '=')
			error("main: bad BIOS string format - %s\n", bios);
		len = strlen(p);
		vga->bios = alloc(len+1);
		strncpy(vga->bios, p, len);
		trace("main->BIOS %s\n", bios);
	}
.
116a
	case 'x':
		dbname = ARGF();
		break;

.
104a
	case 'n':
		nflag = 1;
		break;

.
88a
	case 'b':
		bios = ARGF();
		break;

.
82a
	bios = getenv("vgactlr");
.
79c
	char *bios, buf[256], *p, *size, *type;
	int len;
.
77c
main(int argc, char** argv)
.
75a
static void
linear(Vga* vga)
{
	char buf[256];

	/*
	 * Set up for linear addressing: try to allocate the
	 * kernel memory map then read the base-address back.
	 * vga->linear is a compatibility hack.
	 */
	if(vga->linear == 0){
		vga->ctlr->flag &= ~Ulinear;
		return;
	}
	if(vga->ctlr->flag & Ulinear){
		sprint(buf, "0x%lux 0x%lux", vga->vmz, vga->vma);
		vgactlw("linear", buf);
		vgactlr("addr", buf);
		trace("linear->addr %s\n", buf);
		vga->vmb = strtoul(buf, 0, 0);
	}
	else
		vgactlw("linear", "0");
}

.
73c
	state = on;
	trace("sequencer->leave %s\n", s);
.
64,66c
		if(state == 0){
			seq01 |= 0x01;
			vgaxo(Seqx, 0x01, seq01);
			vgaxo(Seqx, 0x00, 0x03);
		}
.
60c
	if(on)
		s = "on";
	else
		s = "off";
	trace("sequencer->enter %s\n", s);
.
58a
	static int state = 1;
	char *s;
.
56c
sequencer(Vga* vga, int on)
.
50a
		trace("%s->init 0x%8.8uX\n", link->name, link->flag);
.
40c
	trace("%s->resyncinit on 0x%8.8uX off 0x%8.8uX\n", ctlr->name, on, off);
.
36c
resyncinit(Vga* vga, Ctlr* ctlr, ulong on, ulong off)
.
27c
			printflag(ctlr->flag);
			print("\n");
.
24c
		trace("%s->dump\n", ctlr->name);
.
13c
dump(Vga* vga)
.
6,7c
static int iflag, lflag, nflag, pflag;
static char *usage = "usage: %s [ -b bios-id ] [ -cdilnpv ] [ -m monitor ]  [ mode ]\n";
.
wq
//GO.SYSIN DD VADIM main.c
sum=`{sum < 871963795/main.c}
if(~ 4125143f5102  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/main.c checksum error creating updated file
	exit checksum
}
target=871963795/mkfile
echo -n '871963795/mkfile: '
if(! test -f $srcdir/mkfile || ! test -r $srcdir/mkfile){
	echo $srcdir/mkfile unreadable
	exit unreadable
}
sum=`{sum < $srcdir/mkfile}
if(! ~ d33a7c3e481  $sum(1)^$sum(2)){
	echo $srcdir/mkfile is not the original distribution file
	exit original
}
cp $srcdir/mkfile 871963795/mkfile
ed 871963795/mkfile >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM mkfile'
41a

adjust:	adjust.$O error$DIST.$O io.$O vga.$O palette.$O
	$LD -o $target $prereq
.
37a
	vision964.$O\
	vision968.$O\
	w30c516.$O\
.
36a
	virge.$O\
.
35a
	tvp3026.$O\
	tvp3026clock.$O\
.
32a
	trio64.$O\
.
25a
	rgb524.$O\
.
23a
	mach64ct.$O\
.
20a
	ics534x.$O\
.
15a
	error$DIST.$O\
.
13a
	ct65540.$O\
.
8a
	ark2000pv.$O\
.
5a
#
# For systems based on the Plan 9 Distribution CD set
#	DIST=dist
#
DIST=

.
wq
//GO.SYSIN DD VADIM mkfile
sum=`{sum < 871963795/mkfile}
if(~ 48afe42f819  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/mkfile checksum error creating updated file
	exit checksum
}
target=871963795/palette.c
echo -n '871963795/palette.c: '
if(! test -f $srcdir/palette.c || ! test -r $srcdir/palette.c){
	echo $srcdir/palette.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/palette.c}
if(! ~ e4e8953e2249  $sum(1)^$sum(2)){
	echo $srcdir/palette.c is not the original distribution file
	exit original
}
cp $srcdir/palette.c 871963795/palette.c
ed 871963795/palette.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM palette.c'
101c
dump(Vga* vga, Ctlr* ctlr)
.
87,88d
83c
load(Vga* vga, Ctlr* ctlr)
.
58,59d
52c
init(Vga* vga, Ctlr* ctlr)
.
37,38d
33c
snarf(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM palette.c
sum=`{sum < 871963795/palette.c}
if(~ 0a3bb2a12137  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/palette.c checksum error creating updated file
	exit checksum
}
target=871963795/s3801.c
echo -n '871963795/s3801.c: '
if(! test -f $srcdir/s3801.c || ! test -r $srcdir/s3801.c){
	echo $srcdir/s3801.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/s3801.c}
if(! ~ 67eff0401747  $sum(1)^$sum(2)){
	echo $srcdir/s3801.c is not the original distribution file
	exit original
}
cp $srcdir/s3801.c 871963795/s3801.c
ed 871963795/s3801.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM s3801.c'
81c
	s3generic.dump(vga, ctlr);
.
79c
dump(Vga* vga, Ctlr* ctlr)
.
61,63c
	s3generic.load(vga, ctlr);
.
57c
load(Vga* vga, Ctlr* ctlr)
.
31,33c
	s3generic.init(vga, ctlr);
.
27c
init(Vga* vga, Ctlr* ctlr)
.
20,22d
18c
options(Vga*, Ctlr* ctlr)
.
12,14c
	s3generic.snarf(vga, ctlr);
.
10c
snarf(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM s3801.c
sum=`{sum < 871963795/s3801.c}
if(~ c96a8c2e1566  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/s3801.c checksum error creating updated file
	exit checksum
}
target=871963795/s3928.c
echo -n '871963795/s3928.c: '
if(! test -f $srcdir/s3928.c || ! test -r $srcdir/s3928.c){
	echo $srcdir/s3928.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/s3928.c}
if(! ~ 3f9ce9152430  $sum(1)^$sum(2)){
	echo $srcdir/s3928.c is not the original distribution file
	exit original
}
cp $srcdir/s3928.c 871963795/s3928.c
ed 871963795/s3928.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM s3928.c'
111c
dump(Vga* vga, Ctlr* ctlr)
.
95,96d
91c
load(Vga* vga, Ctlr* ctlr)
.
58c
	s3generic.init(vga, ctlr);
.
49,50c
		vga->crt[0x04] = (mode->shs/4)>>3;
		vga->crt[0x05] = ((mode->ehs/4)>>3) & 0x1F;
.
37c
	 * will be correct when s3generic.init() calculates
.
35c
	 * s3generic.init() will perform the same test.
.
32,33d
27c
init(Vga* vga, Ctlr* ctlr)
.
20,23c
	ctlr->flag |= Hlinear|Henhanced|Foptions;
.
18c
options(Vga*, Ctlr* ctlr)
.
12,14c
	s3generic.snarf(vga, ctlr);
.
10c
snarf(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM s3928.c
sum=`{sum < 871963795/s3928.c}
if(~ adc9368b2272  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/s3928.c checksum error creating updated file
	exit checksum
}
target=871963795/s3clock.c
echo -n '871963795/s3clock.c: '
if(! test -f $srcdir/s3clock.c || ! test -r $srcdir/s3clock.c){
	echo $srcdir/s3clock.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/s3clock.c}
if(! ~ 5c89f9544780  $sum(1)^$sum(2)){
	echo $srcdir/s3clock.c is not the original distribution file
	exit original
}
cp $srcdir/s3clock.c 871963795/s3clock.c
ed 871963795/s3clock.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM s3clock.c'
181c
		clocks[i].load(vga, ctlr);
		if(strcmp(clocks[i].name, "icd2061a") == 0){
			clocks[i].load(vga, ctlr);
			clocks[i].load(vga, ctlr);
		}
.
168,169d
163c
load(Vga* vga, Ctlr* ctlr)
.
154,156c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	if(vga->f[0] != VgaFreq0 && vga->f[0] != VgaFreq1)
.
146,148d
144c
	if(vga->clock->init && (vga->clock->flag & Finit) == 0)
.
142c
		error("%s: unknown clock \"%s\"\n", ctlr->name, vga->clock->name);
.
125,126d
120c
init(Vga* vga, Ctlr* ctlr)
.
114,115c
	{ "icd2061a",		icd2061aload, },
	{ "ch9294",		ch9294load, },
	{ "tvp3025clock",	tvp3025load, },
	{ "tvp3026clock",	tvp3026load, },
.
109a
static void
tvp3025load(Vga* vga, Ctlr* ctlr)
{
	uchar crt5c, x;

	trace("%s->clock->tvp3025load\n", ctlr->name);

	/*
	 * Crt5C bit 5 is RS4.
	 * Clear it to select TVP3025 registers for
	 * the calls to tvp302xo().
	 */
	crt5c = vgaxi(Crtx, 0x5C);
	vgaxo(Crtx, 0x5C, crt5c & ~0x20);

	tvp3020xo(0x2C, 0x00);
	tvp3020xo(0x2D, vga->d[0]);
	tvp3020xo(0x2D, vga->n[0]);
	tvp3020xo(0x2D, 0x08|vga->p[0]);

	tvp3020xo(0x2F, 0x01);
	tvp3020xo(0x2F, 0x01);
	tvp3020xo(0x2F, vga->p[0]);
	x = 0x54;
	if(vga->ctlr && (vga->ctlr->flag & Uenhanced))
		x = 0xC4;
	tvp3020xo(0x1E, x);

	vgaxo(Crtx, 0x5C, crt5c);
	vgao(MiscW, vga->misc);

	ctlr->flag |= Fload;
}

static void
tvp3026load(Vga* vga, Ctlr* ctlr)
{
	trace("%s->clock->tvp3026load\n", ctlr->name);

	if((vga->misc & 0x0C) != 0x0C && vga->mode->z == 1){
		tvp3026xo(0x1A, 0x07);
		tvp3026xo(0x18, 0x80);
		tvp3026xo(0x19, 0x98);
		tvp3026xo(0x2C, 0x2A);
		tvp3026xo(0x2F, 0x00);
		tvp3026xo(0x2D, 0x00);
		tvp3026xo(0x39, 0x18);
		setcrt42(vga, ctlr, 0);
	}
	else if(vga->mode->z == 8){
		tvp3026xo(0x1A, 0x05);
		tvp3026xo(0x18, 0x80);
		tvp3026xo(0x19, 0x4C);
		tvp3026xo(0x2C, 0x2A);
		tvp3026xo(0x2F, 0x00);
		tvp3026xo(0x2D, 0x00);

		tvp3026xo(0x2C, 0x00);
		tvp3026xo(0x2D, 0xC0|vga->n[0]);
		tvp3026xo(0x2D, vga->m[0] & 0x3F);
		tvp3026xo(0x2D, 0xB0|vga->p[0]);
		while(!(tvp3026xi(0x2D) & 0x40))
			;

		tvp3026xo(0x39, 0x38|vga->q[1]);
		tvp3026xo(0x2C, 0x00);
		tvp3026xo(0x2F, 0xC0|vga->n[1]);
		tvp3026xo(0x2F, vga->m[1]);
		tvp3026xo(0x2F, 0xF0|vga->p[1]);
		while(!(tvp3026xi(0x2F) & 0x40))
			;

		setcrt42(vga, ctlr, 3);
	}

	ctlr->flag |= Fload;
}

.
107c
	setcrt42(vga, ctlr, vga->i[0]);
.
105c
	trace("%s->clock->ch9294load\n", ctlr->name);
.
103c
ch9294load(Vga* vga, Ctlr* ctlr)
.
32c
	sdata = (2<<21)|(vga->i[0]<<17)|((vga->n[0])<<10)|(vga->p[0]<<7)|vga->d[0];
.
26c
	trace("%s->clock->icd2061aload\n", ctlr->name);
.
20c
icd2061aload(Vga* vga, Ctlr* ctlr)
.
9c
	trace("%s->clock->setcrt42\n", ctlr->name);
.
7c
setcrt42(Vga* vga, Ctlr* ctlr, uchar index)
.
5a
/*
 * Clocks which require fiddling with the S3 registers
 * in order to be loaded.
 */
.
wq
//GO.SYSIN DD VADIM s3clock.c
sum=`{sum < 871963795/s3clock.c}
if(~ 1ab765f16532  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/s3clock.c checksum error creating updated file
	exit checksum
}
target=871963795/s3generic.c
echo -n '871963795/s3generic.c: '
if(! test -f $srcdir/s3generic.c || ! test -r $srcdir/s3generic.c){
	echo $srcdir/s3generic.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/s3generic.c}
if(! ~ 6d7235b26285  $sum(1)^$sum(2)){
	echo $srcdir/s3generic.c is not the original distribution file
	exit original
}
cp $srcdir/s3generic.c 871963795/s3generic.c
ed 871963795/s3generic.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM s3generic.c'
233c
	 * and the horizontal values have been divided by 4.
.
199c
dump(Vga* vga, Ctlr* ctlr)
.
191a

.
188a

	if(ctlr->flag & Ulinear){
		l = vga->vmb>>16;
		vga->crt[0x59] = (l>>8) & 0xFF;
		vga->crt[0x5A] = l & 0xFF;
		if(vga->vmz <= 1024*1024)
			vga->crt[0x58] |= 0x01;
		else if(vga->vmz <= 2*1024*1024)
			vga->crt[0x58] |= 0x02;
		else
			vga->crt[0x58] |= 0x03;
	}
.
169a
	trace("%s->load->s3generic\n", ctlr->name);

.
168c
	ulong l;
.
166c
load(Vga* vga, Ctlr* ctlr)
.
134a
		if(vga->linear && (ctlr->flag & Hlinear))
			ctlr->flag |= Ulinear;
		if(vga->vmz <= 1024*1024)
			vga->vma = 1024*1024;
		else if(vga->vmz <= 2*1024*1024)
			vga->vma = 2*1024*1024;
		else
			vga->vma = 8*1024*1024;
	}
.
133c
	if(ctlr->flag & Uenhanced){
.
129,130c
	 * Set up linear aperture. For the moment it's 64K at 0xA0000.
	 * The real base address will be assigned before load is called.
.
107a
	vga->crt[0x45] = 0x00;
.
81a
	if((ctlr->flag & Uenhanced) == 0 && mode->x > 1024)
		error("%s: no support for 1-bit mode > 1024x768x1\n", ctlr->name);
.
77c
		if(mode->z == 8)
.
74c
	 * Is enhanced mode is necessary?
.
70c
	trace("%s->init->s3generic\n", ctlr->name);
.
65c
init(Vga* vga, Ctlr* ctlr)
.
57c
		vga->vmz = 512*1024;
.
53c
		vga->vmz = 1*1024*1024;
.
49c
		vga->vmz = 2*1024*1024;
.
45c
		vga->vmz = 3*1024*1024;
.
41c
		vga->vmz = 4*1024*1024;
.
25c
	trace("%s->snarf->s3generic\n", ctlr->name);
.
21c
snarf(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM s3generic.c
sum=`{sum < 871963795/s3generic.c}
if(~ c5ec29d86966  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/s3generic.c checksum error creating updated file
	exit checksum
}
target=871963795/s3hwgc.c
echo -n '871963795/s3hwgc.c: '
if(! test -f $srcdir/s3hwgc.c || ! test -r $srcdir/s3hwgc.c){
	echo $srcdir/s3hwgc.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/s3hwgc.c}
if(! ~ 0e12618e1105  $sum(1)^$sum(2)){
	echo $srcdir/s3hwgc.c is not the original distribution file
	exit original
}
cp $srcdir/s3hwgc.c 871963795/s3hwgc.c
ed 871963795/s3hwgc.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM s3hwgc.c'
58a
	0,				/* snarf */
	0,				/* options */
	0,				/* init */
	0,				/* load */
	0,				/* dump */
};

Ctlr tvp3026hwgc = {
	"tvp3026hwgc",			/* name */
.
47a
Ctlr rgb524hwgc = {
	"rgb524hwgc",			/* name */
	0,				/* snarf */
	0,				/* options */
	0,				/* init */
	0,				/* load */
	0,				/* dump */
};

.
27d
25c
load(Vga* vga, Ctlr* ctlr)
.
9d
7c
init(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM s3hwgc.c
sum=`{sum < 871963795/s3hwgc.c}
if(~ b1f8e67b1327  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/s3hwgc.c checksum error creating updated file
	exit checksum
}
target=871963795/sc15025.c
echo -n '871963795/sc15025.c: '
if(! test -f $srcdir/sc15025.c || ! test -r $srcdir/sc15025.c){
	echo $srcdir/sc15025.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/sc15025.c}
if(! ~ 25231c031997  $sum(1)^$sum(2)){
	echo $srcdir/sc15025.c is not the original distribution file
	exit original
}
cp $srcdir/sc15025.c 871963795/sc15025.c
ed 871963795/sc15025.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM sc15025.c'
107,108d
103c
dump(Vga*, Ctlr* ctlr)
.
89d
86,87d
82c
load(Vga*, Ctlr*)
.
75,78c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	if(vga->f[0] > pclk)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);
.
60d
55c
init(Vga* vga, Ctlr* ctlr)
.
48,50d
46c
options(Vga*, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM sc15025.c
sum=`{sum < 871963795/sc15025.c}
if(~ 4260967c1842  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/sc15025.c checksum error creating updated file
	exit checksum
}
target=871963795/stg1702.c
echo -n '871963795/stg1702.c: '
if(! test -f $srcdir/stg1702.c || ! test -r $srcdir/stg1702.c){
	echo $srcdir/stg1702.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/stg1702.c}
if(! ~ 7ca6f4dc3348  $sum(1)^$sum(2)){
	echo $srcdir/stg1702.c is not the original distribution file
	exit original
}
cp $srcdir/stg1702.c 871963795/stg1702.c
ed 871963795/stg1702.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM stg1702.c'
162,163d
159c
dump(Vga*, Ctlr* ctlr)
.
144c
		else if(vga->f[0] < 32000000)
.
142c
		if(vga->f[0] < 16000000)
.
133,134d
129c
load(Vga* vga, Ctlr* ctlr)
.
120,121c
	if(vga->ctlr && (vga->ctlr->flag & Hpclk2x8) && vga->mode->z == 8 && vga->f[0] >= 110000000){
		vga->f[0] /= 2;
.
110,113c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	if(vga->f[0] < 16000000 || vga->f[0] > pclk)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);
.
91d
87c
init(Vga* vga, Ctlr* ctlr)
.
80,82d
78c
options(Vga*, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM stg1702.c
sum=`{sum < 871963795/stg1702.c}
if(~ 19acaecf3229  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/stg1702.c checksum error creating updated file
	exit checksum
}
target=871963795/template.c
echo -n '871963795/template.c: '
if(! test -f $srcdir/template.c || ! test -r $srcdir/template.c){
	echo $srcdir/template.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/template.c}
if(! ~ 2be7d811747  $sum(1)^$sum(2)){
	echo $srcdir/template.c is not the original distribution file
	exit original
}
cp $srcdir/template.c 871963795/template.c
ed 871963795/template.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM template.c'
42c
dump(Vga* vga, Ctlr* ctlr)
.
37d
34c
load(Vga* vga, Ctlr* ctlr)
.
29d
26c
init(Vga* vga, Ctlr* ctlr)
.
21d
18c
options(Vga* vga, Ctlr* ctlr)
.
13d
10c
snarf(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM template.c
sum=`{sum < 871963795/template.c}
if(~ 70089645599  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/template.c checksum error creating updated file
	exit checksum
}
target=871963795/tvp3020.c
echo -n '871963795/tvp3020.c: '
if(! test -f $srcdir/tvp3020.c || ! test -r $srcdir/tvp3020.c){
	echo $srcdir/tvp3020.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/tvp3020.c}
if(! ~ 95b7a1946049  $sum(1)^$sum(2)){
	echo $srcdir/tvp3020.c is not the original distribution file
	exit original
}
cp $srcdir/tvp3020.c 871963795/tvp3020.c
ed 871963795/tvp3020.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM tvp3020.c'
289c
	if(checkindex(0x00, 0x01) != Tvp3020)
.
286,287d
281c
dump(Vga*, Ctlr* ctlr)
.
200d
196c
load(Vga* vga, Ctlr* ctlr)
.
187,188c
	if(vga->f[0] > 85000000){
		vga->f[0] /= 2;
.
179,182c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	if(vga->f[0] > grade)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);
.
165d
160c
init(Vga* vga, Ctlr* ctlr)
.
153,155d
151c
options(Vga*, Ctlr* ctlr)
.
85c
		error("%s: bad register index - 0x%2.2X\n", tvp3020.name, index);
.
80c
		print("%s: unknown chip id - 0x%2.2X\n", tvp3020.name, id);
.
75a
	case Tvp3026:
.
21a
	Tvp3026		= 0x26,
.
11,15d
7c
 * Tvp302[056] Viewpoint Video Interface Palette.
.
wq
//GO.SYSIN DD VADIM tvp3020.c
sum=`{sum < 871963795/tvp3020.c}
if(~ 85c65b175773  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/tvp3020.c checksum error creating updated file
	exit checksum
}
target=871963795/tvp3025.c
echo -n '871963795/tvp3025.c: '
if(! test -f $srcdir/tvp3025.c || ! test -r $srcdir/tvp3025.c){
	echo $srcdir/tvp3025.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/tvp3025.c}
if(! ~ 97a5bc161322  $sum(1)^$sum(2)){
	echo $srcdir/tvp3025.c is not the original distribution file
	exit original
}
cp $srcdir/tvp3025.c 871963795/tvp3025.c
ed 871963795/tvp3025.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM tvp3025.c'
60a
	print("%23ld\n", dumpclock(clock[0], clock[1], clock[2] & 0x07));
.
59c
		printreg(clock[i] = tvp3020xi(0x2F));
.
55a
	print("%23ld\n", dumpclock(clock[0], clock[1], clock[2] & 0x07));

.
54c
		printreg(clock[i] = tvp3020xi(0x2E));
.
50a
	print("%23ld\n", dumpclock(clock[0], clock[1], clock[2] & 0x07));

.
49c
		printreg(clock[i] = tvp3020xi(0x2D));
.
44c
	tvp3020.dump(vga, ctlr);
.
40a
	ulong clock[4];
.
37c
dump(Vga* vga, Ctlr* ctlr)
.
35a
static ulong
dumpclock(ulong d, ulong n, ulong p)
{
	ulong f;

	f = RefFreq*((n+2)*8);
	f /= (d+2);
	f >>= p;

	return f;
}

.
33c
	tvp3020xo(0x0E, 0x00);

	(tvp3020.load)(vga, ctlr);
	if(ctlr->flag & Uenhanced)
		tvp3020xo(0x29, 0x01);

	ctlr->flag |= Fload;
.
25c
load(Vga* vga, Ctlr* ctlr)
.
21c
	/*
	 * Although the Tvp3025 has a higher default
	 * speed-grade (135MHz), just use the 3020 code.
	 */
	tvp3020.init(vga, ctlr);
.
19c
init(Vga* vga, Ctlr* ctlr)
.
15c
	tvp3020.options(vga, ctlr);
.
13c
options(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM tvp3025.c
sum=`{sum < 871963795/tvp3025.c}
if(~ 76a62fa21896  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/tvp3025.c checksum error creating updated file
	exit checksum
}
target=871963795/tvp3025clock.c
echo -n '871963795/tvp3025clock.c: '
if(! test -f $srcdir/tvp3025clock.c || ! test -r $srcdir/tvp3025clock.c){
	echo $srcdir/tvp3025clock.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/tvp3025clock.c}
if(! ~ 771255d71863  $sum(1)^$sum(2)){
	echo $srcdir/tvp3025clock.c is not the original distribution file
	exit original
}
cp $srcdir/tvp3025clock.c 871963795/tvp3025clock.c
ed 871963795/tvp3025clock.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM tvp3025clock.c'
98c
	0,				/* load */
.
69,92d
58,60c
					vga->d[0] = d;
					vga->n[0] = n;
					vga->p[0] = p;
.
53c
				f = SCALE(vga->f[0]) - (fvco>>p);
.
49c
			fvco = SCALE(RefFreq)*((n+2)*8)/(d+2);
.
47c
		nmax = ((220000000+RefFreq)*(d+2))/(RefFreq*8) - 2;
.
34,38c
	fmin = vga->f[0];
	vga->d[0] = 6;
	vga->n[0] = 5;
	vga->p[0] = 2;
	dmax = (RefFreq/1000000)-2;
.
27c
	 *	RefFreq/(n+2) > 1MHz
.
24c
	 *	Fvco = RefFreq*((n+2)*8)/(d+2)
.
18,19c
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
.
14d
9c
init(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM tvp3025clock.c
sum=`{sum < 871963795/tvp3025clock.c}
if(~ 33d8b1671477  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/tvp3025clock.c checksum error creating updated file
	exit checksum
}
target=871963795/vga.c
echo -n '871963795/vga.c: '
if(! test -f $srcdir/vga.c || ! test -r $srcdir/vga.c){
	echo $srcdir/vga.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/vga.c}
if(! ~ 5822cbfc8220  $sum(1)^$sum(2)){
	echo $srcdir/vga.c is not the original distribution file
	exit original
}
cp $srcdir/vga.c 871963795/vga.c
ed 871963795/vga.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM vga.c'
444a
	if(vga->vmz){
		printitem(ctlr->name, "vmz");
		print("%9ld\n", vga->vmz);
	}
	printitem(ctlr->name, "linear");
	print("%9ld\n", vga->linear);

	for(attr = vga->attr; attr; attr = attr->next)
		print("%s->attr: %s=%s\n", ctlr->name, attr->attr, attr->val);
.
441,443c
	if(vga->vma || vga->vmb){
		printitem(ctlr->name, "vm a b");
		print("%9ld %8ld\n", vga->vma, vga->vmb);
.
439a
	if(vga->f[1]){
		printitem(ctlr->name, "clock[1] f");
		print("%9ld\n", vga->f[1]);
		printitem(ctlr->name, "clock[1] d i m");
		print("%9ld %8ld       - %8ld\n", vga->d[1], vga->i[1], vga->m[1]);
		printitem(ctlr->name, "clock[1] n p q r");
		print("%9ld %8ld       - %8ld %8ld\n", vga->n[1], vga->p[1], vga->q[1], vga->r[1]);
	}
.
434,438c
	if(vga->f[0]){
		printitem(ctlr->name, "clock[0] f");
		print("%9ld\n", vga->f[0]);
		printitem(ctlr->name, "clock[0] d i m");
		print("%9ld %8ld       - %8ld\n", vga->d[0], vga->i[0], vga->m[0]);
		printitem(ctlr->name, "clock[0] n p q r");
		print("%9ld %8ld       - %8ld %8ld\n", vga->n[0], vga->p[0], vga->q[0], vga->r[0]);
.
432c
		palette.dump(vga, ctlr);
.
408a
	Attr *attr;
.
406c
dump(Vga* vga, Ctlr* ctlr)
.
400c
		palette.load(vga, ctlr);
.
368d
364c
load(Vga* vga, Ctlr* ctlr)
.
358c
		palette.init(vga, ctlr);
.
346,347c
	for(tmp = 0; tmp < 0x10; tmp++)
		vga->attribute[tmp] = tmp;
.
319c
	vga->crt[0x13] = tmp;
.
317c
		tmp /= 2;
.
313c
		tmp /= 4;
.
311c
	else if(tmp >= 256){
.
309c
		tmp /= 8;
.
306,307c
	tmp = ((mode->x*mode->z)/8);
	if(tmp >= 512){
.
294c
	if(tmp & 0x200)
.
290,292c
	tmp = vde-1;
	vga->crt[0x12] = tmp;
	if(tmp & 0x100)
.
285c
	if(tmp & 0x200)
.
281,283c
	tmp = vrs;
	vga->crt[0x10] = tmp;
	if(tmp & 0x100)
.
278c
	if(tmp & 0x200)
.
274,276c
	tmp = vt-2;
	vga->crt[0x06] = tmp;
	if(tmp & 0x100)
.
252a
	if(mode->shs == 0)
		mode->shs = mode->shb;
	vga->crt[0x04] = mode->shs>>3;
	if(mode->ehs == 0)
		mode->ehs = mode->ehb;
	vga->crt[0x05] |= ((mode->ehs>>3) & 0x1F);

.
250,251d
246,248c
	tmp = mode->ehb>>3;
	vga->crt[0x03] = 0x80|(tmp & 0x1F);
	if(tmp & 0x20)
.
187d
185c
	ulong tmp;
.
181c
init(Vga* vga, Ctlr* ctlr)
.
175c
		palette.snarf(vga, ctlr);
.
149d
145c
snarf(Vga* vga, Ctlr* ctlr)
.
wq
//GO.SYSIN DD VADIM vga.c
sum=`{sum < 871963795/vga.c}
if(~ 03f8e5159029  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/vga.c checksum error creating updated file
	exit checksum
}
target=871963795/vga.h
echo -n '871963795/vga.h: '
if(! test -f $srcdir/vga.h || ! test -r $srcdir/vga.h){
	echo $srcdir/vga.h unreadable
	exit unreadable
}
sum=`{sum < $srcdir/vga.h}
if(! ~ f6e82ccb5750  $sum(1)^$sum(2)){
	echo $srcdir/vga.h is not the original distribution file
	exit original
}
cp $srcdir/vga.h 871963795/vga.h
ed 871963795/vga.h >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM vga.h'
256a

/* vision964.c */
extern Ctlr vision964;

/* vision968.c */
extern Ctlr vision968;

/* w30c516.c */
extern Ctlr w30c516;
.
254a
/* virge.c */
extern Ctlr virge;

.
247a
/* tvp3026.c */
extern uchar tvp3026xi(uchar);
extern void tvp3026xo(uchar, uchar);
extern Ctlr tvp3026;

/* tvp3026clock.c */
extern Ctlr tvp3026clock;

.
234a
/* trio64.c */
extern void trio64clock(Vga*, Ctlr*);
extern Ctlr trio64;

.
227a
extern Ctlr tvp3026hwgc;
.
225a
extern Ctlr rgb524hwgc;
.
210a
/* rgb524.c */
extern Ctlr rgb524;

.
202a
/* mach64ct.c */
extern Ctlr mach64ct;
extern Ctlr mach64cthwgc;

.
195c
extern void printflag(ulong);
extern int curprintindex;
.
190d
178a
/* ics534x.c */
extern Ctlr ics534x;

.
162a
/* error.c */
extern void error(char*, ...);
extern void trace(char*, ...);
extern int vflag;

.
158a
extern char* dbattr(Attr*, char*);
.
151a
/* ct65540.c */
extern Ctlr ct65540;

.
132a
extern Ctlr att20c490;
.
131a
/* ark2000pv.c */
extern Ctlr ark2000pv;
extern Ctlr ark2000pvhwgc;

.
127a
	int	linear;
	Attr*	attr;
.
120a
	long	offset;			/* BIOS string offset */
	char*	bios;			/* matching BIOS string */

.
119c
	ulong	vma;			/* video memory linear-address alignment */
	ulong	vmb;			/* video memory linear-address base */
	ulong	vmz;			/* video memory size */
.
113,117c
	ulong	f[2];			/* clock */
	ulong	d[2];
	ulong	i[2];
	ulong	m[2];
	ulong	n[2];
	ulong	p[2];
	ulong	q[2];
	ulong	r[2];
.
93a

	Attr*	attr;
.
86a
	int	shs;			/* optional Start Horizontal Sync (Crt04) */
	int	ehs;			/* optional End Horizontal Sync (Crt05) */

.
73a
typedef struct Attr Attr;
typedef struct Attr {
	char*	attr;
	char*	val;

	Attr*	next;
} Attr;

.
71a
	Hlinear		= 0x00040000,	/* have linear-address mode */
	Ulinear		= 0x00080000,	/* use linear-address mode */
	Hclkdiv		= 0x00100000,	/* have a clock-divisor */
	Uclkdiv		= 0x00200000,	/* use clock-divisor */
	Hsid32		= 0x00400000,	/* have a 32-bit (as opposed to 64-bit) SID */
.
56,60c
	Fsnarf		= 0x00000001,	/* snarf done */
	Foptions	= 0x00000002,	/* options done */
	Finit		= 0x00000004,	/* init done */
	Fload		= 0x00000008,	/* snarf done */
	Fdump		= 0x00000010,	/* dump done */
.
33c
	RefFreq		= 14318180,	/* External Reference Clock frequency */
.
28,29c
	Pblack		= 0x00,
	Pwhite		= 0xFF,
.
wq
//GO.SYSIN DD VADIM vga.h
sum=`{sum < 871963795/vga.h}
if(~ 583d51d37382  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/vga.h checksum error creating updated file
	exit checksum
}
target=871963795/vision864.c
echo -n '871963795/vision864.c: '
if(! test -f $srcdir/vision864.c || ! test -r $srcdir/vision864.c){
	echo $srcdir/vision864.c unreadable
	exit unreadable
}
sum=`{sum < $srcdir/vision864.c}
if(! ~ 50e9ea532047  $sum(1)^$sum(2)){
	echo $srcdir/vision864.c is not the original distribution file
	exit original
}
cp $srcdir/vision864.c 871963795/vision864.c
ed 871963795/vision864.c >/dev/null >[2=1] <<'//GO.SYSIN DD VADIM vision864.c'
103c
	s3generic.dump(vga, ctlr);
.
101c
dump(Vga* vga, Ctlr* ctlr)
.
87a
	vgaxo(Crtx, 0x69, vga->crt[0x69]);
	vgaxo(Crtx, 0x6A, vga->crt[0x6A]);
.
81,83c
	s3generic.load(vga, ctlr);
.
77c
load(Vga* vga, Ctlr* ctlr)
.
73c
	vga->crt[0x6D] = 0x00;
	if(val = dbattr(vga->attr, "delaybl"))
		vga->crt[0x6D] |= strtoul(val, 0, 0) & 0x07;
	else
		vga->crt[0x6D] |= 2;
	if(val = dbattr(vga->attr, "delaysc"))
		vga->crt[0x6D] |= (strtoul(val, 0, 0) & 0x07)<<4;
.
68a
	vga->crt[0x69] = 0x00;
	vga->crt[0x6A] = 0x00;

.
64d
33,35c
	s3generic.init(vga, ctlr);
.
31a
	char *val;
.
29c
init(Vga* vga, Ctlr* ctlr)
.
22,25c
	ctlr->flag |= Hlinear|Hpclk2x8|Henhanced|Foptions;
.
20c
options(Vga*, Ctlr* ctlr)
.
14,16c
	s3generic.snarf(vga, ctlr);
.
12c
snarf(Vga* vga, Ctlr* ctlr)
.
7c
 * S3 Vision864 GUI Accelerator.
.
wq
//GO.SYSIN DD VADIM vision864.c
sum=`{sum < 871963795/vision864.c}
if(~ 1bdf97032217  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/vision864.c checksum error creating updated file
	exit checksum
}
target=871963795/ark2000pv.c
echo -n '871963795/ark2000pv.c (new): '
cat > 871963795/ark2000pv.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

/*
 * ARK Logic ARK2000PV GUI accelerator.
 */
static void
snarf(Vga* vga, Ctlr* ctlr)
{
	int i;

	/*
	 * Unlock access to the extended I/O registers.
	 */
	vgaxo(Seqx, 0x1D, 0x01);

	for(i = 0x10; i < 0x2E; i++)
		vga->sequencer[i] = vgaxi(Seqx, i);
	for(i = 0x40; i < 0x47; i++)
		vga->crt[i] = vgaxi(Crtx, i);
	vga->crt[0x50] = vgaxi(Crtx, 0x50);

	/*
	 * A hidey-hole for the coprocessor status register.
	 */
	vga->crt[0xFF] = inportb(0x3CB);

	/*
	 * Memory size.
	 */
	switch((vga->sequencer[0x10]>>6) & 0x03){

	case 0x00:
		vga->vma = vga->vmz = 1*1024*1024;
		break;

	case 0x01:
		vga->vma = vga->vmz = 2*1024*1024;
		break;

	case 0x02:
		vga->vma = vga->vmz = 4*1024*1024;
		break;
	}

	ctlr->flag |= Fsnarf;
}

static void
options(Vga*, Ctlr* ctlr)
{
	ctlr->flag |= Hlinear|Hpclk2x8|Foptions;
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	Mode *mode;
	ulong x;

	mode = vga->mode;

	vga->crt[0x46] = 0x00;
	if(ctlr->flag & Upclk2x8){
		vga->crt[0x00] = ((mode->ht/2)>>3)-5;
		vga->crt[0x01] = ((mode->x/2)>>3)-1;
		vga->crt[0x02] = ((mode->shb/2)>>3)-1;
	
		x = (mode->ehb/2)>>3;
		vga->crt[0x03] = 0x80|(x & 0x1F);
		vga->crt[0x04] = (mode->shs/2)>>3;
		vga->crt[0x05] = ((mode->ehs/2)>>3) & 0x1F;
		if(x & 0x20)
			vga->crt[0x05] |= 0x80;
		vga->crt[0x13] = mode->x/8;

		vga->crt[0x46] |= 0x04;
	}

	/*
	 * Overflow bits.
	 */
	vga->crt[0x40] = 0x00;
	if(vga->crt[0x18] & 0x400)
		vga->crt[0x40] |= 0x08;
	if(vga->crt[0x10] & 0x400)
		vga->crt[0x40] |= 0x10;
	if(vga->crt[0x15] & 0x400)
		vga->crt[0x40] |= 0x20;
	if(vga->crt[0x12] & 0x400)
		vga->crt[0x40] |= 0x40;
	if(vga->crt[0x06] & 0x400)
		vga->crt[0x40] |= 0x80;

	vga->crt[0x41] = 0x00;
	if(vga->crt[0x13] & 0x100)
		vga->crt[0x41] |= 0x08;
	if(vga->crt[0x04] & 0x100)
		vga->crt[0x41] |= 0x10;
	if(vga->crt[0x02] & 0x100)
		vga->crt[0x41] |= 0x20;
	if(vga->crt[0x01] & 0x100)
		vga->crt[0x41] |= 0x40;
	if(vga->crt[0x00] & 0x100)
		vga->crt[0x41] |= 0x80;

	/*
	 * Interlace.
	 */
	vga->crt[0x42] = 0x00;
	vga->crt[0x44] = 0x00;
	if(mode->interlace){
		vga->crt[0x42] = vga->crt[0]/2;
		vga->crt[0x44] |= 0x04;
	}
	vga->crt[0x45] = 0x00;

	/*
	 * Memory configuration:
	 * enable linear|coprocessor|VESA modes;
	 * set aperture to 64Kb, 0xA0000;
	 * set aperture index 0.
	 * Bugs: 1024x768x1 doesn't work (aperture not set correctly?);
	 *	 hwgc doesn't work in 1-bit modes (hardware?).
	 */
	vga->sequencer[0x10] &= ~0x3F;
	vga->sequencer[0x11] &= ~0x0F;
	switch(mode->z){

	case 1:
		vga->sequencer[0x10] |= 0x03;
		vga->sequencer[0x11] |= 0x01;
		cflag = 1;
		break;

	case 8:
		vga->sequencer[0x10] |= 0x0F;
		vga->sequencer[0x11] |= 0x06;
		if(vga->linear && (ctlr->flag & Hlinear) && vga->vmz)
			ctlr->flag |= Ulinear;
		break;
	}
	vga->sequencer[0x12] &= ~0x03;
	vga->sequencer[0x13] = 0x0A;
	vga->sequencer[0x14] = 0x00;
	vga->sequencer[0x15] = 0x00;
	vga->sequencer[0x16] = 0x00;

	/*
	 * Frame Buffer Pitch and FIFO control.
	 * Set the FIFO to 32 deep and refill trigger when
	 * 6 slots empty.
	 */
	vga->sequencer[0x17] = 0x00;
	vga->sequencer[0x18] = 0x13;
	if(mode->x <= 640)
		vga->sequencer[0x17] = 0x00;
	else if(mode->x <= 800)
		vga->sequencer[0x17] |= 0x01;
	else if(mode->x <= 1024)
		vga->sequencer[0x17] |= 0x02;
	else if(mode->x <= 1280)
		vga->sequencer[0x17] |= 0x04;
	else if(mode->x <= 1600)
		vga->sequencer[0x17] |= 0x05;
	else if(mode->x <= 2048)
		vga->sequencer[0x17] |= 0x06;

	/*
	 * Clock select.
	 */
	vga->misc &= ~0x0C;
	vga->misc |= (vga->i[0] & 0x03)<<2;
	vga->sequencer[0x11] &= ~0xC0;
	vga->sequencer[0x11] |= (vga->i[0] & 0x0C)<<4;

	vga->attribute[0x11] = Pwhite;

	ctlr->flag |= Finit;
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	ulong l;

	/*
	 * Ensure there are no glitches when selecting a new
	 * clock frequency.
	 * The sequencer toggle seems to matter on the Hercules
	 * Stingray 64/Video at 1280x1024x8. Without it the screen
	 * is fuzzy; a second load clears it up and there's no
	 * difference between the two register sets. A mystery.
	 */
	vgao(MiscW, vga->misc & ~0x0C);
	vgaxo(Seqx, 0x11, vga->sequencer[0x11]);
	vgao(MiscW, vga->misc);
	if(vga->ramdac && strncmp(vga->ramdac->name, "w30c516", 7) == 0){
		sequencer(vga, 1);
		sleep(500);
		sequencer(vga, 0);
	}

	if(ctlr->flag & Ulinear){
		vga->sequencer[0x10] |= 0x10;
		if(vga->vmz <= 1024*1024)
			vga->sequencer[0x12] |= 0x01;
		else if(vga->vmz <= 2*1024*1024)
			vga->sequencer[0x12] |= 0x02;
		else
			vga->sequencer[0x12] |= 0x03;
		l = vga->vmb>>16;
		vga->sequencer[0x13] = l & 0xFF;
		vga->sequencer[0x14] = (l>>8) & 0xFF;
	}

	vgaxo(Seqx, 0x10, vga->sequencer[0x10]);
	vgaxo(Seqx, 0x12, vga->sequencer[0x12]);
	vgaxo(Seqx, 0x13, vga->sequencer[0x13]);
	vgaxo(Seqx, 0x14, vga->sequencer[0x14]);
	vgaxo(Seqx, 0x15, vga->sequencer[0x15]);
	vgaxo(Seqx, 0x16, vga->sequencer[0x16]);
	vgaxo(Seqx, 0x17, vga->sequencer[0x17]);
	vgaxo(Seqx, 0x18, vga->sequencer[0x18]);

	vgaxo(Crtx, 0x40, vga->crt[0x40]);
	vgaxo(Crtx, 0x41, vga->crt[0x41]);
	vgaxo(Crtx, 0x42, vga->crt[0x42]);
	vgaxo(Crtx, 0x44, vga->crt[0x44]);
	vgaxo(Crtx, 0x45, vga->crt[0x45]);
	vgaxo(Crtx, 0x46, vga->crt[0x46]);

	ctlr->flag |= Fload;
}

static void
dump(Vga* vga, Ctlr* ctlr)
{
	int i;

	printitem(ctlr->name, "Seq10");
	for(i = 0x10; i < 0x2E; i++)
		printreg(vga->sequencer[i]);
	printitem(ctlr->name, "Crt40");
	for(i = 0x40; i < 0x47; i++)
		printreg(vga->crt[i]);
	printitem(ctlr->name, "Crt50");
	printreg(vga->crt[0x50]);
	printitem(ctlr->name, "Cop status");
	printreg(vga->crt[0xFF]);
}

Ctlr ark2000pv = {
	"ark2000pv",			/* name */
	snarf,				/* snarf */
	options,			/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};

Ctlr ark2000pvhwgc = {
	"ark2000pvhwgc",		/* name */
	0,				/* snarf */
	0,				/* options */
	0,				/* init */
	0,				/* load */
	0,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/ark2000pv.c}
if(~ 47dc8bb05837  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/ark2000pv.c checksum error extracting new file
	exit checksum
}
target=871963795/ct65540.c
echo -n '871963795/ct65540.c (new): '
cat > 871963795/ct65540.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

enum
{
	X=	0x3D6,	/* index reg */
	D=	0x3D7,	/* data reg */
};

static int misc[] = {	0x0,  0x1,  0x2,  0x3,  0x4,  0x5,  0x6,  0xE, 0x28, 0x29,
			0x70, 0x72, 0x73, 0x7D, 0x7F, -1};
static int map[] = {	0x7,  0x8,  0xB,  0xC,  0x10, 0x11, -1};
static int flags[] = {	0xF,  0x2B, 0x44, 0x45, -1};
static int compat[] = {	0x14, 0x15, 0x1F, 0x7E, -1};
static int clock[] = {	0x30, 0x31, 0x32, 0x33, -1};
static int mm[] = {	0x3A, 0x3B, 0x3C, 0x3D, 0x3E, 0x3F, -1};
static int alt[] = {	0x0D, 0x16, 0x17, 0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x1D, 0x1E,
			0x24, 0x25, 0x26, 0x64, 0x65, 0x66, 0x67, -1};
static int flat[] = {	0x2C, 0x2D, 0x2E, 0x2F, 0x4F, 0x50, 0x51, 0x52, 0x53, 0x54,
			0x55, 0x56, 0x57, 0x58, 0x59, 0x5A, 0x5B, 0x5C, 0x5D, 0x5E,
			0x5F, 0x60, 0x61, 0x62, 0x63, 0x68, 0x6C, 0x6E, 0x6F, -1};

typedef struct Group Group;
struct Group {
	char *name;
	int *x;
};
static Group group[] = 
{
	{ "misc", misc, },
	{ "map", map, },
	{ "compatability", compat, },
	{ "clock", clock, },
	{ "multimedia", mm, },
	{ "alternate", alt, },
	{ "flat-panel", flat, },
	{ 0 },
};

static uchar greg[256];

static uchar
ctxi(uchar index)
{
	outportb(X, index);
	return inportb(D);
}

static void
ctxo(uchar index, uchar data)
{
	outportb(X, index);
	outportb(D, data);
}

/*
 * ct65540.
 */
static void
snarf(Vga*, Ctlr* ctlr)
{
	Group *g;
	int *xp;

	ctlr->flag |= Fsnarf;

	for(g = group; g->name; g++)
		for(xp = g->x; *xp >= 0; xp++)
			greg[*xp] = ctxi(*xp);
}

static void
options(Vga*, Ctlr* ctlr)
{
	ctlr->flag |= Hlinear|Foptions;
}

/*
 *  brute force and ignorance
 */
static int
setclock(Vga* vga)
{
	ulong fvco, t;
	ulong m, n;
	ulong bestm, bestn, diff, bestdiff, lastdiff;
	ulong p;

	if(vga->mode->frequency > 220000000)
		return -1;

	vga->misc &= ~(3<<2);
	vga->feature &= ~3;
	greg[0x33] &= ~0x20;		/* set VCLK not MCLK */
	greg[0x33] &= ~0x80;		/* clk0 & clk1 are 25.175 & 28.322 MHz */

	vga->misc |= (2<<2);
	vga->feature |= 2;

	fvco = vga->mode->frequency;
	if(fvco == 0)
		return -1;
	p = 0;
	while(fvco < 100000000){
		fvco *= 2;
		p++;
	}

	m = (1<<31)/(4*RefFreq);
	if(m > 127)
		m = 127;
	bestdiff = 1<<31;
	bestm = 3;
	bestn = 3;
	for(; m > 2; m--){
		lastdiff = 1<<31;
		for(n = 3; n < 128; n++){
			t = (RefFreq*4*m)/n;
			diff = abs(fvco-t);
			if(diff < bestdiff){
				bestdiff = diff;
				bestm = m;
				bestn = n;
			} else {
				if(diff > lastdiff)
					break;
			}
			lastdiff = diff;
		}
	}

	greg[0x31] = bestm - 2;
	greg[0x32] = bestn - 2;
	greg[0x30] = (p<<1) | 1;
	return 0;
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	int x;

	greg[0x15] = 0;			/* allow writes to all registers */

	if(vga->mode->z == 8){
		if(vga->linear && (ctlr->flag & Hlinear))
			ctlr->flag |= Ulinear;
		vga->vmz = 1024*1024;
		vga->vmb = 1024*1024;
	
		/* linear mapping - extension regs*/
		greg[0x04] = (1<<2);	/* enable CRTC bits 16 & 17, 32 bit mode */
		greg[0x0b] = 0x15;	/* linear addressing, > 256k, sequential addr */
		greg[0x28] = 0x90;	/* non-interlaced, 256 colors */

		/* normal regs */
		vga->sequencer[0x04] = 0x0A;	/* sequential memory access */
		vga->graphics[0x05] = 0x00;	/* sequential access, shift out 8 bits at */
						/* a time */
		vga->attribute[0x10] &= ~(1<<6); /* 1 dot clock per pixel */
		vga->crt[0x14] = 0x00;
		vga->crt[0x17] = 0xe3;		/* always byte mode */
	} else {
		/* mapped to 0xa0000 - extension regs*/
		greg[0x04] = (1<<2);	/* enable CRTC bits 16 & 17, 32 bit mode */
		greg[0x0b] = 0x01;	/* 0xA0000 - 0xAFFFF, planar addressing */
		greg[0x28] = 0x80;	/* non-interlaced, 16 colors */
	}

	/* the extension registers have even more overflow bits */
	x = 0;
	if(vga->mode->vt & (1<<10))
		x |= (1<<0);
	if(vga->mode->vrs & (1<<10))
		x |= (1<<2);
	greg[0x16] = x;
	x = 0;
	if(vga->mode->ht & (1<<(8+3)))
		x |= (1<<0);
	if(vga->mode->shb & (1<<(8+3)))
		x |= (1<<4);
	if(vga->mode->ehb & (1<<(6+3)))
		x |= (1<<5);
	greg[0x17] = x;

	if(vga->mode->y > 480)
		vga->misc &= 0x3F;

	setclock(vga);

	ctlr->flag |= Finit;
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	Group *g;
	int *xp;

	if(ctlr->flag & Ulinear)
		greg[0x8] = vga->vmb>>20;

	/* must be first */
	ctxo(0x15, greg[0x15]);	/* write protect */
	ctxo(0x33, greg[0x33]);	/* select clock */

	/* only write what changed */
	for(g = group; g->name; g++)
		for(xp = g->x; *xp >= 0; xp++)
			ctxo(*xp, greg[*xp]);

	ctlr->flag |= Fload;
}

static void
dump(Vga*, Ctlr* ctlr)
{
	Group *g;
	int *xp;
	char *name;
	int lastx;
	char item[32];

	name = ctlr->name;

	for(g = group; g->name; g++){
		lastx = -2;
		for(xp = g->x; *xp >= 0; xp++){
			if(*xp != lastx+1){
				sprint(item, "%s %2.2ux:", g->name, *xp);
				printitem(name, item);
			}
			lastx = *xp;
			printreg(greg[*xp]);
		}
	}
}

Ctlr ct65540 = {
	"ct65540",			/* name */
	snarf,				/* snarf */
	options,			/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/ct65540.c}
if(~ e9e292334911  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/ct65540.c checksum error extracting new file
	exit checksum
}
target=871963795/error.c
echo -n '871963795/error.c (new): '
cat > 871963795/error.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

int vflag;

void
error(char* format, ...)
{
	char buf[512];
	va_list arg;
	int n;

	sequencer(0, 1);
	n = sprint(buf, "%s: ", argv0);
	va_start(arg, format);
	doprint(buf+n, buf+sizeof(buf)-n, format, arg);
	va_end(arg);
	if(vflag)
		print(buf+n);
	fprint(2, buf);
	exits("error");
}

void
trace(char* format, ...)
{
	char buf[512];
	va_list arg;

	if(vflag){
		if(curprintindex){
			curprintindex = 0;
			print("\n");
		}
		va_start(arg, format);
		doprint(buf, buf+sizeof(buf), format, arg);
		va_end(arg);
		print(buf);
	}
}
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/error.c}
if(~ 9a78897f580  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/error.c checksum error extracting new file
	exit checksum
}
target=871963795/errordist.c
echo -n '871963795/errordist.c (new): '
cat > 871963795/errordist.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

int vflag;

void
error(char* format, ...)
{
	char buf[512];
	int n;

	sequencer(0, 1);
	n = sprint(buf, "%s: ", argv0);
	doprint(buf+n, buf+sizeof(buf)-n, format, (&format+1));
	if(vflag)
		print(buf+n);
	fprint(2, buf);
	exits("error");
}

void
trace(char* format, ...)
{
	char buf[512];

	if(vflag){
		if(curprintindex){
			curprintindex = 0;
			print("\n");
		}
		doprint(buf, buf+sizeof(buf), format, (&format+1));
		print(buf);
	}
}
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/errordist.c}
if(~ 58b8c59d490  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/errordist.c checksum error extracting new file
	exit checksum
}
target=871963795/ics534x.c
echo -n '871963795/ics534x.c (new): '
cat > 871963795/ics534x.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

/*
 * ICS534x GENDAC.
 * For now assumed to be hooked to either a Tseng Labs ET4000-W32p
 * (Hercules Dynamite Power, the Hercules generates RS2 using CLK3)
 * or an ARK2000pv (Diamond Stealth64 Graphics 2001).
 */
static uchar
setrs2(Vga* vga, Ctlr* ctlr)
{
	uchar rs2;

	rs2 = 0;
	if(strncmp(vga->ctlr->name, "et4000-w32", 10) == 0){
		rs2 = vgaxi(Crtx, 0x31);
		vgaxo(Crtx, 0x31, 0x40|rs2);
	}
	else if(strncmp(vga->ctlr->name, "ark2000pv", 9) == 0){
		rs2 = vgaxi(Seqx, 0x1C);
		vgaxo(Seqx, 0x1C, 0x80|rs2);
	}
	else
		error("%s: not configured for %s\n", vga->ctlr->name, ctlr->name);

	return rs2;
}

static void
restorers2(Vga* vga, uchar rs2)
{
	if(strncmp(vga->ctlr->name, "et4000-w32", 10) == 0)
		vgaxo(Crtx, 0x31, rs2);
	else if(strncmp(vga->ctlr->name, "ark2000pv", 9) == 0)
		vgaxo(Seqx, 0x1C, rs2);
}

static void
options(Vga*, Ctlr* ctlr)
{
	ctlr->flag |= Hpclk2x8|Foptions;
}

static void
clock(Vga* vga, Ctlr* ctlr)
{
	ulong f, m, n, r;
	double fmin, fmax, t, tok;

	/*
	 * The PLL frequency is defined by:
	 *		    (M+2)
	 *	 Fout = ------------ x Fref
	 *	        (N+2) x 2**R
	 * where M, N and R have the following contraints:
	 * 1)	     2MHz < Fref < 32MHz
	 * 2)		    Fref
	 *         600KHz < ----- <= 8Mhz
	 *	            (N+2)
	 * 3)		(M+2) x Fref
	 *     60MHz <= ------------ <= 270MHz
	 *		    (N+2)
	 * 4) Fout < 135MHz
	 * 5) 1 <= M <= 127, 1 <= N <= 31, 0 <= R <= 3
	 *
	 * First determine R by finding the highest value
	 * for which
	 *	      2**R x Fout <= 270Mhz
	 * The datasheet says that if the multiplexed 16-bit
	 * pseudo-colour mode is used then N2 (vga->r) must
	 * be 2.
	 */
	if(ctlr->flag & Upclk2x8)
		vga->r[0] = 2;
	else{
		vga->r[0] = 4;
		for(r = 0; r <= 3; r++){
			f = vga->f[0]*(1<<r);
			if(60000000 < f && f <= 270000000)
				vga->r[0] = r;
		}
		if(vga->r[0] > 3)
			error("%s: pclk %d out of range\n", ctlr->name, vga->f[0]);
	}

	/*
	 * Now find the closest match for M and N.
	 * Lower values of M and N give better noise rejection.
	 */
	fmin = vga->f[0]*0.995;
	fmax = vga->f[0]*1.005;
	tok = 0.0;
	for(n = 31; n >= 1; n--){
		t = RefFreq/(n+2);
		if(600000 >= t || t > 8000000)
			continue;

		t = vga->f[0]*(n+2)*(1<<vga->r[0]);
		t /= RefFreq;
		m = (t+0.5) - 2;
		if(m > 127)
			continue;

		t = (m+2)*RefFreq;
		t /= (n+2)*(1<<vga->r[0]);

		if(fmin <= t && t < fmax){
			vga->m[0] = m;
			vga->n[0] = n;
			tok = t;
		}
	}

	if(tok == 0.0)
		error("%s: pclk %d out of range\n", ctlr->name, vga->f[0]);
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	ulong pclk;
	char *p;

	/*
	 * Part comes in -135, -110 and -80MHz speed-grades.
	 */
	pclk = 80000000;
	if(p = strrchr(ctlr->name, '-'))
		pclk = strtoul(p+1, 0, 0) * 1000000;

	/*
	 * If we don't already have a desired pclk,
	 * take it from the mode.
	 * Check it's within range.
	 */
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	if(vga->f[0] > pclk)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);

	/*
	 * Determine whether to use 2x8-bit mode or not.
	 * If yes and the clock has already been initialised,
	 * initialise it again.
	 */
	if(vga->ctlr && (vga->ctlr->flag & Hpclk2x8) && vga->mode->z == 8 && vga->f[0] >= pclk/2){
		vga->f[0] /= 2;
		resyncinit(vga, ctlr, Upclk2x8, 0);
	}

	/*
	 * Clock bits. If the desired video clock is
	 * one of the two standard VGA clocks it can just be
	 * set using bits <3:2> of vga->misc, otherwise we
	 * need to programme the DCLK PLL.
	 */
	vga->misc &= ~0x0C;
	if(vga->f[0] == VgaFreq0)
		vga->i[0] = 0;
	else if(vga->f[0] == VgaFreq1){
		vga->misc |= 0x04;
		vga->i[0] = 1;
	}
	else{
		/*
		 * Initialise the PLL parameters.
		 * Use CLK0 f7 internal clock (there are only 3
		 * clock-select bits).
		 */
		clock(vga, ctlr);
		vga->i[0] = 0x07;
	}

	ctlr->flag |= Finit;
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	uchar rs2, mode, pll;

	rs2 = setrs2(vga, ctlr);

	/*
	 * Put the chip into snooze mode,
	 * colour mode 0.
	 */
	mode = 0x00;
	outportb(Pixmask, 0x01);

	if(ctlr->flag & Upclk2x8)
		mode = 0x10;

	/*
	 * If necessary, set the PLL parameters for CLK0 f7
	 * and make sure the PLL control register selects the
	 * correct clock. Preserve the memory clock setting.
	 */
	outportb(PaddrR, 0x0E);
	pll = inportb(Pdata) & 0x10;
	if(vga->i[0] == 0x07){
		outportb(PaddrW, vga->i[0]);
		outportb(Pdata, vga->m[0]);
		outportb(Pdata, (vga->r[0]<<5)|vga->n[0]);
		pll |= 0x27;
	}
	outportb(PaddrW, 0x0E);
	outportb(Pdata, pll);
	outportb(Pixmask, mode);

	restorers2(vga, rs2);
	ctlr->flag |= Fload;
}

static void
dump(Vga* vga, Ctlr* ctlr)
{
	int i;
	uchar rs2, m, n;
	char buf[32];
	ulong f;

	rs2 = setrs2(vga, ctlr);

	printitem(ctlr->name, "command");
	printreg(inportb(Pixmask));

	outportb(PaddrR, 0x00);
	for(i = 0; i < 0x0E; i++){
		sprint(buf, "f%X m n", i);
		printitem(ctlr->name, buf);
		m = inportb(Pdata);
		printreg(m);
		n = inportb(Pdata);
		printreg(n);

		f = 14318180*(m+2);
		f /= (n & 0x1F)+2;
		f /= 1<<((n>>5) & 0x03);
		print("%12lud", f);
	}
	printitem(ctlr->name, "control");
	printreg(inportb(Pdata));

	restorers2(vga, rs2);
}

Ctlr ics534x = {
	"ics534x",			/* name */
	0,				/* snarf */
	options,			/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/ics534x.c}
if(~ 94254da55267  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/ics534x.c checksum error extracting new file
	exit checksum
}
target=871963795/mach64ct.c
echo -n '871963795/mach64ct.c (new): '
cat > 871963795/mach64ct.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

/*
 * ATI Mach64CT.
 */
enum {					/* I/O select */
	HTotalDisp	= 0x00,
	HSyncStrtWid	= 0x01,
	VTotalDisp	= 0x02,
	VSyncStrtWid	= 0x03,
	VlineCrntVline	= 0x04,
	OffPitch	= 0x05,
	IntCntl		= 0x06,
	CrtcGenCntl	= 0x07,

	OvrClr		= 0x08,
	OvrWidLR	= 0x09,
	OvrWidTB	= 0x0A,

	CurClr0		= 0x0B,
	CurClr1		= 0x0C,
	CurOffset	= 0x0D,
	CurHVposn	= 0x0E,
	CurHVoff	= 0x0F,

	ScratchReg0	= 0x10,
	ScratchReg1	= 0x11,		/* Scratch Register (BIOS info) */
	ClockCntl	= 0x12,
	BusCntl		= 0x13,
	MemCntl		= 0x14,		/* Memory control */
	MemVgaWpSel	= 0x15,
	MemVgaRpSel	= 0x16,
	DacRegs		= 0x17,
	DacCntl		= 0x18,
	GenTestCntl	= 0x19,
	ConfigCntl	= 0x1A,		/* Configuration control */
	ConfigChipId	= 0x1B,
	ConfigStat0	= 0x1C,		/* Configuration status 0 */
	ConfigStat1	= 0x1D,		/* Configuration status 0 */

	Nreg		= 0x1E,
};

enum {
	PLLm		= 0x02,
	PLLp		= 0x06,
	PLLn2		= 0x09,

	Npll		= 16,
};

typedef struct {
	ulong	io;

	ulong	reg[Nreg];
	uchar	pll[Npll];
} Mach64ct;

static uchar
pllr(Mach64ct* mp, int r)
{
	int io;

	io = (ClockCntl<<10)+mp->io;
	outportb(io+1, r<<2);
	return inportb(io+2);
}

static void
pllw(Mach64ct* mp, int r, uchar b)
{
	int io;

	io = (ClockCntl<<10)+mp->io;
	outportb(io+1, (r<<2)|0x02);
	outportb(io+2, b);
}

static void
iow8(Mach64ct* mp, int r, uchar b)
{
	outportb(((r & ~0x03)<<10)+mp->io+(r & 0x03), b);
}

static ulong
ior32(Mach64ct* mp, int r)
{
	return inportl((r<<10)+mp->io);
}

static void
iow32(Mach64ct* mp, int r, ulong l)
{
	outportl(((r)<<10)+mp->io, l);
}

static void
snarf(Vga* vga, Ctlr* ctlr)
{
	Mach64ct *mp;
	int i;

	if(vga->private == 0){
		vga->private = alloc(sizeof(Mach64ct));

		/*
		 * This should come from the PCI config space.
		 */
		((Mach64ct*)vga->private)->io = 0x2EC;
	}

	mp = vga->private;
	for(i = 0; i < Nreg; i++)
		mp->reg[i] = ior32(mp, i);

	for(i = 0; i < Npll; i++)
		mp->pll[i] = pllr(mp, i);

	/*
	 * Memory size and aperture. It's recommended
	 * to use an 8Mb aperture on a 16Mb boundary.
	 */
	switch(mp->reg[MemCntl] & 0x07){

	case 0:
		vga->vmz = 512*1024;
		break;

	case 1:
		vga->vmz = 1024*1024;
		break;

	case 2:
		vga->vmz = 2*1024*1024;
		break;

	case 3:
		vga->vmz = 4*1024*1024;
		break;

	case 4:
		vga->vmz = 6*1024*1024;
		break;

	case 5:
		vga->vmz = 8*1024*1024;
		break;
	}
	vga->vma = 16*1024*1024;

	ctlr->flag |= Fsnarf;
}

static void
options(Vga*, Ctlr* ctlr)
{
	ctlr->flag |= Hlinear|Foptions;
}

static void
clock(Vga* vga, Ctlr* ctlr)
{
	int m, p;
	double f, q;
	Mach64ct *mp;

	mp = vga->private;

	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	f = vga->f[0];

	/*
	 * To generate a specific output frequency, the reference (m),
	 * feedback (n), and post dividers (p) must be loaded with the
	 * appropriate divide-down ratios. In the following r is the
	 * XTALIN frequency (usually RefFreq) and t is the target frequency
	 * (vga->f).
	 *
	 * Use the maximum reference divider left by the BIOS for now,
	 * otherwise MCLK might be a concern. It can be calculated as
	 * follows:
	 * 			    Upper Limit of PLL Lock Range
	 *	Minimum PLLREFCLK = -----------------------------
	 *				      (2*255)
	 *
	 *				       XTALIN
	 *			m = Floor[-----------------]
	 *				  Minimum PLLREFCLK
	 *
	 * For an upper limit of 135MHz and XTALIN of 14.318MHz m
	 * would be 54.
	 */
	m = mp->pll[PLLm];
	vga->m[0] = m;

	/*
	 * The post divider may be 1, 2, 4 or 8 and is determined by
	 * calculating
	 *		 t*m
	 *	    q = -----
	 *		(2*r)
	 * and using the result to look-up p.
	 */
	q = (f*m)/(2*RefFreq);
	if(q > 255 || q < 16)
		error("%s: vclk %d out of range\n", ctlr->name, vga->f[0]);
	if(q >= 127.5)
		p = 1;
	else if(q >= 63.5)
		p = 2;
	else if(q >= 31.5)
		p = 4;
	else
		p = 8;
	vga->p[0] = p;

	/*
	 * The feedback divider should be kept in the range 0x80 to 0xFF
	 * and is found from
	 *	n = q*p
	 * rounded to the nearest whole number.
	 */
	vga->n[0] = (q*p)+0.5;
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	Mode *mode;
	Mach64ct *mp;
	int p;

	mode = vga->mode;
	if((mode->x > 640 || mode->y > 480) && mode->z == 1)
		error("%s: no support for 1-bit mode other than 640x480x1\n", ctlr->name);

	mp = vga->private;

	/*
	 * Always use VCLK2.
	 */
	clock(vga, ctlr);
	mp->pll[PLLn2] = vga->n[0];
	mp->pll[PLLp] &= ~(0x03<<(2*2));
	switch(vga->p[0]){
	case 1:
		p = 0;
		break;

	case 2:
		p = 1;
		break;

	case 4:
		p = 2;
		break;

	default:
		p = 3;
		break;
	}
	mp->pll[PLLp] |= p<<(2*2);
	mp->reg[ClockCntl] = 2;

	mp->reg[ConfigCntl] = 0;

	mp->reg[CrtcGenCntl] = 0x02000000|(mp->reg[CrtcGenCntl] & ~0x01000700);
	if(mode->z == 8)
		mp->reg[CrtcGenCntl] |= 0x01000200;
	else
		mp->reg[CrtcGenCntl] |= 0x00000100;

	mp->reg[HTotalDisp] = (((mode->x>>3)-1)<<16)|((mode->ht>>3)-1);
	mp->reg[HSyncStrtWid] = (((mode->ehb - mode->shs)>>3)<<16)|((mode->shs>>3)-1);
	if(mode->hsync == '-')
		mp->reg[HSyncStrtWid] |= 0x00200000;
	mp->reg[VTotalDisp] = ((mode->y-1)<<16)|(mode->vt-1);
	mp->reg[VSyncStrtWid] = ((mode->vre - mode->vrs)<<16)|(mode->vrs-1);
	if(mode->vsync == '-')
		mp->reg[VSyncStrtWid] |= 0x00200000;
	mp->reg[IntCntl] = 0;
	if(mode->z == 8)
		mp->reg[OffPitch] = (mode->x/8)<<22;
	else
		mp->reg[OffPitch] = (mode->x/(8*2))<<22;
	mp->reg[OvrClr] = Pblack;

	if(vga->linear && mode->z != 1)
		ctlr->flag |= Ulinear;
	ctlr->flag |= Finit;
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	Mach64ct *mp;

	mp = vga->private;

	/*
	 * Always use an 8Mb aperture on a 16Mb boundary.
	 */
	if(ctlr->flag & Ulinear)
		mp->reg[ConfigCntl] = ((vga->vmb/(4*1024*1024))<<4)|0x02;
	iow32(mp, ConfigCntl, mp->reg[ConfigCntl]);

	iow32(mp, GenTestCntl, 0);
	iow32(mp, GenTestCntl, 0x100);

	iow32(mp, MemCntl, mp->reg[MemCntl] & ~0x70000);
	iow32(mp, HTotalDisp, mp->reg[HTotalDisp]);
	iow32(mp, HSyncStrtWid, mp->reg[HSyncStrtWid]);
	iow32(mp, VTotalDisp, mp->reg[VTotalDisp]);
	iow32(mp, VSyncStrtWid, mp->reg[VSyncStrtWid]);
	iow32(mp, IntCntl, mp->reg[IntCntl]);
	iow32(mp, OffPitch, mp->reg[OffPitch]);
	iow32(mp, CrtcGenCntl, mp->reg[CrtcGenCntl]);
	iow32(mp, OvrClr, mp->reg[OvrClr]);

	pllw(mp, PLLn2, mp->pll[PLLn2]);
	pllw(mp, PLLp, mp->pll[PLLp]);
	iow32(mp, ClockCntl, mp->reg[ClockCntl]);
	iow32(mp, ClockCntl, 0x40|mp->reg[ClockCntl]);

	ctlr->flag |= Fload;
}

static char* iorname[Nreg] = {
	"HTotalDisp",
	"HSyncStrtWid",
	"VTotalDisp",
	"VSyncStrtWid",
	"VlineCrntVline",
	"OffPitch",
	"IntCntl",
	"CrtcGenCntl",

	"OvrClr",
	"OvrWidLR",
	"OvrWidTB",

	"CurClr0",
	"CurClr1",
	"CurOffset",
	"CurHVposn",
	"CurHVoff",

	"ScratchReg0",
	"ScratchReg1",
	"ClockCntl",
	"BusCntl",
	"MemCntl",
	"MemVgaWpSel",
	"MemVgaRpSel",
	"DacRegs",
	"DacCntl",
	"GenTestCntl",
	"ConfigCntl",
	"ConfigChipId",
	"ConfigStat0",
	"ConfigStat1",
};

static void
dump(Vga* vga, Ctlr* ctlr)
{
	Mach64ct *mp;
	int i, m, n, p;
	double f;

	if((mp = vga->private) == 0)
		return;

	for(i = 0; i < Nreg; i++)
		print("%s %-*s%.8luX\n", ctlr->name, 20, iorname[i], mp->reg[i]);

	printitem(ctlr->name, "PLL");
	for(i = 0; i < Npll; i++)
		printreg(mp->pll[i]);
	print("\n");

	/*
	 *     (2*r*n)
	 * f = -------
	 *	(m*p)
	 */
	m = mp->pll[2];
	for(i = 0; i < 4; i++){
		n = mp->pll[7+i];
		p = 1<<((mp->pll[6]>>(i*2)) & 0x03);
		f = (2.0*RefFreq*n)/(m*p) + 0.5;
		print("%s VCLK%d\t%lud\n", ctlr->name, i, (int)f);
	}
}

Ctlr mach64ct = {
	"mach64ct",			/* name */
	snarf,				/* snarf */
	0,				/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};

Ctlr mach64cthwgc = {
	"mach64cthwgc",			/* name */
	0,				/* snarf */
	0,				/* options */
	0,				/* init */
	0,				/* load */
	0,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/mach64ct.c}
if(~ 8b480f547590  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/mach64ct.c checksum error extracting new file
	exit checksum
}
target=871963795/rgb524.c
echo -n '871963795/rgb524.c (new): '
cat > 871963795/rgb524.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

/*
 * IBM RGB524.
 * 170/220MHz High Performance Palette DAC.
 *
 * Assumes hooked up to an S3 Vision96[48].
 */
enum {
	IndexLo		= 0x00,
	IndexHi		= 0x01,
	Data		= 0x02,
	IndexCtl	= 0x03,
};

enum {						/* index registers */
	MiscClock	= 0x02,
	PixelFormat	= 0x0A,
	PLLControl1	= 0x10,
	PLLControl2	= 0x11,
	PLLReference	= 0x14,
	Frequency0	= 0x20,
	MiscControl1	= 0x70,
	MiscControl2	= 0x71,
};

static uchar
setrs2(void)
{
	uchar rs2;

	rs2 = vgaxi(Crtx, 0x55);
	vgaxo(Crtx, 0x55, (rs2 & 0xFC)|0x01);

	return rs2;
}

static uchar
rgb524xi(int index)
{
	outportb(dacxreg[IndexLo], index & 0xFF);
	outportb(dacxreg[IndexHi], (index>>8) & 0xFF);

	return inportb(dacxreg[Data]);
}

static void
rgb524xo(int index, uchar data)
{
	outportb(dacxreg[IndexLo], index & 0xFF);
	outportb(dacxreg[IndexHi], (index>>8) & 0xFF);

	outportb(dacxreg[Data], data);
}

static void
restorers2(uchar rs2)
{
	vgaxo(Crtx, 0x55, rs2);
}

static void
clock(Vga* vga, Ctlr* ctlr)
{
	if(vga->f[0] >= 16250000 && vga->f[0] <= 32000000){
		vga->f[0] = (vga->f[0]/250000)*250000;
		vga->d[0] = (4*vga->f[0])/1000000 - 65;
	}
	else if(vga->f[0] >= 32500000 && vga->f[0] <= 64000000){
		vga->f[0] = (vga->f[0]/500000)*500000;
		vga->d[0] = 0x40|((2*vga->f[0])/1000000 - 65);
	}
	else if(vga->f[0] >= 65000000 && vga->f[0] <= 128000000){
		vga->f[0] = (vga->f[0]/1000000)*1000000;
		vga->d[0] = 0x80|(vga->f[0]/1000000 - 65);
	}
	else if(vga->f[0] >= 130000000 && vga->f[0] <= 220000000){
		vga->f[0] = (vga->f[0]/2000000)*2000000;
		vga->d[0] = 0xC0|((vga->f[0]/2)/1000000 - 65);
	}
	else
		error("%s: pclk %d out of range\n", ctlr->name, vga->f[0]);
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	ulong pclk;
	char *p;

	/*
	 * Part comes in -170 and -220MHz speed-grades.
	 */
	pclk = 170000000;
	if(p = strrchr(ctlr->name, '-'))
		pclk = strtoul(p+1, 0, 0) * 1000000;

	/*
	 * If we don't already have a desired pclk,
	 * take it from the mode.
	 * Check it's within range.
	 */
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	if(vga->f[0] > pclk)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);

	/*
	 * Determine whether to use clock-doubler or not.
	 */
	if((ctlr->flag & Uclk2) == 0 && vga->mode->z == 8)
		resyncinit(vga, ctlr, Uclk2, 0);

	/*
	 * Clock bits. If the desired video clock is
	 * one of the two standard VGA clocks it can just be
	 * set using bits <3:2> of vga->misc, otherwise we
	 * need to programme the PLL.
	 */
	vga->misc &= ~0x0C;
	if(vga->mode->z == 8 || (vga->f[0] != VgaFreq0 && vga->f[0] != VgaFreq1)){
		/*
		 * Initialise the PLL parameters.
		 * Use internal FS3 fixed-reference divider.
		 */
		clock(vga, ctlr);
		vga->i[0] = 0x03;
	}
	else if(vga->f[0] == VgaFreq0)
		vga->i[0] = 0;
	else if(vga->f[0] == VgaFreq1){
		vga->misc |= 0x04;
		vga->i[0] = 1;
	}

	ctlr->flag |= Finit;
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	uchar mc2, rs2, x;
	char *val;
	int f;

	rs2 = setrs2();

	/*
	 * Set VgaFreq[01].
	 */
	rgb524xo(PLLControl1, 0x00);
	rgb524xo(Frequency0, 0x24);
	rgb524xo(Frequency0+1, 0x30);

	if(val = dbattr(vga->attr, "rgb524refclk")){
		f = strtol(val, 0, 0);
		if(f > 1000000)
			f /= 1000000;
		rgb524xo(PLLReference, f/2);
	}
		
	/*
	 * Enable pixel programming and clock divide
	 * factor.
	 */
	x = rgb524xi(MiscClock) & ~0x0E;
	x |= 0x01;
	if(ctlr->flag & Uclk2)
		x |= 0x02;
	rgb524xo(MiscClock, x);

	if(vga->mode->z == 1)
		rgb524xo(PixelFormat, 0x02);
	else if(vga->mode->z == 8)
		rgb524xo(PixelFormat, 0x03);

	x = rgb524xi(MiscControl1) & ~0x41;
	x |= 0x01;
	rgb524xo(MiscControl1, x);

	mc2 = rgb524xi(MiscControl2) & ~0x41;
	vga->crt[0x22] &= ~0x08;
	if(vga->i[0] == 3){
		rgb524xo(Frequency0+3, vga->d[0]);
		rgb524xo(PLLControl1, 0x02);
		rgb524xo(PLLControl2, vga->i[0]);
		mc2 |= 0x41;
		vga->crt[0x22] |= 0x08;
	}
	rgb524xo(MiscControl2, mc2);
	vgaxo(Crtx, 0x22, vga->crt[0x22]);

	restorers2(rs2);
	ctlr->flag |= Fload;
}

static void
dump(Vga*, Ctlr* ctlr)
{
	uchar rs2, r, x[256];
	char buf[32];
	int df, i, maxf, vcodc, vf;

	rs2 = setrs2();
	printitem(ctlr->name, "index00");
	for(i = 0x00; i < 0x0F; i++){
		x[i] = rgb524xi(i);
		printreg(x[i]);
	}
	printitem(ctlr->name, "index10");
	for(i = 0x10; i < 0x17; i++){
		x[i] = rgb524xi(i);
		printreg(x[i]);
	}
	printitem(ctlr->name, "index20");
	for(i = 0x20; i < 0x30; i++){
		x[i] = rgb524xi(i);
		printreg(x[i]);
	}
	printitem(ctlr->name, "index30");
	for(i = 0x30; i < 0x37; i++){
		x[i] = rgb524xi(i);
		printreg(x[i]);
	}
	printitem(ctlr->name, "index40");
	for(i = 0x40; i < 0x49; i++){
		x[i] = rgb524xi(i);
		printreg(x[i]);
	}
	printitem(ctlr->name, "index60");
	for(i = 0x60; i < 0x63; i++){
		x[i] = rgb524xi(i);
		printreg(x[i]);
	}
	printitem(ctlr->name, "index70");
	for(i = 0x70; i < 0x73; i++){
		x[i] = rgb524xi(i);
		printreg(x[i]);
	}
	printitem(ctlr->name, "index8E");
	for(i = 0x8E; i < 0x92; i++){
		x[i] = rgb524xi(i);
		printreg(x[i]);
	}
	restorers2(rs2);

	/*
	 * x[0x10]	pixel clock frequency selection
	 *		0, 2 for direct programming
	 * x[0x20-0x2F]	pixel frequency 0-15
	 */
	printitem(ctlr->name, "refclk");
	print("%12lud\n", x[PLLReference]*2*1000000);
	if((i = (x[0x10] & 0x07)) == 0x00 || i == 0x02){
		/*
		 * Direct programming, external frequency select.
		 * F[0-4] are probably tied directly to the 2 clock-select
		 * bits in the VGA Misc register.
		 */
		if(i == 0)
			maxf = 4;
		else
			maxf = 16;
		for(i = 0; i < maxf; i++){
			if((r = x[0x20+i]) == 0)
				continue;
			sprint(buf, "direct F%X", i);
			printitem(ctlr->name, buf);
			df = (r>>6) & 0x03;
			vcodc = r & 0x3F;

			vf = 0;
			switch(df){
			case 0:
				vf = (vcodc+65)/4;
				break;

			case 1:
				vf = (vcodc+65)/2;
				break;

			case 2:
				vf = (vcodc+65);
				break;

			case 3:
				vf = (vcodc+65)*2;
				break;
			}
			print("%12lud\n", vf);
		}
	}
}

Ctlr rgb524 = {
	"rgb524",			/* name */
	0,				/* snarf */
	0,				/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/rgb524.c}
if(~ 428fdf9b5994  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/rgb524.c checksum error extracting new file
	exit checksum
}
target=871963795/trio64.c
echo -n '871963795/trio64.c (new): '
cat > 871963795/trio64.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

/*
 * S3 Trio64.
 */
static void
snarf(Vga* vga, Ctlr* ctlr)
{
	int i;

	/*
	 * The Trio has some extra sequencer registers which
	 * need to be unlocked for access.
	 */
	vgaxo(Seqx, 0x08, 0x06);
	for(i = 0x08; i < 0x19; i++)
		vga->sequencer[i] = vgaxi(Seqx, i);
	vga->crt[0x2D] = vgaxi(Crtx, 0x2D);
	vga->crt[0x2E] = vgaxi(Crtx, 0x2E);
	vga->crt[0x2F] = vgaxi(Crtx, 0x2F);

	s3generic.snarf(vga, ctlr);
	ctlr->flag |= Fsnarf;
}

static void
options(Vga*, Ctlr* ctlr)
{
	ctlr->flag |= Hlinear|Hpclk2x8|Henhanced|Foptions;
}

void
trio64clock(Vga* vga, Ctlr* ctlr)
{
	int d;
	ulong f, fmax, fmin, n, m, r;
	double trouble;

	/*
	 * The max value of R and the speed rating of the part vary
	 * between parts and are passed to this routine in r[1] and f[1].
	 *			R	    F
	 *	Trio64		3	135000000
	 *	ViRGE		3	135000000
	 *	ViRGE/[DG]X	4	170000000
	 *	ViRGE/VX	4	220000000
	 */

	/*
	 * The PLL frequency is defined by the following equation:
	 *		   (M+2)
	 *	Fout = ------------- x Fref
	 *		(N+2) x 2**R
	 * where M, N and R have the following contraints:
	 * 1)		   (M+2) x Fref
	 *    vga->f[1] <= ------------ <= vga->f[1]*2
	 *		       (N+2)
	 * 2) 1 <= M <= 127
	 * 3) 1 <= N <= 31
	 * 4) 0 <= R <= vga->r[1]
	 *
	 * First determine R:
	 *	vga->f[1] < 2**R x Fout <= vga->f[1]*2
	 */
	for(r = 0; r <= vga->r[1]; r++){
		f = vga->f[0]*(1<<r);
		if(vga->f[1] < f && f <= vga->f[1]*2)
			vga->r[0] = r;
	}
	if(vga->r[0] > vga->r[1])
		error("%s: pclk %d out of range\n", ctlr->name, vga->f[0]);

	/*
	 * Now find the closest match for M and N.
	 */
	vga->d[0] = vga->f[0]+1;
	for(n = 1; n <= 31; n++){
		trouble = vga->f[0]*(n+2)*(1<<vga->r[0]);
		trouble /= RefFreq;
		m = (trouble+0.5) - 2;
		if(m > 127)
			continue;

		trouble = (m+2)*RefFreq;
		trouble /= (n+2)*(1<<vga->r[0]);
		f = trouble+0.5;

		d = vga->f[0] - f;
		if(d < 0)
			d = -d;
		if(d <= vga->d[0]){
			vga->m[0] = m;
			vga->n[0] = n;
			vga->d[0] = d;
		}
	}

	trouble = vga->f[0]*1.005;
	fmax = trouble;
	trouble = vga->f[0]*0.995;
	fmin = trouble;
	trouble = (vga->m[0]+2)*RefFreq;
	trouble /= (vga->n[0]+2)*(1<<vga->r[0]);
	f = trouble+0.5;
	if(fmin >= f || f >= fmax)
		error("%s: pclk %d out of range\n", ctlr->name, vga->f[0]);
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	ulong pclk, x;

	s3generic.init(vga, ctlr);

	/*
	 * Clock bits. If the desired video clock is
	 * one of the two standard VGA clocks it can just be
	 * set using bits <3:2> of vga->misc, otherwise we
	 * need to programme the DCLK PLL.
	 */
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	vga->misc &= ~0x0C;
	if(vga->f[0] == VgaFreq0)
		;
	else if(vga->f[0] == VgaFreq1)
		vga->misc |= 0x04;
	else{
		/*
		 * Part comes in -135MHz speed grade. In 8-bit mode
		 * the maximum DCLK is 80MHz. In 2x8-bit mode the maximum
		 * DCLK is 135MHz using the internal clock doubler.
		 */
		if((ctlr->flag & Hpclk2x8) && vga->mode->z == 8){
			pclk = 135000000;
			if(vga->f[0] > 80000000)
				ctlr->flag |= Upclk2x8;
		}
		else
			pclk = 80000000;
		if(vga->f[0] > pclk)
			error("%s: invalid pclk - %ld\n", ctlr->name, vga->f);

		vga->f[1] = 135000000;
		vga->r[1] = 3;
		trio64clock(vga, ctlr);
		vga->sequencer[0x12] = (vga->r[0]<<5)|vga->n[0];
		vga->sequencer[0x13] = vga->m[0];
		vga->misc |= 0x0C;
	}

	/*
	 * Internal clock generator.
	 */
	vga->sequencer[0x15] &= ~0x31;
	vga->sequencer[0x15] |= 0x02;
	vga->sequencer[0x18] &= ~0x80;
	vga->crt[0x67] &= ~0xF2;
	if(ctlr->flag & Upclk2x8){
		vga->sequencer[0x15] |= 0x10;
		vga->sequencer[0x18] |= 0x80;
		/*
		 * There's a little strip of the border
		 * appears on the left in resolutions
		 * 1280 and above if the 0x02 bit isn't
		 * set (when it appears on the right...).
		 */
		vga->crt[0x67] |= 0x10;
	}

	/*
	 * VLB address latch delay.
	 */
	if((vga->crt[0x36] & 0x03) == 0x01)
		vga->crt[0x58] &= ~0x08;

	/*
	 * Start display FIFO fetch.
	 */
	x = vga->crt[0]-5;
	vga->crt[0x3B] = x;
	if(x & 0x100)
		vga->crt[0x5D] |= 0x40;

	/*
	 * Display memory access control.
	 * Calculation of the M-parameter (Crt54) is
	 * memory-system and dot-clock dependent, the
	 * values below are guesses from dumping
	 * registers.
	 */
	vga->crt[0x60] = 0xFF;
	if(vga->mode->x <= 800)
		vga->crt[0x54] = 0xE8;
	else if(vga->mode->x <= 1024)
		vga->crt[0x54] = 0xA8;
	else
		vga->crt[0x54] = 0x00/*0x48*/;

	ctlr->flag |= Finit;
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	ushort advfunc;

	s3generic.load(vga, ctlr);
	vgaxo(Crtx, 0x60, vga->crt[0x60]);
	vgaxo(Crtx, 0x67, vga->crt[0x67]);

	/*
	 * Load the PLL registers if necessary.
	 * Not sure if the variable-delay method of setting the
	 * PLL will work without a write here to vga->misc,
	 * so use the immediate-load method by toggling bit 5
	 * of Seq15 if necessary.
	 */
	vgaxo(Seqx, 0x12, vga->sequencer[0x12]);
	vgaxo(Seqx, 0x13, vga->sequencer[0x13]);
	if((vga->misc & 0x0C) == 0x0C)
		vgaxo(Seqx, 0x15, vga->sequencer[0x15]|0x20);
	vgaxo(Seqx, 0x15, vga->sequencer[0x15]);
	vgaxo(Seqx, 0x18, vga->sequencer[0x18]);

	advfunc = 0x0000;
	if(ctlr->flag & Uenhanced)
		advfunc = 0x0001;
	outportw(0x4AE8, advfunc);
}

static void
dump(Vga* vga, Ctlr* ctlr)
{
	int i;
	ulong dclk, m, n, r;

	s3generic.dump(vga, ctlr);

	printitem(ctlr->name, "Seq08");
	for(i = 0x08; i < 0x19; i++)
		printreg(vga->sequencer[i]);

	printitem(ctlr->name, "Crt2D");
	printreg(vga->crt[0x2D]);
	printreg(vga->crt[0x2E]);
	printreg(vga->crt[0x2F]);

	n = vga->sequencer[0x12] & 0x1F;
	r = (vga->sequencer[0x12]>>5) & 0x03;
	m = vga->sequencer[0x13] & 0x7F;
	dclk = (m+2)*RefFreq;
	dclk /= (n+2)*(1<<r);
	printitem(ctlr->name, "dclk m n r");
	print("%9ld %8ld       - %8ld %8ld\n", dclk, m, n, r);
}

Ctlr trio64 = {
	"trio64",			/* name */
	snarf,				/* snarf */
	options,			/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/trio64.c}
if(~ 87303d095856  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/trio64.c checksum error extracting new file
	exit checksum
}
target=871963795/tvp3026.c
echo -n '871963795/tvp3026.c (new): '
cat > 871963795/tvp3026.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

/*
 * Tvp3026 Viewpoint Video Interface Palette.
 * Assumes hooked up to an S3 chip of some kind.
 * Why is register access different from the
 * Tvp302[05]?
 */
enum {
	Index		= 0x00,		/* Index register */
	Data		= 0x0A,		/* Data register */

	Id		= 0x3F,		/* ID Register */
	Tvp3026		= 0x26,
};

static uchar
tvp3026io(uchar reg, uchar data)
{
	uchar crt55;

	crt55 = vgaxi(Crtx, 0x55) & 0xFC;
	vgaxo(Crtx, 0x55, crt55|((reg>>2) & 0x03));
	vgao(dacxreg[reg & 0x03], data);

	return crt55;
}

static uchar
tvp3026i(uchar reg)
{
	uchar crt55, r;

	crt55 = vgaxi(Crtx, 0x55) & 0xFC;
	vgaxo(Crtx, 0x55, crt55|((reg>>2) & 0x03));
	r = vgai(dacxreg[reg & 0x03]);
	vgaxo(Crtx, 0x55, crt55);

	return r;
}

uchar
tvp3026xi(uchar index)
{
	uchar crt55, r;

	crt55 = tvp3026io(Index, index);
	vgaxo(Crtx, 0x55, crt55|((Data>>2) & 0x03));
	r = vgai(dacxreg[Data & 0x03]);
	vgaxo(Crtx, 0x55, crt55);

	return r;
}

static void
tvp3026o(uchar reg, uchar data)
{
	uchar crt55;

	crt55 = tvp3026io(reg, data);
	vgaxo(Crtx, 0x55, crt55);
}

void
tvp3026xo(uchar index, uchar data)
{
	uchar crt55;

	crt55 = tvp3026io(Index, index);
	vgaxo(Crtx, 0x55, crt55|((Data>>2) & 0x03));
	vgao(dacxreg[Data & 0x03], data);
	vgaxo(Crtx, 0x55, crt55);
}

static void
options(Vga*, Ctlr* ctlr)
{
	ctlr->flag |= Hclk2|Hextsid|Henhanced|Foptions;
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	ulong grade;
	char *p;

	/*
	 * Work out the part speed-grade from name. Name can have,
	 * e.g. '-135' on the end  for 135MHz part.
	 */
	grade = 110000000;
	if(p = strrchr(ctlr->name, '-'))
		grade = strtoul(p+1, 0, 0) * 1000000;

	/*
	 * If we don't already have a desired pclk,
	 * take it from the mode.
	 * Check it's within range.
	 */
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	if(vga->f[0] > grade)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);

	/*
	 * Determine whether to use clock-doubler or not.
	 */
	if((ctlr->flag & Uclk2) == 0 && vga->mode->z == 8 && vga->f[0] > 85000000)
		resyncinit(vga, ctlr, Uclk2, 0);

	ctlr->flag |= Finit;
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	uchar x;

	/*
	 * General Control:
	 *	output sync polarity
	 * It's important to set this properly and to turn off the
	 * VGA controller H and V syncs. Can't be set in VGA mode.
	 */
	x = 0x00;
	if((vga->misc & 0x40) == 0)
		x |= 0x01;
	if((vga->misc & 0x80) == 0)
		x |= 0x02;
	tvp3026xo(0x1D, x);
	vga->misc |= 0xC0;
	vgao(MiscW, vga->misc);

	ctlr->flag |= Fload;
}

static void
dump(Vga*, Ctlr* ctlr)
{
	int i;
	ulong clock[4], f;

	printitem(ctlr->name, "direct");
	for(i = 0; i < 16; i++)
		printreg(tvp3026i(i));

	printitem(ctlr->name, "index");
	for(i = 0; i < 64; i++)
		printreg(tvp3026xi(i));

	printitem(ctlr->name, "PCLK");
	for(i = 0; i < 3; i++){
		tvp3026xo(0x2C, (i<<4)|(i<<2)|i);
		printreg(clock[i] = tvp3026xi(0x2D));
	}
	f = (RefFreq*(65-clock[1]))/(65-(clock[0] & 0x3F));
	f >>= clock[2] & 0x03;
	print("%23ld", f);

	printitem(ctlr->name, "MCLK");
	for(i = 0; i < 3; i++){
		tvp3026xo(0x2C, (i<<4)|(i<<2)|i);
		printreg(clock[i] = tvp3026xi(0x2E));
	}
	f = (RefFreq*(65-clock[1]))/(65-(clock[0] & 0x3F));
	f >>= clock[2] & 0x03;
	print("%23ld", f);

	printitem(ctlr->name, "LCLK");
	for(i = 0; i < 3; i++){
		tvp3026xo(0x2C, (i<<4)|(i<<2)|i);
		printreg(clock[i] = tvp3026xi(0x2F));
	}
	print("\n");
}

Ctlr tvp3026 = {
	"tvp3026",			/* name */
	0,				/* snarf */
	options,			/* options */
	init,				/* init */
	0,				/* load */
	dump,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/tvp3026.c}
if(~ be67656c3516  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/tvp3026.c checksum error extracting new file
	exit checksum
}
target=871963795/tvp3026clock.c
echo -n '871963795/tvp3026clock.c (new): '
cat > 871963795/tvp3026clock.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

#define SCALE(f)	((f)/10)		/* could be /10 */

static void
init(Vga* vga, Ctlr* ctlr)
{
	int f, k;
	ulong fmin, fvco, m, n, p, q;
	double z;

	if(ctlr->flag & Finit)
		return;

	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	vga->misc &= ~0x0C;
	if(vga->f[0] == VgaFreq0)
		;
	else if(vga->f[0] == VgaFreq1)
		vga->misc |= 0x04;
	else
		vga->misc |= 0x0C;

	/*
	 * Look for values of n, d and p that give
	 * the least error for
	 *	Fvco = 8*RefFreq*(65-m)/(65-n)
	 *	Fpll = Fvco/2**p
	 * N and m are 6 bits, p is 2 bits. Constraints:
	 *	110MHz <= Fvco <= 250MHz
	 *	40 <= n <= 62
	 *	 1 <= m <= 62
	 *	 0 <= p <=  3
	 * Should try to minimise n, m.
	 *
	 * There's nothing like brute force and ignorance.
	 */
	fmin = vga->f[0];
	vga->m[0] = 0x15;
	vga->n[0] = 0x18;
	vga->p[0] = 3;
	for(m = 62; m > 0; m--){
		for(n = 62; n >= 40; n--){
			fvco = 8*SCALE(RefFreq)*(65-m)/(65-n);
			if(fvco < SCALE(110000000) || fvco > SCALE(250000000))
				continue;
			for(p = 0; p < 4; p++){
				f = SCALE(vga->f[0]) - (fvco>>p);
				if(f < 0)
					f = -f;
				if(f < fmin){
					fmin = f;
					vga->m[0] = m;
					vga->n[0] = n;
					vga->p[0] = p;
				}
			}
		}
	}

	/*
	 * Now the loop clock:
	 * 	m is fixed;
	 *	calculate n;
	 *	set z to the lower bound (110MHz) and calculate p and q.
	 */
	vga->m[1] = 61;
	if(ctlr->flag & Uenhanced)
		k = 64/8;
	else
		k = 8/8;
	n = 65 - 4*k;
	fvco = (8*RefFreq*(65-vga->m[0]))/(65-vga->n[0]);
	vga->f[1] = fvco;
	z = 110.0*(65-n)/(4*(fvco/1000000.0)*k);
	if(z <= 16){
		for(p = 0; p < 4; p++){
			if(1<<(p+1) > z)
				break;
		}
		q = 0;
	}
	else{
		p = 3;
		q = (z - 16)/16 + 1;
	}
	vga->n[1] = n;
	vga->p[1] = p;
	vga->q[1] = q;

	ctlr->flag |= Finit;
}

Ctlr tvp3026clock = {
	"tvp3026clock",			/* name */
	0,				/* snarf */
	0,				/* options */
	init,				/* init */
	0,				/* load */
	0,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/tvp3026clock.c}
if(~ e4028b691903  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/tvp3026clock.c checksum error extracting new file
	exit checksum
}
target=871963795/virge.c
echo -n '871963795/virge.c (new): '
cat > 871963795/virge.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

/*
 * S3 Trio/ViRGE.
 * Requires work.
 */
static void
snarf(Vga* vga, Ctlr* ctlr)
{
	int i;

	/*
	 * The Trio/ViRGE variants have some extra sequencer registers
	 * which need to be unlocked for access.
	 */
	vgaxo(Seqx, 0x08, 0x06);
	s3generic.snarf(vga, ctlr);

	for(i = 0x08; i < 0x4F; i++)
		vga->sequencer[i] = vgaxi(Seqx, i);
	vga->crt[0x2D] = vgaxi(Crtx, 0x2D);
	vga->crt[0x2E] = vgaxi(Crtx, 0x2E);
	vga->crt[0x2F] = vgaxi(Crtx, 0x2F);
	for(i = 0x70; i < 0x99; i++)
		vga->crt[i] = vgaxi(Crtx, i);

	switch((vga->crt[0x30]<<8)|vga->crt[0x2E]){

	case 0xE111:				/* Trio64+ */
		vga->r[1] = 3;
		vga->f[1] = 135000000;
		trace("Trio64+\n");
		break;

	case 0xE131:				/* ViRGE */
		vga->r[1] = 3;
		vga->f[1] = 135000000;
		trace("ViRGE\n");
		break;

	case 0xE18A:				/* ViRGE/[DG]X */
		vga->r[1] = 4;
		vga->f[1] = 170000000;
		trace("ViRGE/[DG]X\n");
		break;

	case 0xE13D:				/* ViRGE/VX */
		vga->r[1] = 4;
		vga->f[1] = 220000000;
		trace("ViRGE/VX\n");
		/*
		 * Memory encoding on the ViRGE/VX is different.
		 */
		vga->vmz = (2*(((vga->crt[0x36]>>5) & 0x03)+1)) * 1*1024*1024;
		break;
	}

	ctlr->flag |= Fsnarf;
}

static void
options(Vga*, Ctlr* ctlr)
{
	ctlr->flag |= Hlinear|Hpclk2x8|Henhanced|Foptions;
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	ulong pclk, x;

	s3generic.init(vga, ctlr);

	pclk = vga->f[1];
	
	switch((vga->crt[0x30]<<8)|vga->crt[0x2E]){

	case 0xE111:				/* Trio64+ */
		/*
		 * Part comes in -135MHz speed grade. In 8-bit mode
		 * the maximum DCLK is 80MHz. In 2x8-bit mode the maximum
		 * DCLK is 135MHz using the internal clock doubler.
		 */
		if((ctlr->flag & Hpclk2x8) && vga->mode->z == 8){
			if(vga->f[0] > 80000000)
				ctlr->flag |= Upclk2x8;
		}
		else
			pclk = 80000000;

		vga->crt[0x67] &= ~0xF2;
		if(ctlr->flag & Upclk2x8){
			vga->sequencer[0x15] |= 0x10;
			vga->sequencer[0x18] |= 0x80;
			/*
			 * There's a little strip of the border
			 * appears on the left in resolutions
			 * 1280 and above if the 0x02 bit isn't
			 * set (when it appears on the right...).
			 */
			vga->crt[0x67] |= 0x10;
		}
	
		/*
		 * VLB address latch delay.
		 */
		if((vga->crt[0x36] & 0x03) == 0x01)
			vga->crt[0x58] &= ~0x08;

		/*
		 * Display memory access control.
		 */
		vga->crt[0x60] = 0xFF;
		break;

	case 0xE131:				/* ViRGE */
	case 0xE18A:				/* ViRGE/[DG]X */
		vga->crt[0x60] &= 0x0F;
		vga->crt[0x65] = 0;
		vga->crt[0x66] = 0x89;
		vga->crt[0x67] = 0;
		break;

	case 0xE13D:				/* ViRGE/VX */
		vga->crt[0x60] &= 0x0F;
		vga->crt[0x65] = 0;
		vga->crt[0x66] = 0x89;
		if(vga->mode->z == 8)
			vga->crt[0x67] = 0x10;
		else
			vga->crt[0x67] = 0;

	 	/*
		 * Adjustments to the generic settings:
		 *	heuristic fiddling.
		 */
		vga->crt[0x58] &= ~0x88;
		vga->crt[0x58] |= 0x40;
		if(vga->mode->x > 640 && vga->mode->z == 8)
			vga->crt[0x63] |= 0x01;
		else
			vga->crt[0x63] &= ~0x01;
		break;
	}

	/*
	 * Clock bits. If the desired video clock is
	 * one of the two standard VGA clocks it can just be
	 * set using bits <3:2> of vga->misc, otherwise we
	 * need to programme the DCLK PLL.
	 */
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;
	vga->misc &= ~0x0C;
	if(vga->f[0] == VgaFreq0)
		;
	else if(vga->f[0] == VgaFreq1)
		vga->misc |= 0x04;
	else{
		if(vga->f[0] > pclk)
			error("%s: invalid pclk - %ld\n", ctlr->name, vga->f);

		trio64clock(vga, ctlr);
		vga->sequencer[0x12] = (vga->r[0]<<5)|vga->n[0];
		vga->sequencer[0x13] = vga->m[0];
		vga->misc |= 0x0C;
	}

	/*
	 * Internal clock generator.
	 */
	vga->sequencer[0x15] &= ~0x31;
	vga->sequencer[0x15] |= 0x02;
	vga->sequencer[0x18] &= ~0x80;

	/*
	 * Start display FIFO fetch.
	 */
	x = (vga->crt[0]+vga->crt[4]+1)/2;
	vga->crt[0x3B] = x;
	if(x & 0x100)
		vga->crt[0x5D] |= 0x40;

	/*
	 * Display memory access control.
	 * Calculation of the M-parameter (Crt54) is
	 * memory-system and dot-clock dependent, the
	 * values below are guesses from dumping
	 * registers.
	 */
	if(vga->mode->x <= 800)
		vga->crt[0x54] = 0xE8;
	else if(vga->mode->x <= 1024)
		vga->crt[0x54] = 0xA8;
	else
		vga->crt[0x54] = 0x00/*0x48*/;

	ctlr->flag |= Finit;
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	ushort advfunc;

	s3generic.load(vga, ctlr);

	/*
	 * Load the PLL registers if necessary.
	 * Not sure if the variable-delay method of setting the
	 * PLL will work without a write here to vga->misc,
	 * so use the immediate-load method by toggling bit 5
	 * of Seq15 if necessary.
	 */
	vgaxo(Seqx, 0x12, vga->sequencer[0x12]);
	vgaxo(Seqx, 0x13, vga->sequencer[0x13]);
	if((vga->misc & 0x0C) == 0x0C)
		vgaxo(Seqx, 0x15, vga->sequencer[0x15]|0x20);
	vgaxo(Seqx, 0x15, vga->sequencer[0x15]);
	vgaxo(Seqx, 0x18, vga->sequencer[0x18]);

	vgaxo(Crtx, 0x60, vga->crt[0x60]);
	vgaxo(Crtx, 0x63, vga->crt[0x63]);
	vgaxo(Crtx, 0x65, vga->crt[0x65]);
	vgaxo(Crtx, 0x66, vga->crt[0x66]);
	vgaxo(Crtx, 0x67, vga->crt[0x67]);

	switch((vga->crt[0x30]<<8)|vga->crt[0x2E]){

	case 0xE111:				/* Trio64+ */
		advfunc = 0x0000;
		if(ctlr->flag & Uenhanced)
			advfunc = 0x0001;
		outportw(0x4AE8, advfunc);
		break;
	}
}

static void
dump(Vga* vga, Ctlr* ctlr)
{
	int i;
	ulong dclk, m, n, r;

	s3generic.dump(vga, ctlr);
	printitem(ctlr->name, "Crt70");
	for(i = 0x70; i < 0x99; i++)
		printreg(vga->crt[i]);

	printitem(ctlr->name, "Seq08");
	for(i = 0x08; i < 0x4F; i++)
		printreg(vga->sequencer[i]);

	printitem(ctlr->name, "Crt2D");
	printreg(vga->crt[0x2D]);
	printreg(vga->crt[0x2E]);
	printreg(vga->crt[0x2F]);

	n = vga->sequencer[0x12] & 0x1F;
	r = (vga->sequencer[0x12]>>5) & 0x03;
	m = vga->sequencer[0x13] & 0x7F;
	dclk = (m+2)*RefFreq;
	dclk /= (n+2)*(1<<r);
	printitem(ctlr->name, "dclk m n r");
	print("%9ld %8ld       - %8ld %8ld\n", dclk, m, n, r);
}

Ctlr virge = {
	"virge",			/* name */
	snarf,				/* snarf */
	options,			/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/virge.c}
if(~ 2cf270165900  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/virge.c checksum error extracting new file
	exit checksum
}
target=871963795/vision964.c
echo -n '871963795/vision964.c (new): '
cat > 871963795/vision964.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

/*
 * S3 Vision964 GUI Accelerator.
 */
static void
snarf(Vga* vga, Ctlr* ctlr)
{
	s3generic.snarf(vga, ctlr);
	vga->crt[0x22] = vgaxi(Crtx, 0x22);
	vga->crt[0x24] = vgaxi(Crtx, 0x24);
	vga->crt[0x26] = vgaxi(Crtx, 0x26);
}

static void
options(Vga*, Ctlr* ctlr)
{	
	ctlr->flag |= Hlinear|Henhanced|Foptions;
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	Mode *mode;
	ulong x;
	int sid, dbl, bpp, divide;
	char *val;

	mode = vga->mode;
	if(vga->ramdac && (vga->ramdac->flag & Uclk2)){
		resyncinit(vga, ctlr, Uenhanced, 0);
		vga->crt[0x00] = ((mode->ht/2)>>3)-5;
		vga->crt[0x01] = ((mode->x/2)>>3)-1;
		vga->crt[0x02] = ((mode->shb/2)>>3)-1;
	
		x = (mode->ehb/2)>>3;
		vga->crt[0x03] = 0x80|(x & 0x1F);
		vga->crt[0x04] = (mode->shs/2)>>3;
		vga->crt[0x05] = ((mode->ehs/2)>>3) & 0x1F;
		if(x & 0x20)
			vga->crt[0x05] |= 0x80;
		vga->crt[0x13] = mode->x/8;
	}
	else if(mode->z == 8)
		resyncinit(vga, ctlr, Uenhanced, 0);
	s3generic.init(vga, ctlr);
	/*
	if((ctlr->flag & Uenhanced) == 0)
		vga->crt[0x33] &= ~0x20;
	 */
	vga->crt[0x3B] = (vga->crt[0]+vga->crt[4]+1)/2;
	if(vga->crt[0x3B] & 0x100)
		vga->crt[0x5D] |= 0x40;
	vga->crt[0x55] = 0x00;

	vga->crt[0x40] &= ~0x10;
	vga->crt[0x53] &= ~0x20;
	vga->crt[0x58] &= ~0x48;
	if(dbattr(vga->attr, "sam512") == 0)
		vga->crt[0x58] |= 0x40;		/* set 256 word SAM, always works */
	vga->crt[0x65] = 0x00;
	vga->crt[0x66] &= ~0x07;
	vga->crt[0x6D] = 0x00;
	if(ctlr->flag & Uenhanced){
		if(vga->ramdac && (vga->ramdac->flag & Hsid32))
			sid = 32;
		else
			sid = 64;
		if(vga->ramdac && (vga->ramdac->flag & Uclk2))
			dbl = 2;
		else
			dbl = 1;
		if(mode->z < 4)
			bpp = 4;
		else
			bpp = mode->z;
		divide = sid/(dbl*bpp);
		switch(divide){
		case 2:
			vga->crt[0x66] |= 0x01;
			break;
		case 4:
			vga->crt[0x66] |= 0x02;
			break;
		case 8:
			vga->crt[0x66] |= 0x03;
			break;
		case 16:
			vga->crt[0x66] |= 0x04;
			break;
		case 32:
			vga->crt[0x66] |= 0x05;
			break;
		}

		vga->crt[0x40] |= 0x10;
		vga->crt[0x65] |= 0x02;
		if(vga->ramdac && (vga->ramdac->flag & Hsid32))
			vga->crt[0x66] |= 0x10;

		/*
		 * Some heuristics (what part of aux/vga isn't?)
		 * to prevent some of the right border appearing
		 * on the left edge of the screen.
		 */
		if(dbattr(vga->attr, "vclkphs"))
			vga->crt[0x67] |= 0x01;
		if(val = dbattr(vga->attr, "delaybl"))
			vga->crt[0x6D] |= strtoul(val, 0, 0) & 0x07;
		else if(mode->x > 1024)
			vga->crt[0x6D] |= 0x01;
		else
			vga->crt[0x6D] |= 0x03;

		if(val = dbattr(vga->attr, "delaysc"))
			vga->crt[0x6D] |= (strtoul(val, 0, 0) & 0x07)<<4;
	}
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	ushort advfunc;

	s3generic.load(vga, ctlr);
	vgaxo(Crtx, 0x65, vga->crt[0x65]);
	vgaxo(Crtx, 0x66, vga->crt[0x66]);
	vgaxo(Crtx, 0x6D, vga->crt[0x6D]);

	advfunc = 0x0000;
	if(ctlr->flag & Uenhanced)
		advfunc = 0x0001;
	outportw(0x4AE8, advfunc);
}

static void
dump(Vga* vga, Ctlr* ctlr)
{
	s3generic.dump(vga, ctlr);
	printitem(ctlr->name, "crt22");
	printreg(vga->crt[0x22]);
	printitem(ctlr->name, "crt24");
	printreg(vga->crt[0x24]);
	printitem(ctlr->name, "crt26");
	printreg(vga->crt[0x26]);
}

Ctlr vision964 = {
	"vision964",			/* name */
	snarf,				/* snarf */
	options,			/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/vision964.c}
if(~ 8159b3f43318  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/vision964.c checksum error extracting new file
	exit checksum
}
target=871963795/vision968.c
echo -n '871963795/vision968.c (new): '
cat > 871963795/vision968.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

/*
 * S3 Vision968 GUI Accelerator.
 */
static void
snarf(Vga* vga, Ctlr* ctlr)
{
	s3generic.snarf(vga, ctlr);

	vga->sequencer[0x09] = vgaxi(Seqx, 0x09);
	vga->sequencer[0x0A] = vgaxi(Seqx, 0x0A);

	vga->crt[0x22] = vgaxi(Crtx, 0x22);
	vga->crt[0x24] = vgaxi(Crtx, 0x24);
	vga->crt[0x26] = vgaxi(Crtx, 0x26);
	vga->crt[0x2D] = vgaxi(Crtx, 0x2D);
	vga->crt[0x2E] = vgaxi(Crtx, 0x2E);
	vga->crt[0x2F] = vgaxi(Crtx, 0x2F);
}

static void
options(Vga*, Ctlr* ctlr)
{	
	ctlr->flag |= Hlinear|Henhanced|Foptions;
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	Mode *mode;
	ulong x;
	int sid, dbl, bpp, divide;
	char *val;

	mode = vga->mode;
	if(vga->ramdac && (vga->ramdac->flag & Uclk2)){
		resyncinit(vga, ctlr, Uenhanced, 0);
		vga->crt[0x00] = ((mode->ht/2)>>3)-5;
		vga->crt[0x01] = ((mode->x/2)>>3)-1;
		vga->crt[0x02] = ((mode->shb/2)>>3)-1;
	
		x = (mode->ehb/2)>>3;
		vga->crt[0x03] = 0x80|(x & 0x1F);
		vga->crt[0x04] = (mode->shs/2)>>3;
		vga->crt[0x05] = ((mode->ehs/2)>>3) & 0x1F;
		if(x & 0x20)
			vga->crt[0x05] |= 0x80;
		vga->crt[0x13] = mode->x/8;
	}
	else if(mode->z == 8)
		resyncinit(vga, ctlr, Uenhanced, 0);
	s3generic.init(vga, ctlr);
	/*
	if((ctlr->flag & Uenhanced) == 0)
		vga->crt[0x33] &= ~0x20;
	 */
	vga->crt[0x3B] = (vga->crt[0]+vga->crt[4]+1)/2;
	if(vga->crt[0x3B] & 0x100)
		vga->crt[0x5D] |= 0x40;
	vga->crt[0x55] = 0x00;

	vga->crt[0x40] &= ~0x10;
	vga->crt[0x53] &= ~0x20;
	vga->crt[0x58] &= ~0x48;
	vga->crt[0x65] = 0x00;
	vga->crt[0x66] &= ~0x07;
	vga->crt[0x67] = 0x00;
	vga->crt[0x6D] = 0x00;
	if(ctlr->flag & Uenhanced){
		if(vga->ramdac && (vga->ramdac->flag & Hextsid)){
			if(vga->ramdac->flag & Hsid32)
				sid = 32;
			else
				sid = 64;
			if(vga->ramdac->flag & Uclk2)
				dbl = 2;
			else
				dbl = 1;
			if(mode->z < 4)
				bpp = 4;
			else
				bpp = mode->z;
			divide = sid/(dbl*bpp);
			switch(divide){
			case 2:
				vga->crt[0x66] |= 0x01;
				break;
			case 4:
				vga->crt[0x66] |= 0x02;
				break;
			case 8:
				vga->crt[0x66] |= 0x03;
				break;
			case 16:
				vga->crt[0x66] |= 0x04;
				break;
			case 32:
				vga->crt[0x66] |= 0x05;
				break;
			}
		}

		vga->crt[0x40] |= 0x10;
		vga->crt[0x58] |= 0x40;

		/*
		 * The test against 1376 is necessary for the STB
		 * Velocity 64 Video, no idea if it's relevant to other
		 * cards.
		 * Although not mentioned in the databook, bit 4 of Crt67
		 * needs to be set on the STB Velocity 64 Video too. Gak.
		 */
		if(dbattr(vga->attr, "disa1sc") && mode->x <= 1376)
			vga->crt[0x65] |= 0x02;
		if(vga->ramdac && strncmp(vga->ramdac->name, "tvp3026", 7))
			vga->crt[0x67] |= 0x10;

		if(dbattr(vga->attr, "vclkphs"))
			vga->crt[0x67] |= 0x01;
		if(val = dbattr(vga->attr, "delaybl"))
			vga->crt[0x6D] |= strtoul(val, 0, 0) & 0x07;
		if(val = dbattr(vga->attr, "delaysc"))
			vga->crt[0x6D] |= (strtoul(val, 0, 0) & 0x07)<<4;
	}
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	ushort advfunc;

	s3generic.load(vga, ctlr);
	vgaxo(Crtx, 0x65, vga->crt[0x65]);
	vgaxo(Crtx, 0x66, vga->crt[0x66]);
	vgaxo(Crtx, 0x67, vga->crt[0x67]);
	vgaxo(Crtx, 0x6D, vga->crt[0x6D]);

	advfunc = 0x0000;
	if(ctlr->flag & Uenhanced)
		advfunc = 0x0001;
	outportw(0x4AE8, advfunc);
}

static void
dump(Vga* vga, Ctlr* ctlr)
{
	s3generic.dump(vga, ctlr);

	printitem(ctlr->name, "Seq09");
	printreg(vga->sequencer[0x09]);
	printreg(vga->sequencer[0x0A]);

	printitem(ctlr->name, "Crt22");
	printreg(vga->crt[0x22]);
	printitem(ctlr->name, "Crt24");
	printreg(vga->crt[0x24]);
	printitem(ctlr->name, "Crt26");
	printreg(vga->crt[0x26]);
	printitem(ctlr->name, "Crt2D");
	printreg(vga->crt[0x2D]);
	printreg(vga->crt[0x2E]);
	printreg(vga->crt[0x2F]);
}

Ctlr vision968 = {
	"vision968",			/* name */
	snarf,				/* snarf */
	options,			/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/vision968.c}
if(~ 22ec2f293851  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/vision968.c checksum error extracting new file
	exit checksum
}
target=871963795/w30c516.c
echo -n '871963795/w30c516.c (new): '
cat > 871963795/w30c516.c >[2]/dev/null <<'//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga'
#include <u.h>
#include <libc.h>

#include "vga.h"

/*
 * IC Works W30C516 ZOOMDAC.
 * DSP-based Multimedia RAMDAC.
 */
enum {
	Cr0		= 0x00,		/* Control register 0 */
	Mid		= 0x01,		/* Manufacturer's identification register */
	Did		= 0x02,		/* Device identification register */
	Cr1		= 0x03,		/* Control register 1 */

	Reserve1	= 0x04,		/* Reserved (16-bit) */
	Reserve2	= 0x06,		/* Reserved (16-bit) */
	Reserve3	= 0x08,		/* Reserved (16-bit) */
	Reserve4	= 0x0A,		/* Reserved (16-bit) */

	IstartX		= 0x0C,		/* Image Start X (16-bit) */
	IstartY		= 0x0E,		/* Image Start Y (16-bit) */
	IendX		= 0x10,		/* Image End X (16-bit) */
	IendY		= 0x12,		/* Image End Y (16-bit) */

	RatioX		= 0x14,		/* Ratio X (16-bit) */
	RatioY		= 0x16,		/* Ratio Y (16-bit) */
	OffsetX		= 0x18,		/* Offset X (16-bit) */
	OffsetY		= 0x1A,		/* Offset Y (16-bit) */

	TestR		= 0x1C,		/* Red signature analysis register */
	TestG		= 0x1D,		/* Green signature analysis register */
	TestB		= 0x1E,		/* Blue signature analysis register */

	Nir		= 0x1F,		/* number of indirect registers */
};

static void
options(Vga*, Ctlr* ctlr)
{
	ctlr->flag |= Hpclk2x8|Foptions;
}

static void
init(Vga* vga, Ctlr* ctlr)
{
	ulong grade, pclk;
	char *p;

	/*
	 * Part comes in -170, -135 and -110MHz speed-grades.
	 * In 8-bit mode the max. PCLK is 135MHz for the -170 part
	 * and the speed-grade for the others. In 2x8-bit mode, the max.
	 * PCLK is the speed-grade, using the 2x doubler.
	 * Work out the part speed-grade from name. Name can have,
	 * e.g. '-135' on the end  for 135MHz part.
	 */
	grade = 110000000;
	if(p = strrchr(ctlr->name, '-'))
		grade = strtoul(p+1, 0, 0) * 1000000;

	if(grade == 170000000)
		pclk = 135000000;
	else
		pclk = grade;

	/*
	 * If we don't already have a desired pclk,
	 * take it from the mode.
	 * Check it's within range.
	 */
	if(vga->f[0] == 0)
		vga->f[0] = vga->mode->frequency;

	/*
	 * Determine whether to use 2x8-bit mode or not.
	 * If yes and the clock has already been initialised,
	 * initialise it again. There is no real frequency
	 * restriction, it's really just a lower limit on what's
	 * available in some clock generator chips.
	 */
	if(vga->ctlr && (vga->ctlr->flag & Hpclk2x8) && vga->mode->z == 8 && vga->f[0] >= 60000000){
		vga->f[0] /= 2;
		resyncinit(vga, ctlr, Upclk2x8, 0);
	}
	if(vga->f[0] > pclk)
		error("%s: invalid pclk - %ld\n", ctlr->name, vga->f[0]);

	ctlr->flag |= Finit;
}

static void
load(Vga* vga, Ctlr* ctlr)
{
	uchar mode, x;

	/*
	 * Put the chip to sleep.
	 */
	attdaco(Cr0, 0x08);

	mode = 0x00;
	if(ctlr->flag & Upclk2x8)
		mode = 0x20;

	/*
	 * Set the mode in the RAMDAC, setting 6/8-bit colour
	 * as appropriate and waking the chip back up.
	 */
	if(vga->mode->z == 8 && 0)
		mode |= 0x02;
	x = attdaci(Cr1) & 0x80;
	attdaco(Cr1, x);
	attdaco(Cr0, mode);

	ctlr->flag |= Fload;
}

static void
dump(Vga*, Ctlr* ctlr)
{
	int i;

	printitem(ctlr->name, "");
	for(i = 0; i < Nir; i++)
		printreg(attdaci(i));
}

Ctlr w30c516 = {
	"w30c516",			/* name */
	0,				/* snarf */
	options,			/* options */
	init,				/* init */
	load,				/* load */
	dump,				/* dump */
};
//GO.SYSIN DD VADIM /sys/src/cmd/aux/vga
sum=`{sum < 871963795/w30c516.c}
if(~ fcff631f3124  $sum(1)^$sum(2))
	echo
if not{
	echo 871963795/w30c516.c checksum error extracting new file
	exit checksum
}
echo obsolete files:  /n/juke/plan_9/sys/src/cmd/aux/vga/vgadb