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

; Simple data for file error processing

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

;		Version 1.0 September 1991
;		(Isolated from routine ERROR)

; 	@ERCOD and ERRPC set properly - default zero

	entry	@ercod,errpc

	dseg

errpc:
	dw	0		; Error control address
@ercod:
	db	0		; Current error code

	end