; PAT17.MAC ; NAB/SLA/1736 23-AUG-79/ ; RT-11 SOFTWARE DISPATCH AUGUST 1979 ; FORTRAN IV/RT-11 V2.1 SEQ 19 M ; COMPILER ; COMMONSUBEXPRESSION OPTIMIZATION -- PATCH 17. .TITLE F11 .IDENT \03\ .PSECT F11B S=. .=S+2434 S1: .=S+3744 JSR PC ,PAT17 NOP .PSECT PAT011 PAT17: MOV R4 ,-(SP) MOV R0 ,R4 JSR PC ,S1 MOV (SP)+ ,R4 CLR @R0 INCB 1(R4) RTS PC .END