11-Pic-İki Buton Yardımıyla Bit Sevyesinde Artırma Azaltma

 artırma ve azaltma yapan bir program

LIST P=16F84

STATUS EQU 03H

PORTA EQU 05H

PORTB EQU 06H

TRISA EQU 85H

TRISB EQU 86H

SAYAC1 EQU H'0C'

SAYAC2 EQU H'0D'

SAYAC3 EQU H'0E'

SAYI EQU H'0F'

CLRF PORTA ;PORTA temizlenir

CLRF PORTB ;PORTB temizlenir

CLRF SAYI

BSF STATUS, 5 ;BANK1’e geçilir

MOVLW H'FF'

MOVWF TRISA ;PORTA tüm uçlar giriş olacaktır

CLRF TRISB ;PORTB tüm uçlar çıkış olacaktır

BCF STATUS, 5 ;BANK0’a geçilir

BASLA

BT1 BTFSS PORTA,0 ;PORTA 0. bitini test et

GOTO BT2

CALL ZAMAN

INCF SAYI,1

MOVF SAYI,0

MOVWF PORTB

GOTO BASLA

BT2 BTFSS PORTA,1 ;PORTA 0. bitini test et

GOTO BT1

CALL ZAMAN

DECF SAYI,1

MOVF SAYI,0

MOVWF PORTB

GOTO BASLA

GOTO BASLA ;Başa dön

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

ZAMAN MOVLW D'5'

MOVWF SAYAC1

TIMER1 MOVLW D'100'

MOVWF SAYAC2

TIMER2

MOVLW D'100'

MOVWF SAYAC3

TIMER3

DECFSZ SAYAC3,F

GOTO TIMER3

DECFSZ SAYAC2,F

GOTO TIMER2

DECFSZ SAYAC1,F

GOTO TIMER1

RETURN

END ;Program sonu.