ROUTINE#1  MVC A,B
           EX R1,ROUTINE#2
            .
            .
            .
ROUTINE#2  ST R2,VAR1