Return to test1.c CVS log

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

Annotation of cci/d/mem/test1.c, revision 1.1

1.1     ! root        1: /* 
        !             2:        This is test Marching Ones and Zero Test
        !             3: */
        !             4: 
        !             5: #include  "definitions"
        !             6: #define        size    (sizeof(testcase)/4)            /* number of patterns */
        !             7: extern long    maxmem,endprog;
        !             8: extern struct OPTIONS OPTIONS;
        !             9: 
        !            10: stest1()
        !            11: {      register long *mcr = (long *)0xffffb000;
        !            12: 
        !            13:   if (OPTIONS.header)
        !            14:        writes("\n\n** Subtest1 : Marching patterns.");
        !            15:        writes("\nECC off");
        !            16:        *mcr = 0;                       /* Turn ECC off */
        !            17:        subtest1();                     /* Execute subtest 1 */
        !            18:        writes("\nECC on");
        !            19:        *mcr = 0xc3;                    /* Turn ECC on */
        !            20:        subtest1();                     /* Execute subtest 1 */
        !            21:        *mcr = 0;                       /* Turn ECC off */
        !            22: }
        !            23: 
        !            24: subtest1()
        !            25: {
        !            26:   register long *curadd,*addr,pattern;
        !            27:   int  cnt,patno;
        !            28: 
        !            29:   static unsigned testcase[] =  { 0x00000000,
        !            30:                                0xffffffff,
        !            31:                                0xa5a5a5a5,
        !            32:                                0x5a5a5a5a,
        !            33:                                0x55555555,
        !            34:                                0xaaaaaaaa,
        !            35:                                0x0000ffff,
        !            36:                                0xffff0000 };
        !            37: 
        !            38:   for(cnt = size, patno = 0;(cnt-- ); patno++ ) {
        !            39:        pattern = testcase[patno];              /* fill memory */
        !            40:        for (curadd=(long *)endprog;curadd <= (long *)maxmem;curadd++)
        !            41:                *curadd = pattern;
        !            42:        for (curadd=(long *)endprog;curadd <= (long *)maxmem;curadd++) {
        !            43: error1:                if (*curadd != pattern)
        !            44:                        if (error(curadd,pattern)) goto error1;
        !            45:                 *curadd = ~pattern;
        !            46:                }
        !            47:        for (curadd=(long *)maxmem;curadd >= (long *)endprog;curadd--) {
        !            48: error2:                if (*curadd != (~pattern))
        !            49:                        if (error(curadd,~pattern)) goto error2;
        !            50:                *curadd = ~pattern;
        !            51:                }
        !            52:        }
        !            53: }

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