.TITLE	PROCESS_CONTROL_PROCEDURES
	.IDENT	/V01.0/
;
;******************************************************************************
;
	.PSECT	PRC_LOCAL, NOEXE, WRT
;
IWAIT:
	.LONG	^X00000000
	.LONG	^XFFFFFFFF
;
;
;******************************************************************************
;
	.PSECT	PRC_CODE
;
;
PRC_DELAYT::
	.WORD	^M<R2>
;
DELAYT:
	MULL3	#10000, @4(AP), R2
	MNEGL	R2, 	IWAIT
;
	PUSHL	#0
	PUSHL	#0
	PUSHAL	IWAIT
	PUSHL	#4
	CALLS	#4, 	SYS$SETIMR
	BLBC	R0,	DELAY_ERROR
;
	PUSHL	#4
	CALLS	#1,	SYS$WAITFR
	BLBC	R0,	DELAY_ERROR
;
	RET
;
DELAY_ERROR:
	RET	
	.END