.TITLE QUIT
	.IDENT /19JAN/
	.MCALL EXST$, DIR$
;
;	ALLOWS A FORTRAN TASK TO EXIT WITH STATUS
;
QUIT::
	MOV @2(R5), R1	;MOVE PARAMETER VALUE INTO R1
;
;	PARAMETER VALUES:
;
;		1) SUCCESS
;		2) WARNING
;		3) ERROR
;		4) SEVERE ERROR
;
	CMP R1, #1
	BNE 1$
	BR ENDXEQ
;
1$:	CMP R1, #2
	BNE 2$
	MOV #EX$WAR, <ABORT+E.XSTS>	;WARNING CONDITION
	BR ENDXEQ
;
2$:	CMP R1, #3
	BNE 3$
	MOV #EX$ERR, <ABORT+E.XSTS>	;ERROR CONDITION
	BR ENDXEQ
;
3$:	MOV #EX$SEV, <ABORT+E.XSTS>	;SEVERE ERROR (ASSUME VALUE OF 4)
;
ENDXEQ:	DIR$ #ABORT
	RTS PC
;
ABORT:	EXST$ EX$SUC
;
	.END