; PAT09A.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 $OPEN .IDENT \03\ .PSECT OTS$O S=. .=S+220 JSR PC ,PAT09A .=S+1040 PAT09A: .GLOBL $WAIT .MCALL .WAIT TST @#46 BNE 6$ .WAIT 13(R5) BR 7$ 6$: JSR PC ,$WAIT 7$: RTS PC .END