.TITLE	BQSTOP
	.IDENT	/V1.0/

;***********************************************************************
;
;	BQSTOP.TSK
;
;	THIS TASK, WHEN RUN, WILL EFFECT A BAT /EXIT COMMAND. IT SHOULD BE
;	PUT INTO THE CLOCK QUEUE TO CAUSE BATMAN TO WIND DOWN ITS OPERATIONS
;	IF YOU CAN'T BE THERE TO ISSUE THE COMMAND YOURSELF.
;
;	S.M. THOMPSON
;	MARCH 1980
;
;***********************************************************************

	.MCALL	QUEDF$,EXIT$S

	QUEDF$		; DEFINE QUEUE PACKET OFFSETS AND BIT DEFINITIONS

$BQSEP:
	BIS	#<QQ.RDN!QQ.EXT>,$QSTAT ; SET /RUNDOWN AND /EXIT
	EXIT$S			; AND EXIT

	.END	$BQSEP