| setsr.s -- Set processor status register
| -------    -----------------------------
| Version 1 -- 1988-06-29 -- D.N. Lynx Crowe

|	short
|	setsr(arg);
|	short arg;

|	Sets processor status register to 'arg'.
|	Returns old status register value.

|	Assumes you are in supervisor mode.
|	You get a Privelege Violation TRAP if you aren't.

|	Coded for speed -- this is as fast as you can get.
|	No error checking is done -- assumes you know what you're doing.

		.text

		.xdef	setsr

setsr:		move.w	sr,d0			| Get current sr
		move.w	4(sp),sr		| Set new sr
		rts				| Return to caller

		.end