#include "mc8051fun.h"

/*
 * C-Wrapper for long_tobcd
 */

void long_tobcd(__idata uint8_t *binval, __idata uint8_t *bcdval, uint8_t binlen, uint8_t bcdlen) __reentrant
{
	(void)binval;
	(void)bcdval;
	(void)binlen;
	(void)bcdlen;

	__asm
	mov	a,_bp
	add	a,#0xfd
	mov	r0,a
	mov	a,@r0
	mov	r1,a
	dec	r0
	mov	a,@r0
	mov	r7,a
	dec	r0
	mov	a,@r0
	mov	r6,a
	mov	r0,dpl
	lcall	long_tobcd
			
	__endasm;
}