; PATJ1.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 - PROBLEM. .TITLE BSE1 .ENABL GBL .PSECT BASECD .=.+1436 LISTL: JSR PC ,GTKEYS .=.+150 JSR PC ,PATJ1 .PSECT PATJ1 .ENABL GBL PATJ1:: CMP R3 ,#COMMND BLOS 10$ TST (SP)+ JMP LISTL 10$: CMPB -(R1) ,#.NEXT RTS PC .END