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

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

;* 本程序是一个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

回主程序