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