at89c2051system-on-chipdigitalclocksourcecode.txt

来自「基于AT89C2051单片机时钟设计程序」· 文本 代码 · 共 300 行 · 第 1/2 页

                                       INC  R0          ;指向当前地址单元
                                       SWAP  A           ;A中数据高四位与低四位交换
                                       ANL   A,#0FH      ;高四位变0
                                       MOV  @R0,A       ;数据放入当削地址单元中
                                       RET                  ;子程序返回
                       ;
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    ;;           清零程序                  ;;
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    ;对计时单元复零用
                            CLR0: CLR   A           ;清累加器
                                       MOV   @R0,A       ;清当前地址单元
                                       DEC   R0          ;指向前一地址
                                       MOV   @R0,A       ;前一地址单元清0
                                       RET                      ;子程序返回
                    ;
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    ;;           时钟调整程序              ;;
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    ;当调时按键按下时进入此程序
                        SETMM:  cLR   ET0            ;关定时器T0中断
                                       CLR   TR0            ;关闭定时器T0
                                       LCALL   DL1S           ;调用1秒延时程序
                                       JB    P3.7,CLOSEDIS  ;键按下时间小于1秒，关闭显示（省电）
                                       MOV   R2,#06H        ;进入调时状态，赋闪烁定时初值
                                       SETB  ET1            ;允许T1中断
                                       SETB  TR1            ;开启定时器T1
                           SET2:  JNB   P3.7,SET1      ;P3.7口为0（键未释放），等待
                                       SETB   00H            ;键释放，分调整闪烁标志置1
                           SET4:  JB    P3.7,SET3      ;等待键按下
                                       LCALL    DL05S          ;有键按下，延时0.5秒
                                       JNB     P3.7,SETHH     ;按下时间大于0.5秒转调小时状态
                                       MOV   R0,#77H        ;按下时间小于0.5秒加1分钟操作
                                       LCALL  ADD1           ;调用加1子程序
                                       MOV   A,R3           ;取调整单元数据
                                       CLR   C              ;清进位标志
                                       CJNE  A,#60H,HHH     ;调整单元数据与60比较
                              HHH: JC   SET4           ;调整单元数据小于60转SET4循环
                                       LCALL  CLR0           ;调整单元数据大于或等于60时清0
                                       CLR   C              ;清进位标志
                                       AJMP   SET4           ;跳转到SET4循环
                     CLOSEDIS:SETB   ET0           ;省电（LED不显示）状态。开T0中断
                                       SETB   TR0           ;开启T0定时器（开时钟）
                     CLOSE:     JB     P3.7,CLOSE    ;无按键按下，等待。
                                       LCALL  DISPLAY       ;有键按下，调显示子程序延时削抖
                                       JB     P3.7,CLOSE     ;是干扰返回CLOSE等待
                      WAITH:     JNB    P3.7,WAITH     ;等待键释放
                                       LJMP   START1         ;返回主程序（LED数据显示亮）
                        SETHH:  CLR    00H           ;分闪烁标志清除（进入调小时状态）
                      SETHH1:  JNB   P3.7,SET5      ;等待键释放
                                       SETB         01H            ;小时调整标志置1
                           SET6:  JB    P3.7,SET7      ;等待按键按下
                                       LCALL    DL05S          ;有键按下延时0.5秒
                                       JNB     P3.7,SETOUT    ;按下时间大于0.5秒退出时间调整
                                       MOV   R0,#79H       ;按下时间小于0.5秒加1小时操作
                                       LCALL   ADD1            ;调加1子程序
                                       MOV   A,R3            ;
                                       CLR   C                ;
                                       CJNE  A,#24H,HOUU      ;计时单元数据与24比较
                          HOUU:  JC   SET6             ;小于24转SET6循环
                                       LCALL  CLR0             ;大于或等于24时清0操作
                                       AJMP   SET6             ;跳转到SET6循环
                       SETOUT: JNB    P3.7,SETOUT1     ;调时退出程序。等待键释放
                                       LCALL  DISPLAY          ;延时削抖
                                       JNB    P3.7,SETOUT      ;是抖动，返回SETOUT再等待
                                       CLR    01H              ;清调小时标志
                                       CLR    00H              ;清调分标志
                                       CLR    02H              ;清闪烁标志
                                       CLR    TR1              ;关闭定时器T1
                                       CLR    ET1              ;关定时器T1中断
                                       SETB   TR0              ;开启定时器T0
                                       SETB   ET0              ;开定时器T0中断（计时开始）
                                       LJMP  START1           ;跳回主程序
                           SET1:  LCALL    DISPLAY          ;键释放等待时调用显示程序（调分）
                                       AJMP     SET2             ;防止键按下时无时钟显示
                           SET3:  LCALL    DISPLAY          ;等待调分按键时时钟显示用
                                       AJMP     SET4
                           SET5:  LCALL    DISPLAY          ;键释放等待时调用显示程序（调小时）
                                       AJMP     SETHH1           ;防止键按下时无时钟显示
                           SET7:  LCALL    DISPLAY          ;等待调小时按键时时钟显示用
                                       AJMP     SET6
                     SETOUT1:  LCALL    DISPLAY          ;退出时钟调整时键释放等待
                                        AJMP    SETOUT           ;防止键按下时无时钟显示
                    ;
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    ;;           显示程序                  ;;
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    ; 显示数据在70H-75H单元内，用六位LED共阳数码管显示，P1口输出段码数据，P3口作
                    ; 扫描控制，每个LED数码管亮1MS时间再逐位循环。
                       DISPLAY: MOV   R1,#70H       ;指向显示数据首址
                                       MOV   R5,#0FEH      ;扫描控制字初值
                            PLAY: MOV   A,R5          ;扫描字放入A
                                       MOV   P3,A          ;从P3口输出
                                       MOV   A,@R1         ;取显示数据到A
                                       MOV   DPTR,#TAB     ;取段码表地址
                                       MOVC  A,@A+DPTR     ;查显示数据对应段码
                                       MOV   P1,A          ;段码放入P1口
                                       LCALL  DL1MS         ;显示1MS
                                       INC   R1            ;指向下一地址
                                       MOV   A,R5            ;扫描控制字放入A
                                       JNB   ACC.5,ENDOUT    ;ACC.5=0时一次显示结束
                                       RL   A               ;A中数据循环左移
                                       MOV   R5,A            ;放回R5内
                                       AJMP  PLAY            ;跳回PLAY循环
                      ENDOUT: SETB  P3.5            ;一次显示结束，P3口复位
                                       MOV    P1,#0FFH       ;P1口复位
                                       RET                      ;子程序返回
                              TAB: DB 
                    0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH
                    ;共阳段码表          "0""1""2" "3""4""5""6""7" "8""9""不亮"
                    ;
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    ;;           延时程序                  ;;
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                    ;
                    ;1MS延时程序，LED显示程序用
                           DL1MS: MOV  R6,#14H
                              DL1:   MOV  R7,#19H
                              DL2:   DJNZ  R7,DL2
                                        DJNZ  R6,DL1
                                        RET
                    ;20MS延时程序，采用调用显示子程序以改善LED的显示闪烁现象
                       DS20MS: ACALL   DISPLAY
                                       ACALL  DISPLAY
                                       ACALL  DISPLAY
                                       RET
                    ;延时程序，用作按键时间的长短判断
                          DL1S:   LCALL      DL05S
                                       LCALL      DL05S
                                       RET
                        DL05S:   MOV        R3,#20H      ;8毫秒*32=0.196秒
                       DL05S1:  LCALL      DISPLAY
                                       DJNZ       R3,DL05S1
                                       RET
                    ;
                                       END                     ;程序结束