*DECK RESDIRS 
*CWEOR,00 
*WIDTH,80,0 
.PROC,RESDIRS*I,
RESNAME"RESIDENT NAME"=(*A),
RESEPT"MAIN ROUTINE"=(*A),
RESCOMT"PREFIX TABLE COMMENT"=(*A), 
SUBSYS"SUBSYSTEM"=(RHF,NAM,BOTH,NONE),
RESLFN"LOADER DIRECTIVES LFN"=(*F,*N=XXRESD0),
DIRSLFN"DIRECTIVES LFN"=(*F), 
NUMOVLS"NUMBER OF OVERLAYS"=(00=0,*S2(01234567)), 
DEBUG"DEBUG MODE"=(YES,NO), 
TRACE"AIP/FIP TRACE"=(YES,NO,*N=NO),
PROCFIL"PROCEDURE FILE LFN"=(*F,*N=#FILE).
COPYBR,XXRESD1,DIRSLFN. 
COPYBR,RESLFN,DIRSLFN.
BEGIN,LIBDIRS,PROCFIL,#SUBSYS=SUBSYS,#DIRSLFN=DIRSLFN,
  #OVLLVL=00,#DEBUG=DEBUG,#TRACE=TRACE. 
COPYBR,XXRESD1,DIRSLFN. 
RETURN,XXRESD0,XXRESD1. 
REVERT. RESDIRS GENERATED ON FILE DIRSLFN.
.DATA,XXRESD0.
.EOR
.DATA,XXRESD1.
          IDENT  RESNAME
.IF,$NUMOVLS$.EQ.$0$,NOOVL. 
          LCC    OVERLAY(00,00) 
.ELSE,NOOVL.
          LCC    OVERLAY(00,00,OV=NUMOVLS)
.ENDIF,NOOVL. 
          ENTRY  RESNAME
.EOR
          COMMENT RESCOMT_. 
          COMMENT COPYRIGHT (C) 1982, 1984, CONTROL DATA CORP.
          COMMENT ALL RIGHTS RESERVED.
  
 RESNAME  BSS    0
          SA1    PLIST
          RJ     =X_RESEPT
          ENDRUN
  
.IF,$NUMOVLS$.EQ.$0$. OVERLAID CON     0
.IF,$NUMOVLS$.NE.$0$. OVERLAID CON     1
.IF,$SUBSYS$.EQ.$NONE$. NETSAVL  CON     0S1+0S0
.IF,$SUBSYS$.EQ.$RHF$. NETSAVL  CON     0S1+1S0 
.IF,$SUBSYS$.EQ.$NAM$. NETSAVL  CON     1S1+0S0 
.IF,$SUBSYS$.EQ.$BOTH$. NETSAVL  CON     1S1+1S0
.IF,$DEBUG$.EQ.$NO$. DBGOPT   CON     0 
.IF,$DEBUG$.EQ.$YES$. DBGOPT   CON     1
  
 PLIST    BSS    0
          CON    OVERLAID 
          CON    NETSAVL
          CON    DBGOPT 
  
          END    RESNAME
.EOR
*WIDTH
