.TITLE	VDTST
;TEST VD: ON BIG TRANSFERS
	.GLOBL	BUF,BLK,IOSB
	.MCALL	QIOW$S,EXIT$S
BUF:	.BLKW	4096.
	.WORD	0,0	;SAFETY
BLK:	.WORD	0
IOSB:	.WORD	0,0
LOOPR:	.WORD	0
GO::	CLR	LOOPR
	MOV	#1,BLK
ITER:
	QIOW$S	#IO.RLB,#1,#1,,#IOSB,,<#BUF,#4096.,,#0,BLK>
; LUN 1 READ BLK
; STARTING BLK NUMBER IS "BLK"
; THEN BUMP UP AND KEEP IT GOING
	MOV	BLK,R0
	MOV	IOSB,R1
	MOV	IOSB+2,R2
	MOV	#BUF,R3
	MOV	BUF,R4		;GET STUFF TO REGS FOR EASIER DEBUG
; USE DDT TO SEE WHAT HAPPENS
	NOP
	ADD	#8.,BLK
	INC	LOOPR
	CMP	LOOPR,#60.
	BLO	ITER
	TST	IOSB
	TST	BLK
	EXIT$S
	.END	GO