; A portunun 1. bitine bağlı butona 10 defa basınca B portunun 0. bit' indeki LED'i yakan program
;::::05.05.2011:::UYG5.ASM::::::::::::::::::::::::::::::::::

LIST	P=16F84
		INCLUDE 	"P16F84.INC" 
		SAYAC 		EQU	h'0C'		;SAYAC registerinin adresi
		
		CLRF    	PORTB
		BSF     	STATUS, 5
		CLRF    	TRISB
		MOVLW   	h'FF'
		MOVWF		TRISA
		BCF     	STATUS, 5 
		
		MOVLW   	b'00001010'		;W registerine 10 sayısını ata
		MOVWF 		SAYAC 			;W registerini SAYAC'a yükle 

TEST
	BTFSC   		PORTA,1			;PortA'nın 1. biti l’mi?
	GOTO    		TEST 			;Hayır, tekrar test et
	DECFSZ			SAYAC, F  			;SAYAC=SAYAC-1, SAYAC=0 mı?
GOTO    			TEST       			;Hayır, PortA'ya. test et
	BSF     		PORTB, 0  			;Evet, PortB 0. bitini 1 yap
	END