bcd shift.lst

此程序是关于将十六进制转化为bcd码的 希望对大家有用

A51 MACRO ASSEMBLER  BCD_SHIFT                                                            06/30/2008 09:55:19 PAGE     1


MACRO ASSEMBLER A51 V7.07
OBJECT MODULE PLACED IN BCD Shift.OBJ
ASSEMBLER INVOKED BY: D:\Program Files\Keil\C51\BIN\A51.EXE BCD Shift.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 753047            4                     MOV             30H,#47H
0007 753136            5                     MOV             31H,#36H
000A 753221            6                     MOV             32H,#21H
000D EF                7     BRLN:   MOV     A,R7                    ;取字节数至R2中 
000E FA                8                     MOV     R2,A 
000F 28                9                     ADD     A,R0                    ;初始化数据指针 
0010 F8               10                     MOV     R0,A 
0011 7B00             11                     MOV     R3,#0                   ;工作单元初始化 
0013 18               12     BRL1:   DEC     R0                              ;调整数据指针 
0014 E6               13                     MOV     A,@R0                   ;取一字节 
0015 C4               14                     SWAP    A                               ;交换十进制高低位 
0016 F6               15                     MOV     @R0,A                   ;存回 
0017 EB               16                     MOV     A,R3                    ;取低字节移出的十进制高位 
0018 D6               17                     XCHD    A,@R0                   ;换出本字节的十进制高位 
0019 FB               18                     MOV     R3,A                    ;保存本字节的十进制高位 
001A DAF7             19                     DJNZ    R2,BRL1                 ;处理完所有字节 
                      20                     END
A51 MACRO ASSEMBLER  BCD_SHIFT                                                            06/30/2008 09:55:19 PAGE     2

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


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

BRL1 . . . . . . .  C ADDR   0013H   A   
BRLN . . . . . . .  C ADDR   000DH   A   


REGISTER BANK(S) USED: 0 


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