Return to interrupt.s CVS log

Up to [XINU] / xinu / sys

Annotation of xinu/sys/interrupt.s, revision 1.1.1.1

1.1       root        1: /* interrupt.s - disable, restore, enable */
                      2: 
                      3: #include <procreg.h>
                      4: 
                      5: /*----------------------------------------------------------------------------
                      6:  * disable -- disable interrupts and save current IPL at argument address
                      7:  *----------------------------------------------------------------------------
                      8:  *     On entry, the stack contains (at AP+4) the address of a longword at
                      9:  *     which disable should save the current IPL.
                     10:  *     To call:  PStype ps;  disable(ps);
                     11: */
                     12:        .text                           /* text in subsegment 0         */
                     13:        .align  1                       /* clr low bit of loc counter   */
                     14:        .globl  _disable                /* external name                */
                     15: _disable:                              /* entry point for disable      */
                     16:        .word   0x0                     /* entry mask,save no registers */
                     17:        mfpr    $IPL, *4(ap)            /* store old IPL                */
                     18:        mtpr    $DISABLE, $IPL          /* disable interrupts           */
                     19:        ret
                     20: 
                     21: /*----------------------------------------------------------------------------
                     22:  * restore -- restore interrupts to argument IPL
                     23:  *----------------------------------------------------------------------------
                     24:  *     On entry, the stack contains (at AP+4) the address of a longword
                     25:  *     containing the new IPL level.
                     26:  *     To call:  PStype ps;  restore(ps);
                     27: */
                     28:        .text
                     29:        .align  1
                     30:        .globl  _restore                /* global procedure name        */
                     31: _restore:
                     32:        .word   0x0                     /* entry mask,no regs saved     */
                     33:        mtpr    *4(ap), $IPL            /* restore IPL                  */
                     34:        ret
                     35: 
                     36: /*----------------------------------------------------------------------------
                     37:  * enable -- enable interrupts
                     38:  *----------------------------------------------------------------------------
                     39:  *     To call:  enable();
                     40: */
                     41:        .text
                     42:        .align  1
                     43:        .globl  _enable                 /* global procedure name        */
                     44: _enable:
                     45:        .word   0x0                     /* entry mask,no regs saved     */
                     46:        mtpr    $ENABLE, $IPL           /* enable interrupts            */
                     47:        ret

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.