电子钟程序.txt

单片机程序 51频率计 电子琴 电子钟程序 按键显示程序最终成功

 ORG  0000H
         JMP  main
         ORG  0100H
;************主程序*******************
main:    MOV  R0,#00H;
         MOV  R7,#0FFH
main0:   MOV  @R0,#00H
         INC  R0
         DJNZ R7,main0 
         MOV    R0,#40H
         MOV    TMOD,#01H;选择定时方式1
         MOV    20H,#0AH
         CLR    A
         MOV    40H,A
         MOV    41H,A
         MOV    42H,A
         SETB   ET0
         SETB   EA
         MOV    TH0,#3CH ;定时时间设置为50ms
         MOV    TL0,#0B0H
         SETB   TR0      ;启动定时器
star:    CALL  panjian;调用键盘扫描
star0:   call  fen
         CALL delay
         CALL delay
         CALL disp
         CALL delay
         SJMP   star
IT0P:    PUSH   PSW
         PUSH   A
         MOV    TH0, #3CH
         MOV    TL0,#0B0H
         DJNZ   20H,RETURN
         MOV    20H,#0AH
         MOV    A,01H
         ADD    A,42H
         DA     A
         MOV    42H,A
         CJNE   A,#60,RETURN
         MOV    41H,#00H
         MOV    A,01H
         ADD    A,41H
         DA     A
         MOV    41H,A
         CJNE   A,#60,RETURN
         MOV    41H,#00H
         MOV    A,01H
         ADD    A,40H
         DA     A
         MOV    40H,A
         CJNE   A,#24,RETURN
         MOV    40H,#00H
RETURN:  POP    A
         POP    PSW
         RETI
;*************************************

;****** ******************
panjian:JNB  P2.0,star0
        JB P2.0,$
queding0:JNB  P2.4,jia0
        JB   P2.4,$
        JMP  star
   jia0:JNB  P2.1,jian0
        JB   p2.1,$
        JMP  jia
  jian0:JNB  p2.2,yiwei0
        JB   p2.2,$
        JMP  jian
 yiwei0:JNB  p2.3,queding0
        JB   p2.3,$
        JMP  yiwei
        JMP  queding0

;****** ******************
jia:    MOV  A,@R0
        CJNE A,#60,jia00
        MOV  @R0,#0
        JMP   queding0
  jia00:INC  A
        MOV  @R0,A
        JMP  queding0

;***************************
jian:  MOV  A,@R0
       CJNE A,#0FFH,jian00
       MOV  @R0,#59
       JMP   queding0
jian00:DEC  A
       MOV  @R0,A
       JMP  queding0
;*****************************
yiwei: MOV  A,R0
       INC  A
       CJNE A,#44H,yiwei00
       MOV  @R0,40H
yiwei00:JMP  queding0
;******************************
fen:   MOV  R4,40H
       MOV  R5,41H
       MOV  R6,42H
       MOV  A,R4
       DA   A
       ANL  A,#0FH
       MOV  52H,A
       MOV  A,R4
       DA   A
       SWAP A
       ANL  A,#0FH
       MOV  51H,A
       MOV  A,R5
       DA   A
       ANL  A,#0FH
       MOV  54H,A
       MOV  A,R5
       DA   A
       SWAP A
       ANL  A,#0FH
       MOV  53H,A
       MOV  A,R6
       DA   A
       ANL  A,#0FH
       MOV  56H,A
       MOV  A,R6
       DA   A
       SWAP A
       ANL  A,#0FH
       MOV  55H,A
       RET
;******************************
disp:  MOV  DPTR,#TABLE
       MOV  R1,#51H
       MOV  R7,#0FEH
disp1: MOV  P1,R7
       MOV  A,@R1
       MOVC  A,@A+DPTR
       MOV  P0,A
       MOV  A,R1
       INC  A
       MOV  R1,A
       MOV  A,R7
       RL   A
       MOV  R7,A
       CJNE R1,#57,disp1
       RET
delay: MOV  A,R7
       MOV  B,R6
       PUSH A
       PUSH B
       MOV R7,#010H
  DL0: MOV R6,#010H
  DL60:DJNZ R6,DL60
       DJNZ R7,DL0
       POP B
       POP A
       MOV R7,A
       MOV R6,B
       RET
 TABLE:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,0F8H,80H,90H