User Tools

Site Tools


cdc:nos2.source:nam5871:lfg

Table of Contents

LFG

Table Of Contents

  • [00010] LOAD FILE GENERATOR.

Source Code

LFG.txt
  1. *DECK LFG
  2. IDENT LFG
  3. COMMENT LFG - NETWORK LOAD FILE GENERATOR
  4. ENTRY INPUT
  5. ENTRY IFET
  6. ENTRY LFG
  7. ENTRY OUTPUT
  8. ENTRY WFET
  9. *IF DEF,IMS
  10. ** LFG - LOAD FILE GENERATOR.
  11. *
  12. * M. E. VATCHER 81/02/24
  13. *
  14. * LFG DEFINES THE LFG FETS AND BUFFERS AND CONTAINS THE LFG
  15. * ENTRY POINT. THE MAIN LOOP FOR LFG IS IN THE SYMPL ROUTINE
  16. * LFGMAIN.
  17. *
  18. * LFG
  19. *
  20. * ENTRY NONE.
  21. *
  22. * EXIT NONE.
  23. *
  24. *ENDIF
  25.  
  26. USE /IB/
  27. IBUF BSS 2001B
  28. USE *
  29.  
  30. USE /WB/
  31. WBUF BSS 1001B
  32. USE *
  33.  
  34. INBUF BSS 101B
  35.  
  36. OUTBUF BSS 101B
  37.  
  38. IFET FILEB IBUF,2001B,(FET=13)
  39. INPUT FILEC INBUF,101B,(FET=5)
  40. OUTPUT FILEC OUTBUF,101B,(FET=8)
  41. WFET CON NLF
  42. NLF RFILEB WBUF,1001B,(FET=8)
  43.  
  44. * LFG - MAIN ENTRY
  45. SPACE 3
  46. LFG BSS 0
  47. RJ =XLFGMAIN SYMPL LFG MAIN ROUTINE
  48. ENDRUN
  49. END LFG
cdc/nos2.source/nam5871/lfg.txt ยท Last modified: 2023/08/05 17:22 by Site Administrator