Return to procreg.c CVS log

Up to [XINU] / xinu / sys

Xinu for VAX

/* procreg.c -- mtpr, mfpr */

/*
 *------------------------------------------------------------------------
 * mtpr -- move int to priveleged processor register
 *------------------------------------------------------------------------
 */

mtpr(val, reg)
int val, reg;
{
	asm ("mtpr 4(ap), 8(ap)");	/* move val to register reg */
}

/*
 *-----------------------------------------------------------------------
 * mfpr -- return int from privileged processor register
 *-----------------------------------------------------------------------
*/

mfpr(reg)
int reg;
{
	asm ("mfpr 4(ap), r0");
}

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