.MCALL	FDOFF$,PUT$
	.TITLE PUTREC -- PUT A RECORD IN A SEQUENTIAL FILE
FDOFF$	DEF$L
;
;                   FORTRAN CALL:
;				CALL PUTREC(LUN,RECORD,LEN)
;                   WHERE LUN = LOGICAL UNIT NUMBER
;                   NOTE:
;                   THE FILE MUST BE OPEN FOR THIS ROUTINE TO WORK
;			THIS MEANS YOU MUST HAVE READ OR WRITTEN IN THE
;			FILE AT LEAST ONCE BEFORE USING PUTREC, OR YOU
;			MUST HAVE OPENED THE FILE WITH THE OPEN COMMAND
;
;                   INVALID LUN'S WILL RESULT IN A FORTRAN ERROR TRAPPED BY
;                    THE FCHNL ROUTINE
;
LUN=2
BUF=4
LEN=6
PUTREC::   MOV       @LUN(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
	PUT$	,BUF(R5),@LEN(R5)
	MOVB	F.ERR(R0),R0
	RTS	PC
.END