title	Module from library BASE_3 : SETATT
	name	('SETATT')
	maclib	baselib.lib

; Set file attributes

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

;		Version 1.1 April 1987

; ENTRY	Reg pair <DE> points to FCB

; EXIT	On normal return carry is reset
;	On error carry will be set and extended error
;	will be processed

	entry	setatt

	extrn	@error

setatt:
	_push_
	_OSCAL_	.attr		; Set attribute(s)
	rla			; Fix for error
	ld	a,h		; Get extended error
	_pop_
	jp	@error		; Process error

	end