Return to mon.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / entry

Annotation of cci/d/entry/mon.s, revision 1.1

1.1     ! root        1:        .globl  _monitor
        !             2: #
        !             3: #      For looping
        !             4: #
        !             5:        .globl _forever
        !             6:        .globl  _force_lp
        !             7: #
        !             8: #      For messages
        !             9: #
        !            10:        .globl _display
        !            11:        .globl _heading
        !            12:        .globl _op_mode         /* 1 : Tahoe, 0 : CP */
        !            13: #
        !            14: #      Counters
        !            15: #
        !            16:        .globl _cycle
        !            17:        .globl _prog_cnt
        !            18:        .globl _test_cnt
        !            19:        .globl  _test_no
        !            20: #
        !            21: #      Little monitor for instruction tests
        !            22: #
        !            23:        .text
        !            24: _monitor:
        !            25:        movl    r0,_test_no             /* Default to 0; runs all tests */
        !            26:        movl    r2,_cycle
        !            27:        clrl    _prog_cnt
        !            28: 
        !            29:        andl3   $1,r1,_op_mode          /* Who handle error messages */
        !            30:        andl3   $2,r1,_forever          /* Loop forever once got an error */
        !            31:        clrl    _force_lp               /* Before exit each subtest, if this */
        !            32:        clrl    _scoplp
        !            33: 
        !            34:        andl3   $4,r1,_display
        !            35:        andl3   $8,r1,_heading
        !            36:        movl    $0x80000,sp             /* set stack */
        !            37:        callf   $4,_lp_init             /* Init vars. for looping */
        !            38:                                        /* clear run flags back to zero */
        !            39:        clrl    r2              /* may have been set by previous runs */
        !            40: 2:     shal    $1,r2,r0
        !            41:        movl    $0x00,_test_tbl[r0]     /* clear run flags  */
        !            42:        aoblss  $notests,r2,2b
        !            43: 
        !            44:        movl    _test_no,r0
        !            45:        bleq    1f                      /* Invalid test no; runs all tests */
        !            46:        cmpl    $notests,r0
        !            47:        blss    1f
        !            48: 
        !            49:        decl    r0                      /* subtract 1 from entered test no. */
        !            50:        movl    r0,_test_no             /* save corected test number */
        !            51:        shal    $1,r0,r0
        !            52:        movl    $0x10000,_test_tbl[r0]  /* Set flag to run */
        !            53: nolp:  brw     start
        !            54: #
        !            55: #      Runs all tests
        !            56: #
        !            57: 1:
        !            58:        clrl    r2      
        !            59: 2:     shal    $1,r2,r0
        !            60:        movl    $0x10000,_test_tbl[r0]  /* Set run flag  */
        !            61:        aoblss  $notests,r2,2b
        !            62:        clrl    _test_no
        !            63: #
        !            64: #
        !            65: #
        !            66:        .globl  start
        !            67: start:
        !            68:        movl    _test_no,r0
        !            69: loop:  movl    tst_tbl[r0],r1          /* get address of test routine */
        !            70:        cmpl    r1,$0                   /* No more ? */
        !            71:        jeql    end
        !            72:        movl    $0x80000,sp             # reset stack, in case changed by test
        !            73:        movl    $0x80000,fp             # and frame
        !            74: 
        !            75:        shal    $1,_test_no,r0
        !            76:        movl    _test_tbl[r0],r0        # Get test flags 
        !            77:        andl3   $1,r0,r2                # Is loop flag set ? 
        !            78:        bneq    j_tst
        !            79: 1:
        !            80:        incl    _test_no
        !            81: 
        !            82: j_tst:
        !            83:        andl3   $0x10000,r0,r2          # Is run flag set ? 
        !            84:        bneq    1f
        !            85:        jmp     start
        !            86: 1:
        !            87:        movl    r1,soap
        !            88:        callf   $4,_pr_hd
        !            89:        movl    soap,r1
        !            90:        jmp     (r1)                    /* jump register deferred */
        !            91: end:
        !            92:        cmpl    $0xffffffff,_cycle      /* Loop forever if cycle = -1 */
        !            93:        jeql    skp
        !            94:        incl    _prog_cnt
        !            95:        cmpl    _prog_cnt,_cycle
        !            96:        bgeq    1f
        !            97: skp:
        !            98:        clrl    _test_no
        !            99:        brw     start
        !           100: 1:
        !           101:        movl    $0xcafebabe,r0          /* R0 == cafe babe ; end of test */
        !           102:        halt
        !           103: #
        !           104: #
        !           105:        .globl  tfail
        !           106: tfail: callf   $4,_M_error
        !           107:        jmp     start
        !           108: errhlt: halt
        !           109: #
        !           110: #
        !           111: filler:
        !           112:        .align  2
        !           113: soap:  .long   0
        !           114:        .globl  return
        !           115: return:
        !           116:        .long   start           /* return address if test passed */
        !           117:        .globl  badrtn
        !           118: badrtn:
        !           119:        .long   tfail           /* return address if test failed */
        !           120: #
        !           121: 

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