clock.asm

单片机MSC51设计的5个源程序：1、数据排序2、多功能数字钟设计3、P1口循环亮灯设计4、脉冲计数器5、8250芯片串口扩展。另附程序详细介绍。

	ORG 0000H
	LJMP CHK0
	ORG 000BH
	LJMP CLOCK
	ORG 0030H
CHK0:	MOV SP,#60H
	LCALL LCK0
	LCALL PTDS0
	MOV TMOD,#01H
	ORL IE,#82H
	MOV TL0,#0B7H
	MOV TH0,#0CH
	MOV 23H,#00H
	SETB TR0
LOO5:	LCALL SSEE
	LCALL PTDS0
	SJMP LOO5
PTDS0: 	MOV R0,#79H
	MOV A,22H
	ACALL PTDS
	MOV A,21H
	ACALL PTDS
	MOV A,20H
	ACALL PTDS
	RET
PTDS:	MOV R1,A
	ACALL PTDS1
	MOV A,R1
	SWAP A
PTDS1: 	ANL A,#0FH
	MOV @R0,A
	INC R0
	RET
CLOCK: 	MOV TL0,#0B7H
	MOV TH0,#3CH
	PUSH PSW
	PUSH ACC
	SETB 0D3H
	INC 23H
	MOV A,23H
	CJNE A,#0AH,DONE
	MOV 23H,#00H
	MOV A,22H
	INC A
	DA A
	MOV 22H,A
	CJNE A,#60H,DONE
	MOV 22H,#00H
	MOV A,21H
	INC A
	DA A
	MOV 21H,A
	CJNE A,#60H,DONE
	MOV 21H,#00H
	MOV A,20H
	INC A
	DA A
	MOV 20H,A
	CJNE A,#24H,DONE
	MOV 20H,#00H
DONE:	POP ACC
	POP PSW
	RETI
	ORG 0D50H
SSEE:	SETB RS1
	MOV R5,#05H
SSE2:	MOV 30H,#20H
	MOV 31H,#7EH
	MOV R7,#06H
SSE1:	MOV R1,#21H
	MOV A,30H
	MOVX @R1,A
	MOV R0,31H
	MOV A,@R0
	MOV DPTR,#DDFF
	MOVC A,@A+DPTR
	MOV R1,#22H
	MOVX @R1,A
	MOV A,30H
	RR A
	MOV 30H,A
	DEC 31H
	MOV A,#0FFH
	MOVX  @R1,A
	DJNZ R7,SSE1
	DJNZ R5,SSE2
	CLR RS1
	RET
DDFF: 	DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
	DB 88H,83H,0C6H,0A1H,86H,8EH,0FFH,0CH,89H,0DEH
	ORG 1D00H
X3:	MOV R4,A
	MOV R0,#59H
	MOVX A,@R0
	MOV R1,A
	MOV A,R4
	MOV @R1,A
	CLR A
	POP DPH
	POP DPL
	MOVC A,@A+DPTR
	INC DPTR
	CJNE A,01H,X30
	CLR A
	MOVC A,@A+DPTR
X31:	MOVX @R0,A
	INC DPTR
	PUSH DPL
	PUSH DPH
	RET
X30:	DEC R1
	MOV A,R1
	SJMP X31
X2:	MOV R6,#50H
X0:	ACALL XLE
	JNB ACC.5,XX0
	DJNZ R6,X0
	MOV R6,#20H
	MOV R0,#59H
	MOVX A,@R0
	MOV R0,A
	MOV A,@R0
	MOV R7,A
	MOV A,#10H
	MOV @R0,A
X1:	ACALL XLE
	JNB ACC.5,XX1
	DJNZ R6,X1
	MOV A,R7
	MOV @R0,A
	SJMP X2
XX1:	MOV R6,A
	MOV A,R7
	MOV @R0,A
	MOV A,R6
XX0:	RET
XLE:	ACALL DIS
	ACALL KEY
	MOV R4,A
	MOV R1,#48H
	MOVX A,@R1
	MOV R2,A
	INC R1
	MOVX A,@R1
	MOV R3,A
	MOV A,R4
	XRL A,R3
	MOV R3,04H
	MOV R4,02H
	JZ X10
	MOV R2,#88H
	MOV R4,#88H
X10:	DEC R4
	MOV A,R4
	XRL A,#82H
	JZ X11
	MOV A,R4
	XRL A,#0EH
	JZ X11
	MOV A,R4
	ORL A,R4
	JZ X12
	MOV R4,#20H
	DEC R2
	SJMP X13
X12:	MOV R4,#0FH
x11:	MOV R2,04H
	MOV R4,03H
X13:	MOV R1,#48H
	MOV A,R2
	MOVX @R1,A
	INC R1
	MOV A,R3
	MOVX @R1,A
	MOV A,R4
	RET
LS3:	DB 07H,04H,08H,05H,09H,06H,0AH
	DB 0BH,01H,00H,02H,0FH,03H,0EH
	DB 0CH,0DH
DIS:	PUSH DPH
	PUSH DPL
	SETB RS1
	MOV R0,#7EH
	MOV R2,#20H
	MOV R3,#00H
	MOV DPTR,#LS0
LS2:	MOV A,@R0
	MOVC A,@A+DPTR
	MOV R1,#22H
	MOVX  @R1,A
	MOV A,R2
	DEC R1
	MOVX @R1,A
	DEC R0
LS1:	DJNZ R3,LS1
	CLR C
	RRC A
	MOV R2,A
	JNZ LS2
	INC R1
	MOV A,#0FFH
	MOVX @R1,A
	CLR RS1
	POP DPL
	POP DPH
	RET
LS0:	DB  0C0H,0F9H,0A4H,0B0H,99H,92H
	DB  82H,0F8H,80H,90H,88H,83H,0C6H
	DB  0A1H,86H,8EH,0FFH,0CH,89H,7FH,0BFH
KEY:	SETB RS1
	MOV R2,#0FEH
	MOV R3,#08H
	MOV R0,#00H
LP1:	MOV A,R2
	MOV R1,#21H
	MOVX @R1,A
	RL A
	MOV R2,A
	MOV R1,#23H
	MOVX A,@R1
	CPL A
	ANL A,#0FH
	JNZ LP0
	INC R0
	DJNZ R3,LP1
	MOVX A,@R1
	JB ACC.4,XP33
	MOV A,#19H
	SJMP XP3
XP33:	MOV A,#20H
XP3:	CLR RS1
	RET
LP0:	CPL A
	JB ACC.0,XP0
	MOV A,#00H
	SJMP LPP
XP0:	JB ACC.1,XP1
	MOV A,#08H
	SJMP LPP
XP1:	JB ACC.2,XP2
	MOV A,#10H
	SJMP LPP
XP2:	JB ACC.3,XP33
	MOV A,#18H
LPP:	ADD A,R0
	CLR RS1
	CJNE A,#10H,LX0
LX0:	JNC XP35
	MOV DPTR,#LS3
	MOVC A,@A+DPTR
XP35:	RET
LCK0:	LCALL X1
	JNC LCK1
	LCALL X3
	MOV R1,#7EH
	SJMP LCK0
LCK1:	CJNE A,#16H,LCK0
	MOV A,7AH
	SWAP A
	ORL A,79H
	MOV 22H,A
	CJNE A,#60H,LCK2	
LCK2:	JNC EXIT
	MOV A,7CH
	SWAP A
	ORL A,7BH
	MOV 21H,A
	CJNE A,#60H,CLK3
CLK3:	JNC EXIT
	MOV A,7EH
	SWAP A
	ORL A,7DH
	MOV 20H,A
	CJNE A,#24H,CLK4
CLK4:	JNC EXIT
	RET
EXIT:	AJMP LCK0
	END