LIST            p=16f877a
                #INCLUDE        <P16F877A.INC>
                LIST

                                                                                      
                __CONFIG        _XT_OSC&_CP_OFF&_LVP_OFF&_BODEN_OFF&_WDT_OFF
                                                                                     
                
                         cblock          20h                                                                                                   
                                         add1                                         
                         endc                                                         
                 ;*******************************{PORGRAM}****************************
                     movlw  b'01000001'                                  
                     movwf  add1                                         
          loop       movlw  b'01000001'                                  
                     subwf  add1,f   
                     goto	loop                                    
                 ;*****************************{SUBROUTINES}**************************
                                                                                      
                         end