Retro1.org codex

*DECK     NVFIBWD 
USETEXT          TEXTNVF
USETEXT          TEXTSS 
USETEXT          TXINNVF
      PROC NVFIBWD; 
# TITLE NVFIBWD - BUILD WORKLIST DEFINITIONS.   # 
 
      BEGIN 
# 
**    NVFIBWD - BUILD WORKLIST DEFINITIONS. 
* 
*     S. H. FISCHER.  81/07/27. 
*     C. J. BRION       82/06/01. 
* 
*     THIS ROUTINE IS PART OF THE INITIALIZATION PROCESS FOR NVF. 
*     ITS JOB IS TO BUILD THE WORKLIST DEFINITION TABLE AND THE 
*     QUEUE TO WORKLIST DEFINITION TABLE. 
* 
*     PROC NVFIBWD
* 
*     ENTRY      NONE.
* 
*     EXIT       WDF AND QWD TABLES INITIALIZED.
* 
# 
 
 
# 
****  PROC NVFIBWD - XREF LIST. 
# 
      XREF
        BEGIN 
        PROC NVFCDQE; 
        PROC NVFTDQE; 
        PROC SSCRTR;
        PROC SSOEOP;
        END 
# 
****
# 
 
 
      DEF TABLENUM(TABLE) #(LOC(P<TABLE>)-LOC(MEMLOC))/2-1# ; 
 
 
 
 
 
 
      WRQ = 0;                         # EMPTY WORKLIST-REQUEST-Q      #
 
 
# 
*     BUILD THE WORKLIST DEFINITION TABLE 
# 
 
      WDF$TYPE[WWDF"SACNI"] = 1;       # SS CONTROL-NETWORK-INTERFACE  #
      WDF$CADD[WWDF"SACNI"] = LOC(ISSACNI); 
 
      WDF$TYPE[WWDF"SCRTR"] = 0;       # SS RETURN-TIMER-REQUEST       #
      WDF$RADD[WWDF"SCRTR"] = LOC(SSCRTR);
 
      WDF$TYPE[WWDF"SOEOP"] = 0;       # SS EXECUTE-OVERLAY-PROGRAM    #
      WDF$RADD[WWDF"SOEOP"] = LOC(SSOEOP);
 
      WDF$TYPE[WWDF"NTDQE"] = 0;       # NVF DISPATCH-QUEUE-ENTRY      #
      WDF$RADD[WWDF"NTDQE"] = LOC(NVFTDQE); 
 
      WDF$TYPE[WWDF"NTICR"] = 1;       # NVF ISSUE-CPM-REQUEST         #
      WDF$CADD[WWDF"NTICR"] = LOC(INVTICR); 
 
      WDF$TYPE[WWDF"NADQE"] = 2;       # PROCESS A-A INPUT SMS         #
      WDF$OVN[WWDF"NADQE"] = NVFODF"NLAAC"; 
      WDF$OEN[WWDF"NADQE"] = EPAAC"NADQE";
 
      WDF$TYPE[WWDF"NVRVF"] = 1;       # NVF READ-VCB-FILE             #
      WDF$CADD[WWDF"NVRVF"] = LOC(INVVRVF); 
 
      WDF$TYPE[WWDF"NSDQE"] = 2;       # NVF DISPATCH-APPL-QUEUE-ENTRY #
      WDF$OVN[WWDF"NSDQE"] = NVFODF"NLAEP"; 
      WDF$OEN[WWDF"NSDQE"] = EPAEP"NSDQE";
 
      WDF$TYPE[WWDF"NCDQE"] = 0;       # NVF DISPATCH-C-LAYER-Q-ENTRY  #
      WDF$RADD[WWDF"NCDQE"] = LOC(NVFCDQE); 
 
      WDF$TYPE[WWDF"DUMMY"] = 1;   # DISABLED-WORKLIST-REQUEST         #
      WDF$CADD[WWDF"DUMMY"] = LOC(DISABLE); 
 
      WDF$TYPE[WWDF"NOAPE"] = 2;       # NVF ACTION-HOP-PROTOCOL-EVENT #
      WDF$OVN[WWDF"NOAPE"] = NVFODF"NLOPE"; 
      WDF$OEN[WWDF"NOAPE"] = EPOPE"NOAPE";
 
      WDF$TYPE[WWDF"NOROC"] = 2;       # NVF RECOGNIZE-OPERATOR-COMMAND#
      WDF$OVN[WWDF"NOROC"] = NVFODF"NLOPC"; 
      WDF$OEN[WWDF"NOROC"] = EPOPC"NOROC";
 
      WDF$TYPE[WWDF"NOLNE"] = 2;       # NVF LOG-NETWORK(HOST)-EVENTS  #
      WDF$OVN[WWDF"NOLNE"] = NVFODF"NLAEP"; 
      WDF$OEN[WWDF"NOLNE"] = EPAEP"NOLNE";
 
      WDF$TYPE[WWDF"NVPSR"] = 1;       # PROCESS VCB SERIAL-SEARCH REQ #
      WDF$CADD[WWDF"NVPSR"] = LOC(INVVPSR); 
 
      WDF$TYPE[WWDF"NOFVD"] = 2;       # PREPARE STATUS SEARCH         #
      WDF$OVN[WWDF"NOFVD"] = NVFODF"NLOPE"; 
      WDF$OEN[WWDF"NOFVD"] = EPOPE"NOFVD";
 
      WDF$TYPE[WWDF"NOPPC"] = 2;       # PREPARE PROGRAM CONTROL       #
      WDF$OVN[WWDF"NOPPC"] = NVFODF"NLOPE"; 
      WDF$OEN[WWDF"NOPPC"] = EPOPE"NOPPC";
 
      WDF$TYPE[WWDF"NICNE"] = 2;       # COMPLETE NVF EXECUTION        #
      WDF$OVN[WWDF"NICNE"] = NVFODF"NLAEP"; 
      WDF$OEN[WWDF"NICNE"] = EPAEP"NICNE";
 
      WDF$TYPE[WWDF"NAIAP"] = 2;       # A-A OUTCALL REQUEST #
      WDF$OVN[WWDF"NAIAP"] = NVFODF"NLIAP"; 
      WDF$OEN[WWDF"NAIAP"] = EPIAP"NOIAP";
 
      WDF$TYPE[WWDF"NARAP"] = 2;       # A-A INCALL REQUEST # 
      WDF$OVN[WWDF"NARAP"] = NVFODF"NLRAP"; 
      WDF$OEN[WWDF"NARAP"] = EPRAP"NORAP";
 
 
 
# 
*     BUILD THE QUEUE TO WORKLIST DEFINITION TABLE
# 
 
      QWD$WLN[TABLENUM(ASQ)] = WWDF"NSDQE";     # APPLICATION-SM-QUEUE #
 
      QWD$WLN[TABLENUM(CPMRQ)] = WWDF"NTICR";   # CPM-REQUEST-Q        #
 
      QWD$WLN[TABLENUM(CTQ)] = WWDF"NCDQE";     # CONNECTION-TRAFFIC-Q #
 
      QWD$WLN[TABLENUM(HCQ)] = WWDF"NOPPC";     # HOP-PRGM-CNTRL-QUEUE #
 
      QWD$WLN[TABLENUM(OTQ)] = WWDF"SACNI";     # OUTGOING-TRAFFIC-Q   #
 
      QWD$WLN[TABLENUM(TAINPQ)] = WWDF"NTDQE";  # T-A-INPUT-Q          #
 
      QWD$WLN[TABLENUM(USQ)] = WWDF"NOLNE";     # UNSOLICITED-STATUS-Q #
 
      QWD$WLN[TABLENUM(VCBRDQ)] = WWDF"NTDQE";  # VCB-READ-DATA-Q      #
 
      QWD$WLN[TABLENUM(VDATAQ)] = WWDF"NTDQE";  # VALIDATION-REQUEST-Q #
 
      QWD$WLN[TABLENUM(VRQ)] = WWDF"NVRVF";     # VCB-READ-REQUEST-Q   #
 
      QWD$WLN[TABLENUM(PEQ)] = WWDF"NOAPE";     # HOP-PROTOCOL-ENENT-Q #
 
      QWD$WLN[TABLENUM(OPTQ)] = WWDF"NOROC";    # OPERATOR-TYPEIN-Q    #
 
      QWD$WLN[TABLENUM(VSQ)] = WWDF"NVPSR";     # VCB SS REQUEST Q     #
 
      QWD$WLN[TABLENUM(VCBSSQ)] = WWDF"NOFVD";  # VCB SS DATA Q        #
 
      QWD$WLN[TABLENUM(AAINPQ)] = WWDF"NADQE";  # A-A INPUT Q          #
 
      QWD$WLN[TABLENUM(AAVCBRDQ)] = WWDF"NADQE";  # A-A VCB DATA Q     #
 
      QWD$WLN[TABLENUM(AALPID)] = WWDF"NADQE";  # A-A LID PID Q        #
 
      QWD$WLN[TABLENUM(OUTSMQ)] = WWDF"NAIAP"; # A-A OUTCALL SM Q      #
 
      QWD$WLN[TABLENUM(LPIDFXQ)] = WWDF"NAIAP"; # A-A OUTCALL/LPID Q   #
 
      QWD$WLN[TABLENUM(INSMQ)] = WWDF"NARAP"; # A-A INCALL SM Q        #
 
      QWD$WLN[TABLENUM(WBQ)] = WWDF"DUMMY";     # WAITING-BLOCK-Q      #
 
 
 
 
      END  #NVFIBWD # 
 
      TERM