; PAT20.MAC ; NAB/SLA/1736 23-AUG-79/ ; RT-11 SOFTWARE DISPATCH AUGUST 1979 ; FORTRAN IV/RT-11 V2.1 SEQ 22 M ; COMPILER ; BYTE COMPARISON AND SUBEXPRESSION OPTIMIZATION -- PATCH 20. .TITLE REGALO .IDENT \006B\ .PSECT REGI2 S=. .=S+10242 JSR PC ,PAT20 .=S+11040 BNE A .=S+11112 A: .PSECT PATREG T=. .=T+54 PAT20: CMPB @12(R4) ,#77 BNE 1$ TST R0 BNE 1$ BIC #400 ,2(R4) 1$: SUB 4-10(R2),R0 RTS PC .END