Serielle Schnitstelle Probleme Bascom

[Thor (Gast)]

Hallo,

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

$regfile = "8052.dat"
$baud = 9600
$crystal = 11059200
$large



  Dim S As Byte

Print "Das ist ein Test 1"


  On Serial Serial_int                                        '** Interrupt Service Routine = Serial_Int

  S = Inkey()
  Enable Serial                                               '** Enable Serial Interrupt
  Enable Interrupts                                           '** Enable All Interrupts
  Priority Set Serial                                         '** Set Priotity to Serial
  mov scon,#80


Print "Das ist ein Test 2"

Mainloop:



Goto Mainloop


Serial_int:

   Disable Interrupts                                         '** Disable All Interrupts

   If Scon.0 = 1 Then                                         '** Check if SCON RX IRQ is set
      S = Sbuf                                                '** If yes then Read Sbuf
      Scon.0 = 0
   End If

      If Scon.1 = 1 Then
         Scon.1 = 0
      End If

   Enable Interrupts                                          '** Enable Interrupts

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

[Karl H. (kbuchegg)]

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.

[Thor (Gast)]

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

[Thor (Gast)]

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