ÖRNEK
PROGRAM-1: PORTB uçlarına bağlı ledlerin kontrolü (MOVLW, MOVWF)
|
ÖRNEK PROGRAM-1 |
|||
|
ETİKET |
KOMUT |
ADRES/VERİ |
AÇIKLAMA |
|
; MOVLW, MOVWF komutları |
|
||
|
|
LIST |
P=16F84 |
;PIC entegre no. |
|
|
INCLUDE |
"P16F84.INC” |
;PIC16f84’e ait SFR
adres tanımlaması |
|
|
__CONFIG |
0X01 |
;konfigürasyon
düzenlemesi ;KOD KORUMASI VAR,
PWRT AÇIK, WDT ;KAPALI, KRİSTAL OSİLATÖR |
|
|
BSF
|
STATUS,5 |
;BANK1 |
|
|
CLRF |
TRISB |
;TRISB= (0000 0000
)b, PORTB çıkış |
|
|
BCF |
STATUS,5 |
;BANK0 |
|
|
MOVLW |
B’11110000’ |
;W = ( 1111 0000)b |
|
|
MOVWF |
PORTB |
;W -à PORTB ‘ye, PORTB= (
1111 0000)b ;D8 D7 D6 D5 ledleri
ışık verir. ;D4 D3 D2 D1 ledleri
sönük kalır. |
|
|
END |
|
;Son |
ÖRNEK PROGRAM-2: PORTB uçlarına bağlı ledlerden istenileni yakmak (BSF, BCF)
|
ÖRNEK PROGRAM-2 |
|||
|
ETİKET |
KOMUT |
ADRES/VERİ |
AÇIKLAMA |
|
;
BSF, BCF komutları |
|
||
|
|
LIST |
P=16F84 |
;PIC entegre no. |
|
|
INCLUDE |
"P16F84.INC” |
;PIC16f84’e ait SFR
adres tanımlaması |
|
|
__CONFIG |
0X01 |
;konfigürasyon
düzenlemesi KOD KORUMASI VAR,
PWRT AÇIK, WDT KAPALI, KRİSTAL OSİLATÖR |
|
|
BSF
|
STATUS,5 |
;BANK1 |
|
|
CLRF |
TRISB |
;TRISB= (0000 0000
)b, PORTB çıkış |
|
|
BCF |
STATUS,5 |
;BANK0 |
|
|
BSF |
PORTB,0 |
;D1 LEDİ IŞIK VERİR |
|
|
BSF |
PORTB,2 |
;D2 LEDİ IŞIK VERİR |
|
|
BSF |
PORTB,4 |
;D4 LEDİ IŞIK VERİR |
|
|
END |
|
;Son |