单片机闪烁灯设计的源代码

　　;*************************************************

　　;* 本程序是一个LED灯的循环闪烁程序，用INT键来切换*

　　;* 闪烁模式 *www.dangdangdz.com

　　;*************************************************

　　include 《p16f877.inc》

　　;*----

　　MODESEL equ 20h

　　MODESELB equ 21h

　　Count equ 22h

　　Count1 equ 23h

　　Count2 equ 24h

　　PORTDB equ 25h

　　;*-----

　　org 0

　　goto start

　　org 4

　　goto ISR

　　org 10

　　start

　　clrf PORTD ;清D口

　　movlw 00h

　　movwf MODESEL ;初始化模式选择寄存器

　　movwf MODESELB

　　movlw b‘10010000’

　　movwf INTCON ;初始化中断控制

　　bsf STATUS，RP0

　　clrf TRISD ;设D口全为输出

　　movlw b‘10111111’

　　OPTION ;选择INT下降沿有效

　　bcf STATUS，RP0

　　call FMsel

　　movwf PORTDB

　　movwf PORTD

　　main btfsc PORTB，0 ;

　　goto $+6 ;

　　call Delay ; 按键去抖动

　　btfsc PORTB，0

　　goto $+3 ; /

　　call FMsel ;/

　　movwf PORTDB

　　movf MODESELB，W ;

　　movwf MODESEL ;

　　call LongDelay

　　bcf STATUS，C

　　rlf PORTDB，1

　　btfsc STATUS，C

　　bsf PORTDB，0

　　movf PORTDB，W

　　movwf PORTD

　　goto main

　　;*----------

　　Delay ; call指令占用2个指令周期

　　clrf Count ; 清 Count占用1个指令周期

　　Dloop

　　decfsz Count，f ; 这两行指令将延时

　　goto Dloop ; （256 * 3） -1 个指令周期

　　return ; return占用2个指令周期

　　;*----------------

　　LongDelay

　　clrf Count

　　clrf Count1

　　movlw 0x01

　　movwf Count2

　　LDloop

　　decfsz Count，f

　　goto LDloop

　　decfsz Count1，f

　　goto LDloop

　　decfsz Count2，f

　　goto LDloop

　　return

　　;*---------------

　　FMsel

　　movf MODESEL，w

　　movwf MODESELB

　　movf MODESEL，w

　　addwf PCL

　　retlw b‘11111000’

　　retlw b‘11110000’

　　retlw b‘11100000’

　　retlw b‘11000000’

　　retlw b‘10000000’

　　movlw 00h

　　movwf MODESELB

　　bsf INTCON，GIE

　　retlw b‘11111000’

　　return

　　;*-------------

　　ISR

　　btfss INTCON，INTF

　　goto $+3

　　bcf INTCON，INTF

　　incf MODESEL

　　retfie

　　end

　　单片机控制LED灯闪烁的程序编制方法

　　1：程序开始（START）

　　2：A=00000000B

　　3：PORT 0

　　4：延迟（DELAY）

　　5：A=11111111B

　　6：PORT 0

　　7：延迟（DELAY）

　　8：反回开始

　　延迟子程序编制方法：

　　1：R6=0

　　2：DEL1

　　3：R7=0

　　4：$

　　5：R7-1

　　6：R7=0 不等于0，返回2

　　7：R6-1

　　8：R6=0 不等于0，返回4

　　回主程序