Table of Contents

ILOFS

Table Of Contents

Source Code

ILOFS.txt 
  1. *DECK ILOFS 
  2.           IDENT  ILOFS
  3.           EXT    XTRACE 
  4. *IF DEF,IMS 
  5. *#
  6. *1DC  ILOFS 
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        ILOFS               P.C.TAM             78/09/28 
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION.
  12. *        SET ZZZZZDN TO BE CLOSED BY OPERATING SYSTEM IN CASE OF ABORT. 
  13. * 
  14. *     3. METHOD USED. 
  15. *        USER SETLOF MACRO. 
  16. *        SET FLUSH BIT IN FET.
  17. * 
  18. *     4. ENTRY PARAMETERS.
  19. *        NONE.
  20. * 
  21. *     5. EXIT PARAMETERS. 
  22. *        NONE.
  23. * 
  24. *     6. COMMON DECKS CALLED. 
  25. *        MACDEF CYBERDEFS BPIPBUF 
  26. * 
  27. *     7. ROUTINES CALLED. 
  28. *        SETLOF              SET LIST OF FILES MACRO. 
  29. *        XTRACE              TRACE CALLER 
  30. * 
  31. *     8. DAYFILE MESSAGES.
  32. *        NONE.
  33. * 
  34. *#
  35. *ENDIF
  36.  
  37. *CALL MACDEF
  38. *CALL CYBERDEFS 
  39. *CALL INPARU
  40. *CALL BPIPBUF 
  41.  
  42.  IL1      IFEQ   ZZDN,1 
  43.           ENTRY  ILOFS
  44.  ILOFS    SUBR   =           ENTRY/EXIT 
  45.  
  46.           IFEQ   DEBUG,1,6
  47.           SX6    A1 
  48.           SA6    TEMP 
  49.           SX1    XILOFS 
  50.           RJ     XTRACE 
  51.           SA1    TEMP 
  52.           SA1    X1 
  53.  
  54.           SETLOF LOFN 
  55.           MX6    1
  56.           LOAD   A1,BPFET,BPFLUS# READ FLUSH BIT WORD 
  57.           LX6    -WL+BPFLUS?-1
  58.           BX6    X6+X1       SET FLUSH BIT
  59.           SA6    A1 
  60.  
  61.           EQ     ILOFSX      RETURN 
  62.  
  63.  LOFN     VFD    12/0,18/LOFN+1,30/0
  64.           VFD    42/0,18/LEN
  65.           VFD    42/7LZZZZZDN,18/BPFET
  66.           VFD    60/0 
  67.  XILOFS   DATA   L*ILOFS* 
  68.  TEMP     BSS    1
  69.  
  70.  NOF      EQU    1           NUMBER OF FILES IN LIST
  71.  LEN      EQU    NOF+2
  72.  
  73.  IL1      ENDIF 
  74.           END