Retro1.org codex

*DECK     CSIBSW
USETEXT          TEXTSS 
PROC CSIBSW;
# TITLE CSIBSW - BUILD STATUS WORKLIST DEFINITIONS.                   # 
 
      BEGIN # CSIBSW #
# 
**    CSIBSW - BUILD STATUS WORKLIST DEFINITIONS. 
* 
*     A. LIM.    81/10/08 
* 
*     THIS ROUTINE IS PART OF THE INTIALIZATION PROCESS FOR CS. 
*     ITS JOB IS TO BUILD THE STATUS WORKLIST DEFINITIONS TABLE.
* 
*     PROC CSIBSW 
* 
*     ENTRY NONE. 
* 
*     EXIT       SWT TABLE INITIALIZED. 
* 
# 
 
 
 
 
# 
****  PROC CSIBSW XREF LIST.
# 
      XREF
        BEGIN 
        PROC SSACNI;
        PROC SSOCOL;
        PROC CSTSNR;
        END 
# 
****
# 
 
 
 
 
      SWTA = 3;                        # NUMBER OF ACTIVE ENTRIES      #
 
 
      SWT$RTN[0] = LOC(SSACNI);        # SS CONTROL-NETWORK-INTERFACE  #
      SWT$ADDR1[0] = LOC(SWTA); 
      SWT$INIT1[0] = 0; 
      SWT$ADDR2[0] = 0;                # DISABLE SECOND CHECK          #
 
 
      SWT$RTN[1] = LOC(CSTSNR);        # CS START-NCF-READ-REQUEST     #
      SWT$ADDR1[1] = LOC(SWTA); 
      SWT$INIT1[1] = 0; 
      SWT$ADDR2[1] = 0;                # DISABLE SECOND CHECK          #
 
 
      SWT$RTN[2] = LOC(SSOCOL);        # SS CONTROL OVERLAY LOADING    #
      SWT$ADDR1[2] = LOC(SWTA); 
      SWT$INIT1[2] = 0; 
      SWT$ADDR2[2] = 0;                # DISABLE SECOND CHECK          #
 
 
 
      END # CSIBSW #
      TERM