.TITLE	PUT4
	.LIST	MEB
	.MCALL	FDBDF$,FDAT$R,OPEN$W,CLOSE$,PUT$
LUN	= 4
FDB4:	FDBDF$
DSPT:	.WORD	DEVSZ,DEVNM,0,0
SIZ:	.WORD	0
NAME:	.WORD	0
DEVNM:	.ASCII	/SY:/
DEVSZ	= .-DEVNM
	.EVEN
BUFF:	.BLKB	80.
;
;	CALL OPE4(DEVICENAME,#BYTES)
;
OPE4::	MOV	#2,R0
	CALL	R5CHEK
	MOV	(R5)+,NAME
	MOV	@(R5)+,SIZ
	FDAT$R	#FDB4,#R.VAR
	OPEN$W	#FDB4,#LUN,#DSPT,,#BUFF,#80.
	RETURN
;
;	CALL CLS4
;
CLS4::	CLOSE$	#FDB4
	RETURN
;
;	CALL PUT4(IARRAY,ISIZ,IERR)
;
PUT4::
	MOV	#3,R0
	CALL	R5CHEK
	CLR	@4(R5)
	PUT$	#FDB4,(R5),@2(R5)			;WRITE THE BUFFER
	BCC	1$					;NO ERROR
	MOV	$DSW,@4(R5)				;ERROR TO USER
1$:	RETURN
	.END