.LIST	TTM
	.NLIST	SYM
	.TITLE	CRATRP - TRAP WITH $STKDP < 0
	.IDENT	/V01   /
	.PSECT	CRATRP

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

CRATRP::
	CALL	$SWSTK,100$	;;;SWITCH TO SYSTEM STATE
	DEC	$STKDP		;;;MAKE $STKDP -1
	TRAP	0		;;;TRAP INSTRUCTION
	RETURN			;;;SHOULD NEVER GET THIS FAR
100$:
	EXIT$S
	.END	CRATRP