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/
;
	.IF DF	R$$CHE!R$$SLR
	MOV	#20$,-(SP)	;GET RETURN ADDRESS
	CALL	$SGFIN		;IGNORE TIMEOUTS
	.IF DF	R$$CHE
	BIS	#3,@#R$$CHE	;ENABLE CACHE
	.ENDC
;
	.IF DF	R$$SLR
	MOV	#V$$CTR-4,@#R$$SLR  ;SET STACK LIMIT REGISTER
	.ENDC
	RETURN			;RESTORE TRAPS
	.ENDC
-441,441,/;NAPC/
40$:	MOV	U.SCB(R5),R2	;GET SCB POINTER
	BICB	#US.OFL,U.ST2(R5)  ;MARK DEVICE ONLINE
	MOV	#46$,-(SP)	;RETURN ADDRESS FOR $SGFIN
	CALL	$SGFIN		;IGNORE TIMEOUTS
	TSTB	@S.CSR(R2)	;IS IT THERE?
	BCC	45$		;IF CC, YES
	BISB	#US.OFL,U.ST2(R5)  ;MARK DEVICE OFFLINE
45$:	RETURN			;RESTORE  TRAPS
46$:	BITB	#US.OFL,U.ST2(R5)  ;DEVICE IN CONFIG?
/