; PATI1.MAC NAB/1738/SNL 31-OCT-78/25-AUG-80. ; RT-11 SOFTWARE DISPATCH MARCH 1980 (MARCH 1979). ; BASIC-11/RT-11 V2 SEQ 35.1.10 M (SEQ 27 M). ; RESEQ - PATCH I. .TITLE RESEQ .ENABL GBL .PSECT BASECD,RO,I .=.+104 JSR PC ,PATI1 NOP .PSECT PATI1,RO,I PATI1: BIT #1 ,2(R0) BNE 20$ CLR (R0) 20$: RTS PC .END