; PAT18.MAC ; NAB/SLA/1736 30-JUL-79/23-AUG-79 ; RT-11 SOFTWARE DISPATCH AUGUST 1979 ; FORTRAN IV/RT-11 V2.1 SEQ 20 M ; OTS ; CALL ASSIGN CARRIAGE CONTROL -- PATCH 18. .TITLE $ASSIGN .IDENT \04\ .PSECT OTS$I S=. .=S+176 BIS #10 ,@R0 .=S+210 BIS #20 ,@R0 .=S+334 BIS #20 ,@R0 .=S+346 BIS #10 ,@R0 .END