.TITLE	CHKEVW
;
; FORTRAN CALLABLE SUBROUTINE TO WAIT FOR TASK EVENTS
;   CALL CHKEVW (NTDB)
;
	.PSECT	SUBTAS,RO,I,LCL,REL,CON
;
CHKEVW::
	MOVB	(R5)+,R2	;NUMBER OF ARGS
	BLE	100$		;RETURN--NO ARGS
	INC	R5
	MOV	(R5),R3		;NTDB ADDRESS
	BLE	10$		;N.G.--USE DEFAULT
	MOV	(R3),R3		;NTDB
	CMP	#MAXTD,R3	;IN RANGE?
	BLT	10$
	SUB	#1,R3
	ASL	R3		;WORD OFFSET
	BR	11$
10$:	CLR	R3
11$:	MOV	TDB(R3),R3	;TDB
	CKEV$T	,R3,WAIT
	BCC	101$
	JSR	PC,ERRTS	;CALL ERROR ROUTINE IF NECESSARY
99$:	RETURN
100$:	MOV	#-1,R0		;INVALID ARGUMENTS
	RETURN
101$:	MOV	#1,R0		;SUCCESS INDICATOR
	RETURN
	.END