pic单片机流水灯循环右移c语言,PIC单片机LED流水灯程序

PIC 单片机 LED流水灯程序

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

include

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

__CONFIG 3F39H;设置配置位中振荡方式为XT,其它全部禁止或关闭

;*----

MODESEL    equ 20h

MODESELB   equ 21h

Count    equ 22h

Count1    equ 23h

Count2     equ 24h

PORTDB    equ 25h

;*-----

org     0

nop

goto start

org     4

goto ISR

org     10

start

clrf PORTC   ;清c口

MOV lw 00h

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

MOV wf MODESELB

MOV lw b'10010000'

MOV wf INTCON      ;初始化中断控制

bsf     STATUS,RP0

clrf TRISC   ;设C口全为输出

MOV lw b'10111111'

MOV WF   OPTION_REG  ;选择INT下降沿有效

bcf     STATUS,RP0

call FMsel

MOV wf   PORTDB

MOV wf PORTC

main

btfsc PORTB,0  ;\

goto $+6   ; \

call Delay   ;  按键去抖动

btfsc PORTB,0

goto $+3   ; /

call FMsel   ;/

MOV wf PORTDB

MOV f MODESELB,W  ;

MOV wf MODESEL  ;

call LongDelay

bcf     STATUS,C

rlf     PORTDB,1

btfsc STATUS,C

bsf     PORTDB,0

MOV f PORTDB,W

MOV wf PORTC

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

MOV lw 0x01

MOV wf Count2

LDloop

decfsz Count,f

goto LDloop

decfsz Count1,f

goto LDloop

decfsz Count2,f

goto LDloop

return

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

FMsel

MOV f MODESEL,w

MOV wf MODESELB

MOV f MODESEL,w

addwf PCL

retlw b'11111000'

retlw b'11110000'

retlw b'11100000'

retlw b'11000000'

retlw b'10000000'

MOV lw 00h

MOV wf MODESELB

bsf     INTCON,GIE

retlw b'11111000'

return

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

ISR

btfss INTCON,INTF

goto $+3

bcf     INTCON,INTF

incf MODESEL

retfie

end