; 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: - contains binary number.
; Exit: - contains BCD number.
; Uses: .
;
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