; FUNCTION IXOR (FOR FORTRAN CALLING ROUTINE). ; FORTRAN CALLING SEQUENCE: ; I=IXOR(IWORD,MASK) ; PERFORMS LOGICAL 'XOR' BETWEEN 'IWORD' AND 'MASK'. ; RESULT RETURNED IN 'I'. ; ; FILED BY GLENN BEVER--22-FEB-79. ; NASA DFRC ; P.O. BOX 273 ; EDWARDS, CA 93523 ; .TITLE IXOR .GLOBL IXOR .MCALL .REGDEF .REGDEF IXOR: TST (R5)+ ; POP OF PARAMETER COUNT. MOV @(R5)+,-(SP) ; GET WORD TO XOR. BIC @(R5),(SP) ; AND MASK BAR WITH WORD. MOV @(R5),-(SP) ; GET MASK. BIC @-(R5),(SP) ; AND WORD BAR WITH MASK. BIS (SP)+,(SP) ; OR THE MINTERMS. MOV (SP)+,R0 ; RETURN RESULT. RTS PC ; RETURN. .END IXOR