* Problem - Swap two 20 byte fields optimized for speed
* Date - 12/15/07
* Author - Rafa Pereira
* Ref. - z390 Mainframe Assembler Coding Contest on www.z390.org
*
* Using just two MVC instructions. A,B and TEMP must be consecutive.
P1MVC2   ZMFACC CODE,START,NAME='RAFA'
         MVC TEMP,A
         MVC A(L'A+L'B),B
         ZMFACC CODE,END
         ZMFACC INPUT,START
         ZMFACC OUTPUT,START
A        DC     CL20'FIELD A'
B        DC     CL20'FIELD B'
         ZMFACC INPUT,END
         ZMFACC OUTPUT,END
TEMP     DS     CL20
         END