; PATB1.MAC NAB/1738/SNL 31-OCT-78/25-AUG-80. ; RT-11 SOFTWARE DISPATCH MARCH 1980 (FEBRUARY 1979) (AUGUST 1978). ; BASIC-11/RT-11 V2 SEQ 35.1.3 M (SEQ 18 M) (SEQ 1 M). ; RESEQ - PATCH B. .TITLE RESEQ .IDENT \000007\ .ENABL GBL .PSECT BASECD,RO,I .=.+502 JSR PC ,PATB1 NOP .PSECT PATB1,RO,I PATB1: ADD CODE(R5) ,-(R1) TSTB @(R1) BPL LPARQ1 INC (R1) LPARQ1: SUB CODE(R5) ,(R1) RTS PC .END