*TITLEIORH -- "OR" TWO HALF WORD INTEGERS 00000100 C*********************************************************************** C COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991 * C*********************************************************************** *A AUTHOR H. LAVALLET 00000110 *A DESIGNER H. LAVALLET 00000120 *A LANGUAGE ASSEMBLER 00000130 *A SYSTEM S/370 00000140 *A WRITTEN 03-01084 00000150 * REVISED MM/DD/YY BY PROGRAMMER FOR REASON 00000160 * 00000170 *A 00000180 *A 00000190 *A I = IORH (J, K) 00000191 *A 00000192 *A IN/OUT ARGUMENT TYPE DESCRIPTION 00000193 *A 00000194 *A IN J I2 HALF WORD TO BE "ORED" 00000195 *A IN K I2 HALF WORD TO BE "ORED" 00000196 *A OUT I I4 RESULT OF FUNCTION CALL 00000197 *A 00000199 *A 00000200 *A THIS FUNCTION RETURNS THE "OR" OF THE TWO HALF WORD INPUT 00000201 *A ARGUMENTS. 00000210 *A 00000220 * EJECT 00001000 * 00001010 IORH 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 OR R0,R2 PERFORM OR 00002700 L R2,28(R13) RESTORE R2 00002800 BR R14 RETURN 00002900 END IORH 00003000