Return to error.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / event

Power 6/32 Unix version 1.2b

error(regs)
long *regs;
{	long ix;

	asm("pushab err1");
	asm("callf $8,_writes");

	for(ix=0;ix<14;ix++) {
		writeh(regs[ix]);
		if (ix==6)  { 
			asm("pushab err3");
			asm("callf $8,_writes");
			}
		    else {
			asm("pushab err2");
			asm("callf $8,_writes");
			}
		}
	ix = 0;
	asm("pushab err4");
	asm("callf $8,_writes");
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.