;Experiment-3 for "5x7 Video Screen" Project      
             ;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