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

Last change on this file since f40a309 was f40a309, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Unix line breaks.
  • Property mode set to 100644
File size: 605 bytes
RevLine 
[f40a309]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.