title	Module from library BASE_2 : COMP1
	name	('COMP1')
	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 1 : PC points to destination and source

; EXIT	Zero will be set if elements are equal
;	Otherwise zero will be reset

	entry	comp1

	extrn	@ftcop,comp2

comp1:
	ld	hl,comp2	; Set return address
	jp	@ftcop		; Get operands

	end