;************************************************
;
;   SLEEP - sleep for <arg1> 10ths of a second
;
;************************************************
;1.0 06-Aug-84 DFP written by D. Pallmann.

	ASMMSG	"Object name SLEEP.SBR"
	ASMMSG	"Requires linking"

	VMAJOR=1

	OBJNAM	SLEEP.SBR

	SEARCH	SYS
	SEARCH	SYSSYM
	COPY	XCALL

	EXTERN	$GTARG

START:	PHDR	-1,0,PH$REE!PH$REU	;program header
	MOV	#XC.TY1,D1
	CALL	$GTARG
	TST	D1
	BEQ	10$
	CMP	D1,#60.
	BHI	10$
	MUL	D1,#1000.
	SLEEP	D1
10$:	RTN

	END

.