*DECK     NVFIBSW 
USETEXT          TEXTSS 
PROC NVFIBSW; 
# TITLE NVFIBSW - BUILD STATUS WORKLIST DEFINITIONS.                   #
  
      BEGIN # NVFIBSW # 
# 
**    NVFIBSW - BUILD STATUS WORKLIST DEFINITIONS.
* 
*     S. H. FISCHER.         81/08/31.
* 
*     THIS ROUTINE IS PART OF THE INTIALIZATION PROCESS FOR NVF.
*     ITS JOB IS TO BUILD THE STATUS WORKLIST DEFINITIONS TABLE.
* 
*     PROC NVFIBSW
* 
*     ENTRY NONE. 
* 
*     EXIT       SWT TABLE INITIALIZED. 
* 
# 
  
  
  
  
# 
****  PROC NVFIBSW XREF LIST. 
# 
      XREF
        BEGIN 
        PROC SSACNI;
        PROC SSOCOL;
        PROC NVFTICR; 
        PROC NVFVRVF; 
        PROC NVFVPSR; 
        END 
# 
****
# 
  
  
  
  
      SWTA = 5;                        # NUMBER OF ACTIVE ENTRIES      #
  
  
      SWT$RTN[0] = LOC(SSACNI);        # CONTROL NETWORK INTERFACE     #
      SWT$ADDR1[0] = LOC(SWTA); 
      SWT$INIT1[0] = 0; 
      SWT$ADDR2[0] = 0;                # DISABLE SECOND CHECK          #
  
  
      SWT$RTN[1] = LOC(NVFTICR);       # ISSUE CPM REQUEST             #
      SWT$ADDR1[1] = LOC(SWTA); 
      SWT$INIT1[1] = 0; 
      SWT$ADDR2[1] = 0;                # DISABLE SECOND CHECK          #
  
  
      SWT$RTN[2] = LOC(NVFVRVF);       # READ VCB FILE                 #
      SWT$ADDR1[2] = LOC(SWTA); 
      SWT$INIT1[2] = 0; 
      SWT$ADDR2[2] = 0;                # DISABLE SECOND CHECK          #
  
  
      SWT$RTN[3] = LOC(NVFVPSR);       # PROCESS VCB SERIAL-SEARCH REQ #
      SWT$ADDR1[3] = LOC(SWTA); 
      SWT$INIT1[3] = 0; 
      SWT$ADDR2[3] = 0;                # DISABLE SECOND CHECK          #
  
  
      SWT$RTN[4] = LOC(SSOCOL);        # CONTROL OVERLAY LOADING       #
      SWT$ADDR1[4] = LOC(SWTA); 
      SWT$INIT1[4] = 0; 
      SWT$ADDR2[4] = 0;                # DISABLE SECOND CHECK          #
  
  
      END # NVFIBSW # 
  
      TERM
