*DECK SSISICC 
          IDENT  SSISICC
*CALL COPYRITE
          ENTRY  SSISICC
          SST 
          SYSCOM B1 
 OPL      XTEXT  COMCMAC
 OPL      XTEXT  COMSSFM
          B1=1
          TITLE  SSISICC - SET INTER-CP COMMUNICATION POINTERS. 
          COMMENT  SSISICC - SET INTER-CP COMMUNICATION POINTERS. 
          COMMENT COPYRIGHT CONTROL DATA SYSTEMS, INC. 1994.
          SPACE  4,10 
**        SSISICC - SET INTER-CP COMMUNICATION POINTERS.
* 
*         SSISICC (ADDRESS) 
* 
*         ENTRY  ADDRESS - ADDRESS BLOCK TO RECEIVE REQUESTS
* 
*         EXIT   RECEIVE ADDRESS BLOCK INITIALIZED, AND SUBSYSTEM 
*                ACCESSIBILITY BIT SET. 
* 
*         USES   X - 1, 6.
*                A - 1, 2, 6. 
* 
*         MACROS SETICC.
          SPACE  4,10 
 SSISICC  SUBR                         ENTRY/EXIT 
          SX6    SICCC                 (X6) = BLOCK LENGTH - 1
          SX1    X1                    (X1) = ADDRESS, UPPER BITS CLEAR 
          LX6    18 
          BX6    X6+X1                 MERGE WORD COUNT AND ADDR BLOCK
          LX6    24                    SETICC PARAMETER BLO 
          SA6    SICCA
          SETICC SICCA                 SET INTER-CP POINTERS
          SA1    SICCB                 SET SUBSYSTEM ACCESSIBILITY
          SX6    SICCB
          BX6    X6+X1
          RJ     =XSYS= 
          EQ     SSISICCX              RETURN 
  
 SICCA    BSSZ   2                     SETICC REQUEST 
 SICCB    VFD    18/3LSFM,6/20B,12/SSTF,6/0,18/0
 SICCC    EQU    2                     BLOCK LENGTH - 1 
  
          END 
