idiv.asm

多位数除法程序

          ;除法运算
          ORG 0000H
MAIN:     MOV 39H,#00H
          MOV 38H,#023H
          ACALL DV0
          MOV R3,30H
          MOV R4,39H

DV0:      CLR C
          MOV A,39H
          SUBB A,#22H
          JC DV1
          SETB OV
          RET
DV1:      MOV R6,#08H
DV2:      MOV A,38H
          RLC A
          MOV 38H,A
          MOV A,39H
          RLC A
          MOV 39H,A
          MOV F0,C
          CLR C
          SUBB A,#22H
          ANL C,/F0
          JC DV5
          MOV 39H,A
DV5:      CPL C
          MOV A,30H
          RLC A
          MOV 30H,A
          DJNZ R6,DV2
          MOV A,39H
          ADD A,39H
          JC DV3
          SUBB A,#22H
          JC DV4
DV3:      INC 30H
DV4:      CLR OV
          ;DEC 30H
          RET
          ;
END