bcd add.lst

Proteus在MCS-51％26ARM7系统中的应用百例 Proteus在MCS-51％26ARM7系统中的应用百例

A51 MACRO ASSEMBLER  BCD_ADD                                                              07/22/2006 11:05:18 PAGE     1


MACRO ASSEMBLER A51 V8.00
OBJECT MODULE PLACED IN BCD Add.OBJ
ASSEMBLER INVOKED BY: E:\Keil\C51\BIN\A51.EXE BCD Add.asm SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

0000                   1                     ORG             00H
0000 7F03              2                     MOV             R7,#03H
0002 7830              3                     MOV             R0,#30H
0004 7934              4                     MOV             R1,#34H
                       5     
0006 753068            6                     MOV     30H,#68H
0009 753155            7                     MOV     31H,#55H
000C 753298            8                     MOV     32H,#98H
000F 753455            9                     MOV     34H,#55H
0012 753523           10                     MOV     35H,#23H
0015 753664           11                     MOV     36H,#64H
                      12     
0018 EF               13     BCDA:   MOV     A,R7            ;取字节数至R2中 
0019 FA               14                     MOV     R2,A 
001A 28               15                     ADD     A,R0            ;初始化数据指针 
001B F8               16                     MOV     R0,A 
001C EA               17                     MOV     A,R2 
001D 29               18                     ADD     A,R1            ;高位字节相加
001E F9               19                     MOV     R1,A 
001F C3               20                     CLR     C 
0020 18               21     BCD1:   DEC     R0                      ;调整数据指针 
0021 19               22                     DEC     R1 
0022 E6               23                     MOV     A,@R0 
0023 37               24                     ADDC    A,@R1           ;按字节相加 
0024 D4               25                     DA              A                       ;十进制调整 
0025 F6               26                     MOV     @R0,A           ;和存回[R0]中 
0026 DAF8             27                     DJNZ    R2,BCD1         ;处理完所有字节 
0028 80FE             28                     SJMP    $
                      29                     END 
A51 MACRO ASSEMBLER  BCD_ADD                                                              07/22/2006 11:05:18 PAGE     2

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


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

BCD1 . . . . . . .  C ADDR   0020H   A   
BCDA . . . . . . .  C ADDR   0018H   A   


REGISTER BANK(S) USED: 0 


ASSEMBLY COMPLETE.  0 WARNING(S), 0 ERROR(S)