.module do_RLR8_8;
.external tmp;
.entry RLR8_8;

RLR8_8:
        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);
        ar=sr1+af;
                                dm(i0,m0)=ar;
        rts;
.endmod;