Return to relw_mode.s CVS log

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

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

1.1       root        1: 
                      2: /*             RELATIVE ADDRESSING MODE TEST                           */
                      3: /*                                                                     */
                      4: /*                                                                     */
                      5: /*                                                                     */
                      6: /*     Syst.s - Constants                                              */
                      7: /*                                                                     */
                      8:        .set    IPL,8
                      9:        .set    HIGH,31
                     10:        .set    ZERO,0
                     11:        .set    ONES,0xffffffff
                     12:        .set    N,8
                     13:        .set    Z,4
                     14:        .set    V,2
                     15:        .set    C,1
                     16:        .set    T,16
                     17:        .set    IV,32
                     18:        .set    FU,64
                     19:        .set    DV,128
                     20:        .set    PSWMASK,0x003f
                     21: 
                     22: 
                     23: 
                     24:        .globl  _relw_mode
                     25: _relw_mode: movl       $_stpc,r7       /* save subtest pc */
                     26:        movab   _relw_mode,(r7)         /* save subtest pc */
                     27:        movl    $_subtst,r7
                     28:        movl    $1,(r7)                 /* subtest number */
                     29:        movl    $_no_opr,r7
                     30:        movl    $1,(r7)                 /* number of operands in use */
                     31:        movl    $_opr,r7
                     32:        movl    bloc,(r7)               /* first operand */
                     33: 0:     movl    bloc,r3                 /*r3 = (bloc)                   */
                     34:        cmpl    r3,$0xaaaaaaaa          /*r3 = literal value?           */
                     35:        beql    1f                      /*if yes, goto next test        */
                     36:        jmp     er1
                     37: 1:     movl    $nxt1,r6
                     38:        jmp     (r6)
                     39: er1:
                     40:        movl    $0b,r6
                     41:        movl    $_scoplp,r7
                     42:        tstl    (r7)
                     43:        beql    1f
                     44:        jmp     (r6)
                     45: 1:     movl    $_ercode,r7
                     46:        movl    $1,(r7)                 /*error code data miscompare*/
                     47:        movl    $_actual,r7
                     48:        movl    r3,(r7)                 /* actual data */
                     49:        movl    $_expected,r7
                     50:        movl    $0xaaaaaaaa,(r7)        /*expected; r3 = observed*/
                     51:        movl    *$badrtn,r7             /*error - dislay error  */
                     52:        jmp     (r7)
                     53: nxt1:
                     54:        movl    $_stpc,r7       /* save subtest pc */
                     55:        movab   1b,(r7)         /* save subtest pc */
                     56:        movl    $_subtst,r7
                     57:        movl    $2,(r7)                 /* subtest number */
                     58:        movl    $_no_opr,r7
                     59:        movl    $1,(r7)                 /* number of operands in use */
                     60:        movl    $_opr,r7
                     61:        movl    wloc,(r7)               /* first operand */
                     62:        bicpsw  $PSWMASK                /*psw = 0                       */
                     63:        movl    wloc,r3                 /*r3 = (wloc)                   */
                     64:        cmpl    r3,$0xbbbbbbbb          /*r3 = literal value?           */
                     65:        beql    1f                      /*if yes, goto next test        */
                     66:        jmp     er2
                     67: 1:     movl    $ret1,r6
                     68:        jmp     (r6)
                     69: er2:
                     70:        movl    $0b,r6
                     71:        movl    $_scoplp,r7
                     72:        tstl    (r7)
                     73:        beql    1f
                     74:        jmp     (r6)
                     75: 1:     movl    $_ercode,r7
                     76:        movl    $1,(r7)                 /*error code data miscompare*/
                     77:        movl    $_actual,r7
                     78:        movl    r3,(r7)                 /* actual data */
                     79:        movl    $_expected,r7
                     80:        movl    $0xbbbbbbbb,(r7)        /*expected; r3 = observed*/
                     81:        movl    *$badrtn,r7             /*error - dislay error  */
                     82:        jmp     (r7)
                     83: ret1:
                     84:        movl    $_ercode,r7
                     85:        movl    $0,(r7)                 /*no error code */
                     86:        movl    *$return,r7             /*end of test - goto monitor            */
                     87:        jmp     (r7)
                     88: 
                     89: 
                     90: /*     Variables list                                                  */
                     91:        .align  2
                     92: bloc:  .fill   4,1,0xaa
                     93:        .align  2
                     94: bloc1: .long   bloc
                     95: empty1:        .space  255             /*255 bytes of zeros                    */
                     96:                                /*to force word addressing              */
                     97:        .align  2
                     98: wloc:  .fill   1,4,0xbbbbbbbb
                     99: wloc1: .long   wloc
                    100: 
                    101: 
                    102: /*     End of file                                                     */
                    103: 
                    104: 

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