idiv.lst

多位数除法程序

A51 MACRO ASSEMBLER      IDIV                                                                DATE  21/08/03   PAGE     1


MS-DOS MACRO ASSEMBLER A51 V4.4 
OBJECT MODULE PLACED IN E:\PROGRAM\DIV\IDIV.OBJ
ASSEMBLER INVOKED BY:  A51 E:\PROGRAM\DIV\IDIV.ASM DB SB

LOC  OBJ            LINE     SOURCE

                       1               ;除法运算
0000                   2               ORG 0000H
0000 753900            3     MAIN:     MOV 39H,#00H
0003 753823            4               MOV 38H,#023H
0006 110C              5               ACALL DV0
0008 AB30              6               MOV R3,30H
000A AC39              7               MOV R4,39H
000C C3                8     DV0:      CLR C
000D E539              9               MOV A,39H
000F 9422             10               SUBB A,#22H
0011 4003             11               JC DV1
0013 D2D2             12               SETB OV
0015 22               13               RET
0016 7E08             14     DV1:      MOV R6,#08H
0018 E538             15     DV2:      MOV A,38H
001A 33               16               RLC A
001B F538             17               MOV 38H,A
001D E539             18               MOV A,39H
001F 33               19               RLC A
0020 F539             20               MOV 39H,A
0022 92D5             21               MOV F0,C
0024 C3               22               CLR C
0025 9422             23               SUBB A,#22H
0027 B0D5             24               ANL C,/F0
0029 4002             25               JC DV5
002B F539             26               MOV 39H,A
002D B3               27     DV5:      CPL C
002E E530             28               MOV A,30H
0030 33               29               RLC A
0031 F530             30               MOV 30H,A
0033 DEE3             31               DJNZ R6,DV2
0035 E539             32               MOV A,39H
0037 2539             33               ADD A,39H
0039 4004             34               JC DV3
003B 9422             35               SUBB A,#22H
003D 4002             36               JC DV4
003F 0530             37     DV3:      INC 30H
0041 C2D2             38     DV4:      CLR OV
                      39               ;DEC 30H
0043 22               40               RET
                      41               ;
                      42     END
                             
A51 MACRO ASSEMBLER      IDIV                                                                DATE  21/08/03   PAGE     2


SYMBOL TABLE LISTING
------ ----- -------


N A M E     T Y P E  V A L U E   ATTRIBUTES

DV0. . . .  C ADDR   000CH   A
DV1. . . .  C ADDR   0016H   A
DV2. . . .  C ADDR   0018H   A
DV3. . . .  C ADDR   003FH   A
DV4. . . .  C ADDR   0041H   A
DV5. . . .  C ADDR   002DH   A
F0 . . . .  B ADDR   00D0H.5 A
MAIN . . .  C ADDR   0000H   A
OV . . . .  B ADDR   00D0H.2 A


REGISTER BANK(S) USED: 0

ASSEMBLY COMPLETE, NO ERRORS FOUND