Multiply_2_8_bit_numbers.asm

;8085 Program to multiply
;(BxD) 2 8-bit numbers

         MVI C, 00    ;Store 00 in C 
         
         LDA 5000     ;1st value, Load A from memory location 5000
         MOV B, A     ;copy content of A to B
         DCR B        ;Decrement B
         ORA A        ;Check is value in A (or B) is 0 or not
         JZ Exit      ;if Zero, jump to exit
         
         LDA 5001     ;2nd value, Load A from memory location 5001
         MOV D, A     ;copy content of A to D
         ORA A        ;Check if value of A (or D) is 0 or not
         
   Loop: JZ Exit      ;if Zero, jump to exit
         ADD D        ;Add D to A
         JNC NoCarry  ;if carry is not generated, jump to label NoCarry
         INR C        ;if carry is generated, increment C
NoCarry: DCR B        ;decrement B
         JMP Loop     ;Jump to label Loop
         
   Exit: STA 5003     ;store content of A (lower order of result) at memory location 5003
         MOV A, C     ;copy content of C to A
         STA 5002     ;store content of A(higher order of resut) at memory location 5002
         HLT          ;Halt program