*DECK     OVL10 - QCG-RELOAD OVERLAY. 
* 
*                (1,0) OVERLAY. 
* 
          IDENT  FTN510 
          SST 
          LCC    OVERLAY(FTN,1,0,O=FWA10) 
          COMMENT  FTN5 PRIMARY OVERLAY FOR QCG.
*CALL COMFCIP 
 .RM      IFNE   CP#RM,7
          BSS    "BUFL"-L54.NN
 .RM      ENDIF 
          END    FTN10
          IDENT  RPV10
 RPV10    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)
  
  
**        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
  
 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 RPV10
          RPVFWA UTILITY
          RPVFWA LISTLNK
          RPVFWA PUC
          RPVFWA QCGLINK
 .T       IFEQ   TEST,ON
          RPVFWA IDP
**        RPVFWA CPULFM      NO FRA= PROVIDED 
          RPVFWA FSNAP
 .T       ENDIF 
          RPVFWA FEC
          RPVFWA FERRS
          RPVFWA PEM
          RPVFWA ALLOC
          RPVFWA LEX
          RPVFWA HEADER 
          RPVFWA KEY
          RPVFWA CDDIR
          RPVFWA DATA 
          RPVFWA DECL 
          RPVFWA TYPE 
          RPVFWA FMT
          RPVFWA IO 
          RPVFWA PAR
          RPVFWA CONRED 
          RPVFWA STMTF
          RPVFWA LABEL
          RPVFWA QCGC 
          RPVFWA QSKEL
          RPVFWA FUN
          RPVFWA REG
          RPVFWA GEN
          RPVFWA REC
          RPVFWA FAS
          RPVFWA MAP
          RPVFWA LIST 
          RPVFWA INIT10 
          RPVFWA LWA10
          DATA   0           ** END OF TABLE ** 
          DATA   0
          END 
* 
          IDENT  UTILITY
          END 
          IDENT  LISTLNK
          END 
          IDENT  PUC
          END 
          IDENT  QCGLINK
          END 
**IF DEF,TEST    (NEXT LINE)
*IF DEF,TEST     IDP.FSNAP
          IDENT  IDP
          END 
          IDENT  CPULFM 
          END 
          IDENT  FSNAP
          END 
**ENDIF                      (NEXT LINE)
*ENDIF
          IDENT  FEC
          END 
          IDENT  FERRS
          END 
          IDENT  PEM
          END 
          IDENT  ALLOC
          END 
          IDENT  LEX
          END 
          IDENT  HEADER 
          END 
          IDENT  KEY
          END 
          IDENT  CDDIR
          END 
          IDENT  DATA 
          END 
          IDENT  DECL 
          END 
          IDENT  TYPE 
          END 
          IDENT  FMT
          END 
          IDENT  IO 
          END 
          IDENT  PAR
          END 
          IDENT  CONRED 
          END 
          IDENT  STMTF
          END 
          IDENT  LABEL
          END 
          IDENT  QCGC 
          END 
          IDENT  QSKEL
          END 
          IDENT  FUN
          END 
          IDENT  REG
          END 
          IDENT  GEN
          END 
          IDENT  REC
          END 
          IDENT  FAS
          END 
          IDENT  MAP
          END 
          IDENT  LIST 
          END 
          IDENT  INIT10 
          END 
