.MACRO	ENBINT SRC
		.IF B	SRC
		MTPR	(SP)+,S^#PR$_IPL
		.IFF
		MTPR	SRC,S^#PR$_IPL
		.ENDC
	.ENDM	ENBINT