; PAT004.NHD ; 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 (NHD). ; THIS PATCH FIXES THE PROBLEM WITH SIMRT (NHD). .TITLE OTINIT - NHD WRNERR=2 ERRCOD=4 STSBYT=53 .PSECT OTS$I X=. .=X+2 STADDR: .=X+224 MOV R0,R4 NOP .=X+422 BNE 4$ .=X+462 4$: .=X+532 JSR PC,PAT1 BR .+10 .=X+1054 JSR PC,PAT2 NOP .=X+1074 JSR PC,PAT3 NOP .=X+2010 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