.LIST TTM
	.NLIST	SYM
	.TITLE	CRAEVO -
	.IDENT	/V01   /
	.PSECT	CRAEVO

	.MCALL	EXIT$S
;
;	THIS PROGRAM DEMONSTRATES A CRASH CAUSED BY
;	AN EMT OCCURRING WHEN THE EMT VECTOR IS ODD.
;
;	ASSEMBLY INSTRUCTIONS:
;
;	CRAEVO=EXEMC/ML,RSXMC/PA:1,CRAEVO
;

CRAEVO::
	CALL	$SWSTK,100$	;;;SWITCH TO SYSTEM STATE
	INC	@#30		;;;MAKE EMT VECTOR ODD
	RETURN			;;;
100$:
	EXIT$S			;;;WILL CRASH INSTEAD

	.END	CRAEVO