.TITLE	WAL	PERFORM QIO IO.WAL FROM FORTRAN
	.MCALL QIOW$S
WAL::	MOV	#1,R1
	CMP	(R5),#2
	BLT	WRITE
	MOV	@4(R5),R1
WRITE:	QIOW$S	#IO.WAL,@6(R5),#1,,,,<2(R5),R1>
	RTS	PC
	.END