
/LOGICAL SUBROUTINES
/ENTER WITH A IN AC
/ADDRESS OF B FOLLOWS CALLING JMS
/RETURN WITH RESULT IN AC TO
/LOCATION FOLLOWING THAT HOLDING ADDRESS

INCOR,	0		/INCLUSIVE OR
	DCA TEMPY1
	TAD I INCOR
	DCA TEMPY2
	TAD I TEMPY2
	CMA
	AND TEMPY1
	TAD I TEMPY2
	ISZ INCOR
	JMP I INCOR
EXCOR,	0		/EXCLUSIVE OR
	DCA TEMPY1
	TAD I EXCOR
	DCA TEMPY2
	TAD TEMPY1
	AND I TEMPY2
	CIA
	CLL RAL
	TAD TEMPY1
	TAD I TEMPY2
	ISZ EXCOR
	JMP I EXCOR
TEMPY1,	0
TEMPY2,	0

$
*U*3*