.LIST	TTM
	.NLIST	SYM
	.TITLE	CRAOSP - ODD KERNEL STACK POINTER
	.IDENT	/V01   /
	.PSECT	CRAOSP

	.MCALL	EXIT$S
;
;	THIS PROGRAM DEMONSTRATES A CRASH CAUSED BY
;	AN ATTEMPT TO PUSH SOMETHING ON THE STACK WHEN
;	THE KERNEL STACK POINTER IS ODD.
;
;	ASSEMBLY INSTRUCTIONS:
;
;	CRAOSP=EXEMC/ML,RSXMC/PA:1,CRAOSP
;

CRAOSP::
	CALL	$SWSTK,100$	;;;SWITCH TO SYSTEM STATE
	DEC	SP		;;;KERNEL SP ODD
	MOV	#0,-(SP)	;;;PUSH ZERO ON STACK
	RETURN			;;;SHOULD NEVER GET THIS FAR
100$:
	EXIT$S
	.END	CRAOSP