Code: Select all
Procedure.q ChangeEndian(value.q)
Structure bquad
byte.a[8]
EndStructure
Protected result.q = 0
*thismem.bquad = @result
*thatmem.bquad = @value
For i=0 To 7
*thismem\byte[i] = *thatmem\byte[7-i]
Next
ProcedureReturn result
EndProcedure

