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

; Move name of FCB

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

;		Version 1.0 April 1987

; ENTRY	Reg pair DE points to main FCB
;	Reg pair HL points to new FCB name field

; EXIT	Name of new FCB moved to main FCB+16
;	(second name field)

	entry	@mvnam

@mvnam:
	_push_
	ex	de,hl
	ld	bc,DIRlen	; Set length
	add	hl,bc		; Set pointer
	ex	de,hl
	ldir			; Unpack
	_pop_
	ret

	end