Программирование на УКНЦ как?

[hobot]

AFZ, готовой RND и RANDOMIZE для OMSI Pascal"я нет, как и модуля CRT (!)

Скрытый текст

Вопрос в том, неужели нет шансов использовать значение таймера?

Функция RND (ранее уже публиковал, это из школьных времён черновика)

FUNCTION RND: REAL;
VAR IRND: INTEGER;
BEGIN
/*$C
    BR    M1
RN:    .WORD    435
M1:    MOV    RN, R1
    MUL    #12869, R1
    ADD    #6925, R1
    MOV    R1, RN
    BIC    #^O100000, R1
    MOV    R1, IRND(SP)
*/
    RND:=IRND/32767;
END;

может через переменную типа REGISTER можно? по аналогии с RA и RD клавиатуры?

[свернуть]