-=:: FBSL ::=-

// This code converts big Endian to little Endian and vice-versa

// similar code for float and int as well.

float swapEndianInt( float bEnum )
{

float lEnum;
char *lE = (char*) &lEnum;
char *bE = (char*) &bEnum;
lE[0] = bE[3];
lE[1] = bE[2];
lE[2] = bE[1];
lE[3] = bE[0];
return lEnum;

}

apptype console

Dim %v
v= &H01020304
? v
? Hex(v)

swapEndian(@v)

? Hex(v)
Pause


Asm swapEndian(buffer As Integer)
#Define buffer dword ptr[ebp + 8] ' Buffer pointer

enter 0, 0
mov edx, buffer ' Point edx to buffer
mov ebx, 4

'first swap R and A
   mov al,[edx]            ' Load value at edx into al
   mov ah,[edx+3]            ' Load value at edx+3 into ah
   mov [edx+3],al            ' Store value in al at edx+3
   mov [edx],ah            ' Store value in ah at edx

'then Swap G and B
   mov al,[edx+1]            ' Load value at edx+1 into al
   mov ah,[edx+2]            ' Load value at edx+2 into ah
   mov [edx+2],al            ' Store value in al at edx+2
   mov [edx+1],ah            ' Store value in ah at edx+1

#Undef buffer
   leave
   ret
End Asm

Sub endianswap(vin,vout)
Poke(@vout+3,$Peek(@vin,$1))
Poke(@vout+2,$Peek(@vin+1,$1))
Poke(@vout+1,$Peek(@vin+2,$1))
Poke(@vout,$Peek(@vin+3,$1))
End Sub