.define .blm

! Block move
! Expects in de-reg:	size of block
! Expects on stack:	destination address
!			source address

.blm:	pop h
	shld .retadr
	mov h,b
	mov l,c
	shld .bcreg

	pop h		! hl = destination address
	pop b		! bc = source address

1:	ldax b
	mov m,a
	inx b
	inx h
	dcx d
	mov a,d
	ora e
	jnz 1b

	lhld .bcreg
	mov b,h
	mov c,l
	lhld .retadr
	pchl