;*******************************************
;  Description:
;	Subtract Acc From DPTR, 
;   Setting Carry If DPTR Underflows
;
;  Entry Requirements:
;	DPTR Has Value
;	Acc Has Value To Subtract
;
;  On Exit:
;	DPTR = DPTR - Acc, CY Set Accordingly
;
;  Affected:
;	PSW.CY, DPTR
;
;  Stack:
;	1 Bytes
;
;  Comments:
;	Value Of CY On Entry Does Not Affect Result
;
UTIL_SUBBAD	
		push	acc
		clr	c
		xch	a,dpl	
		subb	a,dpl	
		mov	dpl,a	
		mov	a,dph
		subb	a,#000h
		mov	dph,a
		pop	acc
		ret