Return to relb_mode.s CVS log

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

Annotation of cci/d/entry/relb_mode.s, revision 1.1.1.1

1.1       root        1: 
                      2: /*             BYTE                                                    */
                      3: /*             RELATIVE ADDRESSING MODE TEST                           */
                      4: /*                                                                     */
                      5: /*                                                                     */
                      6: /*                                                                     */
                      7: /*     Syst.s - Constants                                              */
                      8: /*                                                                     */
                      9:        .set    IPL,8
                     10:        .set    HIGH,31
                     11:        .set    ZERO,0
                     12:        .set    ONES,0xffffffff
                     13:        .set    N,8
                     14:        .set    Z,4
                     15:        .set    V,2
                     16:        .set    C,1
                     17:        .set    T,16
                     18:        .set    IV,32
                     19:        .set    FU,64
                     20:        .set    DV,128
                     21:        .set    PSWMASK,0x003f
                     22: 
                     23: 
                     24: 
                     25:        .globl  _relb_mode
                     26: _relb_mode: 
                     27: #      callf   $4,_setjmp              /* save context */
                     28:        movl    $_stpc,r7
                     29:        movab   _relb_mode,(r7)         /* save subtest pc */
                     30:        movl    $_subtst,r7
                     31:        movl    $1,(r7)                 /* subtest number */
                     32:        movl    $_no_opr,r7
                     33:        movl    $1,(r7)                 /* number of operands in use */
                     34:        movl    $_opr,r7
                     35:        movl    bloc,(r7)               /* first operand */
                     36: 0:     movl    bloc,r3                 /*r3 = (bloc)                   */
                     37:        cmpl    r3,$0xaaaaaaaa          /*r3 = literal value?           */
                     38:        beql    1f                      /*if yes, goto next test        */
                     39:        jmp     er1
                     40: 1:     movl    $ret1,r7
                     41:        jmp     (r7)
                     42: 
                     43: er1:
                     44:        movl    $0b,r6
                     45:        movl    $_scoplp,r7             /* load address of scoplp */
                     46:        tstl    (r7)
                     47:        beql    1f
                     48:        jmp     (r6)
                     49: 1:     movl    $_ercode,r7
                     50:        movl    $1,(r7)                 /* error code data miscompare */
                     51:        movl    $_actual,r7
                     52:        movl    r3,(r7)                 /* actual data */
                     53:        movl    $_expected,r7
                     54:        movl    $0xaaaaaaaa,(r7)        /*expected; r3 = observed*/
                     55:        movl    *$badrtn,r7             /*error - dislay error  */
                     56:        jmp     (r7)
                     57: ret1:
                     58:        movl    *$return,r7             /*end of test - goto monitor    */
                     59:        jmp     (r7)
                     60: 
                     61: 
                     62:        .align  2
                     63: #bloc: .fill   4,1,0xaa
                     64: bloc:  .long   0xaaaaaaaa
                     65:        .align  2
                     66: bloc1: .long   bloc
                     67: 
                     68: /*     End of file     */
                     69: 
                     70: 
                     71: /*     End of file                                                     */
                     72: 
                     73: 

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