EXDBT.MAC;2/AU:72=EXDBT.OLD;1
\
-2,2
	.IDENT	/04N/
-45
;
;		NAPC -- CORRECT STACK OVERFLOW CHECK
;		     -- ALLOW CRASH ACCESS TO M.M. FAULT REGS.
%
-897,897,/;NAPC/
-914,914,/;NAPC/
	CMP	SP,#V$$CTR	;STACK OVERFLOW?
-960,960,/;NAPC/
	.IF DF	R$$SLR
		SLREG=177774
	MOV	@#SLREG,R1	;GET CURRENT STACK LIMIT
	ADD	#340,R1		;DEFINE RED ZONE
	CMP	SP,R1		;ENTERED RED ZONE?
	BHIS	3$		;IF HIS, NO
	MOV	R1,SP		;DEFINE REAL SP
	.ENDC
3$:	MOV	SP,(R0)+	;
-1078,,/;NAPC/
	.IF DF	M$$MGE
	BIC	#160000,SR0	;UN-FREEZE M.M. UNIT
	.ENDC
/