; PATO1.MAC NAB/1738/SNL 30-JUL-79/25-AUG-80. ; RT-11 SOFTWARE DISPATCH MARCH 1980 (JULY 1979). ; BASIC-11/RT-11 V2 SEQ 35.1.17 (SEQ 34 M). ; REM STATEMENTS ON MULTI-STATEMENT LINES - PATCH O. .TITLE BSE1 .PSECT BASECD .ENABL GBL .=.+1752 JSR PC ,PATO1 NOP NOP .PSECT PATO1 .GLOBL BL PATO1: CMPB -3(R1) ,#BL BEQ 10$ MOV #BL ,R0 JSR PC ,@4(SP) 10$: RTS PC .END