wbk.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  B,#0AH
MOV A,R4
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,R5
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,R6
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
LJMP  COUN


XIANDIAN:


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

LJMP 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