title	Module from library BASE_2 : SETERR
	name	('SETERR')
	maclib	baselib.lib

; Set error mode

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 April 1987

; ENTRY	Accu holds error mode
;	  00H    -> Warm boot on error - default
;	01H..FDH -> Display error, warm boot
;	  FEH    -> Display error, return extended error
;	  FFH    -> Don't display, return extended error

; EXIT	Error mode set

	entry	seterr

	extrn	@ercod

seterr:
	_push_
	ld	(@ercod),a	; Save error mode
	ld	e,a
	_OSCAL_	.errmod		; .. set it
	_pop_
	ret

	end