Multiplication by shift left & add method

14. Program to implement multiplication by shift left & add method.
   4100    21 00 50     LXI H,05000H    4103    5E           MOV E,M    4104    16 00        MVI D,00H    4106    23           INX H    4107    7E           MOV A,M    4108    21 00 00     LXI H,0000H    410B    06 08        MVI B,08H    410D    29          LOOP1: DAD H    410E    17           RAL    410F    D2 13 41     JNC J1    4112    19           DAD D    4113    05          J1: DCR B    4114    C2 0D 41     JNZ LOOP1    4117    22 06 50     SHLD 5006H    411A    76           HLT