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

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.