采用实时时钟芯片DS1302+AT89C2051的红外遥控LED电子时钟单片机汇编程序 -

标题: 采用实时时钟芯片DS1302+AT89C2051的红外遥控LED电子时钟单片机汇编程序 [打印本页]

作者: yuanyuananfang0 时间: 2024-5-7 09:57
标题: 采用实时时钟芯片DS1302+AT89C2051的红外遥控LED电子时钟单片机汇编程序
;DS1302+AT89C2051的LED钟电路原理图如下：

单片机源程序如下:
;遥控器各按键数据码,可根据不同的遥控器修改对应的键码
muteM EQU 10h                ;静音键          闹铃开/关
timerT  EQU 0Ch                ;菜单键          进入/退出设置状态
leftL EQU 46h                ;左移键
rightR  EQU 47h                ;右移键
upU    EQU 19h                ;增加键
downD EQU 1dh                ;减少键
d_off EQU 16H                ;显示键          LED数码管显示/关闭
recall  EQU 44H                ;日历键          DS1302初始化操作

K_on    BIT P3.0             ;闹铃输出
LED1    BIT P3.3
LED2    BIT P3.4
LED3CLK  BIT P3.5             ;DS1302
LED4IO BIT P3.7
RST    BIT P3.1

SECOND  EQU 60H
;60H  秒
;61h  分
;62h  时
;63h  日
;64h  月
;65h  DAY
;66h  年
;6Ah  闹分 from 00(1302)
;6BH  闹时 from 01(1302)
;***************************
      ORG 0000H
      AJMP  START
      ORG 0003H
      LJMP  S_INT          ;IRF
      ORG 000BH          ;200Us
      LJMP  P_INT          ;
      ORG 001BH          ;display LED
      LJMP  DISPLAY
;****************************  ;main program
   ORG 0030H
START: CLR    RST
   MOV SP,#2AH
   SETB 05H
   CLR    06H
   SETB 07H;CLR    07H
   CLR    08H
   CLR    09H
   CLR    0AH
   CLR    0BH
   CLR    0CH
   SETB 0DH
   CLR    0EH
   CLR    0FH
   CLR    10H
   CLR    11H

   MOV R2,#00H          ;
   MOV R3,#00H          ;

   MOV TMOD,#12H
   MOV TL1,#0e5H          ;wait
   MOV TH1,#0BeH
   MOV TH0,#3FH          ;200uS  3f
   MOV TL0,#3FH
   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_GO: 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
      LCALL DL2M
      SETB  LED2
D4_OUT:  SETB  TR1
      POP PSW
      POP ACC
      RETI
;***********************
DIS_5: MOV DPTR,#TAB2
      JNB 07H,D5_OUT             ;显示时闪烁
      MOV A,6AH                ;显示设置闹分
      MOV B,#0AH
      DIV AB
      MOVC  A,@A+DPTR
      MOV P1,A
      CLR LED3CLK
      LCALL DL2M
      SETB  LED3CLK
      MOV DPTR,#TAB1
      MOV A,B
      MOVC  A,@A+DPTR
      MOV P1,A
      CLR LED4IO
      LCALL DL2M
      SETB  LED4IO
D5_OUT:  SETB  TR1
      POP PSW
      POP ACC
      RETI
;*****************************
DL2M: MOV 43H,#14H          ; every LED(2ms)
DL2:    MOV 44H,#14H
DL1:    NOP
      NOP
      DJNZ 44H,DL1
      DJNZ 43H,DL2
      RET
;************************定时读取1302时间及判断闹铃时间是否到*******
P_INT: PUSH  ACC
      PUSH  PSW
      INC R2
      CJNE  R2,#250D,P_OUT
      MOV R2,#00H
      INC R3
      CJNE  R3,#10D,P_OUT
      MOV R3,#00H
      CPL 07H
      MOV P1,#0FFH
      ACALL R_1302
OUT:    JNB 06H,P_OUT
      MOV A,6BH

      MOV B,#10
      DIV AB
      SWAP  A
      ADD A,B

      CJNE  A,62H,PP_OUT
      MOV A,6AH

      MOV B,#10
      DIV AB
      SWAP  A
      ADD A,B

      CJNE  A,61H,PP_OUT
      SETB  08H             ;定时到标志
      MOV C,07H
      cpl c
      MOV K_ON,C

P_OUT: POP PSW
      POP ACC
      RETI
PP_OUT:  SETB  K_ON
      CLR 08H
      POP PSW
      POP ACC
      RETI
;************************有接收到遥控器信号*******
S_INT:CLR EA
   PUSH ACC
   PUSH PSW
   PUSH DPH
   PUSH DPL
   PUSH 02H
   PUSH 03H
   MOV R6,#10D ;
SB: ACALL  YS1
   JB    P3.2,EXIT
   DJNZ R6, SB
   JNB P3.2, $ ;
   ACALL  YS2    ;
   JB    P3.2,EXIT
   MOV R1,#1AH ;
   MOV R2,#4D
PP: MOV R3,#8D
JJJJ: JNB P3.2,$
   ACALL  YS1
   MOV C,P3.2
   JNC UUU
   JB    P3.2,$
UUU:  MOV A,@R1
   RRC A
   MOV @R1,A
   DJNZ R3,JJJJ
   INC R1
   DJNZ R2,PP
;-------------------------------------
   MOV  A,1AH    ;
   XRL  A,#40h    ;判断1AH的值是否等于遥控器低8位地址（40h）
   JNZ  EXIT    ;
   MOV  A,1bH
   XRL  A,#0bfh ;再判断高8位地址是否正确（0bfh）
   JNZ  EXIT
   MOV  A,1CH
   CPL  A
   XRL  A,1DH    ;将1CH的值取反后和1DH比较不同则无效丢弃（核对数据是否准确）
   JNZ  EXIT
   ACALL DO       ;相应按键的处理
EXIT: SETB EA
   POP  03H
   POP  02H
   POP  DPL
   POP  DPH
   POP  PSW
   POP  ACC
   RETI
;--------------------delay-----------------------
YS1:  MOV 70H,#16D ;延时1
D1: MOV 71H,#21D
   DJNZ 71H,$
   DJNZ 70H,D1
   RET
YS2:  MOV 70H,#09D ;延时2
D2: MOV 71H,#220D
   DJNZ 71H,$
   DJNZ 70H,D2
   RET
;---------------------------------------------------------
TAB: DB 00H,01H,02H,03H,04H,05H,06H,07H,08H,09H    ;TAB1  LED数码管显示表 TAB遥控器键值表（未用）
;TAB1:  DB 3FH,11H,5EH,5BH,71H,6BH,6FH,19H,7FH,7bH,77H,7CH,39H,5EH,79H,71H
tab1:  DB  0C0H,0F9H,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h,88h,83h,0a7h,0a1h,86h,8EH
TAB2:  DB  0c0H,0f9H,64H,70H,59H,52H,42H  ;倒装LED段码表
;0CH 为设置标志，0DH为全显示标志，0EH为显示设置小时标志，0FH为显示设置分标志
;10H 为显示设置闹时标志，11H为显示设置闹分标志
;增加闹时静音功能
;mute-10h,timer-0eh,left-46h,right-47h,up-19h,down-1dh

DO:    MOV    A,1CH
      CJNE A,#TIMERT,REDO  ;代码不是设置/退出键
      JNB    0CH,SET1       ;是，则进入
      CLR    0CH          ;是，已经进入，则退出
      SETB 0DH          ;恢复正常显示
      CLR    0EH
      CLR    0FH
      CLR    10H
      CLR    11H
      RET

SET1: SETB 0CH
      SETB 0EH
      CLR    0DH
      CLR    0FH
      CLR    10H
      CLR    11H
      RET

REDO: CJNE A,#MUTEM,REDO1  ;不是设置键的处理REDO1,2,3,4...
      LJMP MUTE          ;MUTE?
REDO1:  CJNE A,#D_OFF,DO_SET2
      LJMP DIS_OFF       ;关闭显示
DO_SET2:JB    0CH,SET2       ;时间设置的处理
      RET

SET2: CJNE A,#UPU,SET2A
      LJMP INC1          ;+加(^)
SET2A:  CJNE A,#DOWND,SET2B
      LJMP DEC2          ;- 减
SET2B:  CJNE A,#RIGHTR,SET2C
      LJMP RIGHT          ;RIGHT右移(>)
SET2C:  CJNE A,#LEFTL,SET2D
      LJMP LEFT          ;LEFT左移(<)
SET2D:  CJNE A,#RECALL,SET2EXT ;DS1302初始化
      LJMP SET1302
SET2EXT:RET
;--------------------------------INC------------------------
INC1: JB    0EH,INCH
      JB    0FH,INCM
      JB    10H,INC_H
      JB    11H,INC_M
      RET

INC_H:  INC    6BH             ;闹钟小时增加
      MOV    A,6BH
      CJNE A,#24D,INCH3
      MOV    6BH,#0
INCH3:  MOV    R1,#0C2H
      MOV    R0,6BH
      ACALL SETONE          ;写入DS1302
      RET

INC_M:  INC    6AH             ;闹钟分增加
      MOV    A,6AH
      CJNE A,#60D,INCH4
      MOV    6AH,#0
INCH4:  MOV    R1,#0C0H
      MOV    R0,6AH
      ACALL SETONE          ;
      RET

INCH: ;INC    62H             ;
      MOV    6FH,62H
      ACALL BCD_HEX
      INC    A
      CJNE A,#24D,INCH1
      MOV    A,#0
INCH1:  MOV    6FH,A

红外DS1302 AT89C2051的LED钟.png (613.1 KB, 下载次数: 36)

PCB.zip

17.78 KB, 下载次数: 7, 下载积分: 黑币 -5

需要用Protel99打开的原理图

ASM.zip

4 KB, 下载次数: 5, 下载积分: 黑币 -5

汇编语言程序

欢迎光临 (http://www.51hei.com/bbs/)