16位乘法汇编语言

DMUL:MOV   A,#7BH
     MOV   B,R5
         MUL   AB
         MOV   R0,A
         MOV   R1,B
         MOV   A,#09H
         MOV   B,R5
         MUL   AB
         ADD   A,R1
         MOV   R1,A
         MOV   A,B
         ADDC  A,#00H
         MOV   R2,A
         MOV   A,#7BH
         MOV   B,#0
         MUL   AB
         ADD   A,R1
         MOV   R1,A
         MOV   A,R2
         ADDC  A,B
         MOV   R2,A
         MOV   A,#00H
         ADDC  A,#00H
         MOV   R3,A
         MOV   A,#09
         MOV   B,#0
         MUL   AB
         ADD   A,R2
         MOV   R2,A
         MOV   A,R3
         ADDC  A,B
         MOV   R3,A
         MOV   B,#16D
         MOV   A,R2
         div   AB
         MOV   33H,A
         MOV   34H,B
         MOV   DPTR,#TAB
         MOVC  A,@A+DPTR
         MOV      P0,#83H         ; 第1行位置    .
         LCALL     ENABLE   
         MOV       R1,A    ;显示缓冲区内容
         LCALL     WRITE
         
         MOV   A,B
         MOV   DPTR,#TAB
         MOVC  A,@A+DPTR
         MOV      P0,#84H         ; 第1行位置    .
         LCALL     ENABLE   
         MOV       R1,A    ;显示缓冲区内容
         LCALL     WRITE
         MOV   B,#16D
         MOV   A,R1
         div   AB
         MOV   35H,A
         MOV   36H,B
         MOV   DPTR,#TAB
         MOVC  A,@A+DPTR
         MOV      P0,#85H         ; 第1行位置    .
         LCALL     ENABLE   
         MOV       R1,A    ;显示缓冲区内容
         LCALL     WRITE
         
         MOV   A,B
         MOV   DPTR,#TAB
         MOVC  A,@A+DPTR
         MOV      P0,#86H         ; 第1行位置    .
         LCALL     ENABLE   
         MOV       R1,A    ;显示缓冲区内容
         CALL     WRITE
         MOV   B,#16D
         MOV   A,R0
         div   AB
         MOV   37H,A
         MOV   38H,B
         MOV   DPTR,#TAB
         MOVC  A,@A+DPTR
         MOV      P0,#87H         ; 第1行位置    .
         LCALL     ENABLE   
         MOV       R1,A    ;显示缓冲区内容
         CALL     WRITE
         
         MOV   A,B
         MOV   DPTR,#TAB
         MOVC  A,@A+DPTR
         MOV      P0,#88H         ; 第1行位置    .
         LCALL     ENABLE   
         MOV       R1,A    ;显示缓冲区内容
         CALL     WRITE