*DECK     RCT 
          IDENT  RCT
          TITLE  RCT - RECOMPUTE REMAINING TIME TO TIMEOUT. 
          SST 
          SYSCOM B1 
  
  
          ENTRY  RCT
  
  
          COMMENT  RECOMPUTE REMAINING TIME TO TIMEOUT. 
          COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
          SPACE  4,10 
**        RCT - RECOMPUTE REMAINING TIME TO TIMEOUT.
* 
*         J. G. CLARK        80/03/31.
          SPACE  4,10 
**        COMMON DECKS. 
  
  
*CALL COMCMAC 
*CALL COMCAPR 
*CALL COMCPTF 
 RCT      SPACE  4,10 
**               THIS ROUTINE IS USED TO TIME EVENTS WHICH ARE DEPENDENT
*         ON THE AMOUNT OF TIME REMAINING BEFORE THE APPLICATION
*         MUST RESPOND TO THE REMOTE APPLICATION.  THE CURRENT TIME 
*         IS COMPARED WITH THE TIME AT WHICH THE CONNECTION WILL
*         EXPIRE. THE RESULT IS RETURNED AS THE INTEGER DIFFERENCE. 
* 
*         ENTRY  NONE.
* 
*         EXIT   (X1) IS THE INTEGER DIFFERENCE IN SECONDS UNTIL
*                THE TIMEOUT IS TO OCCURE.
* 
*         USES   A - 1,2,6. 
*                B - NONE.
*                X - 1,2,6. 
* 
*         CALLS  NONE.
  
  
 RCT      SUBR               ENTRY/EXIT 
          RTIME  RCTA 
          SA1    RCTA 
          SA2    RTIME
          MX0    -24         MASK SECOND FIELD
          LX1    S=RTIME
          BX1    -X0*X1 
          IX1    X2-X1       COMPARE TIMES
          EQ     RCTX        EXIT WITH RESULT 
  
 RCTA     BSS    1           CURRENT TIME 
          SPACE  4
          END 
