PureBoard

Code: Alles auswählen

String$="78DAA5975758135A97862345A922BD0A28BD86167A11104"
datalen=Len(String$)

*memdata = AllocateMemory(datalen)
y=0
For x=0 To datalen Step 2
  value=Val("$"+Mid(String$,(x+1),2))
  PokeB(*memdata+y,value)
  y+1
Next

Code: Alles auswählen

; Hex-String, der umgerechnet in einen Speicherbereich übertragen
; werden soll.
String$ = "78DAA5975758135A97862345A922BD0A28BD86167A11104"
; Berechne die Länge des Strings.
datalen = Len(String$)

; Alloziere halb so viel Speicher wie der String lange ist,
; da zwei Hexzeichen ein Byte ausmachen
*memdata = AllocateMemory(datalen / 2)

; Definiere einen Pointer um über den String zu iterieren
; und einen für *memdata
Define v.i, *c.Character, *m.Ascii

; Setze die Pointer auf den Anfang des Strings und von *memdata 
*c.Character = @String$
*m.Ascii = *memdata

; Iteriere so lange zeichenweise über den String bis das terminierende
; Nullbyte erreicht ist
While *c\c
	; a) Nimm den ASCII-Wert des Hexzeichens an der aktuellen Position
	;    im String mittels *c\c und subtrahiere den ASCII-Wert des Zeichens
	;    0 um die Ziffern 0 bis 9 auf ihre entsprechenden Zahlwerte zu
	;    mappen.
	*m\a = *c\c - '0'
	; b) War das Zeichen im String keine Zahl, sondern ein Buchstabe,
	;    zieh entsprechend des ASCII-Wert von A ab und addiere 10,
	;    damit die Buchstaben A-F auf die Werte 10 bis 15 gemappt werden.
	If *c\c >= 'A'
		*m\a = *c\c - 'A' + 10
	EndIf
	; c) Gehe im String um ein Zeichen weiter, in dem der Pointer
	;    um die Länge eines Zeichens inkrementiert wird.
	*c + SizeOf(Character)
	; Wurde das Ende des Strings schon erreich? Falls ja, beende die Schleife.
	If *c\c = 0 : Break : EndIf
	; Multipliziere den eben berechneten Wert mit 16 (Linksshift um 4
	; ist das selbe). Damit ist das höherwertige Hexzeichen fertig
	; berechnet.
	*m\a << 4
	; Berechne jetzt das zweite Hexzeichen, das ein Byte ausmacht.
	; siehe a)
	v = *c\c - '0'
	; siehe b)
	If *c\c >= 'A'
		v = *c\c - 'A' + 10
	EndIf
	; siehe c)
	*c + SizeOf(Character)
	; Addiere das niederwertige Hexzeichen zu dem höherwertigen. Damit
	; sind nun zwei Hexzeichen zu einem Byte umgerechnet worden.
	*m\a + v
	; Gehe im Zielspeicherbereich *memdata um ein Byte weiter.
	*m + SizeOf(Ascii)
Wend

; Gib den Speicherbereich als String aus.
Debug PeekS(*memdata)