hex_to_bcd.txt

来自「实现多字节十六进制转化为六进制 简单的汇编语言」· 文本 代码 · 共 42 行

	ORG 0000H
	LJMP MAIN
	ORG 2000H

MAIN:	MOV R2,#20H
	CLR C
LOOP:	MOV R0,#23H
	
	MOV R3,#04H
A0:	MOV A,@R0
	RLC A
	MOV @R0,A	
	DEC R0
	DJNZ R3,A0
	
	MOV R1,#44H
	MOV R4,#05H
A1:	MOV A,@R1
	ADDC A,@R1
	DA A
	MOV @R1,A
	DEC R1
	DJNZ R4,A1
	DJNZ R2,LOOP	
	
	MOV R6,#05H
	MOV R0,#44H
	MOV R1,#39H
A2:	MOV A,@R0
	DEC R0
	MOV R5,A
	ANL A,#0FH
	MOV @R1,A
	DEC R1
	MOV A,R5
	ANL A,#0F0H
	SWAP A
	MOV @R1,A
	DEC R1
	DJNZ R6,A2
	SJMP $
	END