Home     Projects     Micro     Tools     Delphi     Developer     Site map
HOME  
 
 
       
Multiply DPTR By 10

DOWNLOAD    MAIN
;******************************************
;  Description:
;	Multiply DPTR By 10.  
;	Return CY == 1 If Overflow
;
;  Entry Requirements:
;	DPTR Has Value To Multiply By 10
;
;  On Exit:
;	DPTR = DPTR * 10
;
;  Affected:
;	PSW.CY, DPTR
;
;  Stack:
;	3 Bytes
;
;  Comments:
;	None
;
UTIL_DPTRX10	
		push	b
		push	acc
		mov	a,dpl	
		mov	b,#10
		mul	ab
		mov	dpl,a	
		push	b
		mov	a,dph
		mov	b,#10
		mul	ab
		pop	b
		add	a,b
		mov	dph,a
		pop	acc
		pop	b
		ret

Copyright(c) 2005-2008 sixca.com, All right reserved.
Best view @ 800X600, IE 6.0 up   
Terms of Use  Privacy Policy