PAROV.MAC;2/AU=PAROV.OLD;1/-BF
\
-2,2
	.IDENT	/03.02N/
-32
;	NAPC	  --   DISPLAY BUSY STATUS FOR PARTITIONS
%
-62,64,/;NAPC/
TASK:	.ASCIZ	/TASK   /
COMM:	.ASCIZ	/COMMON /
DEV:	.ASCIZ	/DEVICE /
-67,67,/;NAPC/
SYS:	.ASCIZ	/SYSTEM /
BSY:	.ASCIZ	/BUSY/
-69,69,/;NAPC/
DRV:	.ASCIZ	/DRIVER /
-81,81,/;NAPC/
; NNNNNN BBBBBB SSSSSS TYPE STAT BUSY
-92,94,/;NAPC/
;		COMMON - COMMON PARTITION
;		DEVICE - DEVICE PARTITION
;		SYSTEM - SYSTEM CONTROLLED PARTITION
-97,,/;NAPC/
;	BUSY - IS
;		BUSY - THIS PARTITION IS BUSY
;			(IF A COMMON, IT IS LOADED)
;
-206,206,/;NAPC/
	TST	(R5)+
	BR	70$
-216,,/;NAPC/
	BR	70$
-220,220,/;NAPC/
60$:	CMP	(R5)+,(R5)+
70$:	MOV	(R5)+,R1	;GET BUSY FLAG
	BEQ	62$		;BRANCH IF NOT BUSY
	CALL	MOVE		;MOVE BUSY TO LINE
62$:	SUB	$MDPB+14,R0	;COMPUTE LINE LENGTH
-306,306,/;NAPC/
	SUB	#PARWPP,R2	;UNCOUNT WHAT WE NEED
-365,,/;NAPC/
	CLR	(R3)+
		PARKT = PARKT + 1
-406,,/;NAPC/
	CLR	(R3)+
	CLR	(R3)+
-410,410,/;NAPC/
112$:	CLR	R1		;CLEAR BUSY FLAG
		PARKT = PARKT + 1
	BITB	P.BUSY(R5),P.BUSY+1(R5) ; IS THIS BUSY?
	BEQ	113$		; IF EQ NO
	MOV	#BSY,R1		; REPORT AS BUSY
113$:	MOV	R1,(R3)+	; SAVE BUSY FLAG
	BIT	#PS.SYS,R2	; SYSTEM PARTITION?
/