Context Navigation

setsr.s@ f806726

Last change on this file since f806726 was 8325447, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Removed _ prefix.
Property mode set to `100644`
File size: 594 bytes

Rev	Line
[4f508e6]	1
	2	\| setsr.s -- Set processor status register
	3	\| ------- -----------------------------
	4	\| Version 1 -- 1988-06-29 -- D.N. Lynx Crowe
	5
	6	\| short
	7	\| setsr(arg);
	8	\| short arg;
	9
	10	\| Sets processor status register to 'arg'.
	11	\| Returns old status register value.
	12
	13	\| Assumes you are in supervisor mode.
	14	\| You get a Privelege Violation TRAP if you aren't.
	15
	16	\| Coded for speed -- this is as fast as you can get.
	17	\| No error checking is done -- assumes you know what you're doing.
	18
[f40a309]	19	.text
[4f508e6]	20
[8325447]	21	.xdef setsr
[4f508e6]	22
[8325447]	23	setsr: move.w sr,d0 \| Get current sr
[4f508e6]	24	move.w 4(sp),sr \| Set new sr
	25	rts \| Return to caller
	26
[f40a309]	27	.end

Note: See TracBrowser for help on using the repository browser.