Система автоматизированного управления мобильной газораспределительной станцией

JURNAL[501] = МАС_Р_ВХ[4];

JURNAL[502] = МАС_Р_ВЫХ[3];

JURNAL[503] = МАС_Р_ВЫХ[4];

JURNAL[506] = МАС_Р_РЕД1[3];

JURNAL[507] = МАС_Р_РЕД1[4];

JURNAL[508] = МАС_Р_РЕД2[3];

JURNAL[509] = МАС_Р_РЕД2[4];

JURNAL[512] = МАС_Т_ВХ[3];

JURNAL[513] = МАС_Т_ВХ[4];

JURNAL[514] = МАС_Т_ВЫХ[3];

JURNAL[515] = МАС_Т_ВЫХ[4];

" КОНТРОЛЬ И УПРАВЛЕНИЕ КРАНАМИ

ПРОЦЕДУРА (VALVE)

{

/*======== КРАН_ВХ ==================================*/

[КРАН_ВХ]

"Выделяем биты состояния кран открыт/закрыт

ВРЕМЕННЫЙ[0] = MAS_DI[0];

ВРЕМЕННЫЙ[0] = ВРЕМЕННЫЙ[0] & 3;

"========НАЧАЛО БЛОКА==========

"Проверяем самопроизвольный сход крана, смотрим предыдущее состояние

ВРЕМЕННЫЙ[1] = КРАН_ВХ[0];

ВРЕМЕННЫЙ[1] = ВРЕМЕННЫЙ[1] & 3;

"Проверяем, если текущее состояние и предыдущее состояние разные, а команда не подавалась,

"кран не в ремонте, не в аварии и не находился в промежутке или неисправности (двойное замыкание)

"тогда возвращаем кран назад

ЕСЛИ ( (ВРЕМЕННЫЙ[0] != ВРЕМЕННЫЙ[1]) & ( (КРАН_ВХ[1] & 3) == 0 ) & ( (КРАН_ВХ[1] & 100H) == 0 ) &

((КРАН_ВХ[0] & 7F00H) == 0) & (ВРЕМЕННЫЙ[1] != 3) & (ВРЕМЕННЫЙ[1] != 0)), то {

"Отправляем кран назад в соответствии с состоянием

КРАН_ВХ[1] = ВРЕМЕННЫЙ[1]; "!!!Кран не в ремонте!!!

"Выставляем признак схода с концевика

ПЕРЕЙТИ, если переменной (ВРЕМЕННЫЙ[1]) соответсвует {

ЗНАЧЕНИЕ (1):"Сход с КО

ВРЕМЕННЫЙ[2] = 2000H;

КРАН_ВХ[0] = КРАН_ВХ[0] | ВРЕМЕННЫЙ[2];

ВЫХОД;

ЗНАЧЕНИЕ (2):"Сход с КЗ

ВРЕМЕННЫЙ[2] = 4000H;

КРАН_ВХ[0] = КРАН_ВХ[0] | ВРЕМЕННЫЙ[2];

}

}

"========НАЧАЛО БЛОКА==========

"Заносим новое состояние крана при этом сохраняем аварийные биты и биты схода с концевика

ВРЕМЕННЫЙ[1] = КРАН_ВХ[0];

ВРЕМЕННЫЙ[1] = ВРЕМЕННЫЙ[1] & 7F00H;

КРАН_ВХ[0] = ВРЕМЕННЫЙ[0] | ВРЕМЕННЫЙ[1];

"========НАЧАЛО БЛОКА==========

"Проверяем отключение (ремонт) крана, если кран отключен снимаем команды, сигналы аварии крана,

"сигнал сход с концевика и выходим из процедуры

ЕСЛИ ( (КРАН_ВХ[1] & 100H) != 0 ), то{

ВРЕМЕННЫЙ[2] = MAS_OUT_DIO[0];

"Пишем 00 в команды управления краном

ВРЕМЕННЫЙ[2] = ВРЕМЕННЫЙ[2] & FFFCH;

MAS_OUT_DIO[0] = ВРЕМЕННЫЙ[2];

КРАН_ВХ[1] = КРАН_ВХ[1] & 100H; "Снимаем команды, сохраняем бит ремонта

КРАН_ВХ[0] = КРАН_ВХ[0] & 3; "Снимаем сигналы аварии, сохраняя текущее состояние

ИДТИ на метку (КРАН_НА_СВЕЧУ);

}

"========НАЧАЛО БЛОКА==========

"Проверяем отработал ли кран команду управления, если отработал снимаем команду и

"останавливаем таймер

ЕСЛИ ( (КРАН_ВХ[1] & 3) == (КРАН_ВХ[0] & 3) ), то{

ВРЕМЕННЫЙ[2] = MAS_OUT_DIO[0];

ВРЕМЕННЫЙ[2] = ВРЕМЕННЫЙ[2] & FFFCH;

MAS_OUT_DIO[0] = ВРЕМЕННЫЙ[2];

КРАН_ВХ[1] = 0;

СТОП таймер (TIMER_VALVE_IN);

ИДТИ на метку (КРАН_НА_СВЕЧУ);

}

"========НАЧАЛО БЛОКА==========

"Если таймер отработал выставляем признак аварии сбрасываем команду

ЕСЛИ (@TIMER_VALVE_IN@ == 1), то{

"Сбрасываем старые аварии, сохраняя текущее состояние, далее запишем новые

КРАН_ВХ[0] = КРАН_ВХ[0] & 3;

"Проверяем в каком состоянии остановился кран, если в промежутке, тогда

"определяем до какого концевика не дошёл кран

ЕСЛИ ( (КРАН_ВХ[0] & 3) == 0 ), то {

ВРЕМЕННЫЙ[0] = КРАН_ВХ[1] & 3; "Определяем текущее команду управления

ПЕРЕЙТИ, если переменной (ВРЕМЕННЫЙ[0]) соответсвует {

ЗНАЧЕНИЕ (1):"не дошёл до КО

ВРЕМЕННЫЙ[1] = 800H;

КРАН_ВХ[0] = КРАН_ВХ[0] | ВРЕМЕННЫЙ[1];

ВЫХОД;

ЗНАЧЕНИЕ (2):"не дошёл до КЗ

ВРЕМЕННЫЙ[1] = 1000H;

КРАН_ВХ[0] = КРАН_ВХ[0] | ВРЕМЕННЫЙ[1];

}

}

"Если кран не сошёл с концевика определяем с какого концевика

ЕСЛИ ( (КРАН_ВХ[0] & 3) != 0 ), то {

ВРЕМЕННЫЙ[0] = КРАН_ВХ[0] & 3; "Определяем текущее состояние крана

ПЕРЕЙТИ, если переменной (ВРЕМЕННЫЙ[0]) соответсвует {

ЗНАЧЕНИЕ (1):"не сошёл с КО

ВРЕМЕННЫЙ[1] = 100H;

КРАН_ВХ[0] = КРАН_ВХ[0] | ВРЕМЕННЫЙ[1];

ВЫХОД;

ЗНАЧЕНИЕ (2):"не сошёл с КЗ

ВРЕМЕННЫЙ[1] = 200H;

КРАН_ВХ[0] = КРАН_ВХ[0] | ВРЕМЕННЫЙ[1];

ВЫХОД;

ЗНАЧЕНИЕ (3):"двойное замыкание

ВРЕМЕННЫЙ[1] = 400H;

КРАН_ВХ[0] = КРАН_ВХ[0] | ВРЕМЕННЫЙ[1];

}

}

"Снимаем команду

ВРЕМЕННЫЙ[0] = MAS_OUT_DIO[0];

ВРЕМЕННЫЙ[0] = ВРЕМЕННЫЙ[0] & FFFCH;

MAS_OUT_DIO[0] = ВРЕМЕННЫЙ[0];

КРАН_ВХ[1] = 0;

"Отправляем через MAILBOX в СП-300Р команду о смене уставок управления

"текущую (отк(1) или зак(2)) меняем на сброс(0), это необходимо сделать

"так как если команда отработана с аварией в текущих уставках остаётся

"последняя команда

MAILBOX[3] = 1; "номер уставки

MAILBOX[2] = 2; "номер страницы

MAILBOX[1] = 4; "команда

MAILBOX[0] = 1; "начать выполнение

ИДТИ на метку (КРАН_НА_СВЕЧУ);

}

"========НАЧАЛО БЛОКА==========

"Проверяем: (1)подана и команда управления на кран,(2)запущен таймер,

"(3)в ремонте кран, если нет подаём команду и запускаем таймер

ЕСЛИ ( ((КРАН_ВХ[1] & 3) != 0) & (@TIMER_VALVE_IN == 0) & ( (КРАН_ВХ[1] & 100H) == 0 ) ), то {

ВРЕМЕННЫЙ[0] = КРАН_ВХ[1];

ВРЕМЕННЫЙ[1] = MAS_OUT_DIO[0];

ВРЕМЕННЫЙ[1] = ВРЕМЕННЫЙ[1] & FFFCH;

ВРЕМЕННЫЙ[1] = ВРЕМЕННЫЙ[0] | ВРЕМЕННЫЙ[1];

MAS_OUT_DIO[0] = ВРЕМЕННЫЙ[1];

"Запускаем таймер удержания (отк/зак) крана под командой

СТАРТ (TIMER_VALVE_IN);

}

Размещено на Allbest.ru