PIC单片机多功能万学年历电子钟Word下载.docx

1、 PORTB,0 SEC_LED PORTB,4LED位选=按键脚位定义= SETUP_KEY PORTA,3时钟设置键 INCREASE_KEY PORTA,4时间加键 DECREASE_KEY PORTA,5时间减键= DS1302引脚定义 = T_CLK PORTA,01302时钟-7 T_IO PORTA,11302数据输入/输出-6 T_RST PORTA,21302使能位-5 SET_IO TRISA,1设定1302I_O= FLAG_10S FLAG,7 FLAG_SETUP FLAG,6 FLAG_500MS FLAG,5 FLAG_250MS FLAG,4 FLAG_MINU

2、TE FLAG,3 FLAG_HOUR FLAG,2 FLAG_TIME FLAG,1 FLAG_DATE FLAG,0 FLAG_YEAR FLAG1,7 FLAG_DAY FLAG1,6 FLAG_DATA FLAG1,5*寄存器定义*ID_TEMP EQU 72HW_TEMP 73HSTATUS_TEMP 74HPCLATH_TEMP 75HERRORLEVEL -302CBLOCK 020H SEC秒寄存器 MINUTE分寄存器 HOUR小时寄存器 DATE日寄存器 MONTH月寄存器 DAY星期寄存器 YEAR年寄存器 WRITE_ENABLED写使能寄存器 DS1302_RX保存接

3、受的1个数据 DS1302_TX准备写入到DS1302的一个数据 BYTE_COUNT字节数寄存器 BIT_COUNTBIT数寄存器 TEMP1转换进制用 TIMER0 TIMER1定时用 TIMER2/- FLAG FLAG1 FSR_TEMP COUNT COUNT1显示数据位数 COUNT2显示数据表中位置 COUNT3显示位置 COUNT4 CNT CNT0 CNT1 CNT2 SHOW_MIN SHOW_HOU DATA_INC DATEP C1 C2 C3 ENDC*宏定义*BANK1 MACRO体1 BSR STATUS,RP0 BCR STATUS,RP1 ENDMBANK0

4、MACRO体0 STATUS,RP1 ENDM -子程序名:功 能:中断服务主程序入口功能说明:-INTERMIT_SERVE:-现场保护- STWR W_TEMP SWAPR STATUS,W CLRR STATUS STATUS_TEMP LDR PCLATH,W PCLATH_TEMP PCLATH-中断服务- INCR TIMER0,F LDWI .100 XORWR TIMER0,W判断是否到250MS BTSS STATUS,Z LJUMP AAAON, B00010000每到250MS取反一次标志位1 FLAG,F/ TIMER0 TIMER1,F .2 TIMER1,W判断是否

5、到500MS00100000每到500MS取反一次标志位1YES, TIMER2,F .20 TIMER2,W判断是否到5S $+3YES,DP_SEC LCALL PLAY_SEC MOVFW DIO_B ANDWI 0F0H DIO_C COUNT,F 01H COUNT,W BTSC STATUS,Z PLAY_HOUR_H 02H PLAY_HOUR_L 03H PLAY_MINUTE_H 04H $+3 PLAY_MINUTE_L 0D9H TMR0/写入TMR0初始值 INTCON,T0IF清TMR0中断标志-恢复现场- PCLATH_TEMP,W STATUS_TEMP,F W_

6、TEMP,F W_TEMP,W RTFI中断返回.清寄存器.CLR_RAM: 20H FSR INDF FSR,F FSR,7 $-3 RTIW 00H -查表子程序用于显示0-9时钟数据字型码,共阳LED无小数点-TABLE: ADDWR PCL,F 11001111000001011110111002100111013000101114100110111101101100001101110111118100111119.Program Initialization. 单片机复位进入点 能：.PORT_INIT: INTCON清除中断 BANK1 00000000RC口设为输出1110000

7、0/RB口设为输入11111000 06H ADCON1A口配置为普通数字I/O10000101 设TMR0分频1：64 OPTION_REG/RB口同时输入、出时不能上拉 BANK0-清控制位关闭显示 0DAH写入TMR0初始值/2.5MS中断一次 10100000开TMR0中断使能位 CLR_RAM-清寄存器 DS1302_INIT初始化DS1302 READ_DS1302CALL DATE_INIT WRITE_DS1302/写数据 QINDON_INIT DATE%程序名:%MAIN_PROGRAM: FLAG_SETUPNOP DELAY250MS检测是否到5S FLAG3S到,退出

8、校正时间状态 FLAG1 DATEP,W TEST_KEY 030H SUBWR SEC,W TEST_KEY检测按键 005H SEC,F写入设置的数据 DATEP MAIN_PROGRAM循环TEST_KEY: NOP DIO_A,W00111000 XORWI检测是否有按键按下?YES,重新启动5S到标记-显示日期时禁止调整检测是否按时间设置键? SETUPYES,跳设置键处理程序检测是否按增键? INCREASE检测是否按减键? DECREASE时间设置键处理SETUP: DELAY_10MS检测设置键是否松开? $-2 SHOW_HOU FSR第一个调整单元 24H DATA_INC调整最大值 FLAG_HOUR