.TITLE	BREQW
BREQW::	JSR	R2,$SAVVR		;SAVE R0-R2
	TST	R3
	BLE	3$			;BAD INPUT
	TST	HI$FRH			;IS DATA POOL INITED
	BNE	2$			;YES
	MOV	#HI$FRH,R0
	JSR	PC,$INIDM		;INIT POOL
2$:	MOV	#HI$FRH,R0
	MOV	R3,R1			;NUMBER OF BYTES REQ.
	JSR	PC,$RQCB		;REQUEST CLEARED BUFF
	BCC	5$			;REQUEST HONORED
3$:	SEC				;SET CARRY FOR ERROR
	RTS	PC
5$:	MOV	R0,R2			;SAVE GOOD ADDRESS
	ASR	R3			;NOW IS WORD COUNT
6$:	CLR	(R0)+			;CLEAR BUFFER
	SOB	R3,6$			;UNTIL IT IS ALL CLEAR
	MOV	R2,R3			;SAVED ADDRESS TO USER
	CLC				;CLEAR CARRY FOR OK!
	RTS	PC
	.END