memtMain:
	ld	de, memtEnd
.loop:
	ld	b, 0
.iloop:
	ld	a, b
	ld	(de), a
	ld	a, (de)
	cp	b
	jr	nz, .notMatching
	djnz	.iloop
	inc	de
	xor	a
	cp	d
	jr	nz, .loop
	cp	e
	jr	nz, .loop
	; we rolled over 0xffff, stop
	ld	hl, .sOk
	xor	a
	jp	printstr	; returns
.notMatching:
	ld	hl, .sNotMatching
	call	printstr
	ex	de, hl
	ld	a, 1
	jp	printHexPair	; returns
.sNotMatching:
	.db	"Not matching at pos ", 0xd, 0xa, 0
.sOk:
	.db	"OK", 0xd, 0xa, 0
memtEnd: