Araçların takibi ve konumunun belirlenmesi amacıyla tasarlanan bu sistemde verici yerle tirilmi tüm araçların, daha önce alıcıların yerle tirildi i noktalardan geçtiklerinde verici ba lı aracın alıcı tarafından yakalanması ve tanınması, aracın tanınmasını engelleyecek hızın belirlenmesi, birden fazla aracın alıcının tanıma mesafesine aynı anda girmesi durumunda araçların her birinin ayrı ayrı tanınması, aracın tanınmasına engel olabilecek fizyolojik engellerin belirlenmesi gerçekle tirilmi olup araç plaka bilgileri otomatik olarak ara yüz pro ramında görülebilmektedir. Bu bilgiler ara yüz programından bilgisayara kaydedilmektedir. Bulunması istenilen araç plaka bilgisi ara yüz programına girildi inde aracın daha önce belirlenen her hangi bir noktadan geçmesi halinde gün, saat, dakika ve saniye olarak görülmektedir. Ayrıca belirlenen araçların tamamı bir liste halinde vurgulanarak ara yüz programında gösterilmektedir. GPS sisteminde olup da kullanımına izin verilmeyen, bir aracın yer ve konum belirleme i lemi rahatlıkla yapılmaktadır. Böylece kullanım alanına ve amacına ba lı olarak hareket halindeki istenilen araçların takibi yapılabilmektedir.
Yukarıda sayılan ve deneyleri yapılan ko ullar üst sınırlara çekildi inde yani çok yo un trafik ve çok olumsuz hava ko ullarında sistemin performansının dü tü üde görülmü tür. Bu ko ullarda sistemdeki alıcının konumunun, yönünün ve verici sinyal seviyesinin yükseltilerek performansı artırılabilir.
Projede tasarımı yapılan devrede bazı de i iklerle ve yazılımlarla araçlara ait sigorta, araç muayene, kasko, ruhsat bilgileri ve kullanıcıya ait tüm ehliyet bilgileri ula ılabilecek duruma getirilebilir. Bu bilgilere ula ım belirli kurum, kurulu ya da ahıslara özel tasarlanabilir. Böylece araçların nerden, ne zaman geçti i ve nerede oldu u bilgilerine ula ılabildi i gibi, ruhsat ve ehliyet bilgileri gibi sabit bilgilere’de ula mak mümkün olabilir.
9. KAYNAKLAR
1. Aktu B., Çelik R.N. 2004 “Kinematik Nesnelerin GPS ile zlenmesi, Sayısal Destekli Bir Navigasyon Sistemi”
2. ARX34 UHF ASK Data Receiver Ürün Kılavuzu, Aralık 2004 www.udea.com.tr 3. ATX34 UHF ASK Data Transmitter Ürün Kılavuzu, Eylül 2006
www.udea.com.tr
4. Beygo I., Kar ılayan M. 2006 “GPS’in Kısa Mesafelerde Hassasiyeti, Hassasiyeti Arttırma Yöntemleri ve Model Araba Navigasyonuna Uygulanabilirli i”
5. Corporation G. 2000 “GPS for Beginners” PDF Dökümanı www.garmin.com
6. Çama ırcıo lu E., 2007 “Araç Plakası Algılama ve Tanıma” Yüksek Lisans Tezi , Ankara Üniversitesi Fen Bilimleri Enstitüsü, Elektronik Muhendisli i Ana Bilim Dalı
7.
Göksu S., Kahraman N., Yıldırım T. 2007 “Araçlarda Kendi Kendine Yol Bulma Sistemi”8. Her Yönüyle Seri Port, Jan AXELSON, Infogate 2000,S:39-47
9. Hofmann B., Wellenhof Lichtenegger H., Collins J. 1992 “Theory and Practice of GPS” 4. Baskı SpringerWienNewYork
10. nan S.A., Koyun A. 2005 “RF & Internet le Uzaktan Kontrol Edilen çme Suyu Kuyuları Ve Su Depolarının PIC Mikrokontrolcü Destekli Otomasyonu Ve Geni Arazide Uygulanması”
11. yidir B., Özkazanç Y. 2004 “GPS Alicdarinin Karı tırılması (Jamming Of GPS”
12. J. Blake Bullock, T. Michael King, Howard L. Kennedy, Edward D. Berry, Gregg Zanfino “Test Results And Analysis Of A Low Cost Core Gps Receıver For Time Transfer Applicatıons” 0-7803-3728-X/97/$10.00 0 1997 IEEE
13. Jeff H., 1993 ”Differential GPS Explained” Tribmle Navigation
14.Kahraman F., Gökmen M. 2006 “Gabor Süzgeçler Kullanılarak Ta ıt Plakalarının Yerinin Saptanması”
15. Palancıo lu H.M., Kurban T. 2007 “Video Tabanlı Ölçme Yöntemi Ve Görsel Konum Belirleme” TMMOB Harita ve Kadastro Mühendisleri Odas Ulusal Co rafi Bilgi Sistemleri Kongresi
16. Parkinson B.W. 1994 "GPS Eyewitness: The Early Years" GPS World September
17. Pic16F877, Datasheet www.microchip.com
18. “Receivers” 0-7803-8318-4104/$20.00, 2004 IEEE
19. Söyler H., Odaba ı T. 2006 “Raylı Toplu Ula ımda Makinist Bilgilendirme ve Araç Takip Sistemleri” Uluslararası Demiryolu Sempozyumu
20. ahin H., Dayanık A., Altınba ak C. “PIC Programlama Teknikleri ve PIC16F877A” Alta Yayıncılık, stanbul 2006.
21. Tohum E. 1996 “Hangi GPS?” Eylül ASELSAN dergisi
22. Uzel T., Kartal F., Gülal E., Erkaya H., Ho ba R.G. “GPS /GLONASS kili Sistemi”
23. Zengin F., anlı M., Urhan O., Güllü M.K. 2005 “RF ile Çok Noktadan Kablosuz Sıcaklık Ölçümü”
EKLER
EK-1 : Devre ekilleri, Baskı Devreler
EK-2 : Verici Devre Mikrodenetleyici Yazılımı EK-3 : Alıcı Devre Mikrodenetleyici Yazılımı
EK-2
include 16f877_20 -- program 16f877 20 Mhz için yazılmı tır include jlib -- kullanılan komutları içerir ör. port komutları
-- port atamaları ba langıcı
pin_c6_direction = output -- rf data çıkı ı pin_c7_direction = input -- rf data giri i port_a_direction = all_input -- butonlar port_d_direction = all_output -- led'ler -- port atamalarının biti i
pin_c6 = low
-- ******* gecikme prosedürü **********
procedure bekle_500us (byte in sure) is -- gecikme prosedürü for sure loop
for 50 loop
asm nop asm nop asm nop asm nop asm nop -- 2usn asm nop asm nop asm nop asm nop asm nop -- 4usn asm nop asm nop asm nop asm nop asm nop -- 6usn asm nop asm nop asm nop asm nop asm nop -- 8usn asm nop asm nop asm nop asm nop -- 10usn
end loop end loop end procedure
-- ******* gecikme prosedürü biti i **********
procedure prable is -- 1
pin_c6 = high bekle_500us(1)
pin_c6 = low bekle_500us(1) -- 2 pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) -- 3 pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) -- 4 pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) -- 5 pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) -- 6 pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) end procedure --
procedure rf_data_gon(byte in rf_data , byte in rf_data1 , byte in rf_data2 , byte in rf_data3 , byte in rf_data4 , byte in rf_data5 , byte in rf_data6 , byte in rf_data7) is
prable
pin_c6 = low bekle_500us(20) -- senkron low pin_c6 = high bekle_500us(20) -- senkron high pin_c6 = low bekle_500us(6) -- start biti
-- ********1. byte ********
for 8 loop
asm local b1, b0 , biti
asm btfsc rf_data,0 asm goto b1
asm goto b0
asm b1 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) pin_c6 = high bekle_500us(2) pin_c6 = low bekle_500us(2)
asm goto biti
asm b0 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(3) pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1)
asm biti:
asm rrf rf_data,f end loop
-- ********** 2.byte************
pin_c6 = high bekle_500us(2) -- start biti pin_c6 = low bekle_500us(6) -- start biti for 8 loop
asm local b1_1, b0_1 , biti_1
asm btfsc rf_data1,0 asm goto b1_1 asm goto b0_1
asm b1_1 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) pin_c6 = high bekle_500us(2) pin_c6 = low bekle_500us(2)
asm goto biti_1
asm b0_1 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(3) pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) asm biti_1:
asm rrf rf_data1,f end loop
-- ********** 3.byte************
pin_c6 = high bekle_500us(2) -- start biti pin_c6 = low bekle_500us(6) -- start biti
for 8 loop
asm local b1_2, b0_2 , biti_2
asm btfsc rf_data2,0 asm goto b1_2 asm goto b0_2
asm b1_2 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) pin_c6 = high bekle_500us(2) pin_c6 = low bekle_500us(2)
asm goto biti_2
asm b0_2 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(3) pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1)
asm biti_2: asm rrf rf_data2,f end loop
-- ********** 4.byte************
pin_c6 = high bekle_500us(2) -- start biti pin_c6 = low bekle_500us(6) -- start biti
for 8 loop
asm local b1_3, b0_3 , biti_3
asm btfsc rf_data3,0 asm goto b1_3 asm goto b0_3
asm b1_3 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) pin_c6 = high bekle_500us(2) pin_c6 = low bekle_500us(2)
asm goto biti_3
asm b0_3 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(3) pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1)
asm biti_3: asm rrf rf_data3,f end loop
-- ********** 5.byte************
pin_c6 = high bekle_500us(2) -- start biti pin_c6 = low bekle_500us(6) -- start biti
for 8 loop
asm local b1_4, b0_4 , biti_4
asm btfsc rf_data4,0 asm goto b1_4 asm goto b0_4
asm b1_4 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) pin_c6 = high bekle_500us(2) pin_c6 = low bekle_500us(2)
asm goto biti_4
asm b0_4 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(3) pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1)
asm biti_4: asm rrf rf_data4,f end loop
-- ********** 6.byte************
pin_c6 = high bekle_500us(2) -- start biti pin_c6 = low bekle_500us(6) -- start biti
for 8 loop
asm local b1_5, b0_5 , biti_5
asm btfsc rf_data5,0 asm goto b1_5 asm goto b0_5
asm b1_5 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) pin_c6 = high bekle_500us(2) pin_c6 = low bekle_500us(2)
asm goto biti_5
asm b0_5 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(3) pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1)
asm biti_5: asm rrf rf_data5,f end loop
-- ********** 7.byte************
pin_c6 = high bekle_500us(2) -- start biti pin_c6 = low bekle_500us(6) -- start biti
for 8 loop
asm local b1_6, b0_6 , biti_6
asm btfsc rf_data6,0 asm goto b1_6 asm goto b0_6
asm b1_6 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) pin_c6 = high bekle_500us(2) pin_c6 = low bekle_500us(2)
asm goto biti_6
asm b0_6 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(3) pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1)
asm biti_6: asm rrf rf_data6,f end loop
-- ********** 8.byte************
pin_c6 = high bekle_500us(2) -- start biti pin_c6 = low bekle_500us(6) -- start biti
for 8 loop
asm local b1_7, b0_7 , biti_7
asm btfsc rf_data7,0 asm goto b1_7 asm goto b0_7
asm b1_7 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1) pin_c6 = high bekle_500us(2) pin_c6 = low bekle_500us(2)
asm goto biti_7
asm b0_7 :
pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(3) pin_c6 = high bekle_500us(1) pin_c6 = low bekle_500us(1)
asm biti_7: asm rrf rf_data7,f end loop
pin_c6 = low bekle_500us(10) -- bekleme
end procedure --
forever loop
port_d = 0 -- ledler sıfırlandı
pin_d4 = high rf_data_gon("5","0","R","B","C","8","2","6") rf_data_gon("5","0","R","B","C","8","2","6") rf_data_gon("5","0","R","B","C","8","2","6") rf_data_gon("5","0","R","B","C","8","2","6") pin_d4 = low pin_d5 = high rf_data_gon("0","6","K","Z","N","0","1","3") rf_data_gon("0","6","K","Z","N","0","1","3") rf_data_gon("0","6","K","Z","N","0","1","3") rf_data_gon("0","6","K","Z","N","0","1","3") pin_d5 = low pin_d6 = high rf_data_gon("0","6","F","J","B","0","1","1") rf_data_gon("0","6","F","J","B","0","1","1") rf_data_gon("0","6","F","J","B","0","1","1") rf_data_gon("0","6","F","J","B","0","1","1") pin_d6 = low
pin_d7 = high rf_data_gon("3","8"," ","R","C","7","7","3") rf_data_gon("3","8"," ","R","C","7","7","3") rf_data_gon("3","8"," ","R","C","7","7","3") rf_data_gon("3","8"," ","R","C","7","7","3") pin_d7 = low pin_d4 = high rf_data_gon("3","8"," ","R","R","7","7","7") rf_data_gon("3","8"," ","R","R","7","7","7") rf_data_gon("3","8"," ","R","R","7","7","7") rf_data_gon("3","8"," ","R","R","7","7","7") pin_d4 = low pin_d5 = high rf_data_gon("5","0","H","L","B","1","2","3") rf_data_gon("5","0","H","L","B","1","2","3") rf_data_gon("5","0","H","L","B","1","2","3") rf_data_gon("5","0","H","L","B","1","2","3") pin_d5 = low pin_d6 = high rf_data_gon("4","5","B","U","L","6","2","0") rf_data_gon("4","5","B","U","L","6","2","0") rf_data_gon("4","5","B","U","L","6","2","0") rf_data_gon("4","5","B","U","L","6","2","0") pin_d6 = low pin_d7 = high rf_data_gon("8","1","K","F","C","2","3","9") rf_data_gon("8","1","K","F","C","2","3","9") rf_data_gon("8","1","K","F","C","2","3","9")
rf_data_gon("8","1","K","F","C","2","3","9") pin_d7 = low pin_d4 = high rf_data_gon("6","0","G","V","J","1","3","0") rf_data_gon("6","0","G","V","J","1","3","0") rf_data_gon("6","0","G","V","J","1","3","0") rf_data_gon("6","0","G","V","J","1","3","0") pin_d4 = low pin_d5 = high rf_data_gon("3","8"," ","S","F","7","4","8") rf_data_gon("3","8"," ","S","F","7","4","8") rf_data_gon("3","8"," ","S","F","7","4","8") rf_data_gon("3","8"," ","S","F","7","4","8") pin_d5 = low pin_d6 = high rf_data_gon("5","1","N","Y","V","6","1","1") rf_data_gon("5","1","N","Y","V","6","1","1") rf_data_gon("5","1","N","Y","V","6","1","1") rf_data_gon("5","1","N","Y","V","6","1","1") pin_d6 = low pin_d7 = high rf_data_gon("7","2"," ","B","L","2","8","0") rf_data_gon("7","2"," ","B","L","2","8","0") rf_data_gon("7","2"," ","B","L","2","8","0") rf_data_gon("7","2"," ","B","L","2","8","0") pin_d7 = low
pin_d4 = high rf_data_gon("4","8","Z","V","E","1","7","9") rf_data_gon("4","8","Z","V","E","1","7","9") rf_data_gon("4","8","Z","V","E","1","7","9") rf_data_gon("4","8","Z","V","E","1","7","9") pin_d4 = low pin_d5 = high rf_data_gon("5","5","V","T","U","3","4","7") rf_data_gon("5","5","V","T","U","3","4","7") rf_data_gon("5","5","V","T","U","3","4","7") rf_data_gon("5","5","V","T","U","3","4","7") pin_d5 = low pin_d6 = high rf_data_gon("3","0","T","U","B","1","6","8") rf_data_gon("3","0","T","U","B","1","6","8") rf_data_gon("3","0","T","U","B","1","6","8") rf_data_gon("3","0","T","U","B","1","6","8") pin_d6 = low pin_d7 = high rf_data_gon("5","9"," ","V","G","4","7","9") rf_data_gon("5","9"," ","V","G","4","7","9") rf_data_gon("5","9"," ","V","G","4","7","9") rf_data_gon("5","9"," ","V","G","4","7","9") pin_d7 = low
pin_d4 = high rf_data_gon("0","6","L","V","B","0","8","8") rf_data_gon("0","6","L","V","B","0","8","8") rf_data_gon("0","6","L","V","B","0","8","8") rf_data_gon("0","6","L","V","B","0","8","8") pin_d4 = low pin_d5 = high rf_data_gon("0","1","A","A","A","1","1","1") rf_data_gon("0","1","A","A","A","1","1","1") rf_data_gon("0","1","A","A","A","1","1","1") rf_data_gon("0","1","A","A","A","1","1","1") pin_d5 = low pin_d6 = high rf_data_gon("7","8","H","A","K","A","N","8") rf_data_gon("7","8","H","A","K","A","N","8") pin_d6 = low pin_d7 = high rf_data_gon("0","1","B","E","K","I","R","1") rf_data_gon("0","1","B","E","K","I","R","1") rf_data_gon("0","1","B","E","K","I","R","1") rf_data_gon("0","1","B","E","K","I","R","1") pin_d7 = low end loop -- --
EK-3
include 16f877_20 include jlib
-- port atamaları ba langıcı pin_c6_direction = output pin_c7_direction = input port_d_direction = all_output pin_b4_direction = output pin_b5_direction = input -- port atamalarının biti i pin_c6 = low
procedure bekle_500us (byte in sure) is for sure loop
for 50 loop
asm nop asm nop asm nop asm nop asm nop -- 2usn asm nop asm nop asm nop asm nop asm nop -- 4usn asm nop asm nop asm nop asm nop asm nop -- 6usn asm nop asm nop asm nop asm nop asm nop -- 8usn asm nop asm nop asm nop asm nop -- 10usn
end loop end loop end procedure
Procedure seri11gon ( byte in s3gon ) is pin_b4 = low
-- ***
asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop -- 20 asm nop asm nop asm nop asm nop for 8 loop
asm local b1, b0 , biti asm btfsc s3gon,0 asm goto b1 asm goto b0 asm b1 : pin_b4 = high -- ***
asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop -- 20 asm nop asm nop asm nop asm nop asm goto biti
asm b0 : pin_b4 = low
asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop asm nop -- 20 asm nop asm nop asm nop asm nop asm biti:
asm rrf s3gon,f end loop pin_b4 = high
asm nop asm nop asm nop end procedure
procedure rf_data_al(byte out rf_data , byte out rf_data1 , byte out rf_data2 , byte out rf_data3 , byte out rf_data4, byte out rf_data5, byte out rf_data6, byte out rf_data7) is
var byte donsay
asm local hatcon, Stbekle, dongu , hatcon2 , Stbekle2 , dongu2 , dongu3 , hatcon3 , Stbekle3 , hatcon4 , Stbekle4
asm clrwdt asm hatcon: asm btfss port_c,7 asm goto hatcon asm Stbekle: asm btfsc port_c,7 asm goto Stbekle for 20 loop
asm nop asm nop asm nop asm nop asm nop end loop
bekle_500us(1)
if pin_c7 == low then asm goto hatcon end if -- a bekle_500us(1)
if pin_c7 == high then asm goto hatcon end if -- b bekle_500us(1)
if pin_c7 == low then asm goto hatcon end if -- c bekle_500us(1)
if pin_c7 == high then asm goto hatcon end if -- d bekle_500us(1)
if pin_c7 == low then asm goto hatcon end if -- e bekle_500us(1)
if pin_c7 == high then asm goto hatcon end if -- f bekle_500us(15)
if pin_c7 == high then asm goto hatcon end if bekle_500us(1)
if pin_c7 == high then asm goto hatcon end if bekle_500us(15)
if pin_c7 == low then asm goto hatcon end if bekle_500us(1)
if pin_c7 == low then asm goto hatcon end if asm hatcon2:
asm btfss port_c,7 asm goto hatcon2 asm Stbekle2: asm btfsc port_c,7 asm goto Stbekle2 bekle_500us(3)
-- *****1.byte******** asm movlw 8 asm movwf donsay asm goto dongu asm dongu: bekle_500us(6) asm clrc asm rrf rf_data, f asm btfsc port_c,7 asm bsf rf_data, 7 asm decfsz donsay, f asm goto dongu bekle_500us(4)
-- ******** 2.byte ******* asm hatcon3:
asm btfss port_c,7 asm goto hatcon3 asm Stbekle3:
asm btfsc port_c,7 asm goto Stbekle3 bekle_500us(3)
asm movlw 8 asm movwf donsay asm goto dongu2
asm dongu2: bekle_500us(6) asm clrc asm rrf rf_data1, f asm btfsc port_c,7 asm bsf rf_data1, 7 asm decfsz donsay, f asm goto dongu2 bekle_500us(4)
-- ******** 3.byte ******* asm hatcon4:
asm btfss port_c,7 asm goto hatcon4 asm Stbekle4:
asm btfsc port_c,7 asm goto Stbekle4 bekle_500us(3)
asm movlw 8 asm movwf donsay asm goto dongu3 asm dongu3: bekle_500us(6) asm clrc asm rrf rf_data2, f asm btfsc port_c,7 asm bsf rf_data2, 7 asm decfsz donsay, f asm goto dongu3 bekle_500us(4)
-- ******** 4.byte *******
asm local hatcon5 , Stbekle5 , dongu4 asm hatcon5:
asm btfss port_c,7 asm goto hatcon5 asm Stbekle5:
asm btfsc port_c,7 asm goto Stbekle5 bekle_500us(3)
asm movlw 8 asm movwf donsay asm goto dongu4 asm dongu4: bekle_500us(6) asm clrc asm rrf rf_data3, f asm btfsc port_c,7 asm bsf rf_data3, 7 asm decfsz donsay, f asm goto dongu4 bekle_500us(4)
-- ******** 5.byte *******
asm local hatcon6 , Stbekle6 , dongu5 asm hatcon6:
asm btfss port_c,7 asm goto hatcon6 asm Stbekle6:
asm btfsc port_c,7 asm goto Stbekle6 bekle_500us(3)
asm movlw 8 asm movwf donsay asm goto dongu5 asm dongu5: bekle_500us(6) asm clrc asm rrf rf_data4, f asm btfsc port_c,7 asm bsf rf_data4, 7 asm decfsz donsay, f asm goto dongu5 bekle_500us(4)
-- ******** 6.byte *******
asm local hatcon7 , Stbekle7 , dongu7 asm hatcon7:
asm btfss port_c,7 asm goto hatcon7 asm Stbekle7:
asm btfsc port_c,7 asm goto Stbekle7 bekle_500us(3)
asm movlw 8 asm movwf donsay asm goto dongu7 asm dongu7: bekle_500us(6) asm clrc asm rrf rf_data5, f asm btfsc port_c,7 asm bsf rf_data5, 7
asm decfsz donsay, f asm goto dongu7 bekle_500us(4)
-- ******** 7.byte *******
asm local hatcon8 , Stbekle8 , dongu8 asm hatcon8:
asm btfss port_c,7 asm goto hatcon8 asm Stbekle8:
asm btfsc port_c,7 asm goto Stbekle8 bekle_500us(3)
asm movlw 8 asm movwf donsay asm goto dongu8 asm dongu8: bekle_500us(6) asm clrc asm rrf rf_data6, f asm btfsc port_c,7 asm bsf rf_data6, 7 asm decfsz donsay, f asm goto dongu8 bekle_500us(4)
-- ******** 8.byte *******
asm local hatcon9 , Stbekle9 , dongu9 asm hatcon9:
asm btfss port_c,7 asm goto hatcon9 asm Stbekle9:
asm btfsc port_c,7 asm goto Stbekle9 bekle_500us(3)
asm movlw 8 asm movwf donsay asm goto dongu9 asm dongu9: bekle_500us(6) asm clrc asm rrf rf_data7, f asm btfsc port_c,7 asm bsf rf_data7, 7 asm decfsz donsay, f asm goto dongu9 bekle_500us(4)
asm clrwdt end procedure
var byte data , data1 , data2 ,data3 ,data4 ,data5 , data6 ,data7 port_d = 0 forever loop rf_data_al (data,data1,data2,data3,data4,data5,data6,data7) seri11gon ("#") seri11gon (data) seri11gon (data1) seri11gon (data2)
seri11gon (data3) seri11gon (data4) seri11gon (data5) seri11gon (data6) seri11gon (data7) seri11gon ("*") end loop