*DECK     STT 
          IDENT  STT
          TITLE  STT - SET TIMEOUT TIME FOR CONNECTION. 
          SST 
          SYSCOM B1 
  
  
          ENTRY  STT
  
  
          COMMENT  SET TIMEOUT TIME FOR CONNECTION. 
          COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
          SPACE  4,10 
**        STT - SET TIMEOUT TIME FOR CONNECTION.
* 
*         J. G. CLARK        80/04/04.
          SPACE  4,10 
**        COMMON DECKS. 
  
  
*CALL COMCMAC 
*CALL COMCAPR 
*CALL COMCPTF 
 STT      SPACE  4,10 
**               STT IS CALLED AFTER ANY NETPUT CALL WHICH
*         SHOULD BE TIMED OUT.  THE TIME OF THE TIMEOUT IS SET
*         BY ADDING THE TIMEOUT PERIOD TO THE CURRENT TIME. 
* 
*         ENTRY  NONE.
* 
*         EXIT   NONE.
* 
*         USES   A - 1,2,6. 
*                B - NONE.
*                X - 1,2,6. 
* 
*         CALLS  NONE.
  
  
 STT      SUBR               ENTRY/EXIT 
          SB1    1
          RTIME  RTIME
          SA1    RTIME
          SA2    TOUT 
          MX6    -24
          LX1    S=RTIME
          BX1    -X6*X1 
          IX6    X1+X2
          SA6    A1          SET TIMEOUT TIME 
          EQ     STTX        RETURN 
          SPACE  4
          END 
