source: buchla-68k/iolib/setsr.s@ 6099cac

Last change on this file since 6099cac 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
23setsr: 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.