BitwiseOr

not rated

Submitted by Aiursrage2k2004-05-31Variable Change0 downloads

Bitwise OR. Requires CountBits function.

Source

function BitwiseOr takes integer val1, integer val2 returns integer
  local integer i = 0
  local integer retval = 0
  local integer max = CountBits(IMaxBJ(val1, val2))
  loop
     exitwhen i > max
     if ModuloInteger(val1,2) == 1 or ModuloInteger(val2,2) == 1 then
       set retval = retval + R2I(Pow(2,i))
     endif
     set val1 = val1 / 2
     set val2 = val2 / 2
     set i = i + 1
  endloop

  return retval 
endfunction

Comments

No comments.