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