.org userMem - 2
	.db $bb, $6d

	ld hl,prog_to_test
	rst rMOV9TOOP1
	B_CALL ChkFindSym
	ret c
	ld a,b
	or a
	ret nz

	ex de,hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	inc hl

	B_CALL MD5Init
	B_CALL MD5Update
	B_CALL MD5Final

	ld hl,MD5Hash
	ld b,16
displayloop:
	call dispdigit
	call dispdigit
	inc hl
	djnz displayloop
	ret

dispdigit:
	rld
	or $F0
	daa
	add a,$A0
	adc a,$40
	B_CALL PutC
	ret

prog_to_test:
	.db ProgObj, "TESTZ80", 0