; PATJ4.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 .=.+1326 JSR PC ,PATJ4 .PSECT PATJ4 .ENABL GBL PATJ4:: TSTB (R1) BPL 20$ CMPB -(R1) ,#.COMND BNE 30$ 20$: TST (SP)+ 30$: CMPB (R1)+ ,(R1)+ RTS PC .END