*DECK LFGWRD
USETEXT LFGDIR,LFGFET,LFGIOD,LFGDB
      PROC LFGWRD;
      BEGIN                  # WRITE DIRECTORY TO NLF                  #
*IF DEF,IMS 
# 
**    LFGWRD - WRITE DIRECTORY. 
* 
*     M. E. VATCHER  81/02/23 
* 
*     LFGWRD WRITES THE OPLD TO THE NLF.
* 
*     PROC LFGWRD 
* 
*     ENTRY NONE. 
* 
*     EXIT  NONE. 
* 
*     METHOD
* 
*     SET FET IN AND OUT AND WRITE THE RECORD.
* 
# 
*ENDIF
  
# 
****  PROC LFGWRD - XREF LIST BEGIN.
# 
  
      XREF
        BEGIN 
        ITEM WFET U;         # FWA OF NLF FILE FET                     #
        PROC WRITEF;         # WRITE END OF FILE                       #
        PROC WRITER;         # WRITE RECORD                            #
        PROC WRITEW;         # WRITE WORDS TO CIO BUFFER               #
        END 
  
# 
****
# 
  
  
      P<SIOFET> = WFET; 
      FETIN[0] = FETFST[0]; 
      FETOUT[0] = FETFST[0];
      DIR$WC[0] = DIR$WC[0]*2 + 1;
      WRITEW(SIOFET,DIRB,DIR$WC[0] + 1 + 15); 
      WRITER(SIOFET,"R"); 
      WRITEF(SIOFET); 
      END TERM