; PAT09B.MAC ; NAB/1736/SLA 31-JUL-79/23-AUG-79 ; RT-11 SOFTWARE DISPATCH AUGUST 1979 ; FORTRAN IV/RT-11 V2.1 SEQ 11 M ; OTS ; FORTRAN OTS -- PATCH 9. .TITLE $CLOSE .IDENT \05\ .PSECT OTS$I S=. .=S+176 JSR PC ,PAT09B T=S+444 .=T+16 PAT09B: .GLOBL $WAIT .MCALL .WAIT TST @#46 BNE 6$ .WAIT 21(R4) BR 7$ 6$: JSR PC ,$WAIT 7$: RTS PC .END