Org	*
Dec_Dptr:
                 MOV   A,DPL                         
                 JZ    DPL_Zero?                        
                 DEC   DPL                           
                 RET
                 
DPL_Zero?:                 
		 DEC   DPH                           
		 Dec 	DPL
                 RET