.NLIST    TTM,SYM                                                     
	.TITLE	NOTFTN TURN OFF THE FORTRAN CARRAGE CONTROL BIT
;                                                                               
;                   FORTRAN CALL:                                               
;                             CALL NOTFTN(LUN)                                   
;                   WHERE LUN = LOGICAL UNIT NUMBER                             
;                                                                               
;                                                                               
;			NOTE:
;		THE FILE MUST BE OPEN FOR THIS ROUTINE TO WORK. IT IS
;		SUGGESTED THAT YOU CALL THIS ROUTINE AFTER YOUR FORST
;		READ OR WRITE, OR JUST BEFORE YOU CLOSE THE LUN
;                                                                               
;                   INVALID LUN'S WILL RESULT IN A FORTRAN ERROR TRAPPED BY     
;                    THE FCHNL ROUTINE9                                         
          .GLOBL    $FCHNL,$OTSV                                         
	.MCALL	FDOF$L
	FDOF$L
NOTFTN::   MOV       @2(R5),R2 ;GET LUN PARAMETER                                
          MOV       @#$OTSV,R3          ;GET WORK AREA ADDRESS                  
          JSR       PC,$FCHNL ;FIND FDB ADDRESS                                 
          ADD       #14,R0    ;GET TO RSX FDB                                   
	BICB	#FD.FTN,F.RATT(R0)	;ZAP THE FORTRAN CARRAGE CONTROL BIT
	BISB	#FD.CR,F.RATT(R0)	;SET THE CRLF BIT INSTEAD
          RTS       PC                                                          
          .END