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

; Compare source and destination elements

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

;		Version 2.1 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	Zero will be set if elements are equal
;	Otherwise zero will be reset

	entry	comp2,comp3

; ===== Level 2 entry =====
;
comp2:
	ld	c,(hl)		; Get count
;
; ===== Level 3 entry =====
;
incm:
	inc	hl
comp3:
	ld	a,(de)		; Get value
	cp	(hl)		; Compare
	ret	nz		; Return unequal flag
	inc	de
	dec	c
	jr	nz,incm
	ret			; Return equal flag

	end