home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s225 / 1.ddi / MUL.ASM < prev    next >
Encoding:
Assembly Source File  |  1980-01-01  |  307 b   |  26 lines
  1.     ORG    0000H
  2.     AJMP    AAA
  3.     ORG    0100H
  4. AAA    CLR    C
  5.     MOV    R0,#20H
  6.     MOV    R1,#40H
  7.     MOV    R7,#5
  8. SET0    MOV    @R1,#0
  9.     INC    R1
  10.     DJNZ    R7,SET0
  11.     MOV    R1,#40H
  12.     MOV    R7,#4
  13. BEG    MOV    B,30H
  14.        MOV    A,@R0
  15.     MUL    AB
  16.     ADDC    A,@R1
  17.     MOV    @R1,A
  18.     INC    R1
  19.     MOV    A,B
  20.     ADDC    A,@R1
  21.     MOV    @R1,A
  22.     INC    R0
  23.     DJNZ    R7,BEG
  24. LOOP    SJMP    LOOP
  25.     END
  26.