久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標(biāo)題: 采用實(shí)時(shí)時(shí)鐘芯片DS1302+AT89C2051的紅外遙控LED電子時(shí)鐘單片機(jī)匯編程序 [打印本頁(yè)]

作者: yuanyuananfang0 時(shí)間: 2024-5-7 09:57
標(biāo)題: 采用實(shí)時(shí)時(shí)鐘芯片DS1302+AT89C2051的紅外遙控LED電子時(shí)鐘單片機(jī)匯編程序
;DS1302+AT89C2051的LED鐘電路原理圖如下：

單片機(jī)源程序如下:
;遙控器各按鍵數(shù)據(jù)碼,可根據(jù)不同的遙控器修改對(duì)應(yīng)的鍵碼
muteM EQU 10h                ;靜音鍵          鬧鈴開(kāi)/關(guān)
timerT  EQU 0Ch                ;菜單鍵          進(jìn)入/退出設(shè)置狀態(tài)
leftL EQU 46h                ;左移鍵
rightR  EQU 47h                ;右移鍵
upU    EQU 19h                ;增加鍵
downD EQU 1dh                ;減少鍵
d_off EQU 16H                ;顯示鍵          LED數(shù)碼管顯示/關(guān)閉
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  時(shí)
;63h  日
;64h  月
;65h  DAY
;66h  年
;6Ah  鬧分 from 00(1302)
;6BH  鬧時(shí) 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       ;取定時(shí)參數(shù)從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       ;定時(shí)到時(shí)，顯示閃爍
      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          ;顯示設(shè)置小時(shí)
      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             ;顯示設(shè)置分
      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          ;顯示設(shè)置鬧時(shí)
      JNB 07H,D4_OUT          ;顯示時(shí)閃爍
      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             ;顯示時(shí)閃爍
      MOV A,6AH                ;顯示設(shè)置鬧分
      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
;************************定時(shí)讀取1302時(shí)間及判斷鬧鈴時(shí)間是否到*******
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             ;定時(shí)到標(biāo)志
      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
;************************有接收到遙控器信號(hào)*******
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比較不同則無(wú)效丟棄（核對(duì)數(shù)據(jù)是否準(zhǔn)確）
   JNZ  EXIT
   ACALL DO       ;相應(yīng)按鍵的處理
EXIT: SETB EA
   POP  03H
   POP  02H
   POP  DPL
   POP  DPH
   POP  PSW
   POP  ACC
   RETI
;--------------------delay-----------------------
YS1:  MOV 70H,#16D ;延時(shí)1
D1: MOV 71H,#21D
   DJNZ 71H,$
   DJNZ 70H,D1
   RET
YS2:  MOV 70H,#09D ;延時(shí)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數(shù)碼管顯示表 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 為設(shè)置標(biāo)志，0DH為全顯示標(biāo)志，0EH為顯示設(shè)置小時(shí)標(biāo)志，0FH為顯示設(shè)置分標(biāo)志
;10H 為顯示設(shè)置鬧時(shí)標(biāo)志，11H為顯示設(shè)置鬧分標(biāo)志
;增加鬧時(shí)靜音功能
;mute-10h,timer-0eh,left-46h,right-47h,up-19h,down-1dh

DO:    MOV    A,1CH
      CJNE A,#TIMERT,REDO  ;代碼不是設(shè)置/退出鍵
      JNB    0CH,SET1       ;是，則進(jìn)入
      CLR    0CH          ;是，已經(jīng)進(jìn)入，則退出
      SETB 0DH          ;恢復(fù)正常顯示
      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  ;不是設(shè)置鍵的處理REDO1,2,3,4...
      LJMP MUTE          ;MUTE?
REDO1:  CJNE A,#D_OFF,DO_SET2
      LJMP DIS_OFF       ;關(guān)閉顯示
DO_SET2:JB    0CH,SET2       ;時(shí)間設(shè)置的處理
      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             ;鬧鐘小時(shí)增加
      MOV    A,6BH
      CJNE A,#24D,INCH3
      MOV    6BH,#0
INCH3:  MOV    R1,#0C2H
      MOV    R0,6BH
      ACALL SETONE          ;寫(xiě)入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, 下載次數(shù): 36)

PCB.zip

17.78 KB, 下載次數(shù): 7, 下載積分: 黑幣 -5

需要用Protel99打開(kāi)的原理圖

ASM.zip

4 KB, 下載次數(shù): 5, 下載積分: 黑幣 -5

匯編語(yǔ)言程序

歡迎光臨 (http://www.zg4o1577.cn/bbs/)