Das deutsche QBasic- und FreeBASIC-Forum

[arduno]

Hallo, guten Tag.

Ich möchte ein Ascii Rom anfertigen für einen FPGA der ein Textscreen darstellt. Im Rom müssen die Nibble vertauscht werden nach diesem Muster:
----------------------
Procedure.a ReverseNibbles(byte.a)
Protected result.a

result | (byte & %00000001) << 3
result | (byte & %00000010) << 1
result | (byte & %00000100) >> 1
result | (byte & %00001000) >> 3
result | (byte & %00010000) << 3
result | (byte & %00100000) << 1
result | (byte & %01000000) >> 1
result | (byte & %10000000) >> 3

ProcedureReturn result
EndProcedure
------------------------------------------------------

Wie kann man das bitte in Freebasic machen?

Danke.

Gruss

[Haubitze]

hi arduno,

die befehle die du suchst sind OR,AND,SHL,SHR.

zb koennte das so aussehen,

result=result OR ((byte AND &b00000001) SHL 3)
result=result OR ((byte AND &b00000100) SHR 2)

salute

[arduno]

Jup, danke.
Gruss

[arduno]

Das haut noch nicht hin mit dem Ergebnis.

In Purebasic ist es richtig umgewandelt.
Das Ergebnis ist bei FreeBasic anders(falsch).

Wie geht es da richtig?

Danke.
Gruss

----------------------------
3C 66 6E 6E 60 62 3C 00 Ausgangsbyte

C3 66 67 67 60 64 C3 00 : Richtig mit Purebasic
result | (byte & %00000001) << 3
result | (byte & %00000010) << 1
result | (byte & %00000100) >> 1
result | (byte & %00001000) >> 3
result | (byte & %00010000) << 3
result | (byte & %00100000) << 1
result | (byte & %01000000) >> 1
result | (byte & %10000000) >> 3

C3 E7 E7 E7 E7 E7 E7 E7 Falsch mit Freebasic
result=result OR ((byte_n AND &b00000001) SHL 3)
result=result OR ((byte_n AND &b00000010) SHL 1)
result=result OR ((byte_n AND &b00000100) SHR 1)
result=result OR ((byte_n AND &b00001000) SHR 3)
result=result OR ((byte_n AND &b00010000) SHL 3)
result=result OR ((byte_n AND &b00100000) SHL 1)
result=result OR ((byte_n AND &b01000000) SHR 1)
result=result OR ((byte_n AND &b10000000) SHR 3)

[grindstone]

Probier es mal damit:

result=(byte_n AND &b00000001) SHL 3
result=result OR ((byte_n AND &b00000010) SHL 1)
result=result OR ((byte_n AND &b00000100) SHR 1)
result=result OR ((byte_n AND &b00001000) SHR 3)
result=result OR ((byte_n AND &b00010000) SHL 3)
result=result OR ((byte_n AND &b00100000) SHL 1)
result=result OR ((byte_n AND &b01000000) SHR 1)
result=result OR ((byte_n AND &b10000000) SHR 3)

oder kürzer:

result=(byte_n AND &b00010001) SHL 3 _
OR ((byte_n AND &b00100010) SHL 1) _
OR ((byte_n AND &b01000100) SHR 1) _
OR ((byte_n AND &b10001000) SHR 3)

Und wenn dein Hex-String immer genau 8 Bytes lang ist, kannst du das Ganze auch elegant in einem Arbeitsgang erledigen:

[arduno]

Jup danke.

Dein Programm funktioniert wunderbar.

Gruss