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