PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Memory dump und ändern


for_ro
11.11.2007, 00:37
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
11.11.2007, 10:33
.....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
11.11.2007, 12:07
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