.module do_RLR8;
.external tmp;
.entry RLR8;

RLR8:
        i0=^tmp+4;
        i1=^tmp+12;
        m0=1;
        m1=2;
        m2=-1;
        m3=-2;
                                ay0=dm(i0,m1);
                                si=dm(i0,m2);
        sr=ashift si (hi);
        ar=sr1-ay0,             si=dm(i0,m0);
        af=-ar,                 dm(i0,m0)=ar;
        sr=ashift si (hi);
        ar=sr1+af,              si=dm(i0,m3);
        af=-ar,                 dm(i0,m1)=ar;
        sr=ashift si (hi),              ay0=dm(i1,m1);
        ar=sr1+af,                      si=dm(i1,m2);
        sr=ashift si (hi),      dm(i0,m0)=ar;
        ar=sr1-ay0,                     si=dm(i1,m0);
        af=-ar,                         dm(i1,m0)=ar;
        sr=ashift si (hi);
        ar=sr1+af,                      si=dm(i1,m3);
        af=-ar,                         dm(i1,m1)=ar;
        sr=ashift si (hi);
        ar=sr1+af;
                                        dm(i1,m0)=ar;
        rts;
.endmod;