.TITLE	ASTSIT	Stop routine from AST
	.IDENT	/V01.00/
	.GLOBL	STOPIT

	;
	;		ASTSIT.MAC
	;
	;	Retrurn to previous level from an AST
	;
	; THIS MUST BE CALLED DIRECTLEY FROM THE AST ROUTINE
	;
	; IE R5 MUST BE AS IS ON ENTRY TO THE AST, AFTER CSV$
	;
ASTSIT::
	MOV	#STOPIT,12(R5)		; RETURN ADDESS IS STOPIT

	RTS	PC

	.END