hb.asm

PIC12F629写的另一个LED变化程序(慢慢从暗到最亮,用时三秒-->维持最亮四秒-->慢慢从最亮变暗,用时三秒-->维持暗灭两秒, 周而复始.

LIST P=PIC12F629, R=DEC 
#include <p12F629.inc>
 INCF 0x25, F                           
 BTFSC STATUS, 0x2                      
 INCF 0x26, F                           
 BCF STATUS, 0x5                        
 MOVF 0x2d, W                           
 MOVWF STATUS                           
 SWAPF 0x20, F                          
 SWAPF 0x20, W                          
 RETFIE                                 
 MOVLW 0x21                             
 MOVWF FSR                              
 MOVLW 0x27                             
 CALL 0x27                              
 CLRF STATUS                            
 MOVLW 0x3                              
 MOVWF 0x2c                             
 MOVLW 0xfc                             
 MOVWF 0x2b                             
 MOVLW 0x27                             
 MOVWF FSR                              
 MOVLW 0x2a                             
 CALL 0x2b                              
 CLRF STATUS                            
 GOTO 0x36d                             
 XORWF FSR, W                           
 CLRF INDF                              
 INCF FSR, F                            
 XORWF FSR, W                           
 BTFSS STATUS, 0x2                      
 GOTO 0x24                              
 RETLW 0                                
 MOVWF 0x2a                             
 CALL 0x36                              
 MOVWF INDF                             
 INCF FSR, F                            
 MOVF FSR, W                            
 XORWF 0x2a, W                          
 BTFSC STATUS, 0x2                      
 RETLW 0                                
 GOTO 0x2c                              
 BCF STATUS, 0x5                        
 MOVWF 0x2b                             
 BTFSC 0x2c, 0x7                        
 GOTO 0x3f                              
 MOVF 0x2c, W                           
 MOVWF PCLATH                           
 MOVF 0x2b, W                           
 INCF 0x2b, F                           
 BTFSC STATUS, 0x2                      
 INCF 0x2c, F                           
 MOVWF PCL                              
 BCF STATUS, 0x7                        
 BTFSC 0x2c, 0                          
 BSF STATUS, 0x7                        
 MOVF 0x2b, W                           
 INCF 0x2b, F                           
 MOVWF FSR                              
 MOVF INDF, W                           
 RETURN                                 
                             
 MOVLW 0xb6                             
 BCF STATUS, 0x5                        
 MOVWF TMR0                             
 BSF STATUS, 0x5                        
 BCF TMR0, 0x5                          
 BSF TMR0, 0x3                          
 BCF INTCON, 0x2                        
 BSF INTCON, 0x5                        
 BCF STATUS, 0x5                        
 RETURN                                 
 BCF STATUS, 0x5                        
 CLRF GPIO                              
 MOVLW 0x7                              
 MOVWF CMCON                            
 MOVLW 0x8                              
 BSF STATUS, 0x5                        
 MOVWF GPIO                             
 MOVLW 0x17                             
 BCF STATUS, 0x5                        
 MOVWF GPIO                             
 RETURN                                 
 MOVLW 0x80                             
 BSF STATUS, 0x5                        
 MOVWF T1CON                            
 MOVLW 0xf                              
 MOVWF TMR0                             
 BCF STATUS, 0x5                        
 CALL 0x358                             
 CALL 0x362                             
 MOVLW 0xf                              
 BSF STATUS, 0x5                        
 MOVWF 0x15                             
 BCF INTCON, 0x7                        
 BSF STATUS, 0x5                        
 BCF TMR0, 0x7                          
 MOVLW 0x1f                             
 MOVWF 0x15                             
 BSF INTCON, 0x7                        
 BCF STATUS, 0x5                        
 MOVF 0x29, F                           
 BTFSC STATUS, 0x2                      
 GOTO 0x3a8                             
 MOVF 0x28, W                           
 SUBWF 0x26, W                          
 BTFSS STATUS, 0x2                      
 GOTO 0x388                             
 MOVF 0x27, W                           
 SUBWF 0x25, W                          
 BTFSC STATUS, 0                        
 GOTO 0x38c                             
 MOVLW 0x17                             
 MOVWF GPIO                             
 MOVF 0x26, W                           
 SUBWF 0x28, W                          
 BTFSS STATUS, 0x2                      
 GOTO 0x392                             
 MOVF 0x25, W                           
 SUBWF 0x27, W                          
 BTFSC STATUS, 0                        
 GOTO 0x396                             
 MOVLW 0x8                              
 MOVWF GPIO                             
 MOVF 0x25, W                           
 XORLW 0xf0                             
 IORWF 0x26, W                          
 BTFSS STATUS, 0x2                      
 GOTO 0x3a8                             
 CLRF 0x25                              
 CLRF 0x26                              
 MOVF 0x27, F                           
 BTFSC STATUS, 0x2                      
 DECF 0x28, F                           
 DECF 0x27, F                           
 MOVF 0x28, W                           
 IORWF 0x27, W                          
 BTFSS STATUS, 0x2                      
 GOTO 0x3a8                             
 CLRF 0x29                              
 CLRF 0x21                              
 INCF 0x21, F                           
 MOVF 0x21, F                           
 BTFSC STATUS, 0x2                      
 GOTO 0x3bd                             
 MOVLW 0x8                              
 MOVWF GPIO                             
 MOVF 0x25, W                           
 XORLW 0xf0                             
 IORWF 0x26, W                          
 BTFSS STATUS, 0x2                      
 GOTO 0x3bd                             
 CLRF 0x25                              
 CLRF 0x26                              
 INCF 0x24, F                           
 MOVF 0x24, W                           
 XORLW 0xb4                             
 BTFSS STATUS, 0x2                      
 GOTO 0x3bd                             
 CLRF 0x21                              
 CLRF 0x22                              
 INCF 0x22, F                           
 CLRF 0x24                              
 MOVF 0x22, F                           
 BTFSC STATUS, 0x2                      
 GOTO 0x3e6                             
 MOVF 0x28, W                           
 SUBWF 0x26, W                          
 BTFSS STATUS, 0x2                      
 GOTO 0x3c6                             
 MOVF 0x27, W                           
 SUBWF 0x25, W                          
 BTFSC STATUS, 0                        
 GOTO 0x3ca                             
 MOVLW 0x17                             
 MOVWF GPIO                             
 MOVF 0x26, W                           
 SUBWF 0x28, W                          
 BTFSS STATUS, 0x2                      
 GOTO 0x3d0                             
 MOVF 0x25, W                           
 SUBWF 0x27, W                          
 BTFSC STATUS, 0                        
 GOTO 0x3d4                             
 MOVLW 0x8                              
 MOVWF GPIO                             
 MOVF 0x25, W                           
 XORLW 0xf0                             
 IORWF 0x26, W                          
 BTFSS STATUS, 0x2                      
 GOTO 0x3e6                             
 CLRF 0x25                              
 CLRF 0x26                              
 INCF 0x27, F                           
 BTFSC STATUS, 0x2                      
 INCF 0x28, F                           
 MOVF 0x27, W                           
 XORLW 0xf0                             
 IORWF 0x28, W                          
 BTFSS STATUS, 0x2                      
 GOTO 0x3e6                             
 CLRF 0x22                              
 CLRF 0x23                              
 INCF 0x23, F                           
 MOVF 0x23, F                           
 BTFSC STATUS, 0x2                      
 GOTO 0x379                             
 MOVLW 0x17                             
 MOVWF GPIO                             
 MOVF 0x25, W                           
 XORLW 0xf0                             
 IORWF 0x26, W                          
 BTFSS STATUS, 0x2                      
 GOTO 0x379                             
 CLRF 0x25                              
 CLRF 0x26                              
 INCF 0x24, F                           
 MOVF 0x24, W                           
 XORLW 0x3c                             
 BTFSS STATUS, 0x2                      
 GOTO 0x379                             
 CLRF 0x23                              
 CLRF 0x29                              
 INCF 0x29, F                           
 CLRF 0x24                              
 GOTO 0x379                             
 RETLW 0xf0                             
 RETLW 0                                
 RETLW 0x1                              
 ADDLW 0xff