bcdjiafa.asm

来自「能显示时间」· 汇编 代码 · 共 34 行

ORG 0000H
JMP MAIN
ORG 0030H
MAIN:	MOV R0,#60H
	MOV R1,#65H
	MOV R3,#03H
	MOV 60H,#33H
	MOV 61H,#77H
	MOV 62H,#54H
	MOV 65H,#66H
	MOV 66H,#28H
	MOV 67H,#38H
	LCALL D_BCDADD
	SJMP $
ORG 0200H
D_BCDADD:MOV A,R0
	ADD A,R3
	MOV R0,A
	DEC R0
	MOV A,R1
	ADD A,R3
	MOV R1,A
	DEC R1
	CLR C
CADL_D1:MOV A,@R0
	ADDC A,@R1
	DA A
	MOV @R0,A
	DEC R0
	DEC R1
	DJNZ R3,CADL_D1
RET
END