; PATJ2.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.11 M (SEQ 28 M). ; LISTNH / OLD - PATCH J. .TITLE BSR0 .ENABL GBL .PSECT BASRCD .=.+1234 JSR PC ,PATJ2 .PSECT PATJ2 .ENABL GBL PATJ2:: TSTB (R1) BPL 20$ CMPB -(R1) ,#.COMND BNE 30$ 20$: TST (SP)+ 30$: CMPB (R1)+ ,(R1)+ RTS PC .END