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