Symbol Q$ONEP

			7255	* ONEP ONE PREDICAT TESTS TO SEE IF ITS ARGUMENT IS ONE
			7256	* BY SUBTRACTIGN ONE AND TESTING THE RESULT WITH ZEROP.
	14533	0634 00 4 14451	7257	ONEP	SXA	NPIR,4 SAVE LINK IR