*COMDECK ROLLOUT
          IDENT  ROLLOUT
          ENTRY  ROLLOUT
          SYSCOM B1 
          TITLE  ROLLOUT - ROLLOUT THE JOB. 
          COMMENT ROLLOUT THE JOB.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 ROLLOUT  SPACE  4,10 
***       ROLLOUT - ROLLOUT THE JOB.
* 
*         CALL ROLLOUT (ADDR) 
* 
*         ROLLOUT(ADDR);   (*SYMPL* CALL) 
* 
*         ENTRY  (ADDR) = ADDRESS OF EVENT DEPENDENCIES.
**T,      30/0,18/EVD,12/RTP
*                EVD = EVENT VALUE. 
*                RTP = ROLLOUT TIME PERIOD. 
* 
*         USES   B - 1. 
* 
*         MACROS ROLLOUT. 
  
  
 ROLLOUT  BSS    0
 ROLLT    SUBR               ENTRY/EXIT 
          SB1    1
 NOS      IF     MAC,ROLLOUT
          ROLLOUT  X1 
 NOS      ELSE
          SA1    =0LROLLOUT 
          RJ     =XMACREL.
 NOS      ENDIF 
          EQ     ROLLTX      EXIT 
  
          END 
