PIC单片机花式点亮LED

编写LED点亮程序，要求循环实现以下功能：

• 打开所有的LED灯
• 从左到右依次熄灭其中一个LED灯
• 从左到右依次点亮其中一个LED灯
• 从右到左依次熄灭其中一个LED灯
• 从左到右逐个点亮LED灯
• 关闭所有的LED灯
• 从右到左逐个点亮LED灯
• 关闭所有的LED灯
• 从外向内对称点亮LED灯
• 从外向内对称关闭LED灯

;********************************************************************************
; 跳线接法：用短接帽短接P14
; 功能描述: 8位LED接PORTD，L1~L8分别对应RD0~RD7
;******************************************************************************/

 list       p=16f877A       ; 标明所用的处理器类型
 #include   <p16f877A.inc>  ; 调用头文件 
 __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_OFF & _HS_OSC & _WRT_OFF & _LVP_OFF & _CPD_OFF;熔丝位配置字
; _CP_OFF: 代码保护关闭
; _WDT_OFF: 看门狗关闭
; _BODEN_OFF: 低压复位关闭
; _PWRTE_OFF: 上电延时计数关闭
; _HS_OSC : 外部高速振荡器使能
; _WRT_OFF : 写程序存储器保护关闭 
; _LVP_OFF : 低电压编程关闭
; _CPD_OFF : EEPROM存储器代码保护

;***** 变量声明*******************************************************
D1            EQU  0x20             ; 变量1，在HC595的初始化中使用
PORTD_SHADOW  EQU 0x21              ; PORTD的影子寄存器

L1            EQU  0x77             ; 延时函数循环变量
L2            EQU  0x78             ; 延时函数循环变量
L3            EQU  0x79             ; 延时函数循环变量
i             EQU  0x7A             ; 循环变量i
TEMP          EQU  0x7B             ; 临时变量TEMP

w_temp        EQU   0x7D            ; 中断现场保护
status_temp   EQU   0x7E            ; 中断现场保护
pclath_temp   EQU   0x7F            ; 中断现场保护             
;**********************************************************************
    ORG         0x0000              ; 复位入口地址
    nop                             ; 与ICD调试配合的nop
    goto        main                ; 跳转到Main
;**********************************************************************
    ORG         0x0004              ; 中断向量入口地址
    movwf       w_temp              ; 入栈保护
    movf        STATUS,w          
    movwf       status_temp        
    movf        PCLATH,w     
    movwf       pclath_temp  
;**********************************************************************
          
;**********************************************************************
EndOfInt  
    movf        pclath_temp,w       ; 出栈
    movwf       PCLATH        
    movf        status_temp,w    
    movwf       STATUS                
    swapf       w_temp,f
    swapf       w_temp,w           
;********************************************************************** 
    retfie                          ;  中断返回      

;--------------------Main的代码-----------------------------------------------------------------
main       
;************************开发板显示界面的通用初始化*********************************
           banksel      TRISD             ; 选择bank1
           clrf         TRISD             ; 设置RD0-RD7为输出模式
           bcf          TRISE, PSPMODE    ; 设置D端口为I/O端口模式              
           call         HC595_Init        ; 调用子程序，初始化HC595
           movlw 0x00;                    ; 设置选中的HC595行
           call        HC595_Write_Byte   ; 调用子程序，选中所需的HC595行
           call        TurnOff_7LEDs      ; 调用子程序，关闭七段码LED 
;**********************************************************************************
           banksel  PORTD                 ; 选择bank0
Loop1
           movlw  b'00000000'             ; 打开所有的LED灯
           movwf  PORTD
           movlw  .100
           call   DelayMS 
           movlw  b'00000001'
           movwf  PORTD_SHADOW
           movlw  .8
           movwf   i
Loop2                                     ; 从左到右依次熄灭其中一个LED灯
           movf    PORTD_SHADOW,W
           movwf   PORTD
           movlw   .100
           call    DelayMS
           bcf     STATUS,C
           RLF     PORTD_SHADOW
           decfsz  i,F
           goto    Loop2 
           movlw  .8
           movwf   i
           movlw   b'11111110'
           movwf   PORTD_SHADOW
Loop3                                     ; 从左到右依次点亮其中一个LED灯
           movf    PORTD_SHADOW,W
           movwf   PORTD
           movlw   .100
           call    DelayMS
           bsf     STATUS,C
           RLF     PORTD_SHADOW
           decfsz  i,F
           goto    Loop3  
           movlw  .8
           movwf   i
           movlw   b'10000000'
           movwf   PORTD_SHADOW
Loop4                                     ; 从右到左依次熄灭其中一个LED灯
           movf    PORTD_SHADOW,W
           movwf   PORTD
           movlw   .100
           call    DelayMS
           bcf     STATUS,C
           RRF     PORTD_SHADOW
           decfsz  i,F
           goto    Loop4 

           movlw  .8
           movwf   i
           movlw   b'11111110'
           movwf   PORTD_SHADOW
Loop5                                     ; 从左到右逐个点亮LED灯
           movf    PORTD_SHADOW,W
           movwf   PORTD
           movlw   .100
           call    DelayMS
           bcf     STATUS,C
           RLF     PORTD_SHADOW
           decfsz  i,F
           goto    Loop5
           
           movlw   b'11111111'            ; 关闭所有LED灯
           movwf   PORTD 
           movlw   .100
           call    DelayMS

           movlw  .8
           movwf   i
           movlw   b'01111111'
           movwf   PORTD_SHADOW
Loop6                                     ; 从右到左逐个点亮LED灯
           movf    PORTD_SHADOW,W
           movwf   PORTD
           movlw   .100
           call    DelayMS
           bcf     STATUS,C
           RRF     PORTD_SHADOW
           decfsz  i,F
           goto    Loop6

           movlw   b'11111111'            ; 关闭所有LED灯
           movwf   PORTD 
           movlw   .100
           call    DelayMS

           movlw  .4           
           movwf   i
           movlw   b'01111110'
           movwf   PORTD_SHADOW
           movwf   TEMP
Loop7                                     ; 从外向内对称点亮LED灯
           movf    PORTD_SHADOW,W
           movwf   PORTD
           movlw   .100
           call    DelayMS
           bcf     STATUS,C
           RRF     PORTD_SHADOW
           bcf     STATUS,C
           RLF     TEMP
           movf    TEMP,W
           andwf   PORTD_SHADOW,F
           decfsz  i,F
           goto    Loop7

           movlw  .4           
           movwf   i
           movlw   b'10000001'
           movwf   PORTD_SHADOW
           movwf   TEMP
Loop8                                     ; 从外向内对称关闭LED灯
           movwf   PORTD
           movlw   .100
           call    DelayMS
           bsf     STATUS,C
           RRF     PORTD_SHADOW
           bsf     STATUS,C
           RLF     TEMP
           movf    TEMP,W
           addwf   PORTD_SHADOW,W
           decfsz  i,F
           goto    Loop8
                      
           goto      Loop1                             ; 重复主循环

;------------------------------子函数-----------------------------------------------
;********HC595_Init******************
HC595_Init                              ; 初始化 74HC595
          banksel  ADCON1               
          movlw    0x8E                 
          movwf    ADCON1               
          bcf      TRISA, 5             ; SCK_595
          bcf      TRISE, 0             ; RCK_595
          bcf      TRISC, 0             ; SER_595
          return                             ;
;********HC595_Write_Byte***********
HC595_Write_Byte                        ; 设置 74HC595选中的行，具体的行数由W寄存器的值决定
          banksel  D1                        
          movwf    D1                         
          movlw    .8                           
          movwf    i                              
Loop_595
          btfsc    D1, 7                    
          goto     SET1_595          
          goto     SET0_595          
SET1_595
          bsf      PORTC, 0           
          goto     Clock_595         
 SET0_595
          bcf      PORTC, 0           
          goto     Clock_595         
Clock_595
          nop                                      
          bcf      PORTA, 5                     
          RLF      D1, f                     
          bsf      PORTA, 5           
          decfsz   i, f                         
          goto     Loop_595              
          bcf      PORTE, 0          
          nop                                     
          bsf      PORTE, 0                  
          nop   
          return                               
;********TurnOff_7LEDs *************
TurnOff_7LEDs                            ; 关闭七段码显示器
          banksel  TRISA           
          bcf      TRISA, 2      
          bcf      TRISA, 3      
          bcf      TRISA, 4      
          banksel  PORTA        
          bsf      PORTA, 2   
          bsf      PORTA, 3   
          bsf      PORTA, 4   
          return                         

;**************DelayMS**************
DelayMS                                 ; 延时x毫秒，x由变量W设定
          movwf    L1                 
LL1
          movlw    .17                
          movwf    L2                 
LL2
          movlw    .97            
          movwf    L3                 
LL3        
          decfsz   L3, f             
          goto     LL3              
          decfsz   L2, f             
          goto     LL2              
          decfsz   L1, f             
          goto     LL1              
          return                         
;----------------------------------------------------------------------------------
END                                        ; 程序结束