//PIC16F628a 
// Bottom left-hand LED flashes at 2Hz
void main (){                           //Start
CMCON=0x7;           // Turn comparators off andenable pins for I/O functions
TRISA=0;                              // Make all RA lines output
TRISB=0;                               //Make all RB lines output
PORTA=0x02;                       // Reset the 4017

while(1){                                 //Endless loop
PORTB=0x01;                       // turn on first LED
Delay_ms(250);                     // Call Delay 250 ms
PORTB=0x0;                         // turn off first LED
Delay_ms(250);                     // Call Delay250 ms
}
}

PORTB=0xFF;

PORTB=0x00;

;PIC16F84 and only F84 chip         
;First column LEDs  flashe at 2Hz 

 
Start   ORG 0x00
           BSF 03,5             ;Go to page1 for setting-up the ports
           MOVLW 00h       ;Put 00 into W             
           MOVWF 05h       ;Make all RA lines output        
           MOVWF 06h       ;Make all RB lines output
           BCF 03,5             ;Go to Page0 for programming
           MOVLW 02h        ;Put 02 into W to
           MOVWF 05h        ;    Reset the 4017
 
Flash   MOVLW 0FFh           ;Put FF into W
           MOVWF 06h         ; and output to turn on all LEDs
           CALL Delay          ;Call Delay
           MOVLW 00           ;Put 00 into W
           MOVWF 00h         ;To turn off all LEDs
           CALL Delay          ;Call Delay
           GOTO Flash         ;Repeat cycle   
 
Delay    MOVLW 03
             MOVWF 1Ah
Delay1   DECFSZ 1Bh,1
             GOTO Delay1
             DECFSZ 1Ch,1
             GOTO Delay1
             DECFSZ 1Ah,1
             GOTO Delay1
             RETURN
 
             END

//PIC16F628a 
// First column LEDs  flashe at 2Hz 
void main (){                           //Start
CMCON=0x7;           // Turn comparators off andenable pins for I/O functions
TRISA=0;                              // Make all RA lines output
TRISB=0;                               //Make all RB lines output
PORTA=0x02;                       // Reset the 4017

 
while(1){                                 //Endless loop
PORTB=0xFF;                      // turn on  all first column LEDs
Delay_ms(250);                     // Call Delay 250 ms
PORTB=0x00;                                   // turn off all first column LEDs
Delay_ms(250);                     // Call Delay250 ms
}
}

;PIC16F84 and only F84 chip         
;First column of LEDs scan from bottom to top at 2Hz. 

 
Start   ORG 0x00
           BSF 03,5             ;Go to page1 for setting-up the ports
           MOVLW 00h       ;Put 00 into W             
           MOVWF 05h       ;Make all RA lines output        
           MOVWF 06h       ;Make all RB lines output
           BCF 03,5             ;Go to Page0 for programming
           MOVLW 02h        ;Put 02 into W to
           MOVWF 05h        ;    Reset the 4017  
Scan    BCF 03h,0           ;clear the carry flag
            MOVLW 01h
            MOVWF 06h
Scan1   CALL Delay
RLF 06h,1
            GOTO Scan1
 
Delay     MOVLW 03
             MOVWF 1Ah
Delay1   DECFSZ 1Bh,1
             GOTO Delay1
             DECFSZ 1Ch,1
             GOTO Delay1
             DECFSZ 1Ah,1
             GOTO Delay1
             RETURN
 
 
             END

//PIC16F628A  
//First column of LEDs scan from bottom to top at 2Hz. 
char count;
void main (){                           //Start

 
TRISA=0;                              // Make all RA lines output
TRISB=0;                               //Make all RB lines output
PORTA=0x02;                       // Reset the 4017
 
while(1){         //Endless loop
PORTB=0x01;                       // turn on first LED
for(count=0;count<6;count++){
Delay_ms(250);                     // Call Delay 250 ms
PORTB=PORTB<<1;           // turn off first LED
Delay_ms(250);                     // Call Delay250 ms
}
}
}

//PIC16F628a
//LEDs scan up and down at 2Hz.

void main (){                           //Start
unsigned short count;            //Loop count variable unsigned short (int)
TRISA=0;                               // Make all RA lines output
TRISB=0;                               //Make all RB lines output
PORTA=0x02;                       // Reset the 4017

while(1){                                 //Endless loop
PORTB=0x01;                       // turn on first LED
Delay_ms(500);                     // Call Delay 500 ms

if(PORTB.F0=1){                         //Shift UP
           for(count =0; count <6; count ++){
           PORTB=PORTB<<1;            // turn off first LED
           Delay_ms(500);                      // Call Delay 500 ms
           }
}

if(PORTB.F6=1){                         //Sift DOWN
         for(count =0;count<6; count ++){
         PORTB=PORTB>>1;              // turn off first LED
         Delay_ms(500);                        // Call Delay 500 ms
         }
     }

}
}