Retro1.org codex

User Tools

Site Tools

Trace: • LFGWRD
cdc:nos2.source:nam5871:lfgwrd

Table of Contents

LFGWRD

Table Of Contents

  • [00007] WRITE DIRECTORY.

Source Code

LFGWRD.txt 
  1. *DECK LFGWRD
  2. USETEXT LFGDIR,LFGFET,LFGIOD,LFGDB
  3.       PROC LFGWRD;
  4.       BEGIN                  # WRITE DIRECTORY TO NLF                  #
  5. *IF DEF,IMS 
  6. # 
  7. **    LFGWRD - WRITE DIRECTORY. 
  8. * 
  9. *     M. E. VATCHER  81/02/23 
  10. * 
  11. *     LFGWRD WRITES THE OPLD TO THE NLF.
  12. * 
  13. *     PROC LFGWRD 
  14. * 
  15. *     ENTRY NONE. 
  16. * 
  17. *     EXIT  NONE. 
  18. * 
  19. *     METHOD
  20. * 
  21. *     SET FET IN AND OUT AND WRITE THE RECORD.
  22. * 
  23. # 
  24. *ENDIF
  25.  
  26. # 
  27. ****  PROC LFGWRD - XREF LIST BEGIN.
  28. # 
  29.  
  30.       XREF
  31.         BEGIN 
  32.         ITEM WFET U;         # FWA OF NLF FILE FET                     #
  33.         PROC WRITEF;         # WRITE END OF FILE                       #
  34.         PROC WRITER;         # WRITE RECORD                            #
  35.         PROC WRITEW;         # WRITE WORDS TO CIO BUFFER               #
  36.         END 
  37.  
  38. # 
  39. ****
  40. # 
  41.  
  42.  
  43.       P<SIOFET> = WFET; 
  44.       FETIN[0] = FETFST[0]; 
  45.       FETOUT[0] = FETFST[0];
  46.       DIR$WC[0] = DIR$WC[0]*2 + 1;
  47.       WRITEW(SIOFET,DIRB,DIR$WC[0] + 1 + 15); 
  48.       WRITER(SIOFET,"R"); 
  49.       WRITEF(SIOFET); 
  50.       END TERM
cdc/nos2.source/nam5871/lfgwrd.txt · Last modified: 2023/08/05 17:22 by Site Administrator