红外遥控LED电子钟的制作

      SETB  ET0
      SETB  ET1
      setb  pt0
      SETB  TR0
      SETB  TR1
      SETB  IT0              ;
      SETB  EX0              ;
      CLR  PX0
      ;LCALL SET1302          ;初始化
      MOV  R1,#0C1H          ;取定时参数从1302中
      acall T_6061
      MOV  6AH,A            ;M
      MOV  R1,#0C3H
      ACALL T_6061
      MOV  6BH,A            ;H

MOV  61H,#0
MOV  62H,#0
      SETB  EA
      sjmp  $
;********************************
DISPLAY: PUSH  ACC
        PUSH  PSW
        MOV  TL1,#0e0H          ;wait how long to display (20ms)
        MOV  TH1,#0b0H
        mov  dptr,#tab1
        JB    0EH,DIS2
        JB    0FH,DIS3
        JB    10H,DIS4
        JB    11H,DIS5
        JNB    0DH,D_OUT

        JNB  08H,D_GO          ;定时到时，显示闪烁
        JNB  07H,D_OUT
D_G    MOV  DPTR,#TAB1
        MOV  A,62H
        ANL  A,#0FH
        MOV  B,A
        MOV  A,62H
        SWAP  A
        ANL  A,#07H
        MOVC  A,@A+DPTR
        MOV  P1,A
        CLR  LED1
        LCALL DL2M
        SETB  LED1
        MOV  A,B
        MOVC  A,@A+DPTR
                    MOV  C,07H
                    MOV  acc.7,C  ;秒灯闪烁
        MOV  P1,A
        CLR  LED2
        LCALL DL2M
        SETB  LED2

        mov  dptr,#tab2            ;倒装LED字段表
        MOV  A,61H
        ANL  A,#0FH
        MOV  B,A
        MOV  A,61H
        SWAP  A
        ANL  A,#0FH

        MOVC  A,@A+DPTR

                    MOV  C,07H
                    MOV  acc.6,C  ;秒灯闪烁
        MOV  P1,A
        CLR  LED3CLK
        LCALL DL2M
        SETB  LED3CLK

        mov  dptr,#tab1
        MOV  A,B
        MOVC  A,@A+DPTR
                    MOV  C,06H
                    cpl  c
                    MOV  acc.7,C    ;闹铃指示灯
        MOV  P1,A
        CLR  LED4IO
        LCALL DL2M
        SETB  LED4IO
D_OUT:  SETB  TR1
        POP  PSW
        POP  ACC
        RETI
;*********************
DIS2:    AJMP DIS_2
DIS3:    AJMP DIS_3
DIS4:    AJMP DIS_4
DIS5:    AJMP DIS_5
;********************
DIS_2:  mov  dptr,#tab1            ;显示设置小时
        MOV  6FH,62H
        ACALL BCD_HEX
        MOV  B,#10
        DIV  AB
        MOVC  A,@A+DPTR
        MOV  P1,A
        CLR  LED1
        LCALL DL2M
        SETB  LED1
        MOV  A,B
        MOVC  A,@A+DPTR
        MOV  P1,A
        CLR  LED2
        LCALL DL2M
        SETB  LED2

        SETB  TR1
        POP  PSW
        POP  ACC
        RETI
;*****************
DIS_3:  MOV  DPTR,#TAB2              ;显示设置分
        MOV  6FH,61H
        ACALL BCD_HEX
        MOV  B,#10
        DIV  AB
        MOVC  A,@A+DPTR
        MOV  P1,A
        CLR  LED3CLK
        LCALL DL2M
        SETB  LED3CLK
        MOV  A,B
        MOV  DPTR,#TAB1
        MOVC  A,@A+DPTR
        MOV  P1,A
        CLR  LED4IO
        LCALL DL2M
        SETB  LED4IO

        SETB  TR1
        POP  PSW
        POP  ACC
        RETI
;*****************
DIS_4:  mov    dptr,#tab1          ;显示设置闹时
        JNB  07H,D4_OUT            ;显示时闪烁
        MOV  A,6BH
        MOV  B,#0AH
        DIV  AB
        MOVC  A,@A+DPTR
        MOV  P1,A
        CLR  LED1
        LCALL DL2M
        SETB  LED1
        MOV  A,B
        MOVC  A,@A+DPTR
        MOV  P1,A
        CLR  LED2

上一页  [1] [2] [3] [4] [5] [6]  下一页

本文关键字：制作  电子钟  时钟-定时电路，电子制作 - 时钟-定时电路