.LIST	TTM
	.NLIST	SYM
	.TITLE	CRAEMT - EMT AT $STKDP < 1
	.IDENT	/V01   /
	.PSECT	CRAEMT

	.MCALL	EXIT$S
;
;	THIS PROGRAM DEMONSTRATES A CRASH CAUSED BY
;	AN EMT WHEN THE STACK DEPTH IS LESS THAN 1.
;
;	ASSEMBLY INSTRUCTIONS:
;
;	CRAEMT=EXEMC/ML,RSXMC/PA:1,CRAEMT
;

CRAEMT::
	CALL	$SWSTK,100$	;;;SWITCH TO SYSTEM STATE
	EMT	0		;;;EMT
	RETURN			;;;SHOULD NEVER GET THIS FAR
100$:
	EXIT$S
	.END	CRAEMT