Return to spl.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe

Power 6/32 Unix version 1.2b

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

int	spl0()
{
	register int oldipl;

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

int	spl1()
{
	register int oldipl;

	oldipl = mfpr(IPL);
	mtpr(0x10+1, IPL);
	return (oldipl);
}

int	spl2()
{
	register int oldipl;

	oldipl = mfpr(IPL);
	mtpr(0x10+2, IPL);
	return (oldipl);
}

int	spl3()
{
	register int oldipl;

	oldipl = mfpr(IPL);
	mtpr(0x10+3, IPL);
	return (oldipl);
}

int	spl4()
{
	register int oldipl;

	oldipl = mfpr(IPL);
	mtpr(0x10+4, IPL);
	return (oldipl);
}

int	spl5()
{
	register int oldipl;

	oldipl = mfpr(IPL);
	mtpr(0x10+5, IPL);
	return (oldipl);
}

int	spl6()
{
	register int oldipl;

	oldipl = mfpr(IPL);
	mtpr(0x10+6, IPL);
	return (oldipl);
}

int	spl7()
{
	register int oldipl;

	oldipl = mfpr(IPL);
	mtpr(0x10+7, IPL);
	return (oldipl);
}

int	spl8()
{
	register int oldipl;

	oldipl = mfpr(IPL);
	mtpr(0x10+8, IPL);
	return (oldipl);
}

int	splimp()
{
	register int oldipl;

	oldipl = mfpr(IPL);
	mtpr(0x10+8, IPL);
	return (oldipl);
}

int	splnet()
{
	register int oldipl;

	oldipl = mfpr(IPL);
	mtpr(0xC, IPL);
	return (oldipl);
}

splx(oldipl)
int oldipl;
{
	mtpr(oldipl, IPL);
}

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