;========================== buton test 3 =============
LIST P=16F84A
PORTA EQU h'05'
PORTB EQU h'06'
TRISA EQU h'85'
TRISB EQU h'86'
STATUS EQU h'03'
HAFIZA EQU h'0C'
BSF STATUS,5
CLRF TRISB
MOVLW h'FF'
MOVWF TRISA
BCF STATUS,5
CLRF PORTB
KAR1
MOVLW h'00'
MOVWF HAFIZA
MOVF PORTA,W
SUBWF HAFIZA,W
BTFSS STATUS,2
GOTO KAR2
BSF PORTB,0
KAR2
MOVLW h'01'
MOVWF HAFIZA
MOVF PORTA,W
SUBWF HAFIZA,W
BTFSS STATUS,2
GOTO KAR3
BSF PORTB,1
KAR3
MOVLW h'02'
MOVWF HAFIZA
MOVF PORTA,W
SUBWF HAFIZA,W
BTFSS STATUS,2
GOTO KAR4
BSF PORTB,2
KAR4
MOVLW h'03'
MOVWF HAFIZA
MOVF PORTA,W
SUBWF HAFIZA,W
BTFSS STATUS,2
GOTO KAR5
BSF PORTB,3
KAR5
MOVLW h'04'
MOVWF HAFIZA
MOVF PORTA,HAFIZA
SUBWF HAFIZA,W
BTFSS STATUS,2
GOTO KAR6
BSF PORTB,4
KAR6
MOVLW h'05'
MOVWF HAFIZA
MOVF PORTA,W
SUBWF HAFIZA,W
BTFSS STATUS,2
GOTO KAR7
BSF PORTB,5
KAR7
MOVLW h'06'
MOVWF HAFIZA
MOVF PORTA,W
SUBWF HAFIZA,W
BTFSS STATUS,2
GOTO KAR8
BSF PORTB,6
KAR8
MOVLW h'07'
MOVWF HAFIZA
MOVF PORTA,W
SUBWF HAFIZA,W
BTFSS STATUS,2
GOTO KAR1
BSF PORTB,7
END
Arkadaşlar bu programı yaptım ama bir durum dan öbür duruma geçtiğimde bir önceki durumda yanan led sönmedi. Programdanda bunu görüyoruz zaten. her kar etiketinden sonra clrf portb yazdım bunun sonucunda led yanıp yanıp söndü. bana devamlı yanması lazım.
Herkese kolay gelsin.