; 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	
;