; A PORTUNUN 2. BİT'İNDEKİ BUTONA BASINCA B PORTUNA BAĞLI TÜM LED'LERİ YAKAN PROGRAM
;::::05.05.2011:::UYG4.ASM::::::
LIST P=16F84 
	INCLUDE"P16F84.INC"			;Adresleri belirt. Dosyayı yukle
	CLRF 		PORTB 			;PORTB‘ yi temizle
	BSF   		STATUS, 5  		;BANK1'e geç 
	CLRF 		TRISB       			;PORTB'nin uçlarına. çıkış yap 
	MOVLW 		h'FF'       			;W registere h'FF' yükle 
	MOVWF 		TRISA    			;PortA'nın uçlarını giriş yap 
	BCF   		STATUS, 5   		;BANK0'a geç
TEST_PORTA
	BTFSC 		PORTA, 2     		;A portunun 2. bitini test et
	GOTO 		TEST_PORTA   		;0 değilse tekrar test et
	MOVLW 		b'11111111'  		;W registere b‘11111111' yükle 
	MOVWF 		PORTB 			;W registere içeriğini PORTB ye yükle 
DONGU
	GOTO 		DONGU 
	END