;
; decrement word hl^, advance hl by 1 (to hi byte of m)
; z flag for zero after decrementing
; a,f,h,l
.dcxm::	dcr	m
	mov	a,m
	inx	h
	inr	a
	rnz
	ora	m
	rz;			zero result, no wrap
	dcr	m
	ora	a;		reset any zero flag
	ret