Sorry the last menssage was send not terminated.
For BCD separate nibles
push a
anl a,#0fh
mov units,a
pop a
swap a
anl a,#0fh
mov Tens,a