;::::::::03.05.2010::::::::12.hafta::::::::12.12.uygulama:..........
LIST    	P=16F84 
INCLUDE 	"P16F84.INC" 

SAYAC1	EQU     	h'0C' 
SAYAC2	EQU     	h'0D' 
MEM	EQU	h'0E'

CLRF    	PORTB		;PortB'yi sıfırla	 
BSF     	STATUS, 5  	;BANK2'ye geç 
CLRF    	TRISB    		;PortA'nın 1. Bit'i giriş 
BCF     	STATUS, 5   	;BANKl'e geç 

MOVLW	h'01'		;PORTB NİN SIFIRINCI BİTİNİ YAKMAK İÇİN
MOVWF	MEM
MOVF    	MEM,W        	;MEM --->> W e taşı
MOVWF   	PORTB      		; ilk halini portb ye bağlı led lerde göster 
CALL	GECIKME

SOLA
RLF    	MEM, 1        	;Mem içeriğini bir bit sola ötele ötelenmiş halini yine mem e yaz
MOVF    	MEM,W        	;MEM --->> W e taşı
MOVWF   	PORTB      		;bir bit ötelenmiş halinin portb ye bağlı led lerde göster 
CALL	GECIKME
BTFSS		MEM,7
GOTO	SOLA
GOTO    SAGA
SAGA
RRF		MEM,1
MOVF    	MEM,W        	;MEM --->> W e taşı
MOVWF   	PORTB      		;bir bit ötelenmiş halinin portb ye bağlı led lerde göster 
CALL	GECIKME
BTFSS		MEM,0
GOTO	SAGA
GOTO	SOLA
;===========; Gecikme alt programı.===========
GECIKME
MOVLW   	h'FF' 
MOVWF   	SAYAC1 
DONGU1
MOVLW   	h'FF' 
MOVWF   	SAYAC2 

DONGU2
DECFSZ  	SAYAC2, F 
GOTO    	DONGU2 
DECFSZ  	SAYAC1, F 
GOTO    	DONGU1
RETURN 
END