; routine:  jbcd2bn

; author:  Bridger Mitchell & Howard Goldstein

; date:  4/16/1988
;
;	BCD to Binary digit routine.
;
; >>	A in bcd
; <<	A in binary
;
; uses d,e, a
	ENTRY	JBCD2BN

	CSEG

;
JBCD2BN:
	push	de
	ld	d,a		;save orig in d
	and	0F0h
	ld	e,a		;save hi nyb in  e
	ld	a,d		;recover orig
	and	a,0Fh		;get low nyb
	srl	e		;*8hi nyb 
	add	a,e		; + 8*hi nyb
	srl	e		;*4
	srl	e		;*2
	add	a,e		;+ 2*hi nyb
	pop	de
	ret	
;