mutil.asm

来自「共有 45 个程序源码」· 汇编 代码 · 共 33 行

DATAPR:  MOV  R0, 
         MOV  A,@R0
         MOV  B, #100
         MUL AB
         MOV  R2,B
         MOV  R3, A
 BDIV:    MOV  R5, #0FFH
          MOV  B, #8
    DIV1: CLR  C
          MOV  A, R3
          RLC  A
          MOV  R3, A
          MOV  A, R2
          RLC  A
          MOV  R2, A
          MOV  PSW.5,C
          CLR  C
          SUBB  A, R5
          JB  PSW.5, DIV2
          JC  DIV3
    DIV2: MOV  R2, A
          INC  R3
    DIV3: DJNZ  B, DIV1
          CJNE  R2, #80H, DN1
     DN1: JC  DN2
          INC  R3
     DN2: MOV  A, R3
          MOV  R1, ARGADR
          MOV  @R1, A