Changeset 4f508e6 in buchla-68k for iolib/setsr.s

Timestamp:

07/01/2017 02:34:46 PM (7 years ago)

Author:

Thomas Lopatic <thomas@…>

Branches:

master

Children:

08e1da1

Parents:

f40a309

Message:

Converted assembly language files.

File:

• iolib/setsr.s (modified) (1 diff)

iolib/setsr.s

@@ -1 @@
-*
-* setsr.s -- Set processor status register
-* -------    -----------------------------
-* Version 1 -- 1988-06-29 -- D.N. Lynx Crowe
-*
-*       short
-*       setsr(arg);
-*       short arg;
-*
-*       Sets processor status register to 'arg'.
-*       Returns old status register value.
-*
-*       Assumes you are in supervisor mode.
-*       You get a Privelege Violation TRAP if you aren't.
-*
-*       Coded for speed -- this is as fast as you can get.
-*       No error checking is done -- assumes you know what you're doing.
-*
+
+| setsr.s -- Set processor status register
+| -------    -----------------------------
+| Version 1 -- 1988-06-29 -- D.N. Lynx Crowe
+
+|       short
+|       setsr(arg);
+|       short arg;
+
+|       Sets processor status register to 'arg'.
+|       Returns old status register value.
+
+|       Assumes you are in supervisor mode.
+|       You get a Privelege Violation TRAP if you aren't.
+
+|       Coded for speed -- this is as fast as you can get.
+|       No error checking is done -- assumes you know what you're doing.
+
                 .text
-*
+
                 .xdef   _setsr
-*
-_setsr:         move.w  sr,d0                   * Get current sr
-                move.w  4(sp),sr                * Set new sr
-                rts                             * Return to caller
-*
+
+_setsr:         move.w  sr,d0                   | Get current sr
+                move.w  4(sp),sr                | Set new sr
+                rts                             | Return to caller
+
                 .end