*DECK     OVL20 - PRIMARY OVERLAY FOR CCG.
* 
*   OVERLAY (2,0) 
* 
          IDENT  FTN520 
          SST 
          LCC    OVERLAY(FTN,2,0,O=FWA20) 
          COMMENT  FTN5 PRIMARY OVERLAY FOR CCG.
*CALL COMFCIP 
 .RM      IFNE   CP#RM,7
          BSS    "BUFL"-L54.NN
 .RM      ENDIF 
          END    FTN20
          IDENT  RPV20
 RPV20    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)
  
  
**        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
* 
* 
*         NOTE THAT RIGHT AFTER EACH (2,N) OVERLAY IS LOADED, 
*         THAT *INIT2N* WILL STORE AN END OF TABLE MARK (I.E. 
*         A FULL ZERO WORD) AT (RPV2N), AND ALSO STORE A WORD 
*         CONTAINING THE FWA OF THE *RNA* TABLE FOR THE NEWLY 
*         LOADED HIGHER OVERLAY AT (RPV2N+1). 
* 
*         IN THIS WAY, *CCOMRPV* CAN CHAIN/LINK THRU THE APPROPRIATE
*         *RNA* TABLE FOR EACH HIGHER OVERLAY.  SEE *CCOMRPV* 
*         IN DECK *UTILITY* FOR MORE INFORMATION ON LINKING 
*         *RNA* TABLES. 
  
 RPV=RNA  CONENT FW.RNA 
  
  
 FW.RNA   BSS    0           ** FWA OF RNA TABLE ** 
          RPVFWA RA0,RA.SSW  BASE OF (0,0) OVERLAY
          RPVFWA COMPCOM,RA.ORG+L54.00
          RPVFWA FTN
          RPVFWA RPV20
          RPVFWA UTILITY
          RPVFWA LISTLNK
          RPVFWA PUC
          RPVFWA CCGLINK
 .T       IFEQ   TEST,ON
          RPVFWA IDP
**        RPVFWA CPULFM      NO FRA= PROVIDED 
 .T       ENDIF 
          RPVFWA INIT20,=XB=INI20 
 RPV2N    RPVFWA LWA20       ** USED FOR LINKING TO (2,N).  SEE ABOVE **
          ENTRY  RPV2N
          DATA   0           ** END OF RNA TABLE FOR (2,0) ** 
*                            ** LINK WORD FOR (2,N) **
          DATA   0
          END 
* 
          IDENT  UTILITY
          END 
          IDENT  LISTLNK
          END 
          IDENT  PUC
          END 
          IDENT  CCGLINK
          END 
**IF DEF,TEST    (NEXT LINE)
*IF DEF,TEST     IDP.CPULFM 
          IDENT  IDP
          END 
          IDENT  CPULFM 
          END 
**ENDIF                      (NEXT LINE)
*ENDIF
          IDENT  INIT20 
          END 
