P1DSH1.MLC

* Problem - pgm to swap two 20 byte fields which executes the fastest?
* Date    - 12/10/07
* Author  - Don Higgins - University of South Florida
* Ref.    - z390 Mainframe Assembler Coding Contest on www.z390.org
P1DSH1   ZMFACC  CODE,START,NAME='Don Higgins'
         MVC     TEMP,A
         MVC     A,B
         MVC     B,TEMP
         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