Return to error_hdl.c CVS log

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

Annotation of cci/d/memman/error_hdl.c, revision 1.1.1.1

1.1       root        1: #include "definitions"
                      2: 
                      3: extern long *p_ptr, exp_par0, exp_par1, exp_par2, exp_par3;
                      4: char *Tname = "\n";            /* PTR to test name */
                      5: 
                      6: chk_pars(msg1)
                      7: char *msg1;
                      8: {      char *msg2;
                      9:        long *pcb_base, act_param;
                     10: 
                     11:        /* Check fault parameter words  */
                     12:        act_param = *p_ptr++;
                     13:        if (exp_par0 != act_param)
                     14:                { msg2="** fault indicator (1st word) is not as expected !!\n"; 
                     15:                  pverr_handler(msg1,msg2,exp_par0,act_param); }
                     16:        act_param = *p_ptr++;
                     17:        if (exp_par1 != act_param)
                     18:                { msg2="** virtual addr in 2nd parameter is not as expected\n"; 
                     19:                  pverr_handler(msg1,msg2,exp_par1,act_param); }
                     20:        act_param = *p_ptr++;
                     21:        if (exp_par2 != act_param)
                     22:                { msg2="** PC in 3rd parameter word is not as expected\n"; 
                     23:                  pverr_handler(msg1,msg2,exp_par2,act_param); }
                     24:        act_param = (*p_ptr) & 0xffffffc0;  /* Mask out PSW flags */
                     25:        if (exp_par3 != act_param)
                     26:                { msg2="** PSL in 4th parameter word is not as expected \n"; 
                     27:                  pverr_handler(msg1,msg2,exp_par3,act_param); }
                     28: 
                     29: }
                     30: 
                     31: pverr_handler(msg1,msg2,exp,act)
                     32: char *msg1, *msg2;
                     33: long exp, act;
                     34: {      
                     35: 
                     36:        writes(Tname);
                     37:        writes(msg1); writec('\n'); writes(msg2); writec('\n');
                     38:        writes("** Expected data : "); writeh(exp); writec('\n');
                     39:        writes("** Actual data   : "); writeh(act); writec('\n');
                     40:        asm("halt");
                     41: }
                     42: 
                     43: 
                     44: 
                     45: print_params()
                     46: {      
                     47:        long *param_ptr;
                     48: 
                     49:        param_ptr = p_ptr;
                     50:        writes("        Parameter 1 : "); writeh(*param_ptr++); writec('\n');
                     51:        writes("        Parameter 2 : "); writeh(*param_ptr++); writec('\n');
                     52:        writes("        Parameter 3 : "); writeh(*param_ptr++); writec('\n');
                     53:        writes("        Parameter 4 : "); writeh(*param_ptr); writec('\n');
                     54:        asm("halt");
                     55: }
                     56: 
                     57: 
                     58: 
                     59: 

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