Q5/ws_objects/Ew_import.pbl.src/uf_bitxor.srf

$PBExportHeader$uf_bitxor.srf
global type uf_bitxor from function_object
end type

forward prototypes
global function ulong uf_bitxor (unsignedlong al_val1, unsignedlong al_val2)
end prototypes

global function ulong uf_bitxor (unsignedlong al_val1, unsignedlong al_val2);ulong ll_ret
integer li_i


for li_i = 0 to 15

    if mod(long(al_val1 / 2 ^ li_i), 2) <> mod(long(al_val2 / 2 ^ li_i), 2) then
        ll_ret += 2 ^ li_i
    end if

next

return ll_ret

end function