; PATG1.MAC NAB/1738/SNL 06-DEC-78/25-AUG-80. ; RT-11 SOFTWARE DISPATCH MARCH 1980 (FEBRUARY 1979) (1978). ; BASIC-11/RT-11 V2 SEQ 35.1.8 (SEQ 23 M) (SEQ). ; SAVE .XXX & UNSAVE .XXX - PATCH G. .TITLE SUIOPO .IDENT \000003\ .ENABL GBL .PSECT BASSCD .=.+520 JSR PC ,PATG1 .=.+142 RAD:: CLR R4 .PSECT PATG1,RO,I PATG1: CMPB (R0) ,#'. BNE 10$ ERTEXT IFS, 10$: JSR PC ,RAD RTS PC .END