16 lines
382 B
Text
16 lines
382 B
Text
function endianness()
|
|
atom m4 = allocate(4)
|
|
poke4(m4,#01020304)
|
|
integer b1 = peek1s(m4)
|
|
free(m4)
|
|
if b1=#01 then
|
|
return "big-endian"
|
|
elsif b1=#04 then
|
|
return "little-endian"
|
|
else
|
|
return "???"
|
|
end if
|
|
end function
|
|
|
|
printf(1,"Endianness: %s\n",{endianness()})
|
|
printf(1,"Word size: %d bytes/%d bits\n",{machine_word(),machine_bits()})
|