*DECK,PHASE30 
          IDENT  PHASE30
          TITLE  PHASE30 - LOAD CODGENI AND CODGENII
          COMMENT  PHASE30 - LOAD CODGENI AND CODGENII
          SST 
          LIST   F
          SPACE  4
*         PHASE30 - LOAD CODGENI AND CODGENII 
          SPACE  4
          ENTRY  PHASE30
 PHASE30  BSSZ   0
          SAVELWA            SAVE LWA OF (3,0) OVERLAY IN LWAX0 
          SPACE  4
*         LOAD CODGENI
  
          LOAD   OV31,MES31 
          ENTRY  AFTPH31
 AFTPH31  BSS    0
          SA0    BP.CG1 
          RJ     =XADDCTBP   ACCUMULATE TIME FOR GENTEXT,ALOCTR,CG1 
          SPACE  4
*         LOAD CODGENII 
  
          LOAD   OV32,MES32 
          ENTRY  AFTPH32
 AFTPH32  BSS    0
          SA0    BP.CG2 
          RJ     =XADDCTBP   ACCUMULATE TIME FOR CG2 (BY ITSELF)
          JP     =XAFTPH30   RETURN TO CONTROL
          TITLE  PTCFL - PUT TO CODE FILE (CFL) 
**        PTCFL - PUT TO CODE FILE (CFL)
* 
*         THIS IS THE INTERFACE ROUTINE THROUGH WHICH A SYMPL PROGRAM 
*         WRITES FROM A WORKING STORAGE BUFFER TO CFL.
*         THE SYMPL CALLING SEQUENCE TO THIS ROUTINE IS-
*                XREF PTCFL;
*                PTCFL (BUF,NWDS);
*                WHERE
*                BUF = WORKING STORAGE BUFFER 
*                NWDS = NUMBER OF WORDS IN BUF
*         HENCE THE REGISTER SETUP ON ENTRY IS- 
*                A1 = POINTER TO APLIST 
*                X1 = FWA OF BUF
* 
  
          PUTSQ  CFL
          SPACE  4
 .T       IFNE   TEST,0 
 MES31    DIS    0,+*CALL CODGENI            CLOCK+ 
 MES32    DIS    0,+*CALL CODGENII           CLOCK+ 
 .T       ENDIF 
 LENICF   ENTRY. 0           LENGTH (NUMBER OF WORDS) OF ICF
          END    PHASE30
