Context Navigation

setsr.s@ 00c31a2

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

Line
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
19	.text
20
21	.xdef setsr
22
23	setsr: move.w sr,d0 \| Get current sr
24	move.w 4(sp),sr \| Set new sr
25	rts \| Return to caller
26
27	.end

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