*DECK CGREGMV 
          PROC  CGREGMV;
          BEGIN 
  
  
*CALL M$
  
*CALL FIXED 
  
*CALL FIXCOM
  
*CALL REGTABL 
  
          DEF  PARM1         #FIXEDCELL[FIXED"P1"]#;
          DEF  PARM2         #FIXEDCELL[FIXED"P2"]#;
          DEF  PARM3         #FIXEDCELL[FIXED"P3"]#;
          DEF  PARM4         #FIXEDCELL[FIXED"P4"]#;
  
          REGWORD0    [PARM2] = REGWORD0    [PARM1];
          REGDNATADDR [PARM2] = REGDNATADDR [PARM1];
          REGWORD2    [PARM2] = REGWORD2    [PARM1];
          REGWORD3[PARM2] = REGWORD3[PARM1];
          REGWORD4[PARM2] = REGWORD4[PARM1];
          END 
          TERM
