title	Module from library HILIB_1 : STRCMP
	name	('STRCMP')
	maclib	baselib.lib

; Language : PASCAL

; Compare strings

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

;		Version 1.0, October 1993

; ENTRY	Reg pair HL points to first  string closed by zero
;	Reg pair DE points to second string closed by zero

; EXIT	Zero  flag indicates same strings
;	Carry flag indicates 1st string greater 2nd string

	entry	strcmp

strcmp:
	ld	a,(de)
	sub	(hl)		; Compare
	ret	nz		; .. no same
	or	(hl)		; Test end
	ret	z		; .. yeap
	inc	de
	inc	hl
	jr	strcmp

	end