shithub: pokecrystal

ref: d5e1b5a62805f855bb5296bd674c0a9aa47f3eb3
dir: /home/compare.asm/

View raw version 
CompareBytes::
; Compare c bytes at de and hl.
; Return z if they all match.
.loop
	ld a, [de]
	cp [hl]
	ret nz
	inc de
	inc hl
	dec c
	jr nz, .loop
	ret

CompareBytesLong::
; Compare bc bytes at de and hl.
; Return carry if they all match.
.loop
	ld a, [de]
	cp [hl]
	jr nz, .diff

	inc de
	inc hl
	dec bc

	ld a, b
	or c
	jr nz, .loop

	scf
	ret

.diff:
	and a
	ret