;
; subtract de from hl. Like "DAD d"
; f,h,l
.dsub::	stc
	push	psw
	mov	a,l
	sub	e
	mov	l,a
	mov	a,h
	sbb	d
	mov	h,a
	jnc	dsub1
	pop	psw;		with preset carry
	ret
dsub1:	pop	psw;		clear carry
	cmc
	ret