BigEndian/LittleEndian (mal wieder)

[JamesTKirk]

Um mal das Testprogramm von gammatester aufzugreifen:

Delphi-Quellcode:

program tendiantest;

var
  w: Word = $BEEF;
  b: Byte absolute w;
begin
  (* Hinweis: hexstr ist bei FPC eine Funktion in System, welche das 
   *          gleiche macht wie IntToHex. Da SysUtils unter M68k noch
   *          bockt, konnte ich die jedoch nicht verwenden...
   *)
  Writeln(hexstr(b, 2));
  Writeln(hexstr(w shl 4, 4));
  Writeln(hexstr(w shr 4, 4));
end.

Ergebnis i386:

EF
EEF0
0BEE

Ergebnis m68k:

BE
EEF0
0BEE

Gruß,
Sven