Retro1.org codex

*DECK     CSIBWD
USETEXT          TEXTCS 
USETEXT          TEXTSS 
      PROC CSIBWD;
# 
**    CSIBWD - BUILD WORKLIST DEFINITIONS.
* 
*     A. LIM.    81/10/08 
*     C. BRION   82/04/01 
* 
*     THIS ROUTINE IS PART OF THE INITIALIZATION PROCESS FOR CS.
*     ITS JOB IS TO BUILD THE WORKLIST DEFINITION TABLE AND THE 
*     QUEUE TO WORKLIST DEFINITION TABLE. 
* 
*     PROC CSIBWD 
* 
*     ENTRY      NONE.
* 
*     EXIT       WDF AND QWD TABLES INITIALIZED.
* 
# 
      BEGIN 
 
      DEF TABLENUM(TABLE) #(LOC(P<TABLE>)-LOC(MEMLOC))/2-1# ; 
 
# 
****  PROC CSIBWD XREF LIST.
# 
      XREF
        BEGIN 
        PROC SSCRTR;
        PROC SSOEOP;
        PROC CSSDNS;
        PROC CSTDNQ ; 
        END 
# 
****
# 
 
 
 
 
      WRQ = 0;                         # DISABLE WORKLIST-REQUEST-Q    #
 
 
# 
*     BUILD THE WORKLIST DEFINITION TABLE 
# 
 
      WDF$TYPE[CSWDF"SCRTR"] = 0;      # SS RETURN-TIMER-REQUEST       #
      WDF$CADD[CSWDF"SCRTR"] = LOC(SSCRTR);   # NOT NEEDED IN CS       #
 
      WDF$TYPE[CSWDF"DUMMY"] = 1;      # DUMMY TYPE 1 WLE              #
      WDF$CADD[CSWDF"DUMMY"] = LOC(DISABLE);
 
      WDF$TYPE[CSWDF"SACNI"] = 1;      # SS CONTROL-NETWORK-INTERFACE  #
      WDF$CADD[CSWDF"SACNI"] = LOC(ISSACNI);
 
      WDF$TYPE[CSWDF"SOEOP"] = 0;      # SS EXECUTE OVERLAY PROGRAM    #
      WDF$RADD[CSWDF"SOEOP"] = LOC(SSOEOP); 
 
      WDF$TYPE[CSWDF"CTDNQ"] = 0 ;       # CS DISPATCH NCF DATA QUEUE  #
      WDF$RADD[CSWDF"CTDNQ"] = LOC(CSTDNQ) ;
 
      WDF$TYPE[CSWDF"CTSNR"] = 1;      # CS START-NCF-READ-REQUEST     #
      WDF$CADD[CSWDF"CTSNR"] = LOC(ICSTSNR);
 
      WDF$TYPE[CSWDF"CSDNS"] = 0;      # CS DISPATCH NPU SUPERVISION #
      WDF$RADD[CSWDF"CSDNS"] = LOC(CSSDNS); 
 
      WDF$TYPE[CSWDF"CSRSS"] = 2; 
      WDF$OVN[CSWDF"CSRSS"] = CSODF"CLEVT";  # EVENT PROCESSING OVL    #
      WDF$OEN[CSWDF"CSRSS"] = EPEVT"CSRSS";  # ENTRY POINT = CSSRSS    #
 
      WDF$TYPE[CSWDF"CEDEQ"] = 2; 
      WDF$OVN[CSWDF"CEDEQ"] = CSODF"CLEVT";  # EVENT PROCESSING OVL    #
      WDF$OEN[CSWDF"CEDEQ"] = EPEVT"CEDEQ";  # ENTRY POINT = CSSDEQ    #
 
      WDF$TYPE[CSWDF"CCDQE"] = 2; 
      WDF$OVN[CSWDF"CCDQE"] = CSODF"CLOIO";  # OPR I/O PROCESSING OVL  #
      WDF$OEN[CSWDF"CCDQE"] = EPOIO"CCDQE";  # ENTRY POINT = CSSDQE    #
 
      WDF$TYPE[CSWDF"COBOE"] = 2; 
      WDF$OVN[CSWDF"COBOE"] = CSODF"CLOIO";  # OPR I/O PROCESSING OVL  #
      WDF$OEN[CSWDF"COBOE"] = EPOIO"COBOE";  # ENTRY POINT = CSSDOO    #
 
      WDF$TYPE[CSWDF"COGHL"] = 2; 
      WDF$OVN[CSWDF"COGHL"] = CSODF"CLOIO";  # OPR I/O PROCESSING OVL  #
      WDF$OEN[CSWDF"COGHL"] = EPOIO"COGHL";  # ENTRY POINT = CSSRHR    #
 
      WDF$TYPE[CSWDF"COROO"] = 2; 
      WDF$OVN[CSWDF"COROO"] = CSODF"CLOIO";  # OPR I/O PROCESSING OVL  #
      WDF$OEN[CSWDF"COROO"] = EPOIO"COROO";  # ENTRY POINT = CSSROO    #
 
      WDF$TYPE[CSWDF"CSROC"] = 2; 
      WDF$OVN[CSWDF"CSROC"] = CSODF"CLCMR";  # COMMAND RECOGNITION OVL #
      WDF$OEN[CSWDF"CSROC"] = EPCMR"CSROC";  # ENTRY POINT = CSSROC    #
 
      WDF$TYPE[CSWDF"CSDNR"] = 2; 
      WDF$OVN[CSWDF"CSDNR"] = CSODF"CLCMP";  # CMD PRE-PROCESSOR OVL   #
      WDF$OEN[CSWDF"CSDNR"] = EPCMP"CSDNR";  # ENTRY POINT = CSSDNR    #
 
      WDF$TYPE[CSWDF"CSDRC"] = 2; 
      WDF$OVN[CSWDF"CSDRC"] = CSODF"CLCMP";  # CMD PRE-PROCESSOR OVL   #
      WDF$OEN[CSWDF"CSDRC"] = EPCMP"CSDRC";  # ENTRY POINT = CSSDRC    #
 
      WDF$TYPE[CSWDF"CSDPE"] = 2; 
      WDF$OVN[CSWDF"CSDPE"] = CSODF"CLOSS";  # OPR SUPERVISION SM OVL  #
      WDF$OEN[CSWDF"CSDPE"] = EPOSS"CSDPE";  # ENTRY POINT = CSSDPE    #
 
      WDF$TYPE[CSWDF"CSDOS"] = 2; 
      WDF$OVN[CSWDF"CSDOS"] = CSODF"CLOSS";  # OPR SUPERVISION SM OVL  #
      WDF$OEN[CSWDF"CSDOS"] = EPOSS"CSDOS";  # ENTRY POINT = CSSDOS    #
 
# 
*     BUILD THE QUEUE TO WORKLIST DEFINITION TABLE
# 
 
      QWD$WLN[TABLENUM(OTQ)] = CSWDF"SACNI";   # OUTGOING-TRAFFIC-Q    #
 
      QWD$WLN[TABLENUM(CTQ)] = CSWDF"CTSNR";   # CONFIGURE-TERMAL-REQ-Q#
 
      QWD$WLN[TABLENUM(NPUQ)] = CSWDF"CSDNS";  # NPU-SUPERVISION-SM-Q  #
 
      QWD$WLN[TABLENUM(CNQ)] = CSWDF"CCDQE";   # CONN TRAFFIC QUEUE # 
 
      QWD$WLN[TABLENUM(PEQ)] = CSWDF"CSDPE";   # PROTOCOL EVENT QUEUE # 
 
      QWD$WLN[TABLENUM(OSQ)] = CSWDF"CSDOS";   # OPERATOR SUPER SM Q #
 
      QWD$WLN[TABLENUM(OPTQ)] = CSWDF"CSROC";  # OPERATOR TYPEIN QUEUE #
 
      QWD$WLN[TABLENUM(VCQ)] = CSWDF"CSDNR";   # VALID COMMAND QUEUE #
 
      QWD$WLN[TABLENUM(RCQ)] = CSWDF"CSDRC";   # ROUTED COMMAND QUEUE # 
 
      QWD$WLN[TABLENUM(EVQ)] = CSWDF"CEDEQ";   # EVENT QUEUE #
 
      QWD$WLN[TABLENUM(HRQ)] = CSWDF"COGHL";   # HISTORY REQUEST QUEUE #
 
      QWD$WLN[TABLENUM(ORQ)] = CSWDF"COBOE";   # OPERATOR RESPONSE Q   #
 
      QWD$WLN[TABLENUM(SSQ)] = CSWDF"CSRSS";   # SOLICITED STATUS QUEUE#
 
      QWD$WLN[TABLENUM(ODEQ)] = CSWDF"COROO";  # OPR DIRECTED EVENT Q  #
 
      QWD$WLN[TABLENUM(WBQ)] = CSWDF"DUMMY";   # DUMMY WLE FOR WBQ     #
 
 
      END  #CSIBWD #
      TERM