*DECK ILOFS 
          IDENT  ILOFS
          EXT    XTRACE 
*IF DEF,IMS 
*#
*1DC  ILOFS 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        ILOFS               P.C.TAM             78/09/28 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        SET ZZZZZDN TO BE CLOSED BY OPERATING SYSTEM IN CASE OF ABORT. 
* 
*     3. METHOD USED. 
*        USER SETLOF MACRO. 
*        SET FLUSH BIT IN FET.
* 
*     4. ENTRY PARAMETERS.
*        NONE.
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMMON DECKS CALLED. 
*        MACDEF CYBERDEFS BPIPBUF 
* 
*     7. ROUTINES CALLED. 
*        SETLOF              SET LIST OF FILES MACRO. 
*        XTRACE              TRACE CALLER 
* 
*     8. DAYFILE MESSAGES.
*        NONE.
* 
*#
*ENDIF
  
*CALL MACDEF
*CALL CYBERDEFS 
*CALL INPARU
*CALL BPIPBUF 
  
 IL1      IFEQ   ZZDN,1 
          ENTRY  ILOFS
 ILOFS    SUBR   =           ENTRY/EXIT 
  
          IFEQ   DEBUG,1,6
          SX6    A1 
          SA6    TEMP 
          SX1    XILOFS 
          RJ     XTRACE 
          SA1    TEMP 
          SA1    X1 
  
          SETLOF LOFN 
          MX6    1
          LOAD   A1,BPFET,BPFLUS# READ FLUSH BIT WORD 
          LX6    -WL+BPFLUS?-1
          BX6    X6+X1       SET FLUSH BIT
          SA6    A1 
  
          EQ     ILOFSX      RETURN 
  
 LOFN     VFD    12/0,18/LOFN+1,30/0
          VFD    42/0,18/LEN
          VFD    42/7LZZZZZDN,18/BPFET
          VFD    60/0 
 XILOFS   DATA   L*ILOFS* 
 TEMP     BSS    1
  
 NOF      EQU    1           NUMBER OF FILES IN LIST
 LEN      EQU    NOF+2
  
 IL1      ENDIF 
          END