*DECK SSIWSSR 
          IDENT  SSIWSSR
*CALL COPYRITE
          ENTRY  SSIWSSR
          SST 
          SYSCOM B1 
 OPL      XTEXT  COMCMAC
 OPL      XTEXT  COMSSSD
 OPL      XTEXT  COMSMTX
          B1=1
          TITLE  SSIWSSR - WRITE SUBSYSTEM RESPONSE.
          COMMENT  SSIWSSR - WRITE SUBSYSTEM RESPONSE.
          COMMENT COPYRIGHT CONTROL DATA SYSTEMS, INC. 1994.
          SPACE  4,10 
**        SSIWSSR - WRITE SUBSYSTEM RESPONSE. 
* 
*         ERROR = SSIWSSR (ADDRESS) 
* 
*         ENTRY  ADDRESS - ADDRESS BLOCK TO SEND TO SUBSYSTEM.
* 
*         EXIT   BLOCK TRANSFERRED TO SUBSYSTEM.
*                (X6) - NONZERO IF ERROR. 
* 
*         USES   X - 1, 2, 6. 
*                A - 1, 2, 6. 
* 
*         CALLS SYS=. 
          SPACE  4,10 
 SSIWSSR  SUBR                         ENTRY/EXIT 
          SX6    MTSI                  *MAGNET* SUBSYSTEM IDENTIFICATION
          LX6    30 
          SA6    WSSRB                 *SIC* REQUEST WORD 2 
          SA2    X1                    (X2) = FIRST WORD OF BUFFER
          SX6    ACR
          LX6    48 
          BX6    X6+X2                 ADD ATF RESPONSE IDENTIFIER
          SA6    A2                    RESTORE MODIFIED FIRST WORD
          LX1    18 
          SX2    WSSRB
          BX1    X1+X2
          SA2    WSSRA                 *SIC* REQUEST WORD 
          BX6    X2+X1                 SETUP REQUEST
          RJ     =XSYS= 
          SA1    WSSRB
          SX6    X1                    RETURN ERROR CODE
          EQ     SSIWSSRX              RETURN 
  
 WSSRA    VFD    18/3RSIC,6/20B,18/0,18/0 
 WSSRB    VFD    18/0,12/MTSI,30/0
  
          END 
*WEOR 
