ROUTINE#1  MVC A,B
           ST R2,VAR1
            .
            .
            .