/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*