Return to error.c CVS log

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

Annotation of cci/d/mem/error.c, revision 1.1.1.1

1.1       root        1: /* 
                      2:        Error processor for the memory test
                      3:        options:
                      4:               loop_flg = if TRUE we will loop on error 
                      5:                        else continue testing
                      6: */
                      7: #include  "definitions"
                      8: 
                      9: #define        MEMUNIT (64*1024)
                     10: 
                     11: extern long cycle,test_no,errcnt;
                     12: extern long loop_flg,hlt_flg,prt_flg;
                     13: 
                     14: 
                     15: error(address,expected)
                     16: register long *address;
                     17: int expected ;
                     18: {
                     19:        long dummy;
                     20: 
                     21:      if(prt_flg) {
                     22:        writes("\n      Test    Address   Expected    Actual    Count   Cycle ");
                     23:        writec('\n');
                     24:        writes("   ");
                     25:        pt_hex(test_no,8);writes("  ");
                     26:        pt_hex(address,8);writes("   ");
                     27:        pt_hex(expected,8);writes("  ");
                     28:        pt_hex(*address,8);writes("  ");
                     29:        pt_hex(errcnt++,8);writes(" ");
                     30:        pt_hex(cycle,8);
                     31:        locate(address,expected,*address);      /* Locate Board */
                     32:        }
                     33:        if (loop_flg) return(TRUE);
                     34:                else {
                     35:                 dummy = dummy;
                     36:                 asm("halt");
                     37:                 dummy = dummy;
                     38:                 }
                     39: }
                     40: 
                     41: 
                     42: pt_hex(i,num)
                     43: register long i;
                     44: register short num;    /* num = number of digits to print; max is 8 */
                     45: 
                     46: {
                     47:        register nib, ch, hchar;
                     48:        register n;
                     49: 
                     50:        for( n= (num - 1); n >= 0; n--) {
                     51:                nib = (int) (i >> ( n << 2));
                     52:                ch = nib & 0x0f;
                     53:                if(ch >= 0xA && ch <= 0xF)
                     54:                        hchar = (ch - 0xA) + 'A';
                     55:                else
                     56:                        hchar =  ch + '0';
                     57:                writec(hchar);
                     58:        }
                     59: }

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