; PATI1.MAC ; NAB/SLA/1736 31-OCT-78/16-NOV-79 ; RT-11 SOFTWARE DISPATCH MARCH 1979 ; BASIC-11/RT-11 V2 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