*DECK FRAME 
          IDENT  FTN
          LCC    OVERLAY(FTN,0,0) 
          COMMENT FTN4 MAIN OVERLAY 
          END 
*IF -DEF,TSOFF
          IDENT  FTN10
          LCC    OVERLAY(FTN,1,0,O=LDPT)
          COMMENT FTN4 TS COMPILER
          SST    A
  
 .T       IFNE   TEST,0 
  
*         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
  
          ENTRY  FWA1.0 
 FWA1.0   BSS    0           BEGIN DECK NAME/ADDRESS TABLE
          VFD    42/3LRA0,18/RA.SSW      BASE OF (0,0) OVERLAY
          VFD    42/3LFTN,18/RA.ORG+LDR.00
          VFD    42/5LFTN10,18/FWA1.0    BASE OF (1,0) OVERLAY
          VFD    42/6LTABLES,18/=XB=TABL
          VFD    42/6LERRORS,18/=XB=ERROR 
          VFD    42/5LBATCH,18/=XB=BATCH
          VFD    42/6LHEADER,18/=XB=HEAD
          VFD    42/3LPIG,18/=XB=PIG
          VFD    42/3LEND,18/=XB=END
          VFD    42/5LALLOC,18/=XB=ALLOC
          VFD    42/4LMAIN,18/=XB=MAIN
          VFD    42/3LLEX,18/=XB=LEX
          VFD    42/3LKEY,18/=XB=KEY
          VFD    42/2LIF,18/=XB=IF
          VFD    42/6LTSDATA,18/=XB=TSDAT 
          VFD    42/4LDECL,18/=XB=DECL
          VFD    42/4LTYPE,18/=XB=TYPE
          VFD    42/3LFMT,18/=XB=FMT
          VFD    42/2LIO,18/=XB=IO
          VFD    42/3LNUM,18/=XB=NUM
          VFD    42/3LPAR,18/=XB=PAR
          VFD    42/6LCONRED,18/=XB=CON 
          VFD    42/3LASF,18/=XB=ASF
          VFD    42/2LDO,18/=XB=DO
          VFD    42/3LFUN,18/=XB=FUN
          VFD    42/3LREG,18/=XB=REG
          VFD    42/3LGEN,18/=XB=GEN
          VFD    42/5LTSNAP,18/=XB=TSNAP
          VFD    42/4LINIT,18/=XB=INIT
          VFD    42/3LMAP,18/=XB=MAP
          VFD    42/4LLIST,18/=XB=LIST
          USE    // 
 BLNKCOM  BSS    0
          USE    *
          VFD    42/7LBLNKCOM,18/BLNKCOM
          DATA   0
 .T       ENDIF 
          END 
          IDENT  TABLES 
          END 
          IDENT  ERRORS 
          END 
          IDENT  BATCH
          END 
          IDENT  HEADER 
          END 
          IDENT  PIG
          END 
          IDENT  END
          END 
          IDENT  ALLOC
          END 
          IDENT  MAIN 
          END 
          IDENT  LEX
          END 
          IDENT  KEY
          END 
          IDENT  IF 
          END 
          IDENT  TSDATA 
          END 
          IDENT  DECL 
          END 
          IDENT  TYPE 
          END 
          IDENT  FMT
          END 
          IDENT  IO 
          END 
          IDENT  NUM
          END 
          IDENT  PAR
          END 
          IDENT  CONRED 
          END 
          IDENT  ASF
          END 
          IDENT  DO 
          END 
          IDENT  FUN
          END 
          IDENT  REG
          END 
          IDENT  GEN
          END 
          IDENT  TSNAP
          END 
          IDENT  INIT 
          END 
          IDENT  MAP
          END 
          IDENT  LIST 
          END 
*ENDIF
          IDENT  FTN20
          LCC    OVERLAY(FTN,2,0,O=LDPT)
          COMMENT FTN4 OPT COMPILER - BATCH CONTROLLER
  
          SST 
  
  
*         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
  
          ENTRY  FWA2.0 
 FWA2.0   BSS    0           BEGIN DECK NAME/ADDRESS TABLE
          VFD    42/3LRA0,18/RA.SSW      BASE OF (0,0) OVERLAY
          VFD    42/3LFTN,18/RA.ORG+LDR.00
          VFD    42/5LFTN20,18/FWA2.0    BASE OF (2,0) OVERLAY
          VFD    42/6LLSTPRO,18/=XB=LSTPR 
          VFD    42/7LOUTPK20,18/=XB=OPK20
          VFD    42/4LSNAP,18/=XB=SNAP
          DATA   0
  
          END 
          IDENT  LSTPRO 
          END 
          IDENT  OUTPK20
          END 
          IDENT  SNAP 
          END 
          IDENT  FTN23
          LCC    OVERLAY(FTN,2,3) 
          COMMENT FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 1B)
  
*         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
  
          ENTRY  B=FTN23
 B=FTN23  VFD    42/5LFTN23,18/*
          VFD    42/6LFTNMSG,18/=XB=FTMSG 
          USE    // 
 BLNKCOM  BSS    0
          USE    *
          VFD    42/7LBLNKCOM,18/BLNKCOM
          DATA   0           TABLE TERMINATOR 
  
          END 
          IDENT  FTNMSG 
          END 
          IDENT  FTN21
          LCC    OVERLAY(FTN,2,1) 
          COMMENT FTN4 OPT COMPILER - PASS 1(NO DEBUG)
  
*         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
  
          ENTRY  B=FTN21
 B=FTN21  VFD    42/5LFTN21,18/*
          VFD    42/6LPS1CTL,18/=XB=PS1CT 
          VFD    42/5LSTMTP,18/=XB=STMTP
          VFD    42/6LENDPRO,18/=XB=ENDPR 
          VFD    42/7LSCANNER,18/=XB=SCANR
          VFD    42/7LDMPELST,18/=XDMPELST-3
          VFD    42/7LCONVERT,18/=XB=CNVRT
          VFD    42/4LDATA,18/=XB=DATA
          VFD    42/5LERPRO,18/=XB=ERPRO
          VFD    42/3LFLY,18/=XB=FLY
          VFD    42/6LLISTIO,18/=XB=LSTIO 
          VFD    42/5LARITH,18/=XB=ARITH
          VFD    42/6LASFPRO,18/=XB=ASFPR 
          VFD    42/4LCALL,18/=XB=CALL
          VFD    42/4LGOTO,18/=XB=GOTO
          VFD    42/6LDOPROC,18/=XB=DOPRC 
          VFD    42/7LDPCLOSE,18/=XB=DPCLS
          VFD    42/6LDECPRO,18/=XB=DECPR 
          VFD    42/6LPH1CTL,18/=XB=PH1CT 
          USE    // 
 BLNKCOM  BSS    0
          USE    *
          VFD    42/7LBLNKCOM,18/BLNKCOM
          DATA   0
  
          END 
          IDENT  PS1CTL 
          END 
          IDENT  STMTP
          END 
          IDENT  ENDPRO 
          END 
          IDENT  SCANNER
          END 
          IDENT  DMPELST
          END 
          IDENT  CONVERT
          END 
          IDENT  DATA 
          END 
          IDENT  ERPRO
          END 
          IDENT  FLY
          END 
          IDENT  LISTIO 
          END 
          IDENT  ARITH
          END 
          IDENT  ASFPRO 
          END 
          IDENT  CALL 
          END 
          IDENT  GOTO 
          END 
          IDENT  DBGLNK 
          END 
          IDENT  DOPROC 
          END 
          IDENT  DPCLOSE
          END 
          IDENT  DECPRO 
          END 
          IDENT  PH1CTL 
          END 
          IDENT  FTN25
*CALL     SSTCALL 
 #OVL     IFEQ   .OVL,0 
          LCC    OVERLAY(FTN,2,2) 
          COMMENT FTN4 OPT COMPILER - PASS 2 AND 3
  
          ENTRY  B=FTN22
 B=FTN22  VFD    42/5LFTN22,18/*
          VFD    42/6LPS3CTL,18/=XB=PS3CT 
          VFD    42/3LFAX,18/=XB=FAX
          VFD    42/6LREFMAP,18/=XB=REFMP 
*CALL     FWACOM
 #OVL     ELSE
          LCC    OVERLAY(FTN,2,5) 
          COMMENT FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)
  
          ENTRY  B=FTN25
 B=FTN25  VFD    42/5LFTN25,18/*
          VFD    42/6LPS3CTL,18/=XB=PS3CT 
          VFD    42/3LFAX,18/=XB=FAX
          VFD    42/6LREFMAP,18/=XB=REFMP 
          USE    // 
 BLNKCOM  BSS    0
          USE    *
          VFD    42/7LBLNKCOM,18/BLNKCOM
          DATA   0
 #OVL     ENDIF 
  
          LIST   -R 
  
          END 
          IDENT  PS3CTL 
          END 
          IDENT  FAX
          END 
          IDENT  REFMAP 
          END 
          IDENT  FTN22
*CALL     SSTCALL 
 #OVL     IFNE   .OVL,0 
          LCC    OVERLAY(FTN,2,2) 
          COMMENT FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER
  
*         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
  
          ENTRY  B=FTN22
 B=FTN22  VFD    42/5LFTN22,18/*
*CALL     FWACOM
  
          LIST   -R 
 #OVL     ENDIF 
  
          END 
          IDENT  CLOSE2 
          END 
          IDENT  MIO
          END 
          IDENT  FBV
          END 
          IDENT  GPO
          END 
          IDENT  GRA
          END 
          IDENT  PROSEQ 
          END 
          IDENT  POST 
          END 
          IDENT  SQZ
          END 
          IDENT  MCG
          END 
          IDENT  BDT
          END 
*IF DEF,TEST
          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
          IDENT  PRE
          END 
          IDENT  CFA
          END 
          IDENT  UDT
          END 
          IDENT  READRL 
          END 
          IDENT  MACROX 
          END 
