AUSAM/source/S/sleep.s

.text
	/sleep
	/suspend execution for an interval
	/
	/ modified 30-3-78 GGR to sleep "forever" if no args given-
	/ but always can be rubbed out in this case.
	cmp	*sp,$2
	bmi	2f
	mov	4(sp),r3
	clr	r1
0:	movb	(r3)+,r2
	beq	1f
	sub	$'0,r2
	bmi	2f
	cmp	$9.,r2
	bmi	2f
	mov	r1,r0
	mul	$10.,r0
	add	r2,r1
	adc	r0
	beq	0b
	br	2f
1:	mov	r1,r0
	sys	35.	/sleep
	clr	r0
	bec	3f
2:
	sys	signal;	2;	0	/ guarantee rub-out-able
4:
	mov	$77777,r0
	sys	35.	/sleep
	br	4b
3:	sys	exit