.MACRO INITIATE_SETUP UCB=R5, IRP=R3, TEMP_REG=R22, ?L1, ?L2

	.GLOBAL PMS_STD$START_IO

   .IF DF	CA$_MEASURE_IOT

	.BRANCH_LIKELY
	BBC	#IRP$V_DOPMS,IRP$L_STS(IRP),L1
	PUSHL	IRP
	CALLS #1,PMS_STD$START_IO
   .ENDC

L1:	BICL	#UCB$M_CANCEL!UCB$M_TIMOUT,UCB$L_STS(UCB)
	.BRANCH_LIKELY
	BBC	#IRP$V_DIAGBUF,IRP$L_STS(IRP),L2
	MOVL	@IRP$L_DIAGBUF(IRP),TEMP_REG
	MOVQ	G^EXE$GQ_SYSTIME,(TEMP_REG)
L2:

	.ENDM	INITIATE_SETUP