*DECK WAITR 
          IDENT  WAITR
  
          ENTRY  WAITR
  
*                PARAMETERS 
  
          ENTRY  WAITADR
  
  
**        WAITR - SIMULATES RJ TO ROUTINE "WAIT". 
* 
  
**        THIS ROUTINE DETERMINES IF ROUTINE "WAIT" IS
*         AVAILABLE AND THEN SIMULATES A RJ TO "WAIT".
* 
*         WAITR IS DESIGNED TO BE CALLED FROM A SYMPL PROGRAM.
* 
*         TO DECLARE IN SYMPL PROGRAM:  
*                XREF 
*                  BEGIN
*                  PROC WAITR.
*                  END
* 
*         TO CALL FROM A SYMPL PROGRAM: 
*                WAITR(PARAMETER LIST)
* 
*         ENTRY   - A1 IS ADDRESS OF PARAMETER LIST.
* 
*         PROCESS - IF PROC "WAIT" IS AVAILABLE 
*                   THEN
*                     SIMULATE RJ TO "WAIT".
* 
*         EXIT    - NONE. 
          SPACE  4,10 
 WAITR    SUBR
          SA2    WAITADR
          ZR     X2,WAITR          IF WAIT NOT AVAILABLE
          SB7    X2 
          SA3    WAITRA 
          BX6    X3 
          SA6    B7                SET UP RETURN ADDRESS
          JP     B7+1              CALL WAIT
  
 WAITR1   BSS    0
          EQ     WAITR
  
 WAITADR  BSSZ   1                 ADDRESS OF WAIT ROUTINE
 WAITRA   EQ     WAITR1            RETURN ADDRESS IN WAITR
  
          END 
