Elektronik ve Teknoloji Merkezi Elektrotekno.com
Elektronik ve Teknoloji Merkezi



Click here to go to the original topic

Elektrotekno.com Ana Sayfa Microchip Pic Serisi
Yazar Mesaj
seba
Tarih: 26.04.2007, 10:34 Mesaj konusu: ASM ile pic 16f877 seri haberleşme - yardım


senkron seri haberleşmede gönderdiğim veriyi portb de alınan veriyide portd de göstermeye çalışıorum. b'00000000' gönderdiğimde sonuç doğru ama bitlerden 1 tanesi bile 1 olsa b'11111111' gösteriyor.
yardım ederseniz çok sevinirim

veri gönderen picin programı
lıst p=16f877
ınclude "p16f877.ınc"

org 0x00

call ınıt
gonder
banksel txsta
bcf txsta,txen
nop
nop
nop
bsf txsta,txen

banksel pır1
btfss pır1,txıf
goto $-1

movlw b'01000001'
banksel txreg
movwf txreg
;banksel txsta
;btfss txsta,trmt ;gonderme bıttımı
;goto $-1

banksel portb
movwf portb

movlw 0x01
banksel porte
movwf porte

goto gonder

ınıt
banksel adcon0
bsf adcon0,0

banksel adcon1
movlw b'00000110' ;porta dıgıtal
movwf adcon1

banksel trısb
clrf trısb ;portb,d cıkıs
clrf trısd
clrf trıse
movlw b'01000000'
movwf trısc

banksel portb
clrf portb
clrf portd
clrf porte
movlw b'11000000'
movwf portc

banksel txreg
clrf txreg

banksel txsta
movlw b'10010000' ;master
movwf txsta ;transmıssıon enable

banksel rcsta
movlw b'10000000'
movwf rcsta

banksel spbrg
movlw d'25' ;9600bps ıcın,sync=0
movwf spbrg ;rbgh=1(hıgh speed)

return

end





veri alan picin programı

lıst p=16f877
ınclude "p16f877.ınc"

org 0x00

call ınıt
basla
al

banksel rcsta
bcf rcsta,cren
nop
nop
nop
bsf rcsta,cren

banksel pır1
btfss pır1,rcıf ;karsılama tamamlanmısmı
goto $-1

banksel rcreg
movf rcreg,w ;alınan verı w'da
banksel portd
movwf portd
nop
nop
nop
nop
nop
nop

goto basla

ınıt
banksel adcon0
bsf adcon0,0

banksel adcon1
movlw b'00000110' ;porta dıgıtal
movwf adcon1

banksel trısb
clrf trısb ;portb,d cıkıs
clrf trısd
clrf trıse
movlw b'11000000'
movwf trısc

banksel portb
clrf portb
clrf portd
clrf porte
movlw b'11000000'
movwf portc

banksel rcreg
clrf rcreg

banksel txsta
movlw b'00010000' ;slave
movwf txsta ;transmıssıon enable

banksel rcsta
movlw b'10000000'
movwf rcsta

banksel spbrg
movlw d'25' ;9600bps ıcın,sync=0
movwf spbrg ;rbgh=1(hıgh speed)

return

end
-----------------------------------------------------

SOVALYE
Tarih: 06.11.2007, 13:20 Mesaj konusu:

PicBasic dilinde yazsaydın daha anlaşılır olurdu....ASM bilen çok fazla yok..
Elektrotekno.com Ana Sayfa Microchip Pic Serisi
1. sayfa (Toplam 1 sayfa)

ASM ile pic 16f877 seri haberleşme - yardım

Gizlilik Politikası

PLC programming