; PAT16.MAC ; NAB/SLA/1736 23-AUG-79/ ; RT-11 SOFTWARE DISPATCH AUGUST 1979 ; FORTRAN IV/RT-11 V2.1 SEQ 18 M ; OTS ; FORMATTED RECORD OUTPUT -- PATCH 16. .TITLE $FIO .IDENT \04\ .PSECT OTS$I S=. .=S+104 JSR PC ,PAT16 NOP NOP .=S+1672 PAT16: MOVB #15 ,@34(R3) INC 34(R3) RTS PC .END