;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;	Program deadpt
;	Author:	Bruce Ellis
;	Synopsis:	Prints out the number of dead
;			page table scans since the last boot
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

	.library	/sys$library:lib.mlb/
	.link		/sys$system:sys.stb/
	.macro	check	?l
	blbs	r0,l
	$exit_s	r0
l:
	.endm	check

fmt:	.ascid	/Dead page table scans since last boot: !UL./
buffer:	.long	80
	.address	10$
10$:	.blkb	80

	.entry	dead,^m<>
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
;	Format and spill the number of dead page table scans
;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	$fao_s	ctrstr=fmt,outbuf=buffer,outlen=buffer,-	
		p1=pms$gl_dptscn
	check
	pushal	buffer
	calls	#1,g^lib$put_output
	ret
	.end	dead