Dlaczego to jest źle?

[Fredy]

Mam taki problem:
Oto fragment kodu programu:

Kod: Zaznacz cały

$regfile = "m32def.dat" $crystal = 8000000 $baud = 19200 On Urxc Przerwanie_od_rs232 Config Serialin = Buffered , Size = 20 Enable Interrupts Enable Urxc Do Loop End Przerwanie_od_rs232 Return

Nie wiem dlaczego, ale kompilator zgłasza błąd
"ISR already defined"
Zauważyłem że gryzą się dwie instrukcje
On Urxc Przerwanie_od_rs232
oraz
Config Serialin = Buffered , Size = 20
tak jakby się nawzajem wykluczały.
Macie może jakiegoś pomysła na tą zagadkę?

[almatea]

Zaglądnij do Helpa.

Wyraźnie jest tam napisane, że ponieważ procedura _GotChar wykorzystuje przerwanie URXC, nie jest możliwe używanie tego źródła przerwania w programie użytkownika. Chyba, że zmodyfikuje on procedurę _GotChar znajdującą się w bibliotece.

Czyli widzisz, że temu przerwaniu została przyporządkowana już procedura.
Zresztą po to właśnie stosuje się bufor, aby nie tracić danych przychodzących na port szeregowy podczas wykonywania przez mikrokontroler innego zadania. Po zastosowaniu opcji bufora, polecam wykorzystanie instrukcji Ischarwaiting().
Drugim sposobem jest właśnie wykorzystanie bezpośrenio przerwania wystepującego na porcie szeregowym

Pozdrawiam.

[Fredy]

Dzięki za konkretną odpowiedź.
Chciałem wykorzystać przerwanie URXC tylko do ustawienia flagi że jest znak w buforze, a odebrać sobie znaki z bufora później - dlatego chcialem go powiększyć. Będę musiał coś innego zatem wymyślić.
Pozdrawiam

[szymel]

Dzięki za konkretną odpowiedź.
Chciałem wykorzystać przerwanie URXC tylko do ustawienia flagi że jest znak w buforze, a odebrać sobie znaki z bufora później - dlatego chcialem go powiększyć. Będę musiał coś innego zatem wymyślić.
Pozdrawiam

Nic nie musisz wymyślać , tylko poczytaj o opcji BYTEMATCH przy konfiguracji SERIALIN , lub o zmiennej _RS_BUFCOUNTR0 , lub instrukcji Ischarwaiting , lub ... czemu unikasz dokumentacji Bascoma


Piotrek

[Fredy]

Dzięki za konkretną odpowiedź.
Chciałem wykorzystać przerwanie URXC tylko do ustawienia flagi że jest znak w buforze, a odebrać sobie znaki z bufora później - dlatego chcialem go powiększyć. Będę musiał coś innego zatem wymyślić.
Pozdrawiam

Nic nie musisz wymyślać , tylko poczytaj o opcji BYTEMATCH przy konfiguracji SERIALIN , lub o zmiennej _RS_BUFCOUNTR0 , lub instrukcji Ischarwaiting , lub ... czemu unikasz dokumentacji Bascoma


Piotrek

Nie unikam dokumentacji Bascoma - wręcz przeciwnie. Ale nigdzie nie znalazłem nic na temat BYTEMATCH czy o zmiennej _RS_BUFCOUNTR0. Owszem Ischarwaiting jest b. przydatne i rzeczywiście może działać jako flaga odebranego znaku. Ale o tamtych dwóch instrukcjach nie ma nic w helpie.
Pozdrawiam

[szymel]

Przykład dla BYTEMATCH.

Kod: Zaznacz cały

'... Config Serialin=20 , Bytematch=13 Dim Event As Byte , Zmienna_tekstowa As String * 20 '... Event = 0 Enable Interrupts '... Do '... If Event>0 Then Input Zmienna_tekstowa Cli 'Disable interrupts Decr Event Sei 'Enable Interrupts End If '... Loop ' poniżej , procedura(user label wspomniany w helpie) ' wywoływana przez przerwanie RX , ' gdy znak odczytany z rejestru szeregowego , ' jest równy z zadeklarowanym w opcji Bytematch Serial0charmatch: 'po odebraniu znaku Chr(13) zwiększenie licznika lini(zdarzeń) 'Incr Event 'lub lds r24,{event} inc r24 sts {event},r24 ret

Powyższym sposobem , nie muszę czekać w instrukcji Input na odebranie ciągu znaków zakończonych 13 (1 linia tekstu z modemu C35i) , tylko odczytuję , kiedy wiem że już mogę Niby istnieje opcja $Timeout , ale po co marnować czas procka
Podobnych "bajerów" jest więcej w Bascomie , tylko trzeba umieć czytać Helpa między wierszami , a znajomość assemblera jest dodatkowym atutem(zaglądanie do plików *.lib)

Piotrek

PS
Jeden obraz , za jeden tysiąc słów

[Fredy]

Rzeczywiście jestem pod wrażeniem. Nie widziałem tego w Helpie po patrzyłem w starszej wersji Bascoma. Spróbuje to w praktyce wykorzystać i dam znać jak mi poszło- dziękuję za pomoc.
Pozdrawiam