时钟2

51单片机实验用的程序 希望对你能有所帮助 包括跑马 十进制显 电子琴

ORG  0000H
MOV  TMOD,#10H
MOV  R0,#0H
MOV  DPTR,#TAB
MOV  R1,#0H
MOV  R2,#0H
MOV  R3,#0H
MOV TH1,#03CH   ;计算器定义
MOV TL1,#0B0H
SETB  TR1      ;TR1计时开始
COUN: JBC TF1,MIAO   ;计满则转

MOV  B,#0AH
MOV A,R1
DIV AB


MOVC A,@A+DPTR
mov p2,#0
MOV P1,#10H
MOV  P2,A
MOV  A,B
MOVC A,@A+DPTR
mov p2,#0
MOV  P1,#20H    ;显示秒
MOV  P2,A

MOV  B,#0AH    ;   显示分钟
MOV  A,R2
DIV AB
MOVC A,@A+DPTR
mov p2,#0
MOV  P1,#04H
MOV  P2,A
MOV  A,B
MOVC  A,@A+DPTR
mov p2,#0
MOV  P1,#08H
MOV P2,A

MOV  B,#0AH      ; 显示小时
MOV  A,R3
DIV  AB
MOVC A,@A+DPTR
mov p2,#0
MOV  P1,#01H
MOV  P2,A
MOV  A,B
MOVC A,@A+DPTR
mov p2,#0
MOV  P1,#02H
MOV  P2,A

SJMP COUN
MIAO:INC R0           ;循环20次
CJNE  R0,#14H,COUN
MOV  R0,#0H
CJNE  R1,#3BH,AA     ; 查看秒种到59了没，没到则继续加一
MOV  R1,#0H           ; 到了就清零
INC  R2                ;并且分钟加一
SJMP  FEN
AA:INC R1
FEN:
CJNE  R2,#3BH,SHI       ;同秒种
MOV  R2,#0H
INC  R3

SHI:
CJNE  R3,#17H,COUN    ;查看小时有没有到23，到了则清零
MOV  R3,#0
SJMP  COUN

TAB: DB  3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH
END