function UMA(hoge: Integer): Integer; register;
asm
  SHL EAX, 5
  ADD EAX, 16
end;