POWER.MAC;2/AU.=POWER.OLD;1/-BF
\
-2,2
	.IDENT	/08.04N/
-64
;
;		NAPC   -- VERIFY ONLINE DEVICES ON POWER UP
;		      -- MODIFY 11/70 MEMORY CSR TABLE
;			  ENABLE CACHE & STACK LIMIT REGISTER
;
%
-378,,/;NAPC/
	.IF DF	P$$D70
-382,382,/;NAPC/
-387,391,/;NAPC/
-394,,/;NAPC/
	.ENDC
-428,,/;NAPC/
;
CACHE=177756
	BIS	#3,@#CACHE	;ENABLE CACHE
;
	.IF DF	R$$SLR
SLREG=177774
	MOV	#V$$CTR-4,@#SLREG  ;SET STACK LIMIT REGISTER
	.ENDC
-441,441,/;NAPC/
40$:	MOV	U.SCB(R5),R2	;GET SCB POINTER
	BICB	#US.OFL,U.ST2(R5)  ;MARK DEVICE ONLINE
	MOV	@#4,-(SP)	;SAVE TRAP HANDLER
	MOV	#DEVOFL,@#4	;TEMPORARY HANDLER
	TSTB	@S.CSR(R2)	;IS IT THERE?
	MOV	(SP)+,@#4	;RESTORE HANDLER
	BITB	#US.OFL,U.ST2(R5)  ;DEVICE IN CONFIG?
-486,,/;NAPC/
DEVOFL:	BISB	#US.OFL,U.ST2(R5)  ;MARK DEVICE OFFLINE
	RTI
/