;
;	This program forces an image to exit.
;	The PID is the required input.
;
	$DSCDEF
	$LIBDEF
	$OTSDEF
PID:	.LONG	0
PIDDSC:	.WORD	8		;DATA LENGTH
	.BYTE	DSC$K_DTYPE_T	;ASCII TEXT
	.BYTE	DSC$K_CLASS_D	;DYNAMIC LENGTH
	.ADDRESS	PIDBUF
PIDBUF:	.ASCII	/00000000/
PROMPT:	.ASCID	/PID:/
START::	.WORD	0
	PUSHAL	PROMPT
	PUSHAL	PIDDSC
	CALLS	#2,G^LIB$GET_FOREIGN
	BLBC	R0,ABORT
	PUSHAL	PID
	PUSHAL	PIDDSC
	CALLS	#2,G^OTS$CVT_TZ_L
	$FORCEX_S	PIDADR=PID,-
			CODE=#SS$_OPRABORT
ABORT:	$EXIT_S	R0
	.END	START