; PAT004.FPU ; NAB/SLA/1736 13-MAR-78/01-MAR-79 ; RT-11 SOFTWARE DISPATCH JANUARY 1979 (FEBRUARY 1978) ; FORTRAN IV/RT-11 V2 SEQ 4 M (SEQ 5 M) ; THIS IS PATCH NUMBER 4 (FPU). ; THIS PATCH FIXES THE PROBLEM WITH SIMRT (FPU). .TITLE OTINIT - FPU WRNERR=2 ERRCOD=4 STSBYT=53 .PSECT OTS$I X=. .=X+2 STADDR: .=X+236 MOV R0,R4 NOP .=X+434 BNE 4$ .=X+474 4$: .=X+544 JSR PC,PAT1 BR .+10 .=X+1222 JSR PC,PAT2 NOP .=X+1242 JSR PC,PAT3 NOP .=X+2156 PAT1: TST SIMRT BNE 1$ MOV #STADDR,@#40 BIS #20000,@#44 1$: RTS PC PAT2: TST SIMRT BNE 1$ BISB #WRNERR,@#STSBYT 1$: RTS PC PAT3: TST SIMRT BNE 1$ BISB #ERRCOD,@#STSBYT 1$: RTS PC .PSECT OTS$P .BLKW 19. SIMRT: .BLKW .END