.TITLE	STOP$
	.IDENT	/V0.0/
;
;+
;
; STOP$ - REPLACEMENT STOP STATEMENT PROCESSOR THAT STOPS THE PROGRAM
;	  WITHOUT PRINTING A MESSAGE AT THE OWNING TERMINAL.  THIS
;	  CHANGES THE EFFECT OF THE STOP STATEMENT TO BE THE SAME AS
;	  A CALL EXIT WITH NO ARGUMENTS.
;
; TO INCLUDE WITH YOUR PROGRAM, ENTER STOP AS AN ARGUMENT TO THE
; LINKER, FORCING IT TO THE ROOT, IF NECESSARY:
;
;	>TKB JUNK=JUNK,STOP
;
;	OR IN AN ODL FILE
;
;		.ROOT	JUNK-STOP-*(SUB1,SUB2,...)
;		:
;		.END
;
; NOTE:	 BECAUSE THE OTS PROCESSES STOP AND PAUSE STATEMENTS IN THE
;	 SAME MODULE, $STPPAU, A PAUSE STATEMENT IN THE SAME PROGRAM
;	 WILL CAUSE THE LINKER TO PRINT THE MESSAGE
;
;	 TKB -- *DIAG*-MODULE $STPPA MULTIPLY DEFINES SYMBOL STOP$
;
;	 WHICH MAY BE IGNORED.
;
;-
;
STOP$::
	MOV	(SP)+,(SP)	; WRITE RETURN ADDR OVER TEXT ADDR
	JMP	$EXIT		; AND EXIT
 
	.END