*DECK RPPROCS 
USETEXT CCTTEXT 
USETEXT RPTEXT
PROC RPPROCS ( P1, P2, P3, C1 );
          BEGIN 
*CALL RPROCS
  
  
ENTRY FUNC MOVECHK ( P1, P2, P3 );
          BEGIN 
  # MOVE RULES WERE CHECKED HERE ON STAR.  FOR THE TIME#
  # BEING RGEN WILL OUTPUT A LINE NUMBER ATOM IN FRONT #
  # OF MOVES OF SOURCE ITEMS AND SUM COUNTERS AND WE   #
  # WILL LET PPARSER CHECK THE MOVES.  ITS MESSAGES    #
  # WILL HAVE A COLUMN OF 0 AND THE LINE OF THE REPORT #
  # ITEM ENTRY THAT CONTAINED THE SOURCE OR SUM CLAUSE.#
  # IF THIS IS UNSATISFACTORY BECAUSE OF THE WORDING OF#
  # THE PPARSER MESSAGES, A SEPARATE SET OF MOVE MES-  #
  # SAGES CAN BE USED FOR THESE MOVES                 # 
  # (IT KNOWS WHEN IT IS IN RGEN GENERATED CTEXT)      #
  # OR THE PPARSER MOVE CHECKING CAN BE MOVED HERE.    #
  
          MOVECHK = 1;
          RETURN; 
  
          END 
  
          END #RPPROCS# 
          TERM
