Return to monitor.c CVS log

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

Annotation of cci/d/fpevent/monitor.c, revision 1.1

1.1     ! root        1: 
        !             2: #include "evt_defs.h"
        !             3: 
        !             4: /*********************************************************************
        !             5: *
        !             6: *      MONITOR FOR THE FPP EVENTS TESTS
        !             7: *
        !             8: *  22-Mar-85 : written
        !             9: *  10-Jul-85 : don't run pipe test if running all tests on a specified op-code
        !            10: *  16-Jul-85 : added NO-FPP test capability
        !            11: *********************************************************************/
        !            12: monitor()
        !            13: {
        !            14: struct test_t *test_tbl;               /* pointer to the test table to use */
        !            15: int no_subtests;                       /* number of tests in the table */
        !            16:        force_loop = FALSE;             /* clear the 'force loop' flag */
        !            17:        valid_test = FALSE;             /* clear the 'a test was run' flag */
        !            18:        cycle = 0;                      /* clear the cycle count */
        !            19:        errcnt = 0;                     /* clear the error count */
        !            20:        error  = FALSE;                 /* clear the current error flag */
        !            21:        if( no_fpp_wcs ) {
        !            22:             test_tbl = no_fpp_test_tbl;        /* use the NO-FPP tests */
        !            23:             no_subtests = no_fpp_test_cnt;
        !            24:        } else {
        !            25:             test_tbl = fpp_test_tbl;           /* use the FPP tests */
        !            26:             no_subtests = fpp_test_cnt;
        !            27:        }
        !            28: /*
        !            29:  * Print the Header information and enable the Data Cache if desired
        !            30: */
        !            31:        if( prt_hdrs ) {
        !            32:            writes("\nFPP Events Test");
        !            33:            if( no_fpp_wcs )
        !            34:                 writes(" - FPP is NOT installed");
        !            35:            else
        !            36:                 writes(" - FPP is installed");
        !            37:        }
        !            38:        if( en_data_cache ) {
        !            39:            if( prt_hdrs )
        !            40:                writes(",  Data Cache Enabled: ");
        !            41:            asm("mtpr $1,$25");                 /* purge all data cache pages */
        !            42:            asm("mtpr $1,$27");;                /* enable the data cache */
        !            43:        } else {
        !            44:            if( prt_hdrs )
        !            45:                writes(", Data Cache Disabled: ");
        !            46:            asm("mtpr $2,$27");                 /* disable the data cache */
        !            47:        }
        !            48: /*
        !            49:  * Check the run list to see if a specific test is called for
        !            50: */
        !            51:        for( cycle = 1; ( (cycle <= count) || nonstop ); cycle++ ) {
        !            52:            if( (prt_hdrs) && (cycle != 1) )    /* show we're still running */
        !            53:                writec('.');
        !            54:            if( (run_list > 0) && (run_list <= no_subtests) ) {
        !            55:                test_no = run_list;
        !            56:                test_index = run_list - 1;
        !            57:                if( (prt_hdrs) && (cycle == 1) ) {
        !            58: /*          if( !error )                       /*              */
        !            59:                          writec('\n');
        !            60:                     writes( test_tbl[ test_index ].name );
        !            61:                };
        !            62:                (test_tbl[ test_index ].test)();
        !            63:            } 
        !            64:             else    /* run all tests */
        !            65:            {
        !            66:                for(test_index=0; test_index<no_subtests; test_index++) {
        !            67:                    test_no = test_index + 1;
        !            68:                    if( (no_fpp_wcs) ||    /* don't run pipe test w/ FPP WCS */
        !            69:                        (!evt_inst) ||     /*   and a specified instruction  */
        !            70:                        (test_index != pipe_test_index) ) {
        !            71:                           if( (prt_hdrs) && (cycle == 1) ) {
        !            72: /*                             if( !error )            /*              */
        !            73:                                     writec('\n');
        !            74:                                writes( test_tbl[ test_index ].name );
        !            75:                           };
        !            76:                           (test_tbl[ test_index ].test)();
        !            77:                    }
        !            78:                }
        !            79:            }   /* end of test-all-instructions */
        !            80:        }    /* end of test cycles - done with the test */
        !            81:        cycle--;                        /* correct cycle count */
        !            82:        if( prt_hdrs ) {
        !            83: /*         if( !error )                /*                              */
        !            84:                 writec('\n');;         /* new line if no current errors */
        !            85:            if( valid_test ) {          /* were any tests actually run? */
        !            86:                 writes("Cycles Complete = ");
        !            87:                 writed( cycle );
        !            88:                 if( errcnt ) {
        !            89:                     writes(",  Error Count = " );
        !            90:                     writed( errcnt );
        !            91:                     writes(",  Test Complete\n");
        !            92:                 } else 
        !            93:                     writes(",  TEST PASSED -NO ERRORS!!! \n");
        !            94:            } else {
        !            95:                 writes("FPEVENT: no tests were run with instruction ");
        !            96:                 writeh( evt_inst );
        !            97:                 writec('\n');
        !            98:            }
        !            99:        };
        !           100: /*
        !           101:  * Set up the registers to halt
        !           102: */
        !           103:        asm("movl _errcnt,r0");         /* set error count for halt */
        !           104:        asm("bneq 1f");
        !           105:        asm("tstl _valid_test");        /* were any tests run?      */
        !           106:        asm("beql 1f");                 /* r0 = 0 if no tests run   */
        !           107:        asm("movl $0xCAFEBABE,r0");;    /* set the no-error flag    */
        !           108:        asm("1:");
        !           109:        asm("movl _OPTIONS,r1");        /* restore options to r1    */
        !           110:        asm("movl _cycle,r2");          /* move cycle count to r2   */
        !           111:        asm("movl _evt_inst,r3");       /* move inst op-code to r3  */
        !           112:        asm("halt");;
        !           113: }
        !           114:  
        !           115: 

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