.MACRO	DSBINT IPL,DST
		.IF B	DST
		MFPR	S^#PR$_IPL,-(SP)
		.IFF
		MFPR	S^#PR$_IPL,DST
		.ENDC
		.IF B	IPL
		MTPR	#31,S^#PR$_IPL
		.IFF
		MTPR	IPL,S^#PR$_IPL
		.ENDC
	.ENDM	DSBINT