Table of Contents

NVFLSIT

Table Of Contents

  • [00006] PRGM NVFLSIT
  • [00007] NVFLSIT - SEQUENCE INITIALIZATION TASKS.
  • [00011] SEQUENCE INITIALIZATION TASKS.
  • [00037] PROC NETDBG
  • [00038] PROC NETREL
  • [00039] PROC NETSETF
  • [00040] PROC NVFIIPS
  • [00041] PROC NVFIAST
  • [00042] PROC NVFIBOF
  • [00043] PROC NVFIBOT
  • [00044] PROC NVFIBPT
  • [00045] PROC NVFIBRT
  • [00046] PROC NVFIBWD
  • [00047] PROC NVFIBSW
  • [00048] PROC NVFICSC
  • [00049] PROC NVFICTN
  • [00050] PROC NVFIIAM
  • [00051] PROC NVFIIMT
  • [00052] PROC NVFIITR
  • [00053] PROC NVFIIVF
  • [00054] PROC NVFIIVT
  • [00055] PROC NVFISUE
  • [00056] PROC SSSPES

Source Code

NVFLSIT.txt 
  1. *DECK     NVFLSIT 
  2. OVERLAY(77,00)
  3. USETEXT          TEXTSS 
  4. USETEXT          TXSMNVF
  5. USETEXT          TXTAPSS
  6. PRGM NVFLSIT; 
  7. # TITLE NVFLSIT - SEQUENCE INITIALIZATION TASKS.                       #
  8.  
  9.       BEGIN  # NVFLSIT #
  10. # 
  11. **    NVFLSIT - SEQUENCE INITIALIZATION TASKS.
  12. * 
  13. *     S. H. FISCHER.         81/08/26.
  14. *     D. G. DEPEW.           82/01/04.
  15. *     C. J. BRION            82/06/22, 83/12/12.
  16. * 
  17. *     THIS PROGRAM FORMS THE INITIALIZATION OVERLAY FOR NVF.
  18. *     ITS JOB IS TO PERFORM, OR CALL ROUTINES TO PERFORM, ALL THE 
  19. *     TASKS THAT MUST BE DONE BEFORE STARTING NORMAL OPERATIONS OF NVF. 
  20. * 
  21. *     PROC NVFLSIT
  22. * 
  23. *     ENTRY   NONE. 
  24. * 
  25. *     EXIT    NVF READY TO START NORMAL OPERATIONS. THIS PROGRAM
  26. *             DOES NOT EXIT IN THE NORMAL FASHION.  IT INSTEAD MAKES A
  27. *             JUMP TO THE EXECUTION SEQUENCER (*SSSPES*), WHICH NEVER 
  28. *             RETURNS.
  29. # 
  30.  
  31. # 
  32. ****  PROC NVFLSIT - XREF LIST BEGIN. 
  33. # 
  34.  
  35.       XREF
  36.         BEGIN 
  37.         PROC NETDBG;
  38.         PROC NETREL;
  39.         PROC NETSETF; 
  40.         PROC NVFIIPS;        # INITIALIZE PID STATUS                   #
  41.         PROC NVFIAST;        # INITIALIZE APPLICATION STATUS TABLE     #
  42.         PROC NVFIBOF;        # BUILD OVERLAY FILE AND DEFINITIONS      #
  43.         PROC NVFIBOT;        # BUILD OPERATOR TABLE AND FLAGS          #
  44.         PROC NVFIBPT;        # BUILD DEBUG AID POINTER TABLE           #
  45.         PROC NVFIBRT;        # BUILD ROLLOUT TABLE                     #
  46.         PROC NVFIBWD;        # BUILD WORKLIST DEFINITIONS              #
  47.         PROC NVFIBSW;        # BUILD STATUS WORKLIST DEFINITIONS       #
  48.         PROC NVFICSC;        # CONTROL STATEMENT CRACKER               #
  49.         PROC NVFICTN;        # CONNECT TO NETWORK                      #
  50.         PROC NVFIIAM;        # INITIALIZE AIP MONITOR                  #
  51.         PROC NVFIIMT;        # INITIALIZE MANAGED TABLES               #
  52.         PROC NVFIITR;        # INITIALIZE TIMER ROUTINES               #
  53.         PROC NVFIIVF;        # INITIALIZE VCB FILE                     #
  54.         PROC NVFIIVT;        # INITIALIZE VOT AND VDT FOR VCB FILE     #
  55.         PROC NVFISUE;        # SET USER ENVIRONMENT                    #
  56.         PROC SSSPES;         # PROGRAM EXECUTION SEQUENCER             #
  57.         END 
  58.  
  59. # 
  60. ****
  61. # 
  62.  
  63.  
  64.       DEF NR$NAME # O"16220634000000000000" #;  # NETREL NAME (NRF1)   #
  65.  
  66.  
  67.       ITEM STATIS;           # STATUS RETURNED BY NETDBG               #
  68.       ITEM GETFET;           # ZZZZZDN FLUSH INDICATOR #
  69.       ITEM DNFETADR;         # *ZZZZZDN* FET ADDRESS                   #
  70.  
  71.  
  72.       P<ABH> = LOC(ABHBUF); 
  73.       P<NVFSM> = LOC(MSGBUF); 
  74.       P<APSM> = LOC(MSGBUF);
  75.       TXTALEN = MSBFAPL + 1; # SET TEXT LENGTH OF BLOCK NVF CAN ACCEPT #
  76.  
  77.       NVFIBPT;               # BUILD DEBUG AID POINTER TABLE           #
  78.  
  79.       NVFICSC;               # CRACK THE CONTROL STATEMENT             #
  80.  
  81.       NVFIIMT;               # INITIALIZE MANAGED TABLES               #
  82.  
  83.       NVFIBWD;               # BUILD WORKLIST DEFINITIONS              #
  84.  
  85.       NVFIBSW;               # BUILD STATUS WORKLIST DEFINITIONS       #
  86.  
  87.       NVFIITR;               # INITIALIZE TIMER ROUTINES               #
  88.  
  89.       NVFIIAM;               # INITIALIZE AIP MONITOR                  #
  90.  
  91.       NVFIIVF;               # INITIALIZE VCB FILE                     #
  92.  
  93.       NVFIIVT;               # INITIALIZE VOT AND VDT FOR VCB FILE     #
  94.  
  95.       NVFIAST;               # INITIALIZE APPLICATION STATUS TABLE     #
  96.  
  97.       NVFIBRT;               # BUILD ROLLOUT TABLE                     #
  98.  
  99.       NVFIBOF;               # BUILD OVERLAY FILE AND DEFINITIONS      #
  100.  
  101.       NVFIBOT;               # BUILD HOP ACN LIST ENTRY AND SET FLAGS  #
  102.  
  103.       NVFIIPS;               # INITIALIZE PID STATUS                   #
  104.  
  105.       IF MC NQ 0             # IF TRACE FILE COUNT 0 #
  106.       THEN
  107.         NETREL(NR$NAME,0,0); # INIT ZZZZZDN FILE #
  108.  
  109.       GETFET = 0; 
  110.       NETSETF(GETFET,DNFETADR);        # GET THE *ZZZZZDN* FET ADDRESS #
  111.       TPA$ADDR[1] = DNFETADR;          # SAVE THE FET ADDRESS          #
  112.  
  113.       NVFICTN;               # CONNECT TO NETWORK, SET PARALLEL MODE   #
  114.  
  115.       NETDBG(FALSE,FALSE,STATIS);      # UNCONDITIONAL TURN TRACING OFF#
  116.  
  117.       NVFISUE;               # ESTABLISH ENVIRONMENT FOR T-A CONNS     #
  118.  
  119.       SSSPES;                # PROCEED TO NORMAL OPERATIONS, NO RETURN #
  120.  
  121.  
  122.       END  # NVFLSIT #
  123.  
  124.       TERM