title	fatal applications exit
	include	asm.inc

	public	fatal_app_exit

	.const
ertx_fatal		db	'fatal',0

	.code
	extn	set_strerror,perror,exit_with_error


;;	fatal_app_exit
;
;	entry	AX	offset of DGROUP error string
;	note		this function never returns
;
fatal_app_exit proc
	call	set_strerror

	mov	ax,@data
	lea	si,ertx_fatal
	call	perror

	jmp	exit_with_error
fatal_app_exit endp

	end