UNLCTL.MAC;2/AU=UNLCTL.OLD;1/-BF
\
-2,2
	.IDENT	/02.8N/
-56
;		NAPC  -- UNLOAD DATA BASE WITH DRIVER
;			ALLOW TWO ICB'S ON ERROR LOGGING DEVICES
;
%
-67,,/;NAPC/
UNLDB=0		;UNLOAD DATA BASE WITH DRIVER
-237,237,/;NAPC/
	CMP	DCBADR,#$POOL	;IS THE DATA BASE IN THE POOL?
-244,,/;NAPC/
	CALL	$LOCKL		;LOCK SYSTEM LISTS
-346,347,/;NAPC/
-478,478,/;NAPC/
TSTATE:	CALL	$UNLKL		;UNLOCK SYSTEM LISTS
	MOV	ERRSTS,R1	;ANY ERRORS DETECTED?
/