时钟2.asm

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

ORG  0000H
MOV  TMOD,#10H
MOV  R0,#0H
MOV  DPTR,#TAB
MOV  R1,#0H
MOV  R2,#0H
MOV  R3,#0H
MOV  R4,#4H
MOV  R5,#4H
MOV  R6,#5H
MOV TH1,#03CH   ;计算器定义
MOV TL1,#0B0H
SETB  TR1      ;TR1计时开始
COUN: JBC TF1,MIAO   ;计满则转
CJNE  A,#1H,XIANDIAN
MOV  A,R5
MOV  R0,A
MOV  A,R6
MOV  R7,A
MOV  A,R4
XIANDIAN:
MOV  A,R2
MOV  R0,A
MOV  A,R3
MOV  R7,A
MOV  A,R1
MOV  B,#0AH
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,R0
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,R7
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
ZHONG2: SJMP  COUN
AA:INC R1
FEN:
ZHONG:CJNE  R2,#3BH,SHI       ;同秒种
MOV  R2,#0H
INC  R3





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

INC  R4
CJNE  R5,#1,ER
MOV  A,#1FH
SJMP  CHU
ER: 
CJNE  R5,#3,SAN
MOV  A,#1FH
SAN:
CJNE  R5,#4,SI
MOV  A,#1EH
SJMP  CHU
SI:
CJNE  R5,#5H,WU
MOV  A,#1FH
SJMP  CHU
WU:
CJNE  R5,#6,LIU
MOV  A,#1EH
SJMP  CHU
LIU:
CJNE  R5,#7,QI
MOV  A,#1FH
SJMP  CHU

QI:
CJNE  R5,#8,BA
MOV  A,#1FH
SJMP  CHU
BA:
CJNE R5,#9,JIU
MOV  A,#1EH
SJMP  CHU
JIU:
CJNE  R5,#0AH,SHI2
MOV A ,#1FH
SJMP  CHU
SHI2:
CJNE  R5,#0BH,SHIY
MOV A,#1EH
SJMP  CHU
SHIY:
CJNE  R5,#0CH,SHIE
MOV  A,#1FH
SJMP  CHU
SHIE:
MOV  A,R6
MOV  B,#4
DIV  AB
MOV  A,B
CJNE  A,#0,PING
MOV  A,#1DH
SJMP  CHU
PING:
MOV  A,#1CH
CHU:
MOV  99H,@R4
CJNE  A,99,YUE
MOV  R4,#0
INC  R5
YUE:
CJNE  R5,#0CH,NIAN
MOV  R5,#0
INC  R6
NIAN:
CJNE  R6,#64H,ZHONG
MOV  R6,#0
MOV   PO,#0FFH
MOV  A,PO
ANL  A,#1H


SJMP  ZHONG2

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