.TITLE	BROADCAST

;
; COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORPORATION
;
; VERSION 01A
;
; MODIFICATIONS:
;
;	01A -- FIX EVENT FLAG USAGE PROBLEMS
;

	.IDENT	/01A/
 
	.MCALL	CLEF$S,MRKT$S,WTSE$S

	.PSECT	DATA,D
DATA=.

EFN=DATA+714

.=DATA

	.PSECT	CODE,I
CODE=.

.=CODE+1174
	CLEF$S	EFN		;CLEAR EVENT FLAG THAT MAY BE SET

.=CODE+1502
	CALL	PAT1		;DO THE CORRECT THING
	NOP
	NOP
	NOP

.=CODE

	.PSECT	$$PAT1
$$PAT1=.

PAT1:	MRKT$S	#2,#5,#2	;WAIT FOR QUIESCENCE
	CLEF$S	EFN		;CLEAR EVENT FLAG SET BY KILLED QIO
	WTSE$S	#2		;
	RETURN

.=$$PAT1

	.END