SHFT2   START
        LAD   GR1,-1 
        
        LAD   GR2,-1,
        
        
        LAD   GR0,0
        
        ST    GR0,RSLT
        RET
RSLT    DS  1
        END