MODULE Test12;

CONST
  icon = 32;
  ash1 = ASH(icon, -5);
  ash2 = ASH(icon, 5);

VAR
  i : INTEGER;

BEGIN
  i := icon;
  ASSERT(ash1 = 1);
  ASSERT(ash2 = 1024);
  ASSERT(ASH(i, -5) = 1);
  ASSERT(ASH(i, 5) = 1024);
END Test12.

Проверка правильности вычисления ASH.