*DECK     OVL00 - ROOT OVERLAY. 
* 
*                (0,0) OVERLAY
* 
          IDENT  FTN5 
          LCC    OVERLAY(FTN,0,0) 
          COMMENT FTN5 MAIN OVERLAY.
          END    FTN
          IDENT  FTN
          END 
          IDENT  FWA5N0 
          SST 
 FWA10    BSSENT             DEFINE ORIGIN OF (1,0) OVERLAY 
 FWA20    BSSENT             DEFINE ORIGIN OF (2,0) OVERLAY 
  
          BSS    1           SO RPV=RNA WILL BE TRASHED WITH (1,0) LOAD 
          END 
* 
*                PSEUDO (1,0) OVERLAY.
* 
          IDENT  RPV00
 RPV00    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 RPV00
          RPVFWA UTILITY
          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 ZEROLNK     REPLACES MAP 
          RPVFWA ZEROLNK     REPLACES LIST
          RPVFWA INIT00 
          RPVFWA LWA00
          DATA   0           ** END OF TABLE ** 
          DATA   0
          END 
* 
          IDENT  UTILITY
          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  ZEROLNK
          END 
          IDENT  INIT00 
          END 
