/
/ PDP-11 C.
/ Stdio.
/
/ delay(interval, magnitude)
/
 
	.globl	delay
 
delay:
	clr	-(sp)
	mov	4(sp),-(sp)		/Interval
	mov	10(sp),-(sp)		/Magnitude
	mov	$1,-(sp)		/Efn.
	mov	$23.+[5.<<8.],-(sp)	/Mark time.
	emt	377
	bcs	0f
 
	mov	$1,-(sp)		/Waitfor the flag.
	mov	$41.+[2.<<8.],-(sp)
	emt	377
 
0:
	mov	_dsw,r0
	return
