*TITLEIANDH  -- "AND" TWO HALF WORD INTEGERS                            00000010
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
*A    AUTHOR       H. LAVALLET                                          00000020
*A    DESIGNER     H. LAVALLET                                          00000030
*A    LANGUAGE     ASSEMBLER                                            00000040
*A    SYSTEM       S/370                                                00000050
*A    WRITTEN      03-01081                                             00000060
*     REVISED      MM/DD/YY  BY PROGRAMMER FOR REASON                   00000070
*                                                                       00000080
*A                                                                      00000090
*A                                                                      00000091
*A    I = IANDH (J, K)                                                  00000092
*A                                                                      00000093
*A    IN/OUT  ARGUMENT  TYPE  DESCRIPTION                               00000094
*A                                                                      00000095
*A    IN      J           I2  HALF WORD TO BE "ANDED"                   00000096
*A    IN      K           I2  HALF WORD TO BE "ANDED"                   00000097
*A    OUT     I           I4  RESULT OF FUNCTION CALL                   00000098
*A                                                                      00000100
*A                                                                      00000101
*A    THIS FUNCTION RETURNS THE "AND" OF THE TWO HALF WORD INPUT        00000102
*A    ARGUMENTS.                                                        00000103
*A                                                                      00000104
*     EJECT                                                             00001000
IANDH    CSECT                                                          00001100
*                                                                       00001200
R0       EQU   0                                                        00001300
R1       EQU   1                                                        00001400
R2       EQU   2                                                        00001500
R13      EQU   13                                                       00001600
R14      EQU   14                                                       00001700
*                                                                       00001800
*                                                                       00001900
         ST    R2,28(R13)     SAVE R2                                   00002000
         L     R2,0(R1)       ADDR OF J                                 00002100
         LH    R0,0(R2)       J                                         00002200
*                                                                       00002300
         L     R2,4(R1)       ADDR OF K                                 00002400
         LH    R2,0(R2)       K                                         00002500
*                                                                       00002600
         NR    R0,R2          PERFORM AND                               00002700
         L     R2,28(R13)     RESTORE R2                                00002800
         BR    R14            RETURN                                    00002900
         END   IANDH                                                    00003000