; PATJ1.MAC NAB/1738/SNL 31-OCT-78/29-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 - 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