10	! ----- AST_ROUTINE.FUN -----
	SUB AST_ROUTINE(LONG PARAM, LONG RZERO, LONG RONE, LONG PC, LONG PSL)
	!
	! This subroutine is called as an AST procedure from the
	! CTRL_C_Y_TRAP.FUN subroutine.
	! It sets a flag in a MAP called ASTMAP when it is called.
	!
	! NOTE:  The five parameters coded on the SUB statement are required
	! when coding any AST routine in BASIC.  These are the arguments passed
	! by the system on entry to the AST service routine.  Although they are
	! not used in this routine, BASIC checks the argument count and they
	! must be present.
	!
	! ----- Last Change 05/01/89 by Brian Lomasky -----
	!
	! ----- Teradyne, Inc., 179 Lincoln Street, Boston, MA  02111 -----
	! ----- (617) 482-2706, x3259 -----
	!
	! ----- Neither Brian Lomasky nor Teradyne, Inc. implicitly or -----
	! ----- explicitly implies this program is usable in any way. -----
	! ----- This program is released to the public domain in an -----
	! ----- "AS-IS" condition. -----
	!
	! ----- Restrictions: -----
	! -----   1) Requires VAX BASIC V2.4 or later. -----
	!
	OPTION TYPE = EXPLICIT

	DECLARE WORD CONSTANT TRUE = (1% = 1%)

	MAP (ASTMAP) WORD EXIT_PROGRAM_FLAG	! TRUE TO EXIT PROGRAM

	EXIT_PROGRAM_FLAG = TRUE		! SET FLAG SO AS TO EXIT PROGRAM

	END SUB