source: buchla-68k/orig/IOLIB/SETSR.S@ 6099cac

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

Imported original source code.

  • Property mode set to 100755
File size: 632 bytes
RevLine 
[3ae31e9]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.