.TITLE	CRAT04 -
	.IDENT	/V01   /
	.PSECT	CRAT04

	.MCALL	EXIT$S
;
;	THIS PROGRAM DEMONSTRATES A CRASH CAUSED BY
;	AN ODD ADDRESS AT SYSTEM STATE.
;
;	ASSEMBLY INSTRUCTIONS:
;
;	CRAT04=EXEMC/ML,RSXMC/PA:1,CRAT04
;

CRAT04::
	CALL	$SWSTK,100$	;;;SWITCH TO SYSTEM STATE
	TST	@#1		;;;ODD ADDRESS TRAP
	RETURN			;;;SHOULD NEVER GET THIS FAR
100$:
	EXIT$S
	.END	CRAT04