dec_div.lst

16位10进制除法程序

010A 2108             93             ajmp    _Main
                      94     
                      95     ;-----------------------------------------------------------------------------
                      96     ; Clear 8051 ram
                      97     ;-----------------------------------------------------------------------------
                      98     ;
010C                  99     ClearMemory:
010C 7840            100                     mov             r0,#40h
010E 7400            101                     mov             a,#00h
                     102     
0110                 103     _ClearMemory:
0110 F6              104                     mov             @r0,a
A51 MACRO ASSEMBLER  DEC_DIV                                                              10/11/2007 15:03:02 PAGE     3

0111 08              105                     inc             r0
0112 B800FB          106                     cjne            r0,#00h,_ClearMemory
                     107     
0115 22              108                     ret
                     109                     ;---------------------------------------------------------------------
                     110     
                     111     ;-----------------------------------------------------------------------------
                     112     ;  FUNCTION NAME: InitProgram
                     113     ;
                     114     ;  DESCRIPTION:
                     115     ;       Initialize Program
                     116     ;
                     117     ;-----------------------------------------------------------------------------
                     118     ;
                     119     ;  ARGUMENTS:    None.
                     120     ;  RETURNS:      Nothing.
                     121     ;  SIDE EFFECTS: 
                     122     ;       clear buffer RAM.
                     123     ;
0116                 124     InitProgram:
0116 7880            125                     mov             r0,#BUF_START
0118 7400            126                     mov             a,#00h
                     127     
011A                 128     _InitProgram:
011A F6              129                     mov             @r0,a
011B 08              130                     inc             r0
011C 04              131                     inc             a
011D B8FFFA          132                     cjne            r0,#BUF_END,_InitProgram
0120 F6              133                     mov             @r0,a
                     134     
0121 22              135                     ret
                     136                     ;---------------------------------------------------------------------
                     137     
                     138     
                     139     ;-----------------------------------------------------------------------------
                     140     ;  FUNCTION NAME: Write
                     141     ;
                     142     ;  DESCRIPTION:
                     143     ;       write data to RAM[80 -- 87] and RAM[90 -- 97]
                     144     ;
                     145     ;-----------------------------------------------------------------------------
                     146     ;
                     147     ;  ARGUMENTS:    None.
                     148     ;  RETURNS:      Nothing.
                     149     ;  SIDE EFFECTS: 
                     150     ;       
                     151     ;
0122                 152     Write: 
0122 7880            153                     mov             r0,#80h
0124 7621            154                     mov             @r0,#21h
0126 08              155                     inc             r0
0127 7639            156                     mov             @r0,#39h
0129 08              157                     inc             r0
012A 7678            158                     mov             @r0,#78h
012C 08              159                     inc             r0
012D 7690            160                     mov             @r0,#90h
012F 08              161                     inc             r0
0130 7612            162                     mov             @r0,#12h
0132 08              163                     inc             r0
0133 7622            164                     mov             @r0,#22h
0135 08              165                     inc             r0
0136 7644            166                     mov             @r0,#44h
0138 08              167                     inc             r0
0139 7655            168                     mov             @r0,#55h
                     169     
013B 7890            170                     mov             r0,#90h
A51 MACRO ASSEMBLER  DEC_DIV                                                              10/11/2007 15:03:02 PAGE     4

013D 7600            171                     mov             @r0,#00h
013F 08              172                     inc             r0
0140 7679            173                     mov             @r0,#79h
0142 08              174                     inc             r0
0143 7621            175                     mov             @r0,#21h
0145 08              176                     inc             r0
0146 7664            177                     mov             @r0,#64h
0148 08              178                     inc             r0
0149 7653            179                     mov             @r0,#53h
014B 08              180                     inc             r0
014C 7653            181                     mov             @r0,#53h
014E 08              182                     inc             r0
014F 7621            183                     mov             @r0,#21h
0151 08              184                     inc             r0
0152 7618            185                     mov             @r0,#18h
                     186     
0154 22              187                     ret
                     188                     ;---------------------------------------------------------------------
                     189     ;-----------------------------------------------------------------------------
                     190     ;  FUNCTION NAME: Dec_div
                     191     ;
                     192     ;  DESCRIPTION:
                     193     ;  this is a dec division program
                     194     ;
                     195     ;
                     196     ;-----------------------------------------------------------------------------
                     197     ;
                     198     ;  ARGUMENTS:    None.
                     199     ;  RETURNS:      Nothing.
                     200     ;  SIDE EFFECTS: 
                     201     ;       
                     202     ;-----------------------------------------------------------------------------
0155                 203     Dec_div: 
                     204                     
0155 79A7            205                     mov             r1,#QUTO_END
0157 7A87            206                     mov             r2,#DIDI_END
0159 7B90            207                     mov             r3,#DIV_START   
015B 7E00            208                     mov             r6,#00h
015D 7F08            209                     mov             r7,#08h
015F 7D08            210                     mov             r5,#08h                         ;