多种进制之间转换 二进制 十进制 八进制.docVIP

正确与否,请自己判别！ 以下都是把原始数据放在R0中，转换之后的数据置于R3或R4中 ;十六进制（二进制）换成ASCII码 ;0—9=30H-39 ;A-F=41H-46H ORG 0000H LJMP MAIN ORG 0100H MAIN:MOV R2,#2AH MOV A,R2 ANL A,#0FH;取低半字节 CJNE A,#10,K2;不相等则转移 K2： JC K1 ADD A,#07H K1: ADD A,#30H MOV R3,A;将结果保存在R3中 MOV A,R2 SWAP A ANL A,#0FH;取高半字节 CJNE A,#10,$+3;不相等则转移 JC K ADD A,#07H K: ADD A,#30H MOV R4,A;将结果保存在R4中 LJMP $ END ;ASCII码换成十六进制（二进制） ;30H--39H=0—9 ;41H--46H=A-F ORG 0000H LJMP MAIN ORG 0100H MAIN:MOV R2,#41H MOV A,R2 CJNE A,#40H,$+3;执行下一条语句，如果A40H,C=1 JC K SUBB A,#07H K: SUBB A,#30H MOV R3,A;将结果保存在R3中 LJMP $ END ;BCD码换成ASCII码 ;0—9=30H-39H ORG 0000H LJMP MAIN ORG 0100H MAIN:MOV R0,#1H MOV R2,#23H MOV A,R2 LOOP:ANL A,#0FH;取低半字节 ADD A,#30H DJNZ R0,K1 MOV R3,A;将结果保存在R3中 MOV A,R2 SWAP A JMP LOOP K1: MOV R4,A LJMP $ END ;将ASCII码换成BCD码,方法（ASCII码=二进制=BCD码 ;0--9=0--9 ;41H--46H=10--15 ORG 0000H LJMP MAIN ORG 0100H MAIN:;MOV R2,#46H;(举例) MOV A,R2 CJNE A,#40H,$+3;执行下一条语句，如果A40H,C=1 JC K SUBB A,#07H K: SUBB A,#30H MOV R3,A;将结果保存在R3中,R3只能是一个字节 MOV A,R3 CJNE A,#10,$+3;不相等则转移 JC K1 DA A K1: MOV R3,A;将结果保存在R3中 LJMP $ END ;十六进（二进制）制换成BCD码 ;0--9=0--9H ;A--F=10--15H ORG 0000H LJMP MAIN ORG 0100H MAIN:MOV R0,#1H ;MOV R2,#2AH;(举例） MOV A,R2 LOOP:ANL A,#0FH;取低半字节 CJNE A,#10,$+3;不相等则转移 JC K DA A k: DJNZ R0,K1 MOV R3,A;将结果保存在R3中 MOV A,R2 SWAP A JMP LOOP K1: MOV R4,A LJMP $ END ;将BCD码转换成十六进制（二进制) ;0--9=0--9 ;10--15=A--F;感觉不需要这一段 ORG 0000H LJMP MAIN ORG 0100H MAIN:;MOV R2,#15H(举例） MOV A,R2 CJNE A,#10H,$+3; JC K SUBB A,#6;感觉不需要 K: MOV R3,A LJMP $ END ;在以2000H为首地址的存储区里存放着20个用ASCII码表示的0－9的数 ;将他们转换成BCD码（即一个单元存放2位BCD码）的形式存放在3000H－3009H单元中? ORG 0000H LJMP MAIN ORG 010