双字节x双字节为四字节.txt

来自「共有 45 个程序源码」· 文本 代码 · 共 35 行

 ; *** 双字节X双字节  这里将被除数X1000再去除以总合格台数据
   ; **   R2高R3低放被乘数    R6高R7低放乘数  乘积放R4高\R5\R6\R7低中
  DBMUL:  MOV  A,R3
          MOV  B,R7
          MUL  AB
          XCH  A,R7
          MOV  R5,B
          MOV  B,R2
          MUL  AB
          ADD  A,R5
          MOV  R4,A
          CLR  A
          ADDC  A,B
          MOV  R5,A
          MOV  A,R6
          MOV  B,R3
          MUL  AB
          ADD  A,R4
          XCH  A,R6
          XCH  A,B
          ADDC  A,R5
          MOV  R5,A
          MOV  PSW.5,C
          MOV  A,R2
          MUL  AB
          ADD  A,R5
          MOV  R5,A
          CLR  A
          MOV  ACC.0,C
          MOV  C,PSW.5
          ADDC  A,B
          MOV  R4,A
          RET