TITLE 'CSSWAIT -  WAIT FOR CANCEL FROM CRAY'                   00000100
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
         PRINT NOGEN                                                    00000200
         SPACE                                                          00000300
R0       EQU   0                                                        00000400
R1       EQU   1                                                        00000500
R2       EQU   2                                                        00000600
R3       EQU   3                                                        00000700
R4       EQU   4                                                        00000800
R5       EQU   5                                                        00000900
R6       EQU   6                                                        00001000
R7       EQU   7                                                        00001100
R8       EQU   8                                                        00001200
R9       EQU   9                                                        00001300
R10      EQU   10                                                       00001400
R11      EQU   11                                                       00001500
R12      EQU   12                                                       00001600
R13      EQU   13                                                       00001700
R14      EQU   14                                                       00001800
R15      EQU   15                                                       00001900
         SPACE                                                          00002000
**********************************************************************  00002100
*                                                                    *  00002200
*                       'CSSWAIT'                                    *  00002300
*                                                                    *  00002400
*  THIS PROGRAM GOES INTO AN INDEFINITE WAIT STATE. IT IS USED TO    *  00002500
*  KEEP AN IBM 'SHADOW' JOB IN EXECUTION UNTIL ITS CRAY COUNTER-     *  00002600
*  PART TERMINATES.                                                  *  00002700
*                                                                    *  00002800
**********************************************************************  00002900
         SPACE                                                          00003000
CSSWAIT  CSECT                                                          00003100
         STM   R14,R12,12(R13)                                          00003200
         USING CSSWAIT,R15                                              00003300
         WAIT  ECB=WAITER,LONG=YES                                      00003400
         ABEND 999,DUMP                                                 00003500
WAITER   DC    F'0'                                                     00003600
         END                                                            00003700