nesco, вычисления в теле цикла; я, конечно, не знаю архитектуры P-IY, но меня смущает, как можно за столь малое количество машинных тактов произвести умножение двух чисел, да ещё и проверить окончание цикла, ведь надо и адреса выставить, и прочитать, и из регистра в регистр перебросить.... Такое же умножение (сложение) в VBA на Excel занимает по 200 тиков на цикл на этой же машине.