Return to trap.c CVS log

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

Power 6/32 Unix version 1.2b

XTrap(code)
long code;
{	register long r12, r11, r10, r9;
	long tpc, tpsl;

	writes("\n** Unexpected exception type : ");
	writeh(code); writec('\n');
	asm("movl 8(fp),r12");		/* par 0 */
	asm("movl 12(fp),r11");		/* par 1 */
	asm("movl 16(fp),r10");		/* par 2 */
	asm("movl 20(fp),r9");		/* par 3 */

	if ((code==0x20) || (code==0x2f) || (code==0x30)) {
		writes("** Par0 :  "); writeh(r12); writec('\n');
		writes("** Par1 :  "); writeh(r11); writec('\n');
		tpc = r10;
		tpsl = r9; 
		}
	   else 	{
		if ((code==0x34) || (code==0x2b))  {
			writes("** Par. :  "); writeh(r12); writec('\n');
			tpc = r11;
			tpsl = r10;
			}
		    else 	{
			tpc = r12;
			tpsl = r11; }
		}
	writes("** PC   :  "); writeh(tpc); writec('\n');
	writes("** PSL  :  "); writeh(tpsl); writec('\n');
	asm("halt");
}

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