.TITLE	CPUOFF
	.IDENT	/02/
	.MCALL	QIOW$C,EXIT$S,MRKT$C,WTSE$C
	.MCALL	USTP$,SDAT$,DIR$
	.ENABL	LSB
;
; J. G. DOWNWARD	16-MAR-79
;
; TURN CPU LOGGING OFF TASK
;
UNSTOP:	USTP$	CPULOG
SEND:	SDAT$	CPULOG,BUF
BUF:	.WORD	1		; TO SIGNAL CPULOG TO EXIT
	.BLKW	12
START:	MRKT$C	1,30.,1		; WAIT FOR MCR TO PRINT PROMPT
	WTSE$C	1		;
	DIR$	#SEND		; SEND CPULOG SOME DATA
	CMP	#IE.INS,$DSW	; IS TASK INSTALLED
	BEQ	INSERR		; IF EQ, NO
	DIR$	#UNSTOP		; UNSTOP CPULOG
	CMP	#IE.ACT,$DSW	; IS CPULOG ACTIVE?
	BEQ	ACTERR		; NO, SHOW ERROR
20$:	EXIT$S			; NO. EXIT.
 
 
INSERR:	QIOW$C	IO.WVB,5,5,,,,<INSM,INSS,40>
	BR	20$
 
ACTERR:	QIOW$C	IO.WVB,5,5,,,,<ACTM,ACTS,40>
	BR	20$
	.NLIST	BEX
 
INSM:	.ASCII	/CPUOFF -- "CPULOG" NOT INSTALLED/
INSS=.-INSM
 
ACTM:	.ASCII	/CPUOFF -- "CPULOG" NOT ACTIVE/
ACTS=.-ACTM
 
ALLM:	.ASCII	/CPUOFF -- MEMORY ALLOCATION FAILURE/
ALLS=.-ALLM
 
	.LIST	BEX
 
	.END	START