多字节无符号整数bcd码运算部分.docVIP

HYPERLINK /cloudstep/archive/2009/07/01/1514686.html asm51汇编子程序（有关多字节无符号整数bcd码运算部分） ;==============================================================================;多字节二进制整数转换为十进制整数子程序NIBTD;入口：R0指向多字节二进制整数高位，R1指向结果多字节十进制整数高位，R7=n;使用A，B，R0~R7，影响CY;==============================================================================NIBTD: MOV A,R0MOV R5,AMOV A,R1MOV R6,AMOV A,R7MOV R3,ACLR ANBD0: MOV @R1,AINC R1DJNZ R3,NBD0MOV A,R7MOV B,#8MUL ABMOV R3,ANBD4: MOV A,R5ADD A,R7DEC AMOV R0,AMOV A,R7MOV R2,ACLR CNBD1: MOV A,@R0RLC AMOV @R0,ADEC R0DJNZ R2,NBD1PUSH PSWMOV A,R6ADD A,R7DEC AMOV R1,APOP PSWMOV A,R7MOV R2,ANBD3: MOV A,@R1ADDC A,@R1DA AMOV @R1,ADEC R1DJNZ R2,NBD3DJNZ R3,NBD4RET;==============================================================================;==============================================================================;多字节十进制整数转换为二进制整数子程序NIDTB;入口：R0指向多字节十进制整数高位，R1指向结果多字节二进制整数高位，R7=n;使用A，B，R0~R7，影响CY;==============================================================================NIDTB: MOV A,R1MOV R6,AMOV A,R7MOV R3,ACLR ANDB0: MOV @R1,AINC R1DJNZ R3,NDB0MOV A,R7MOV R3,ANDB3: CALL NDB1MOV A,@R0ANL A,#0F0HSWAP ACALL NDB2CALL NDB1MOV A,@R0ANL A,#0FHCALL NDB2INC R0DJNZ R3,NDB3RETNDB1: MOV A,R7MOV R4,AMOV A,R6ADD A,R7DEC AMOV R1,ACLR CMOV R2,#0NDB4: MOV A,@R1MOV B,#10PUSH PSWMUL ABPOP PSWADDC A,R2MOV @R1,AMOV R2,BDEC R1DJNZ R4,NDB4RETNDB2: MOV R5,AMOV A,R6ADD A,R7DEC AMOV R1,AMOV A,R7MOV R4,AMOV A,R5ADD A,@R1MOV @R1,ADEC R1DJNZ R4,NDB5RETNDB5: MOV A,@R1ADDC A,#0MOV @R1,ADEC R1DJNZ R4,NDB5RET;==============================================================================;==============================================================================;单字节BCD码转换成压缩BCD码子程序BCDC;入口：R0指向2n个单字节高位，R1指向n个双字节高位，R3=n;使用A，R0，R1，R3;==============================================================================BCDC: MOV A,@R0SWAP AINC R0ORL A,@R0MOV @R1,AIN