.MCALL QIOW$,FDOF$L,DIR$
	.TITLE PUBLIC
PUBLIC::
LUN=2
	MOV	#WRTATT,R0
	MOV	@LUN(R5),Q.IOLU(R0)
	DIR$	R0
	BCS	ERROR
	MOVB	IOSTAT,R0
	RTS	PC
ERROR:	MOVB	-1,R0
	RTS	PC
WRTATT:	QIOW$	IO.WAT,,1,,IOSTAT,,<,PROT>
PROT:	.BYTE	02,02
	.WORD	PUB
	.BYTE 0,0
PUB:	.WORD	160000
IOSTAT:	.WORD	0,0
.END