iosb:		.quad	0		; iosb for all ddtm services
tid:		.blkw	8		; tid for all ddtm services
delay:		.float	.25


	.entry	start, ^m<>

0$:	$start_transw_s -		; start
		iosb=iosb,-		;  the
		tid=tid			;   transaction
	blbc	r0,10$
	blbc	iosb,10$		; check the iosb
	bsbw	wait
	$end_transw_s -			; end
		iosb=iosb,-		;  the
		tid=tid			;   transaction
	blbc	r0,10$
	blbc	iosb,10$		; check the iosb
	bsbw	wait
	brb	0$

10$:	ret

wait:
	pushal	delay
	calls	#1,g^lib$wait
	rsb

	.end	start