; Library:	ZSLIB
; Version:	1.0
; Module:	ZSBINBCD
; Version:	1.0
; Author:	Carson Wilson
; Date:		December 30, 1988
; Purpose:	Convert binary number to BCD
; Comments:	Adapted from BYE510.ASM

	PUBLIC	BINBCD

;
; BINBCD - Convert binary number to BCD
;
;	Entry:	<A> - contains binary number.
;	Exit:	<A> - contains BCD number.
;	Uses:	<AF>.
;
BINBCD:
	push	de
	ld	e,255		; -1
BLP:	inc	e		; Increment tens counter
	sub	10		; Subtract 10 each pass
	jr	nc,BLP
	add	a,10		; Get back number
	ld	d,a
	ld	a,e
	rlca			; Shift over to MSN
	rlca
	rlca
	rlca
	add	a,d		; Add in ones position
	pop	de
	ret

; End ZSBINBCD.Z80