! Unsigned integer

[ UCmp L H;
  if (L == H) return 0;
  if ((H & $8000) ~= (L & $8000))
    if (0 <= L) return -1;
    else return 1;
  if (0 < L - H) return 1;
  else return -1;
];