; PATG1.MAC ; NAB/SLA/1736 06-DEC-78/28-FEB-79 ; RT-11 SOFTWARE DISPATCH FEBRUARY 1979 (1978) ; BASIC-11/RT-11 V2 SEQ 23 M (SEQ) ; THIS IS PATCH G. ; THIS PATCH FIXES A SAVE .XXX & UNSAVE .XXX PROBLEM. .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