Return to spl.c CVS log

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

Power 6/32 Unix version 1.2b

/*	spl.c	Tahoe version Feb. 1983 	*/
#include "mtpr.h"

short	spl8()
{
	register short oldipl;

	oldipl = mfpr(IPL);
	mtpr(0x18);
	return (oldipl);
}

splx(oldipl)
short oldipl;
{
	mtpr(oldipl);
}

mtpr(value)
{
	asm("mtpr 4(fp), $0x8");
}

mfpr(regno)
{
	asm("mfpr 4(fp), r0");
}

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