title	Module from library BASE_1 : MOVE23
	name	('MOVE23')
	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 2 : HL points to source started with count
;		  DE points to destination
;	Level 3 : HL points to source
;		  DE points to destination
;		  C  holds count

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

	entry	move2,move3

; ===== Level 2 entry =====
;
move2:
	ld	c,(hl)		; Get count
	inc	hl
;
; ===== Level 3 entry =====
;
move3:
	push	bc
	ld	b,0		; Clear hi end
	ldir			; Z80 insruction
	pop	bc
	ret

	end