title	Module from library BASE_1 : GETERR
	name	('GETERR')
	maclib	baselib.lib

; Get error code

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

;		Version 1.0 September 1991

; ENTRY	None

; EXIT	Accu holds current error code

	entry	geterr

geterr:
	_push_
	_OSCAL_	.scbfun,scbpb	; Get error code
	_pop_
	ret

	dseg

scbpb:
	db	@ERR
	db	_get		; Get code

	end