C PAT20A.FOR C NAB/SLA/1736 23-AUG-79/ C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 22 M C COMPILER C BYTE COMPARISON AND COMMON SUBEXPRESSION OPTIMIZATION -- PATCH 20. BYTE A(2),B(2,3),C C=A(I).OR.B(K,I) END