*DECK FRAMDBUG
          IDENT  FTN24
          LCC    OVERLAY(FTN,2,4) 
          COMMENT FTN4 OPT COMPILER - DEBUG PASS 1
  
*         DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*.
  
          ENTRY  B=FTN24
 B=FTN24  VFD    42/5LFTN24,18/*
          VFD    42/7LDBGPHCT,18/=XB=DBGPH
          VFD    42/7LOUTPK24,18/=XB=OPK24
          VFD    42/3LPUT,18/=XPUT-1
          VFD    42/7LPUTUPDT,18/=XPUTUPDT-1
          VFD    42/6LBUGACT,18/=XBUGACT-1
          VFD    42/6LGETOUT,18/=XGETOUT-1
          VFD    42/6LTURNON,18/=XTURNON-1
          VFD    42/7LBUGSOUT,18/=XBUGSOUT-1
          VFD    42/6LBUGCON,18/=XBUGCON-1
          VFD    42/7LTURNOFF,18/=XTURNOFF-1
          VFD    42/7LDEBUGER,18/=XDEBUGER-1
          VFD    42/6LBUGPRO,18/=XBUGPRO-1
          VFD    42/5LPUTIN,18/=XPUTIN-1
          VFD    42/6LSETARR,18/=XSETARR-2
          VFD    42/6LBUGCLO,18/=XBUGCLO-2
          VFD    42/7LSAVREGS,18/=XB=SVREG
          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  DBGPHCT
          END 
          IDENT  OUTPK24
          END 
          IDENT  PUT
          END 
          IDENT  PUTUPDT
          END 
          IDENT  BUGACT 
          END 
          IDENT  GETOUT 
          END 
          IDENT  TURNON 
          END 
          IDENT  BUGSOUT
          END 
          IDENT  BUGCON 
          END 
          IDENT  TURNOFF
          END 
          IDENT  DEBUGER
          END 
          IDENT  BUGPRO 
          END 
          IDENT  PUTIN
          END 
          IDENT  SETARR 
          END 
          IDENT  BUGCLO 
          END 
          IDENT  SAVREGS
          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  DOPROC 
          END 
          IDENT  DPCLOSE
          END 
          IDENT  DECPRO 
          END 
          IDENT  PH1CTL 
          END 
