基于51单片机及DS12C887实时时钟的隧道灯控制器.docx

《基于51单片机及DS12C887实时时钟的隧道灯控制器.docx》由会员分享，可在线阅读，更多相关《基于51单片机及DS12C887实时时钟的隧道灯控制器.docx（17页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、;- ; ; 隧道指示灯控制器程序 ; V1.0 ;软件说明: 本程序使用 STC 单片机控制隧道灯具，最多可以控制高速公路隧道灯 80 个，每 个都可以单独控制 ;此软件是 V1.0 版本 2006-11-01 ;使用 12887 储存时段表和显示方案 ; ; ;- ;联网地址（0-FF） ;地址=0FFH 为广播地址，地址=0 0FEH 为单机地址 LW_ADDR EQU 1 ;- ;变量定义表 ;-寄存器定义- RHOUR DATA 28H ;当前小时寄存器,以 BCD 形式 RMINUTE DATA 29H ;当前分钟寄存器,以 BCD 形式 TMSG DATA 2AH ;当前时段寄存

2、器,以 BCD 形式 TEST_H DATA 2BH ;小时缓冲 TEST_M DATA 2CH ;分钟缓冲 ;- ;-标志位定义- ;ONOFF_FLG EQU 00H ;- ;-地址常量定义- SD_ADDR EQU 0010H ;时段表存储开始地址,外部 RAM MAXTEG EQU 000FH ;最大时段值存储地址,外部 RAM XS_ADDR EQU 0030H ;显示方案表存储开始地址,外部 RAM ;- ;-常量定义- ;本机使用 9600 波特率,SMOD=0 BD_RATE EQU 0FDH ;9600 BOAD_RATE VALUE 11.0592M SDXZ EQU 09

3、H ;时段限制(BCD)SDXZ=SDXZ1+1 ;SDXZ1 EQU 08H ;时段限制(BCD) SDXZ3 EQU 08H SD_NUM EQU 20H ;时段表长度=8 * 4 SD_LONG EQU 04H ;时段表中单个时段结构的长度 XS_NUM EQU 09H ;显示方案表长度 SEND_NUM EQU 34H ;模拟口 1 发送数代换数 JISHU_NUM EQU 35H ;模拟口 1 发送计数器代换数 R0_NUM EQU 36H; ; ;信号引脚定义 DOG EQU P3.5 ; TIME EQU P3.4 ;=0 DS12887 片选有效 XDAT EQU P1.0 X

4、TXD EQU P1.1 XLAT EQU P1.2 STACK EQU 50H ; ;- ;-以下为程序清单- ORG 0000H AJMP START ;主程序 ORG 0023H LJMP S_PORT ;INTERRUPT OF SERIES PORT ;首先对 89C51 初始化 ORG 0030H START: NOP MOV 8EH,#02H ;应用 STC89C53RC 时，禁止内部扩屏 RAM MOV SP,#STACK ;设堆栈首地址 MOV PCON,#00000000B ;SMOD=0 MOV SCON,#01010000B ;1101 0000 (MODE 1 ;RE

5、CEIVE ENABLE) MOV TMOD,#00100000B ;0010 0000 (T1 MODE 2_TIME) MOV TCON,#01000000B ;0100 0000 (TR1=1 ) MOV TL1,#BD_RATE ;T1 IS TIMER ,MAKE BARD_RATE MOV TH1,#BD_RATE MOV IP,#00010000B ;0001 0000 (S-PORT HIGH interrupt) MOV IE,#10010000B ;1001 0000 (S_PORT ENABLE INT) CPL DOG ;初始化各变量寄存器 MOV 20H,#00H ;

6、 清位寻址区 MOV 21H,#00H ; MOV 22H,#00H ; MOV 23H,#00H ; CLR TIME MOV TMSG,#01H ;当前时段 MOV DPTR,#007EH ;判断是否初次运行 MOVX A,DPTR CJNE A,#2CH,CLKSET INC DPTR MOVX A,DPTR CJNE A,#2CH,CLKSET NOP NOP LJMP SFLOG ;应该直到 RDTIME CLKSET: CPL DOG ;对 DS12887 初始化,写操作 MOV DPTR,#000BH ;B 寄存器 SET 位置 1,禁止 12887 运行, MOV A,#0A2

7、H ;设 24 小时制 MOVX DPTR,A MOV DPTR,#0000H ;清秒 CLR A MOVX DPTR,A INC DPTR MOVX DPTR,A INC DPTR ;清分 MOVX DPTR,A INC DPTR ;分闹钟用 03 MOV A,#03H MOVX DPTR,A INC DPTR ;清时 MOV A,#07H MOVX DPTR,A ;7 时 INC DPTR MOV A,#00H MOVX DPTR,A ;时闹钟 00 INC DPTR ;清周 MOV A,#01H ;周一 MOVX DPTR,A INC DPTR ;日 1 MOVX DPTR,A INC

8、DPTR MOV A,#11H ;月 11 MOVX DPTR,A INC DPTR MOV A,#06H ;年 06 MOVX DPTR,A MOV DPTR,#000AH ;以 BCD 码计时,允许报警中断 MOV A,#0A0H ;设为 010 允许保留时间 ，uip 位不应该置位 MOVX DPTR,A MOV DPTR,#000CH ;C 寄存器没有作用 MOVX A,DPTR INC DPTR MOVX A,DPTR ;D 寄存器没有作用 MOV DPTR,#000BH MOV A,#22H ;B 寄存器 SET 位置 0,12887 正常运行, MOVX DPTR,A CPL D

9、OG ; ;将时段方案表装入存储器(12887) LDTB: MOV DPTR,#SD_ADDR ;时段表存储开始地址,外部 RAM MOV R0,DPL MOV R1,DPH MOV DPTR,#TABL2 ;时段表首地址 MOV R5,#SD_NUM ;时段表长度 LOADNUM: CLR A MOVC A,A+DPTR ;查表输入 MOV P2,R1 MOVX R0,A ; INC DPTR LCALL INCR0R1 DJNZ R5,LOADNUM CPL DOG MOV DPTR,#XS_ADDR ;显示方案表存储开始地址,外部 RAM MOV R0,DPL MOV R1,DPH M

10、OV DPTR,#TABL1 ;显示方案表首地址 MOV R5,#XS_NUM ;显示方案表长度 LOADNUMM: CLR A MOVC A,A+DPTR ;查表输入 MOV P2,R1 MOVX R0,A ; INC DPTR LCALL INCR0R1 DJNZ R5,LOADNUMM CPL DOG MOV DPTR,#MAXTEG ;最大时段值存储地址 MOV A,#SDXZ3 ;当前最大时段设为“8“ MOVX DPTR,A ; ; SFLOG: CPL DOG ;不是初次运行 MOV DPTR,#007EH ;置运行标志 MOV A,#2CH MOVX DPTR,A INC DP

11、TR MOVX DPTR,A ;* RDTIME: MOV DPTR,#000AH ;访问 DS12887 MOVX A, DPTR ;读取当前时刻 CPL DOG JBC ACC.7,RDTIME ;当 UIP 为 1,更新数据. 只读，不用清 0 MOV DPTR,#0002H ;当 UIP 为 0,244us 更新一次, MOVX A,DPTR ;时间,日历等在此时可以访问 MOV RMINUTE,A ;UIP READ ONLY, INC DPTR ;置寄存器 B 中 SET 位 1,清 UIP 位 INC DPTR MOVX A,DPTR MOV RHOUR,A CPL DOG ;

12、;- ;判断当前最大时段是多少,存入 12887 MOV R3,#00H LLP1: INC R3 ; CJNE R3,#SDXZ3,PLC1 ; NOP LJMP OUTP1 PLC1: MOV A,R3 MOV R4,A LCALL JSSD ; MOV DPTR,#SD_ADDR ;读取时段表数据 INC DPTR INC DPTR MOVX A,DPTR ; MOV TEST_H,A ; INC DPTR ; MOVX A,DPTR MOV TEST_M,A LCALL DECDPTR ;DPTR=DPTR-1 MOV A,#SD_LONG CLR C ADD A,DPL MOV DP

13、L,A CLR A ADDC A,DPH MOV DPH,A MOVX A,DPTR CJNE A,TEST_H,LLP1 INC DPTR MOVX A,DPTR CJNE A,TEST_M,LLP1 ;小时，分钟相同则认为后面没有新时段 OUTP1: MOV DPTR,#MAXTEG ;最大时段值存储地址 MOV A,R3 LCALL BINBCD ; 其实可以不转都行的 MOVX DPTR,A ;根据当前时刻,判断应该运行第几时段 CKTAB: MOV A,TMSG LCALL BCDBIN MOV R4,A NOP JZ NORGT NOP CJNE A,#SDXZ,THIS3 THI

14、S3: NOP JC NWR NORGT: MOV A,#01H ;大于 10，则重赋值 MOV TMSG,A MOV R4,#01H NWR: LCALL JSSD ;计算时段条地址,R4 为时段值 INC DPTR ;DPTR 存储时段条地址 INC DPTR MOVX A,DPTR MOV R4,A ;THE TABLE HOUR IN R4 INC DPTR MOVX A,DPTR LCALL DECDPTR MOV R5,A ;THE TABLE MINUTE IN R5 MOV A,R4 CJNE A,RHOUR,LL1 MOV A,R5 CJNE A,RMINUTE,LL1 NO

15、P NOP LJMP FOUND LL1: NOP JC BIG MOV A,TMSG ;如果比现时时间大，则将时段减一 CJNE A,#01H,DECR PUSH DPL PUSH DPH MOV DPTR,#MAXTEG MOVX A,DPTR POP DPH POP DPL MOV TMSG,A NOP LJMP FOUND DECR: MOV A,TMSG LCALL BCDBIN DEC A MOV TMSG,A NOP LJMP CKTAB BIG: PUSH DPL PUSH DPH MOV DPTR,#MAXTEG ;THE PRESENT TIME- STAGE IS MAX

16、? MOVX A,DPTR POP DPH POP DPL CJNE A,TMSG,LL2 NOP LJMP FOUND LL2: MOV A,DPL ;GET THE NEXT HOUR ADDRESS ADD A,#SD_LONG MOV DPL,A CLR A ADDC A,DPH MOV DPH,A MOVX A,DPTR ;THE NEXT HOUR IS IN R4 MOV R4,A INC DPTR MOVX A,DPTR ;THE NEXT MINUTE IS IN R5 MOV R5,A MOV A,R4 CJNE A,RHOUR,LL3 MOV A,R5 CJNE A,RM

17、INUTE,LL3 MOV A,TMSG INC A CLR C CLR AC MOV TMSG,A NOP LJMP CKTAB LL3: NOP JC BIGGER NOP LJMP FOUND BIGGER: MOV A,TMSG INC A CLR C CLR AC DA A MOV TMSG,A NOP LJMP CKTAB FOUND: CPL DOG MOV A,TMSG ;获得当前时段 LCALL BCDBIN MOV R4,A LCALL JSSD ;计算时段条地址,R4 为时段值 CLR XDAT ;595 上升沿有效 CLR XTXD CLR XLAT INC DPTR

18、MOVX A,DPTR;根据时段,查得当前方案 CPL DOG CJNE A,#55H,CHEKA LCALL ZHENGC CHEKA: CJNE A,#0AAH,CHEKB LCALL DIAOG CHEKB: NOP LJMP RDTIME DIAOG: PUSH DPL PUSH DPH MOV A,#0FFH LCALL SENDNUM MOV DPTR,#XS_ADDR MOV A,R0 MOV R0_NUM,A MOV R0,#9 ZZ: MOVX A,DPTR LCALL SENDNUM INC DPTR CPL DOG DJNZ R0,ZZ MOV A,R0_NUM MOV

19、R0,A LCALL FLAT POP DPH POP DPL RET ZHENGC: PUSH DPL PUSH DPH MOV A,#00H LCALL SENDNUM MOV DPTR,#XS_ADDR MOV A,R0 MOV R0_NUM,A MOV R0,#9 ZZZ: MOVX A,DPTR LCALL SENDNUM INC DPTR CPL DOG DJNZ R0,ZZZ MOV A,R0_NUM MOV R0,A LCALL FLAT POP DPH POP DPL RET SENDNUM: ;NOP ;确定 6B595 NOP 或 HC595 CPL A MOV SEND

20、_NUM,A MOV A,R6 MOV JISHU_NUM,A MOV A,SEND_NUM CPL DOG CPL A CLR XTXD MOV R6,#08 DISPLP :RLC A ;RRC A ;确定先移高位或低位 MOV XDAT,C SETB XTXD NOP CLR XTXD DJNZ R6,DISPLP MOV A,JISHU_NUM MOV R6,A RET FLAT: CLR XLAT NOP NOP NOP NOP NOP NOP SETB XLAT NOP NOP NOP NOP NOP NOP CLR XLAT RET TABL1:DB 0FFH ;1-72 路初始

21、亮灯方案 ,灯亮,调光方案未给出 DB 0FFH DB 0FFH DB 0FFH DB 0FFH DB 0FFH DB 0FFH DB 0FFH DB 0FFH ;TABL2 是时段方案表 TABL2: DB 01H,55H,06H,00H DB 02H,0AAH,08H,30H DB 03H,55H,10H,30H DB 04H,0AAH,12H,30H DB 05H,55H,14H,00H DB 06H,0AAH,16H,00H DB 07H,55H,18H,00H DB 08H,0AAH,21H,30H ;时段序号,方案,小时,分钟 ; BINBCD: PUSH B ;二进制与 BCD

22、码转换子程序,以寄存器 A 为接口 MOV B,#64H DIV AB MOV A,B MOV B,#0AH DIV AB SWAP A ADD A,B POP B RET BCDBIN: PUSH B ;BCD 码与二进制转换子程序,以寄存器 A 为接口 XCH A,R5 PUSH ACC MOV A,R5 SWAP A ANL A,#0FH MOV B,#0AH MUL AB XCH A,R5 ANL A,#0FH ADD A,R5 MOV R5,A POP B POP ACC XCH A,R5 RET ; S_PORT: PUSH DPH PUSH DPL PUSH ACC PUSH B

23、 PUSH PSW SETB RS1 ;以免影响主程序中寄存器值 SETB RS0 JBC TI,SPERR LCALL SPIN ;JC SPERR CJNE A,#55H,SPERR LCALL SPIN ;JC SPERR CJNE A,#0AAH,SPERR LCALL SPIN ;JC SPERR CJNE A,#0FFH,SPERR LCALL SPIN ;JC SPERR CJNE A,#LW_ADDR,SCRNOT2 SJMP SCRNOT1 SCRNOT2:CJNE A,#0FFH,SCRNOT4;SCRNOT3 SJMP SCRNOT1 ;SCRNOT3:MOV A,#LW

24、_ADDR ;CJNE A,#0FFH,SCRNOT4 ;FFH 为广播机地址 ;SJMP SCRNOT1 SCRNOT4:LJMP EXITSP SCRNOT1: LCALL SPIN ;JC SPERR CJNE A,#0FAH,REVSD MOVDPTR,#SD_ADDR ;接收时段 MOVR0,#SD_NUM REVLOP: LCALL SPIN MOVX DPTR,A INC DPTR CPLDOG DJNZ R0,REVLOP NOP NOP NOP MOV A,#55H ;接收完成后回送时段表 LCALL SENDBYTE MOV A,#0AAH LCALL SENDBYTE M

25、OV A,#0FFH LCALL SENDBYTE MOV A,#LW_ADDR LCALL SENDBYTE MOV A,#0FAH LCALL SENDBYTE MOVDPTR,#SD_ADDR ;回送时段 MOVR0,#SD_NUM HSLOPP: MOVX A,DPTR LCALL SENDBYTE INC DPTR CPLDOG DJNZ R0,HSLOPP ; SPERR: LJMP EXITSP REVSD: CJNE A,#0FBH,REVHS ;更改时间 LCALL SPIN MOV B,A LCALL SPIN PUSH ACC LCALL SPIN PUSH ACC MO

26、V DPTR,#000BH MOV A,#0A2H MOVX DPTR,A MOV DPTR,#0004H ;将小时值写入 12887 MOV A,B MOVX DPTR,A MOV RHOUR,A MOV DPTR,#0000H ;将分钟值写入 12887 POP ACC MOVX DPTR,A MOV DPTR,#0002H POP ACC MOVX DPTR,A MOV RMINUTE,A MOV DPTR,#000BH MOV A,#22H MOVX DPTR,A CPLDOG MOV A,#55H ;回送修改时间以确认修改正确 LCALL SENDBYTE MOV A,#0AAH L

27、CALL SENDBYTE MOV A,#0FFH LCALL SENDBYTE MOV A,#LW_ADDR LCALL SENDBYTE MOV A,#0FBH LCALL SENDBYTE MOV DPTR,#0004H ;将小时值写入 12887 ;MOV A,B MOVX A,DPTR LCALL SENDBYTE MOV DPTR,#0002H ;将分钟值写入 12887 MOVX A,DPTR LCALL SENDBYTE MOV DPTR,#0000H ;将分钟值写入 12887 MOVX A,DPTR LCALL SENDBYTE LJMP EXITSP REVHS: CJN

28、E A,#0FCH,REVRET ;要求控制机回送时段表 MOV A,#55H LCALL SENDBYTE MOV A,#0AAH LCALL SENDBYTE MOV A,#0FFH LCALL SENDBYTE MOV A,#LW_ADDR LCALL SENDBYTE MOV A,#0FCH LCALL SENDBYTE MOVDPTR,#SD_ADDR ;回送时段 MOVR0,#SD_NUM HSLOP: MOVX A,DPTR LCALL SENDBYTE INC DPTR CPLDOG DJNZ R0,HSLOP LJMP EXITSP REVRET:CJNE A,#0FDH,R

29、EVGX ; MOVDPTR,#XS_ADDR ;接收显示方案 MOVR0,#XS_NUM REVLOPPP: LCALL SPIN MOVX DPTR,A INC DPTR CPLDOG DJNZ R0,REVLOPPP MOVDPTR,#XS_ADDR ;回送显示方案 MOVR0,#XS_NUM HSLOPPPP: MOVX A,DPTR LCALL SENDBYTE INC DPTR CPLDOG DJNZ R0,HSLOPPPP LJMP EXITSP REVGX: CJNE A,#0FEH,EXITSP ;要求回送显示方案 MOV A,#55H LCALL SENDBYTE MOV

30、A,#0AAH LCALL SENDBYTE MOV A,#0FFH LCALL SENDBYTE MOV A,#LW_ADDR LCALL SENDBYTE MOV A,#0FEH LCALL SENDBYTE MOVDPTR,#XS_ADDR ;回送时段 MOVR0,#XS_NUM HSLOPPP:MOVX A,DPTR LCALL SENDBYTE INC DPTR CPLDOG DJNZ R0,HSLOPPP ;MOV A,TMSG ;判断当前为亮灯还是调光状态 ;MOV R4,A ;LCALL JSSD ;INC DPTR ;MOVX A,DPTR ;CJNE A,#55H,LAB

31、;MOV A,#00H ;LCALL SENDBYTE ;LJMP EXITSP ;LAB: MOV A,#0FFH ;LCALL SENDBYTE ; EXITSP: NOP POP PSW POP B POP ACC POP DPL POP DPH RETI ; SENDBYTE:;CLR ES ;MOV C,P ;MOV TB8,C MOV SBUF,A WAIT: JBC TI,OUTS AJMP WAIT OUTS: ;SETB ES RET ; ;SENDBYTE2:CLR TI ; MOV C,P ; MOV TB8,C ; MOV SBUF,A ; CLR RI ; RET ;

32、 SPIN: MOV R6,#80H SPIN2: MOV R7,#0FFH SPIN1: JB RI,SPIN0 ;WAITING RECEIVER ;CLR C DJNZ R7,SPIN1 DJNZ R6,SPIN2 ;SETB C RET SPIN0: MOV A,SBUF CLR RI RET ; ;MOV C,RB8 ;ODD/EVEN TEST ;JC SPINTS ;ORL C,P ;RET ;SPINTS: ANL C,P ;CPL C ;IF C=0,THEN EVEN,CORRECT ;RET ; c=1, error ;* INCR0R1:CJNE R0,#0FFH,IN

33、CR11 MOV R0,#00H INC R1 SJMP INCR12 INCR11: INC R0 INCR12: RET ; ;* DECDPTR:PUSH PSW ;DPTR=DPTR-1 XCH A,DPL ADD A,#0FFH XCH A,DPL XCH A,DPH ADDC A,#0FFH XCH A,DPH POP PSW RET ;* ;计算时段条地址,R4 为时段值 JSSD: MOV DPTR,#SD_ADDR MOV A,DPL CLR C SUBB A,#SD_LONG ;将 SD_ADDR 减 4，是因为在下面的循环加法 MOV DPL,A ;中，SD_ADDR 至少会加一次 MOV A,DPH SUBB A,#0 MOV DPH,A LL: MOV A,DPL CLR C ADD A,#SD_LONG MOV DPL,A CLR A ADDC A,DPH MOV DPH,A DJNZ R4,LL ;DPTR 存储时段条地址 RET ;* END