Return to breq.s CVS log

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

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

1.1     ! root        1: 
        !             2: /*
        !             3:        Testing BEQL, NEQL
        !             4: */
        !             5: 
        !             6:        .globl  _breq
        !             7: _breq:
        !             8:        callf   $4,_setjmp      /* save context for return from error */
        !             9:        movab   _breq,_stpc     /* save address of subtest */
        !            10:        movl    $1,_subtst      /* subtest number */
        !            11:        movl    $0,_no_opr      /* branch test no operands */
        !            12: 0:     movl    $0,r3           /* R3 = 0; Z falg should be set */
        !            13:        beql    next1
        !            14:        movpsl  _actual         /* actual = psl */
        !            15:        bbs     $0,_scoplp,0b   /* if set loop on error */
        !            16:        movl    $2,_ercode      /* error code data miscompare */
        !            17:        jmp     *badrtn                 /* Error : beql does not work !! */
        !            18: next1:
        !            19:        bbs     $0,_force_lp,0b /* if set loop on last subtest */
        !            20: b2:    callf   $4,_setjmp      /* save context for return from error */
        !            21:        movab   b2,_stpc        /* save address of subtest */
        !            22:        movl    $2,_subtst      /* subtest number */
        !            23: 0:     movl    $1,r3           /* R3 != 0; Z flag should not be set */
        !            24:        beql    next2
        !            25:        bneq    cont1           /* BEQL works if program is here !! */
        !            26:        movpsl  _actual         /* actual = psl */
        !            27:        bbs     $0,_scoplp,0b   /* if set loop on error */
        !            28:        movl    $2,_ercode      /* error code data miscompare */
        !            29:        jmp     *badrtn                 /* Error : beql does not work !! */
        !            30: next2:
        !            31:        movpsl  _actual         /* actual = psl */
        !            32:        bbs     $0,_scoplp,0b   /* if set loop on error */
        !            33:        movl    $2,_ercode      /* error code data miscompare */
        !            34:        jmp     *badrtn                 /* Error : beql does not work !! */
        !            35: 
        !            36: cont1:
        !            37:        bbs     $0,_force_lp,0b /* if set loop on last subtest */
        !            38: b3:    callf   $4,_setjmp      /* save context for return from error */
        !            39:        movab   b3,_stpc        /* save address of subtest */
        !            40:        movl    $3,_subtst      /* subtest number */
        !            41: 0:     movl    $0,r3           /* R3 = 0; Z flag should be set */
        !            42:        bneq    cont2           /* Should not take branch !! */
        !            43:        bbs     $0,_force_lp,0b /* if set loop on last subtest */
        !            44:        jmp     *return         /*  BNEQ work !!  Keep looping */
        !            45: cont2:
        !            46:        movpsl  _actual         /* actual = psl */
        !            47:        bbs     $0,_scoplp,0b   /* if set loop on error */
        !            48:        movl    $2,_ercode      /* error code data miscompare */
        !            49:        movl    r3,_actual      /* actual data */
        !            50:        movl    $0,_expected    /* expected data */
        !            51:        jmp     *badrtn                 /* Error : beql does not work !! */
        !            52: 

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