.LIST	TTM
	.NLIST	SYM
	.TITLE	CRAOD4 - LOCATION 4 IS ODD
	.IDENT	/V01   /
	.PSECT	CRAOD4

	.MCALL	EXIT$S
;
;	THIS PROGRAM DEMONSTRATES A CRASH CAUSED BY
;	AN ODD ADDRESS TRAP AT USER STATE WHEN LOCATION 4 IS ODD.
;
;	ASSEMBLY INSTRUCTIONS:
;
;	CRAOD4=EXEMC/ML,RSXMC/PA:1,CRAOD4
;

CRAOD4::
	CALL	$SWSTK,100$	;;;SWITCH TO SYSTEM STATE
	INC	@#4		;;;MAKE ODD ADDRESS VECTOR ODD
	RETURN			;;;RETURN TO USER STATE
100$:
	TST	@#1		;CAUSE ODD ADDRESS TRAP
	EXIT$S
	.END	CRAOD4