Memory dump und ändern

[for_ro]

Hallo zusammen,
ich stelle euch hier mal ein Proggi ein, mit dem ihr den Speicher eures Controllers während des Laufens ausgeben und auch ändern könnt.
Notwendig ist dazu eine RS232 Verbindung. Dann könnt ihr z.B. über hterm oder das eingebaute Terminalprogramm von Bascom Befehle eingeben und bekommt das Ergebnis angezeigt.
Also noch eine Möglichkeit zum debuggen, auch ohne JTAG.
Wenn ihr $dbg eingegeben habt, könnt ihr auch die Ausnutzung der Stacks während des Programmlaufs mitverfolgen.
Das ganze mit in euer Programm nehmen. Evtl. können doppelte Variablen auftreten oder ein Fehler, weil ihr schon serial0charmatch benutzt.
Ist zwar etwas lang, dafür aber hoffentlich auch klar zu verstehen.
Falls ihr nur ausgeben wollt, könnt ihr den elseif Teil nach 'Ändern einfach löschen.

'Dump von Speicheradressen im verfügbaren Bereich (beim Atmega128 ab &H0100, abhängig vom Controller)
'Adressen müssen immer in Hex und 4-stellig eingegeben werden
'Werte genau so, wie im 'SHOW RESULT' angegeben
'm1234((B)WILS)     Memory Adresse &H1234 vom angegebenen Typ(byte(default) , Word , Integer , Long , String(bis zum ersten 0-byte)
'm1234-5678         Memory Adresse von &H1234 bis &H5678 (beides 4-stellig)
'm1234,0100((B)WIL) Memory ab Adresse &H1234 &H0100 Elemente vom angegebenen Typ ausgeben (beides 4-stellig)
'c1234,89ab((B)WIL) Ab Memory Adresse &H1234 die Bytes $H89ab schreiben; wenn Typ angegeben, dann werden die LSB und MSB entsprechend gedreht und es wird nur ein Wert von diesem Typ geschrieben
'c1234,"123abc"     Ab Memory Adresse &H1234 wird der String "123abc" geschreiben
$dbg
$regfile = "M128def.dat"
$crystal = 16000000

$baud = 115200
Config Serialin = Buffered , Size = 100 , Bytematch = 13

Const Mem_start = $0100                                     '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   Startwert des verfügbaren Speicherbereichs

Dim B_temp As Byte ,
Dim W_temp As Word
Dim I_temp As Integer
Dim L_temp As Long
Dim S_temp As String * 100
Dim Mem_anfang As Word
Dim Mem_ende As Word
Dim Mem_count As Word
Dim Mem_pos As Word
Dim Command_key As Byte
Dim Command_count As Byte
Dim Interrupt_flag As Byte
Dim Command_string As String * 100
Dim S_temp_ovly(10) As Byte At S_temp Overlay
Dim Mem(1) As Byte At Mem_start Overlay

Enable Interrupts

Do
   If Interrupt_flag.0 = 1 Then
      Print Command_string

'Ausgeben

      If Left(command_string , 1) = "m" Then
         S_temp = Mid(command_string , 2 , 4)
         Mem_anfang = Hexval(s_temp)
         Mem_count = 1
         If Instr(command_string , ",") > 0 Then
            B_temp = Instr(command_string , ",")
            Incr B_temp
            S_temp = Mid(command_string , B_temp , 4)
            Mem_count = Hexval(s_temp)
         End If
         Mem_pos = Mem_anfang
         If Mem_anfang >= Mem_start Then Mem_anfang = Mem_anfang - Mem_start
         Incr Mem_anfang
         If Instr(command_string , "-") > 0 Then
            B_temp = Instr(command_string , "-")
            Incr B_temp
            S_temp = Mid(command_string , B_temp , 4)
            Mem_ende = Hexval(s_temp)
            If Mem_ende >= Mem_start Then Mem_ende = Mem_ende - Mem_start
            Incr Mem_ende
            For W_temp = Mem_anfang To Mem_ende
                  Reset Watchdog
                  Print  Mem_pos ; ":" ; Hex(mem_pos) ; "=" ; Hex(mem(w_temp)) ; ":" ; Mem(w_temp) ; ":" ; Chr(mem(w_temp))
                  Incr Mem_pos
            Next W_temp
         Else
            While Mem_count > 0
               Reset Watchdog
               If Len(command_string) = 5 Or Len(command_string) = 10 Then       'Ausgabe Format mem0100
                  B_temp = Mem(mem_anfang)
                  S_temp = Str(b_temp)
                  Print  Mem_pos ; ":" ; Hex(mem_pos) ; "=" ; Hex(b_temp) ; ":" ; Format(s_temp , "   ") ; ":" ; Chr(b_temp)
               Elseif Right(command_string , 1) = "B" Or Right(command_string , 1) = "b" Then       'Ausgabe Byte-Format mem0100B und mem0100,0020B
                  B_temp = Mem(mem_anfang)
                  S_temp = Str(b_temp)
                  Print  Mem_pos ; ":" ; Hex(mem_pos) ; "=" ; Hex(b_temp) ; ":" ; Format(s_temp , "   ") ; ":" ; Chr(b_temp)
               Elseif Right(command_string , 1) = "W" Or Right(command_string , 1) = "w" Then       'Ausgabe Word-Format mem0100W und mem0100,0020W
                  Print  Mem_pos ; ":" ; Hex(mem_pos) ; "=" ;
                  Incr Mem_anfang                           '                                          Ausgabe von 2 byte, in umgedrehter Reihenfolge
                  W_temp = Mem(mem_anfang)
                  Shift W_temp , Left , 8
                  Decr Mem_anfang
                  W_temp = W_temp + Mem(mem_anfang)
                  Incr Mem_anfang
                  Incr Mem_pos
                  Print  Hex(w_temp) ; ":" ; W_temp
               Elseif Right(command_string , 1) = "I" Or Right(command_string , 1) = "i" Then       'Ausgabe Integer-Format mem0100I und mem0100,0020I
                  Print  Mem_pos ; ":" ; Hex(mem_pos) ; "=" ;
                  Incr Mem_anfang                           '                                          Ausgabe von 2 byte, in umgedrehter Reihenfolge
                  I_temp = Mem(mem_anfang)
                  Shift I_temp , Left , 8
                  Decr Mem_anfang
                  I_temp = I_temp + Mem(mem_anfang)
                  Incr Mem_anfang
                  Incr Mem_pos
                  Print  Hex(i_temp) ; ":" ; I_temp
               Elseif Right(command_string , 1) = "L" Or Right(command_string , 1) = "l" Then       'Ausgabe Long-Format mem0100L und mem0100,0020L
                  Print  Mem_pos ; ":" ; Hex(mem_pos) ; "=" ;
                  Mem_anfang = Mem_anfang + 3               '                                           Ausgabe von 4 byte, in umgedrehter Reihenfolge
                  L_temp = Mem(mem_anfang)
                  Shift L_temp , Left , 8
                  Decr Mem_anfang
                  L_temp = L_temp + Mem(mem_anfang)
                  Shift L_temp , Left , 8
                  Decr Mem_anfang
                  L_temp = L_temp + Mem(mem_anfang)
                  Shift L_temp , Left , 8
                  Decr Mem_anfang
                  L_temp = L_temp + Mem(mem_anfang)
                  Mem_anfang = Mem_anfang + 3
                  Mem_pos = Mem_pos + 3
                  Print  Hex(l_temp) ; ":" ; L_temp
               Elseif Right(command_string , 1) = "S" Or Right(command_string , 1) = "s" Then       'Ausgabe String-Format mem0100S und mem0100,0020S
                  Print  Mem_pos ; ":" ; Hex(mem_pos) ; "=" ; Chr(34);
                  While Mem(mem_anfang) > 0
                     Print  Chr(mem(mem_anfang));
                     Incr Mem_anfang
                     Incr Mem_pos
                  Wend
                  Print  Chr(34)
               End If
               Incr Mem_anfang
               Incr Mem_pos
               Decr Mem_count
            Wend
         End If
 
'Ändern

     Elseif Left(command_string , 1) = "c" Then
         S_temp = Mid(command_string , 2 , 4)
         Mem_anfang = Hexval(s_temp)
         S_temp = Command_string
         If Mem_anfang > &HFF Then Mem_anfang = Mem_anfang - &HFF
         If Instr(command_string , ",") > 0 Then
            B_temp = Instr(command_string , ",")
            Incr B_temp
            If Right(command_string , 1) = "B" Or Right(command_string , 1) = "b" Then       'Ändern von einem Byte, c0100,20b
               S_temp = Mid(command_string , B_temp , 2)
               Mem(mem_anfang) = Hexval(s_temp)
            Elseif Right(command_string , 1) = "W" Or Right(command_string , 1) = "w" Then       'Ändern von einem Word, c0100,0020W
               B_temp = B_temp + 2
               S_temp = Mid(command_string , B_temp , 2)
               Mem(mem_anfang) = Hexval(s_temp)
               Incr Mem_anfang
               B_temp = B_temp - 2
               S_temp = Mid(command_string , B_temp , 2)
               Mem(mem_anfang) = Hexval(s_temp)
               Incr Mem_anfang
            Elseif Right(command_string , 1) = "I" Or Right(command_string , 1) = "i" Then       'Ändern von einem Integer, c0100,0020I
               B_temp = B_temp + 2
               S_temp = Mid(command_string , B_temp , 2)
               Mem(mem_anfang) = Hexval(s_temp)
               Incr Mem_anfang
               B_temp = B_temp - 2
               S_temp = Mid(command_string , B_temp , 2)
               Mem(mem_anfang) = Hexval(s_temp)
               Incr Mem_anfang
            Elseif Right(command_string , 1) = "L" Or Right(command_string , 1) = "l" Then       'Ändern von einem Long, c0100,00204060L
               B_temp = B_temp + 6
               S_temp = Mid(command_string , B_temp , 2)
               Mem(mem_anfang) = Hexval(s_temp)
               Incr Mem_anfang
               B_temp = B_temp - 2
               S_temp = Mid(command_string , B_temp , 2)
               Mem(mem_anfang) = Hexval(s_temp)
               Incr Mem_anfang
               B_temp = B_temp - 2
               S_temp = Mid(command_string , B_temp , 2)
               Mem(mem_anfang) = Hexval(s_temp)
               Incr Mem_anfang
               B_temp = B_temp - 2
               S_temp = Mid(command_string , B_temp , 2)
               Mem(mem_anfang) = Hexval(s_temp)
               Incr Mem_anfang
            Elseif S_temp_ovly(7) = 34 Then                 'Ändern von einem String, c0100,"123456"
               B_temp = 8
               If Right(command_string , 1) = Chr(34) Then
                  I_temp = Len(command_string) - B_temp
                  S_temp = Mid(command_string , B_temp , I_temp)
                  I_temp = 1
                  While S_temp_ovly(i_temp) <> 34
                     Mem(mem_anfang) = S_temp_ovly(i_temp)
                     Incr Mem_anfang
                     Incr I_temp
                  Wend
                  Mem(mem_anfang) = 0
               End If
            Else                                            'Ändern von mehreren Bytes, c0100,0020406080
               I_temp = Len(command_string)
               While B_temp < I_temp
                  S_temp = Mid(command_string , B_temp , 2)
                  Mem(mem_anfang) = Hexval(s_temp)
                  Incr Mem_anfang
                  B_temp = B_temp + 2
               Wend
            End If
         End If
      End If
      Interrupt_flag.0 = 0
   End If
Loop

Serial0charmatch:
   Command_count = 0
   Command_string = ""
   While Ischarwaiting() = 1
      Command_key = Inkey()
      If Command_key <> Chr(13) Then
         Incr Command_count
         If Command_count < 100 Then
            Command_string = Command_string + Chr(command_key)
         End If
      End If
   Wend
   Clear Serialin
   Interrupt_flag.0 = 1
Return

End

Gruß

Rolf

[roboterheld]

.....ich stelle euch hier mal ein Proggi ein, mit dem ihr den Speicher eures Controllers während des Laufens ausgeben und auch ändern könnt....

das kann derb ins auge gehen. chrash und alles is hi.
wenn die abstürze unwichtig sind, dann ja.

mfg

[for_ro]

das kann derb ins auge gehen. chrash und alles is hi.
wenn die abstürze unwichtig sind, dann ja.

Hi,
ist auch mehr für Leute gedacht, die wissen was sie tun. Norton ist auch nicht für den Anfänger gemacht, der froh ist, wenn er Windows starten kann.
Abstürze erzeugen ist jetzt auch nicht genau die Absicht hinter dem Tool. Vielmehr die harten Fehler zu finden, wo du mit einfachen Prints 'ne halbe Ewigkeit suchst. Z.B. wie die Stacks volllaufen.
Aber es steht jedem frei, sowas zu benutzen.

Gruß

Rolf