本帖最后由 JLennon 于 2018-3-7 15:02 编辑
【Curiosity试用】3.PIC16F1619汇编实例二
闪灯实例
1.功能说明
利用timer0触发中断，实现跑马灯。
2.硬件电路
D4~D7阴极接地，阳极分别接至RA5、RA1、RA2、RC5。当对应的引脚输出高电平时，则该LED点亮。
Curiosity开发板无外置晶振，所以系统时钟源选用内部时钟源。
3.软件设计
（1）程序关键点分析
RA和RC端口需要被配置为输出方向，初始化端口输出全为低电平，即D4~D7处于全灭状态。当
RA5输出高电平，其他引脚输出低电平，则D4亮；延时250ms后，RA1输出高电平，其他引脚输出低电
平，则D5亮；如此循环，则实现了跑马灯效果。延时利用timer0定时触发中断。在进行程序设计时，
主要涉及的内容如下：
1）选择配置字，设置系统时钟为内部时钟源。
2）初始化与内部时钟源相关的寄存器和I/O端口，见PIC16F1619的datasheet的5.6章节。
2）主程序只有做一件事，无限循环。
3）中断服务程序判断timer0是否溢出，然后调用子程序。
4）其余子程序进行循环点灯，timer0重置等操作。
（2）程序流程图
（3）汇编源程序
1）Timer0初始值如何设置：
由于timer0是一个8位递增定时计数器，最多256分频，要实现250ms延时，就必须选取MHZ以下
的频率，这里我们选用500KHZ，同时预分频比选择1:256分频。
PIC单片机1个指令周期占用4个时钟周期，对于500KHZ的时钟频率，时钟周期为2μs，指令周期为
8μs。256倍分频后，时钟周期为512μs，指令周期为2048μs。250ms延时，约等于122个指令周期。
TMR0寄存器从FFh上溢到00h时，将产生Timer0中断。那么timer0初始值就等于255（FFh）+1-122=
134（0x86）。
2）源程序
#include "p16f1619.inc"
; CONFIG1
; __config 0xFFFC
__CONFIG _CONFIG1, _FOSC_INTOSC & _PWRTE_OFF & _MCLRE_ON & _CP_OFF & _BOREN_ON & _CLKOUTEN_OFF & _IESO_ON & _FCMEN_ON
; CONFIG2
; __config 0xFEFF
__CONFIG _CONFIG2, _WRT_OFF & _PPS1WAY_ON & _ZCD_OFF & _PLLEN_OFF & _STVREN_ON & _BORV_LO & _LPBOR_OFF & _LVP_ON
; CONFIG3
; __config 0xFF9F
__CONFIG _CONFIG3, _WDTCPS_WDTCPS1F & _WDTE_OFF & _WDTCWS_WDTCWSSW & _WDTCCS_SWC
;*******************************************************************************
CBLOCK 0x20
SHIFTDAT
ENDC
RES_VECT CODE 0x0000 ; processor reset vector
GOTO START ; go to beginning of program
;*******************************************************************************
ISR CODE 0x0004 ; interrupt vector location
BRA ISR
;*******************************************************************************
; MAIN PROGRAM
;*******************************************************************************
MAIN_PROG CODE ; let linker place main program
START
;***************************************************************************
;初始化时钟
BANKSEL OSCCON
MOVLW 0x38
MOVWF OSCCON
;***************************************************************************
;初始化I/O
BANKSEL PORTA
CLRF PORTA
CLRF PORTC
BANKSEL ANSELA
CLRF ANSELA
CLRF ANSELC
BANKSEL TRISA
CLRF TRISA
CLRF TRISC
;***************************************************************************
;初始化Timer0
MOVLW 0xD7 ;禁止弱上拉，上升沿触发，timer0时钟FOSC/4
BANKSEL OPTION_REG ;在T0CKI引脚信号从高至低跳变时，递增计数
OPTION ;预分频器分配给Timer0模块,预分频比1:256
CLRF BSR ;转到Bank0
MOVLW 0x86
MOVWF TMR0
BCF INTCON, TMR0IF ;清中断标识
BSF INTCON, TMR0IE ;开中断
;***************************************************************************
;开中断
BSF INTCON, GIE
BSF INTCON, TMR0IE
MAIN
GOTO $
;*******************************************************************************
;中断服务程序
ISR
BTFSC INTCON, TMR0IF ;TMR0中断标志为0，,则跳过下一条指令
CALL BLINK
RETFIE
BLINK
BTFSC SHIFTDAT, 4
CALL RELOAD
MOVLW 0x01
ANDWF SHIFTDAT, W
BTFSC WREG, 0
CALL D4ON
MOVLW 0x02
ANDWF SHIFTDAT, W
BTFSC WREG, 1
CALL D5ON
MOVLW 0x04
ANDWF SHIFTDAT, W
BTFSC WREG, 2
CALL D6ON
MOVLW 0x08
ANDWF SHIFTDAT, W
BTFSC WREG, 3
CALL D7ON
RLF SHIFTDAT, F
CALL RELOADTMR0
RETURN
;*******************************************************************************
;点亮D4
D4ON
CLRF PORTA
CLRF PORTC
BSF PORTA, RA5
BCF PORTC, RC5
RETURN
;*******************************************************************************
;点亮D5
D5ON
CLRF PORTA
BSF PORTA, RA1
BCF PORTC, RC5
RETURN
;*******************************************************************************
;点亮D6
D6ON
CLRF PORTA
BSF PORTA, RA2
BCF PORTC, RC5
RETURN
;*******************************************************************************
;点亮D7
D7ON
CLRF PORTA
BSF PORTC, RC5
RETURN
;*******************************************************************************
;重新赋值SHIFTDAT
RELOAD
;CLRF BSR ;此段可省略，因调用前BSR就是Bank0
MOVLW 0x01
MOVWF SHIFTDAT
RETURN
;*******************************************************************************
RELOADTMR0
MOVLW 0x86
MOVWF TMR0 ;timer0重新加载初始值
BCF INTCON, TMR0IF ;清除中断标识
BSF INTCON, TMR0IE ;重开中断
RETURN
END
| 
楼主
标题置顶
标题高亮
