; PATM1.MAC ; NAB/SLA/1736 04-JUN-79/16-NOV-79 ; RT-11 SOFTWARE DISPATCH MAY 1979 ; BASIC-11/RT-11 V2 SEQ 31 M ; DOUBLE PRECISION INTEGER VARIABLES - PATCH M. .TITLE BSX0A .PSECT BASXCD .ENABL GBL .=.+710 JSR PC ,PATM1 .PSECT PATM1 PATM1: JSR PC ,$CLRFAC RTS PC .END