;::::::::12.05.2011::::::::::::::::uygulama-7::::::::::::: LIST P=16F84 INCLUDE "P16F84.INC" SAYACl 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ş BSF TRISA, 1 ;portB'nin uçları çıkış BCF STATUS, 5 ;BANKl'e geç CLRF MEM ;MEM registerini sıfırla TEKRAR BTFSC PORTA, 1 ;PortA'nın l.bit'i 0 mı? GOTO TEKRAR ;Hayır, tekrar test et CALL GECIKME INCF MEM ;Evet, MEM=MEM+1 MOVF MEM,W ;W?MEM GOTO YAK ;Hayır, Z=1 CALL GECIKME ;Evet, buton arkının sönmesini bekle YAK MOVWF PORTB ;PortB'deki tüm LED'leri yak CALL GECIKME GOTO TEKRAR ;Butonu test için başa git ;===========; Gecikme alt programı.=========== GECIKME MOVLW h'FF' MOVWF SAYACl DONGU1 MOVLW h'FF' MOVWF SAYAC2 DONGU2 DECFSZ SAYAC2, F GOTO DONGU2 DECFSZ SAYACl, F GOTO DONGU1 RETURN END