.TITLE IEOR ; * * * FORTRAN UTILITY MODULE * * * ; FORTRAN LOGICAL EXCLUSIVE-OR FUNCTION ; CALLING SEQUENCE: ; IEOR (IVAR1, IVAR2) ; IVAR1 & IVAR2 ARE INTEGER*2 VALUES ; EXCLUSIVE OR IS RETURNED IN REGISTER 0. ; ALL NEW CODE: 8 NOV 77 ; PROGRAMMER: KEN DINWIDDIE .MCALL .REGDEF .REGDEF .GLOBL IEOR IEOR: TST (R5)+ ; ADVANCE POINTER TO FIRST ARGUMENT MOV @(R5)+,R0 ; LOAD ARGUMENT 1 IN R0 MOV @(R5)+,R1 ; LOAD ARGUMENT 2 IN R1 XOR R1,R0 ; EXCLUSIVE OR INTO R0 RTS PC .END