Return to reldb_mode.s CVS log

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

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

1.1       root        1: 
                      2: 
                      3: /*             RELATIVE DEFERRED  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:        .globl  _reldb_mode
                     25: _reldb_mode:
                     26:                                /*byte relative deferred                */      
                     27:        movl    $_stpc,r7
                     28:        movab   _reldb_mode,(r7)        /* save subtest pc */
                     29:        movl    $_subtst,r7
                     30:        movl    $1,(r7)                 /* subtest number */
                     31:        movl    $_no_opr,r7
                     32:        movl    $1,(r7)                 /* number of operands in use */
                     33:        movl    $_opr,r7
                     34:        movl    *bloc1,(r7)             /* first operand */
                     35: 0:     movl    *bloc1,r3               /*r3 = (bloc)                   */
                     36:        cmpl    r3,$0xaaaaaaaa          /*r3 = literal value?           */
                     37:        beql    1f                      /*if yes, goto next test        */
                     38:        jmp     er1
                     39: 1:     movl    $ret2,r7
                     40:        jmp     (r7)
                     41: er1:
                     42:        movl    $0b,r6
                     43:        movl    $_scoplp,r7
                     44:        tstl    (r7)
                     45:        beql    1f
                     46:        jmp     (r6)
                     47: 1:     movl    $_ercode,r7
                     48:        movl    $1,(r7)                 /*error code data miscompare*/
                     49:        movl    $_actual,r7
                     50:        movl    r3,(r7)                 /* actual data */
                     51:        movl    $_expected,r7
                     52:        movl    $0xaaaaaaaa,(r7)        /*expected; r3 = observed*/
                     53:        movl    *$badrtn,r7             /*error - dislay error  */
                     54:        jmp     (r7)
                     55: ret2:
                     56:        movl    *$return,r7             /*end of test - goto monitor            */
                     57:        jmp     (r7)
                     58: 
                     59: 
                     60: /*     Variables list                                                  */
                     61:        .align  2
                     62: bloc:  .fill   4,1,0xaa
                     63: bloc1: .long   bloc
                     64: empty1:        .space  255             /*255 bytes of zeros                    */
                     65:                                /*to force word addressing              */
                     66:        .align  2
                     67: wloc:  .fill   1,4,0xbbbbbbbb
                     68: wloc1: .long   wloc
                     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.