; ABORT - VAL DEFAULT USER ABORT ROUTINE
; LAST EDIT:	11-SEP-80
;
;-
.NLIST
.LIST	TTM
.NLIST	BEX
.LIST
.TITLE	ABORT
;
.IDENT	/V003/
;
;+
;
; THIS ROUTINE IS LINKED BY DEFAULT IF NO EXPLICIT
; ROUTINE NAMED 'ABORT' IS PROVIDED.
; IT IS CALLED WHEN EITHER CTRL-A OR CTRL-G ARE TYPED
; IN RESPONCE TO A VAL INPUT REQUEST.
;
; THIS MODULE SIMPLY PRINTS A MESSAGE AND CALLS FINISH.
; TO PERFORM MORE COMPLEX PROCESSING AFTER AN ABORT
; EITHER INCLUDE A MODULE NAMED ABORT AT LINK TIME
; OR SPECIFY A NEW ROUTINE VIA A CALL TO VALSAV.
;
; ABORT IS ENTERED BY A CALL WITH NO ARGUMENTS.
; TO CONTINUE PROCESSING OF THE INPUT REQUEST SIMPLY RETURN.
; NO VAL INPUT ROUTINES MAY BE CALLED WITHIN AN ABORT PROCESSOR
; HOWEVER ANY OTHER CALLS MAY BE ISSUED SUCH AS FILE CLOSE
; ROUTINES AND FINISH.
;
;
;
;-
;
.PSECT	VALCTL
;
ABORT::	MOV	#ABOBLK,R5
	CALL	OUTS
	MOV	#FBLK,R5
	CALL	FINISH
	RETURN
;
;
ABOBLK:	.WORD	1,ABOMES
FBLK:	.WORD	0
ABOMES:	.ASCIZ	/VAL - USER ABORT /
	.EVEN
	.END
;