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

Last change on this file since 0170798 was 4f508e6, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Converted assembly language files.

  • Property mode set to 100644
File size: 596 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.