SCL для S7=7-1200

[petr2off]

велел мне тут начальник заняться программированием для S7-1200. Потребовалась сне RAND функция, пошукал по просторам интернета, не перевелись там еще добрые люди. Содрал оттуда программку для генератора псевдослучайных чисел.
// Get tick count
CALL "TIME_TCK" // [SFC64]
RET_VAL:=#Tick // [Local Time value]
// Use tick count to determine a "random" rotate value from 0 - 32
L #Tick
AD DW#16#1F
T #Rot
// Scramble the bits by rotating and XORing them
L #Tick
L #Rot
RLD
L #Tick
XOD
ABS
L #upper_limit // верхняя граница чисел
MOD
T #random

Радостный такой начал писать FC блок на SCL - не идет. Залез в мануалы - оказалось, что теперь все не так. Не могу сказать, что изменения мне не понравились, но было неожиданно. Теперь она выглядит так:
#VR := RD_SYS_T(OUT => #Ttmp);
#Tick := #Ttmp.NANOSECOND / DW#1000;
#Rot := #Tick & DW#16#1F;
#Txor :=SHR(IN:=#Tick, N:=#Rot);
#Tick := #Tick XOR #Txor;
#Tick := ABS_DINT(IN := #Tick);
#Tick := #Tick MOD #upper_limit;
#RANDA := #Tick;

[Михайло]

Вверху код на языке на STL, а не на SCL.

[petr2off]

Получается что для S7 - 1200 STL Нет ?

Отправлено спустя 7 минут 14 секунд:
Т.е. я то считал, что S7-1200 нет паскале образного языка, а получается совсем наоборот.

[Михайло]

Ага, так и есть.

[petr2off]

Мда. Лишний раз убеждаешься, что если что то непонятно - учи матчасть. Открыл мануал по программированию 1200/1500. Читаю. Вижу существенные отличия от программирования S7-300/

[Shtynder]

велел мне тут начальник заняться программированием для S7-1200. Потребовалась сне RAND функция, пошукал по просторам интернета, не перевелись там еще добрые люди. Содрал оттуда программку для генератора псевдослучайных чисел.
// Get tick count
CALL "TIME_TCK" // [SFC64]
RET_VAL:=#Tick // [Local Time value]
// Use tick count to determine a "random" rotate value from 0 - 32
L #Tick
AD DW#16#1F
T #Rot
// Scramble the bits by rotating and XORing them
L #Tick
L #Rot
RLD
L #Tick
XOD
ABS
L #upper_limit // верхняя граница чисел
MOD
T #random

Радостный такой начал писать FC блок на SCL - не идет. Залез в мануалы - оказалось, что теперь все не так. Не могу сказать, что изменения мне не понравились, но было неожиданно. Теперь она выглядит так:
#VR := RD_SYS_T(OUT => #Ttmp);
#Tick := #Ttmp.NANOSECOND / DW#1000;
#Rot := #Tick & DW#16#1F;
#Txor :=SHR(IN:=#Tick, N:=#Rot);
#Tick := #Tick XOR #Txor;
#Tick := ABS_DINT(IN := #Tick);
#Tick := #Tick MOD #upper_limit;
#RANDA := #Tick;

Здраствуйте, скажите а этот код точно работает в 1200 на SCL? Если да, то какие типы переменных используются?