program to convert hexadecima(8-bit) to BCD

        ORG 000H
        SJMP START
        HUN EQU 30H
        TEN EQU 31H
        UNIT EQU 32H
START : MOV HUN,#00H
        MOV TEN,#00H
        MOV UNIT,#00H
        MOV A,#_H
   UP : CLR C
        SUBB A,#64H
        JC L1
        INC HUN
        SJMP UP1
   L1 : ADD A,#64H
  UP2 : CLR C
        SUBB A,#0AH
        JC L2
        INC TEN
        SJMP UP2
   L2 : ADD A,#0AH
        MOV UNIT,A
 STOP : SJMP STOP
        END