.TITLE UTILIZATION
	.IDENT	/UTL1.0/
	.ENABL	LC
	.NLIST	BEX
 
	.MCALL DIR$,QIOW$,EXIT$,FSRSZ$
	.MCALL C$C
	C$C
MES:	.ASCII <LF><LF><CR><HT>
	.ASCII	/       NOTE: Current Utilization is now at /
DATA:	.BLKB	6.
	.ASCII	<LF><CR><LF><HT>
	.ASCII	/Please limit use when utilization is greater than 50%/
	.ASCII	<LF><CR>
	MESZ=.-MES
	.EVEN
PRINT:	QIOW$	IO.WVB,1,1,,,,<MES,MESZ,>
EXIT:	EXIT$
 
	.PSECT	PUR$,RO,I,REL
 
UTIL::
	MOV	.SUTIL,R1	;GET TOTAL STAT TIME
	MOV	#DATA,R0
	CLR	R2
	JSR	PC,$CBDMG
	MOVB	#'%,(R0)
	DIR$	#PRINT		;OUTPUT DATA
	DIR$	#EXIT
	.END	UTIL