two_sec:	
	.long	-5*1000*1000*10
	.long	-1
	.macro	check	?lab
	blbs	r0,lab
	$exit_s	r0
lab:
	.endm	check
exb:	.long	0
	.address	x_it
	.long	1
	.address	e_sts
e_sts:	.long	0
	
	.entry	x$x,^m<r2,r3>
	$dclexh_s	desblk=exb
	$setpfm_s	#1		;Turn on page fault monitor
	$setimr_s	daytim=two_sec,efn=#3
	$waitfr_s	efn=#3
	movl	4(ap),r3
	addl	#4,r3
	calls	#0,@(r3)
	ret
	.entry	x_it,^m<>
	$setpfm_s	#0		;Turn off page fault monitor
	ret
	.end	x$x