Return to bootcomet.s CVS log

Up to [Research Unix] / researchv10no / sys / ml

Annotation of researchv10no/sys/ml/bootcomet.s, revision 1.1.1.1

1.1       root        1: #
                      2: # primitives to stop the machine
                      3: # with and without rebooting
                      4: # comet (750) version
                      5: #
                      6: 
                      7: #
                      8: # death stops the machine cold, without rebooting
                      9: # we're not allowed to halt because it's hard to guarantee
                     10: # that we'll really halt, and not reboot or restart
                     11: #
                     12: 
                     13:        .globl  _death
                     14: _death:        .word   0x0
                     15:        mtpr    $HIGH,$IPL
                     16:        pushab  deathmsg
                     17:        calls   $1,_printf
                     18: dl:    brb     dl
                     19: 
                     20: deathmsg:
                     21:        .asciz  "death\n\n"
                     22: 
                     23: #
                     24: # reboot restarts the machine, if possible
                     25: # we ask for an auto-restart
                     26: # which will take a crash dump and then boot
                     27: # registers saved here because comet may spoil them otherwise
                     28: #
                     29: 
                     30:        .globl  _reboot
                     31: _reboot: .word 0x0
                     32:        clrl    r0
                     33: rb0:   aobleq  $1000000,r0,rb0 # about 1 sec delay, to let disk finish
                     34:        mtpr    $HIGH,$IPL      # from here on, no interruptions!
                     35:        movl    sp,rebsp        # save current stack
                     36:        moval   rebsp,sp        # get ptr to register save place
                     37:        pushr   $0x3fff         # save the registers there
                     38:        movl    rebsp,sp        # and get the real stack back
                     39:        mfpr    $PCBB,rebpcb
                     40:        jbr     doadump
                     41: 
                     42:        .data
                     43:        .globl  rebregs
                     44:        .globl  rebsp
                     45:        .globl  rebpcb
                     46: rebregs:
                     47:        .space  14*4            # place to store registers from crash
                     48: rebsp: .space  4
                     49: rebpcb:        .space  4               # place for pcbb at crash
                     50: 
                     51:        .text
                     52: 
                     53: #
                     54: # place to call on auto-restart,
                     55: # from the restart parameter block
                     56: #
                     57: 
                     58:        .globl  restart
                     59:        .align  2
                     60: restart:
                     61:        bbss    $0,_rpb+12,0f           # console should do this, but doesn't
                     62: 0:
                     63: #      cmpl    $PFMAGIC,pfmagic        # power fail?
                     64: #      bneq    doadump         # no
                     65: #       clrl   _rpb+12         # yes: flag further restarts ok
                     66: #       jmp    Xpowrec         # and do power recovery
                     67: 
                     68: #
                     69: # not a power fail
                     70: # take a crash dump and reboot
                     71: # registers have already been saved (above)
                     72: #
                     73: # crash dump routine is called as
                     74: #      dump(dev, low, size)
                     75: #
                     76: 
                     77:        .globl  doadump
                     78: doadump:
                     79:        mtpr    $HIGH,$IPL      # no interrupts
                     80:        mtpr    $0,$MAPEN       # turn off memory management
                     81:        movab   dumpstack,sp    # set up a clean stack
                     82:        pushab  dumping
                     83:        calls   $1,_printf
                     84: #      pushl   _dumpsize
                     85: #      pushl   _dumplow
                     86: #      pushl   _dumpdev
                     87: #      calls   $3,*_dumprout
                     88:        clrl    r5              # boot flags; magic: r5 undisturbed in setboot
                     89:        calls   $0,_setboot
                     90:        halt
                     91: 
                     92: dumping: .asciz        "dumping core\n"
                     93: 
                     94:        .data
                     95:        .align  2
                     96:        .globl  dumpstack
                     97:        .space  58*4                    # separate stack for dumps
                     98: dumpstack: 
                     99:        .space  4

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