*DECK     OVL22 - COMMON CODE GENERATOR OVERLAY.
* 
*         OVERLAY (2,2) 
* 
          IDENT  FTN522 
          LCC    OVERLAY(FTN,2,2,O=FWA22) 
          COMMENT COMMON CODE GENERATOR OVERLAY.
          END    FTN22
          IDENT  RPV22
 RPV22    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)
  
  
**        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
  
          ENTRY  RPV22
 RPV22    RPVFWA RPV22
          RPVFWA CCGC 
          RPVFWA CGTM 
          RPVFWA MIO
          RPVFWA FBV
          RPVFWA GPO
          RPVFWA GRA
          RPVFWA PROSEQ,=XB=PROSQ 
          RPVFWA SQZ
          RPVFWA MCG
  
 .TEST    IFEQ   TEST,ON     IF TEST MODE 
          RPVFWA CSNAP
          RPVFWA OUTPTK 
          RPVFWA DMPIIT,=XDMPIIT-3
          RPVFWA DMPRLST,=XDMPRLST-3
          RPVFWA DMPSIT,=XDMPSIT-3
          RPVFWA DMPTREE,=XDMPTREE-3
          RPVFWA DMPUDI,=XDMPUDI-3
          RPVFWA PRNTGRA,=XPRNTGRA-3
          RPVFWA PRNTMIO,=XPRNTMIO-3
          RPVFWA PRNTUDI,=XPRNTUDI-3
          RPVFWA PRNTABV,=XPRNTABV-3
          RPVFWA PRNTBV,=XPRNTBV-3
          RPVFWA PRNTRLI,=XPRNTRLI-3
          RPVFWA PRNTMCG,=XPRNTMCG-3
 .TEST    ENDIF 
  
          RPVFWA BDT
          RPVFWA BRIDGE 
          RPVFWA CFA
          RPVFWA UDT
          RPVFWA CSKEL
          RPVFWA INIT22,=XB=INI22 
          RPVFWA LWA22
          DATA   0           ** END OF RNA TABLE ** 
          DATA   0
          END 
* 
          IDENT  CCGC 
          END 
          IDENT  CGTM 
          END 
          IDENT  MIO
          END 
          IDENT  FBV
          END 
          IDENT  GPO
          END 
          IDENT  GRA
          END 
          IDENT  PROSEQ 
          END 
          IDENT  SQZ
          END 
          IDENT  MCG
          END 
  
**IF,DEF,TEST                (NEXT LINE)
*IF DEF,TEST
          IDENT  CSNAP
          END 
          IDENT  OUTPTK 
          END 
          IDENT  DMPIIT 
          END 
          IDENT  DMPRLST
          END 
          IDENT  DMPSIT 
          END 
          IDENT  DMPTREE
          END 
          IDENT  DMPUDI 
          END 
          IDENT  PRNTGRA
          END 
          IDENT  PRNTMIO
          END 
          IDENT  PRNTUDI
          END 
          IDENT  PRNTABV
          END 
          IDENT  PRNTBV 
          END 
          IDENT  PRNTRLI
          END 
          IDENT  PRNTMCG
          END 
**ENDIF                      (NEXT LINE)
*ENDIF
  
          IDENT  BDT
          END 
          IDENT  BRIDGE 
          END 
          IDENT  CFA
          END 
          IDENT  UDT
          END 
          IDENT  CSKEL
          END 
          IDENT  INIT22 
          END 
