giyotin6
Üye
- Katılım
- 18 Eki 2010
- Mesajlar
- 49
- Puanları
- 1
A1 e basılınca F0
A2 ye basılınca 0F bilgisi yüklenecek.
Programda veya açıklamalarındaki eksiklikleri söylerseniz mutlu olurum.
A2 ye basılınca 0F bilgisi yüklenecek.
Programda veya açıklamalarındaki eksiklikleri söylerseniz mutlu olurum.
PHP:
LIST p=16F84A
INCLUDE "P16F84A.INC"
;******************REGISTER BELİRLEME**************
PORTB EQU H'06'
STATUS EQU H'03'
TRISB EQU H'86'
PORTA EQU H'05'
SAYAC EQU H'0C'
TRISA EQU H'85'
;******************PORT AYARLARI**************
CLRF PORTB ;PORTB SIFIRLANDI
BSF STATUS,5 ;STATUSUN 5 NOLU BİTİ SET EDİLDİ PAGE 1 DEYİZ BSF H'03',5
CLRF TRISB ;TRISB SIFIRLANARAK PORTB NİN TUM BİTLERİ ÇIKIŞ OLARAK DÜZENLEDNDİ
MOVLW H'FF'
MOVWF TRISA ;portA giriş olarak seçildi.
BCF STATUS,5 ;STATUSUN 5 NOLU BİTİ SIFIRLANDI PAGE 0 DAYIZ
;************ PROGRAM BAŞLANGICI************
PORT0 BTFSS PORTA,0 ;Hayır ise alt satıra geçer, EVET ise bir satır atlar.
GOTO PORT1 ;HAYIR ile gelir. TESTET e gider.
NOP ;EVET bir saykıl bekle.
NOP ;" " " " " .
NOP
MOVLW D'10101010'
MOVWF PORTB
PORT1 BTFSS PORTA,1 ;PORTA NIN 1. BİTİNE BAĞLI BUTONA BASILI MI?
GOTO PORT0 ;HAYIR, TESTET e giT.
NOP ;EVET, bir saykıl bekle.
NOP
MOVLW D'01010101' ;EVET ise bitir.
MOVWF PORTB
NOP
END