6-Pic- Butonla Çoklu Led Yakma

b portunun 3 numaralı bacağına bağlı bir butonla porta ya bağlı bütün ledleri yakan program

LIST P=16F84

;**************************************************

STATUS EQU H'03'

PORTA EQU H'05'

PORTB EQU H'06'

TRISA EQU H'85'

TRISB EQU H'86'

CLRF PORTB

CLRF PORTA

;************************************************

BSF STATUS,5 ;bank 1 e geçiş yapıldı

CLRF TRISA ;a portu çıkış yapıldı

MOVLW H'FF' ;

MOVWF TRISB ;b portu giriş yapıldı

BCF STATUS,5

;****************************************************

BASLA

BT1 BTFSS PORTB,3 ; portBnin 3 numaralı bacağına bağlı butona basılmışsa porta ya bağlı bürün ledleri yak

GOTO BT1

MOVLW B’11111111’

MOVWF PORTA ;portA ya bağlı ledleri yak

GOTO BASLA

;******************************************************

END