; PATO1.MAC ; NAB/1736/SLA 30-JUL-79/16-NOV-79 ; RT-11 SOFTWARE DISPATCH JULY 1979 ; BASIC-11/RT-11 V2 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