
;
;	Test program that prints out the current IPL 
;

	.entry	showipl

	movpsl	r0
	extzv	#10,#5, r0, r1

	movl	#10, @#_size
	pushal	@#_size
	pushal	@#_buff
	pushl	r1

	calls	#3, @#lib$format_dec
	blbc	r0, _err

	pushl	#0a
	pushl	#0d
	pushal	@#_size
	pushal	@#_msg
	calls	#4, @#lib$put_output
	movl	#SS$_NORMAL, r0
_err:	ret

_size:	.long	0
        .long   _buff

_buff:	.blkb	10
_msg:	.ascid	"Processor is at IPL "

