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

; Move source to destination

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

;		Version 2.2 May 1987

; ENTRY	Level 1 : PC points to destination and source

; EXIT	HL points to last byte of source
;	DE points to first byte behind end of destination

	entry	move1

	extrn	@ftcop,move2

move1:
	ld	hl,move2	; Set return address
	jp	@ftcop		; Get operands

	end