; PAT15A.MAC ; NAB/SLA/1736 23-AUG-79/ ; RT-11 SOFTWARE DISPATCH AUGUST 1979 ; FORTRAN IV/RT-11 V2.1 SEQ 17 M ; OTS ; DISP='DELETE' OPTION -- PATCH 15. .TITLE OPNCLO .IDENT \15\ .PSECT OTS$I S=. .=S+144 JSR PC ,PAT15A .=S+204 JSR PC ,PAT15B .=S+232 PAT15A: BIC #20 ,34(R4) RTS PC PAT15B: BIS #20 ,34(R4) RTS PC .END