Last change
on this file since 4810254 was 4f508e6, checked in by Thomas Lopatic <thomas@…>, 7 years ago |
Converted assembly language files.
|
-
Property mode
set to
100644
|
File size:
596 bytes
|
Rev | Line | |
---|
[4f508e6] | 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 |
|
---|
[f40a309] | 19 | .text
|
---|
[4f508e6] | 20 |
|
---|
[f40a309] | 21 | .xdef _setsr
|
---|
[4f508e6] | 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 |
|
---|
[f40a309] | 27 | .end
|
---|
Note:
See
TracBrowser
for help on using the repository browser.