.TITLE	QIOXMT
;
;  TEST PROGRAM TO XMT USING CD DRIVER
;
	.PSECT	BUFFER,RW,GBL,REL,D,OVR
BUFF:	.BLKW	4000.
	.PSECT
TOT:	.WORD	100.
NTOT:	.BLKW
LEN:	.WORD	1000.
STAT:	.BLKW	2
;
LUN=2
	.MCALL	CALLFT,QIOW$S,EXIT$S
;
QIOXMT:
	CALLFT	DLDEC,<<' TOTAL TRANSFERS>,TOT,TOT>
	CALLFT	DLDEC,<<' LEN OF XMT BUFFER>,LEN,LEN>
	MOV	#BUFF,R4
	CLR	R0
5$:	INC	R0
	MOV	R0,(R4)+
	CMP	R0,LEN
	BLT	5$
10$:
	MOV	LEN,R0
	ASL	R0			;CONVERT TO BYTES
	QIOW$S	#400,#LUN,#LUN,,#STAT,,<#BUFF,R0,#1>
	BCS	DIRERR
	CMP	STAT,#1
	BNE	ERR
	INC	NTOT
	CMP	NTOT,TOT
	BLE	10$
	EXIT$S
;
DIRERR:	MOV	#$DSW,R0
	CALLFT	DLDEC,<<' DSW ERROR>,R0>
	EXIT$S
;
ERR:	CALLFT	DLDEC,<<' I/O ERROR>,STAT>
	EXIT$S
	.END	QIOXMT