* EXCHANGE A RECORD                                     HEADER  C:EXCHNG0001.000
*                                                                       0002.000
*                  EXCHANGE A RECORD                                    0003.000
*                                                                       0004.000
         M.PGM     C:EXCHNG,MPX-32,3.6.1,00                             0005.000
         DEF       C:EXCHNG                                             0006.000
* EXCHANGE A GIVEN SOURCE WITH A GIVEN                                  0007.000
* DESTINATION FOR A GIVEN VARIABLE LENGTH                               0008.000
* A. CHECK COUNT;IF COUNT=INDEX THEN RETURN                             0009.000
* B. EXCHANGE THE SOURCE, OFFSET BY INDEX, WITH                         0010.000
* DESTINATION OFFSET BY INDEX                                           0011.000
* C. INCREMENT INDEX                                                    0012.000
* D. LOOP TO A.                                                         0013.000
         M.REQS                                                         0014.000
C:EXCHNG EQU       $                                                    0015.000
*                                  R2 -> SOURCE                         0016.000
*                                  R3 -> DEST                           0017.000
*                                  R4 =  COUNT                          0018.000
         CI        R4,X'0'                                              0019.000
         BCT       LE,XCHXIT                                            0020.000
         LI        R7,4*1          R7 =  INDEX INCREMENT                0021.000
         TRN       R4,R4                                                0022.000
EXCHLP   EQU       $                                                    0023.000
         LW        R5,0W,X2        R5 =  FIROP                          0024.000
         LW        R6,0W,X3        R6 =  SECOP                          0025.000
         STW       R5,0W,X3        EXCHANGE RECORDS                     0026.000
         STW       R6,0W,X2                                             0027.000
         ADR       R7,R2                                                0028.000
         ADR       R7,R3                                                0029.000
         BIB       R4,EXCHLP                                            0030.000
XCHXIT   EQU       $                                                    0031.000
         TRSW      R0                                                   0032.000
         END                                                            0033.000
