Serielle Schnitstelle Probleme Bascom

Thor Gast #2131862
Lesenswert?
• ▲
▼ 
Hallo,

ich habe ein Problem mit meiner Seriellen Schnitstelle in Bascom.
Zuerst der Code


1
$regfile = "8052.dat"

2
$baud = 9600

3
$crystal = 11059200

4
$large

5


6


7


8
  Dim S As Byte

9


10
Print "Das ist ein Test 1"

11


12


13
  On Serial Serial_int                                        '** Interrupt Service Routine = Serial_Int

14


15
  S = Inkey()

16
  Enable Serial                                               '** Enable Serial Interrupt

17
  Enable Interrupts                                           '** Enable All Interrupts

18
  Priority Set Serial                                         '** Set Priotity to Serial

19
  mov scon,#80

20


21


22
Print "Das ist ein Test 2"

23


24
Mainloop:

25


26


27


28
Goto Mainloop

29


30


31
Serial_int:

32


33
   Disable Interrupts                                         '** Disable All Interrupts

34


35
   If Scon.0 = 1 Then                                         '** Check if SCON RX IRQ is set

36
      S = Sbuf                                                '** If yes then Read Sbuf

37
      Scon.0 = 0

38
   End If

39


40
      If Scon.1 = 1 Then

41
         Scon.1 = 0

42
      End If

43


44
   Enable Interrupts                                          '** Enable Interrupts

45


46
Return



Ich versuche mein Problem so einfach wie möglich zu schildern.
Im Programmcode kann man zwei Print befehle sehen.
Der erste bevor die deklaration von den interrupts kommt. Das Zweite 
danach. Der erste Print befehl funktioniert und der zweite funktioniert 
nicht. Das Programm bleibt dort stehen und wartet. D.h ich muss irgendwo 
einen Fehler haben und komme nicht mehr weiter verstehe es nicht :(.
Kann mir bitte jemand helfen ?

mfg Thor
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Karl H. #2131877
Lesenswert?
• ▲
▼ 
Ohne jetzt BASCOM und da wiederrum BASCOM auf einem 8052 zu kennen:

  S = Inkey()
  Enable Serial                                               '** Enable 
Serial Interrupt


Inkey liest doch von der Seriellen ein.
Interessant finde ich, dass du zuvor mittels Print ausgibst, mittels 
Inkey einliest und erst dann die Serielle aktivierst :-)


was macht den das hier?
  mov scon,#80

bei solchen Sachen reagiere ich immer ein wenig allergisch. Denn im 
Grunde pfuscht man dem Compiler damit ins Handwerk. Vor allen Dingen 
dann, wenn man da fix irgendwelche Werte in irgendwelche Register lädt, 
ohne sich darum zu kümmern, was wohl vorher in diesem Register war.
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thor Gast #2131888
Lesenswert?
• ▲
▼ 
Hallo Karl Heinz Buchegger,

das mit dem Print davor war nur ein Beispiel. Ich frage mich halt wieso 
es dort funktioniert und danach nicht mehr.
Wo der S = Inkey() kommt in erster linie egal oder ? liege ich da falsch 
?

Ich muss im Scon den Modus setzten in dem ich arbeiten will und das REN 
bit aktevieren, oder liege ich hier ebenfalls falsch ?


mfg Thor
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thor Gast #2132699
Lesenswert?
• ▲
▼ 
Ich habe MCS eine Email geschrieben aber, die haben mir auch nicht 
weiter geholfen, bis auf dem punkt das ich scon.1 ebenfalls 
zurücksetzten muss.
Hat jemand eine Idee, bin wirklich verzweifelt.

MFG
Thor
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren