; FUNCTION IAND (FOR FORTRAN CALLING ROUTINE). ; FORTRAN CALLING SEQUENCE: ; I=IAND(I1,I2) ; PERFORMS LOGICAL 'AND' BETWEEN 'I1' AND 'I2'. ; RESULT RETURNED IN 'I'. ; ; FILED BY GLENN BEVER--15-MAR-77. ; NASA DFRC ; P.O. BOX 273 ; EDWARDS, CA 93523 ; .TITLE IAND .GLOBL IAND ; IAND: TST (%5)+ ;INCREMENT TO 1ST ARGUMENT. MOV @(%5)+,%1 ;MOV 1ST PARAMETER TO R1. COM %1 ;COMPLEMENT R1. MOV @(%5)+,%0 ;MOVE 2ND PARAMETER TO R0. BIC %1,%0 ;LOGICAL 'AND' 1ST PARAM WITH 2ND PARAM. RTS %7 ;RETURN. .END IAND