d02-text.asm

能显示时间

	ORG 0000H
	AJMP MAIN
	ORG 0030H
MAIN:	MOV SP,#60H
	MOV R7,#01H
	MOV R6,#08H
	MOV R5,#0FFH
L1:	MOV A,R7
	MOV DPTR,#8000H
	MOVX @DPTR,A
	DEC R5
	CJNE R5,#00H,L3
	MOV R5,#0FFH
	SJMP L4
L3:	RL A
L4:	MOV R7,A
	MOV A,R6
	LCALL GET_DISP_SEG
	MOV DPTR,#9000H
	MOVX @DPTR,A
	DEC R6
	CJNE R6, #00H,L2
	MOV R6,#08H
L2:	LCALL DL
	SJMP L1
	
sjmp $

GET_DISP_SEG:
	MOV DPTR,#2000H
	MOVC A,@A+DPTR
	CPL A
	RET

DL:	MOV R3,#01H;	1
	MOV R2,#00H;	1
DL1:	DJNZ R2,DL1;	2
	DJNZ R3,DL1;	2
	RET;		2
	ORG 2000H
	DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
end