Return to halt.s CVS log

Up to [XINU] / xinu / sys

Annotation of xinu/sys/halt.s, revision 1.1

1.1     ! root        1: /* halt.s -- halt */
        !             2: 
        !             3: #include <procreg.h>
        !             4: #include <conf.h>
        !             5: #include <qbus.h>
        !             6: #include <mach.h>
        !             7: 
        !             8: /* declare global for use after uploading, with pm */
        !             9:        .data
        !            10:        .comm   _pslsave, 4
        !            11:        .comm   _spsave, 4
        !            12: 
        !            13: /*------------------------------------------------------------------------
        !            14:  *  halt -- simulate halt on VAX (really halt on UVAXII)
        !            15:  *------------------------------------------------------------------------
        !            16:  */
        !            17:        .text
        !            18:        .globl  __halt
        !            19: __halt:
        !            20:                                /* no entry mask--not called            */
        !            21:        movpsl  _pslsave        /* save old psl for pm after upload     */
        !            22:        mtpr    $DISABLE, $IPL  /* disable interrupts                   */
        !            23: 
        !            24:        mfpr    $SID, r1        /* get system id register value         */
        !            25:        bicl2   $SYSTYPE, r1    /* mask off system id                   */
        !            26:        cmpl    r1, $UVAXIISID  /* compare with UVAX II sid reg. value  */
        !            27:        jneq    uvaxi
        !            28:        movw    $QMHALT,*$QMCPMBX/* raise console program mailbox flag  */
        !            29:        halt                    /* can halt if UVAXII                   */
        !            30:        jmp     savepc
        !            31: 
        !            32: uvaxi: movl    sp, _spsave
        !            33:        movl    $kernstk, sp    /* give stack memory for kprintf call   */
        !            34:        pushab  haltmesg
        !            35:        calls   $1, _kprintf
        !            36:        movl    _spsave, sp     /* restore stack pointer                */
        !            37: forever:
        !            38:        jbr     forever         /* simulate halt by tight loop --       */
        !            39:                                /* if halted, the cpu may try to reboot */
        !            40: savepc:        movl    _pslsave, -(sp) /* in case user moves PC past loop and  */
        !            41:        movab   unhalt, -(sp)   /* issues console "C"                   */
        !            42:        rei                     /* load old psl                         */
        !            43: unhalt:
        !            44:        ret
        !            45: 
        !            46: haltmesg:
        !            47:        .ascii  "\nCpu executing tight loop, may be halted at console\n\0"

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