Предыдущая страница реферата | 13  14  15  16  17  18  19  20  21  22  23 | Следующая страница реферата



a=3;

do {

/* vvodvmd(); */

ImVxodMd(); /* имитация входа Vmd */

Perevod_Md(); /* перевод из грея в двоичную */

StecVmdd=Vmdd; /* Сохранение Vmd.*/

/* vvodvpr();*/

ImVxodPr(); /* имитация входа Vpr */

Perevod_Pr(); /* перевод из грея в двоичную */

StecVprd=Vprd; /*Сохранение Vpr */

a--; }

while (a>0);

Nach: {

/*-------- Сброс сторожевого таймера --------------------------------------*/

TXD=0;

TXD=1;

/*-------------------- Обновление данных Vpr и Vmd -----------------------*/

/* vvodvmd();*/

ImVxodMd(); /* имитация входа Vmd */

Perevod_Md(); /* перевод из грея в двоичную */

StecVmdd=Vmdd; /*Сохранение Vм.д.*/

/* vvodvpr();*/

ImVxodPr(); /* имитация входа Vpr */

Perevod_Pr(); /* перевод из грея в двоичную */

StecVprd=Vprd; /*Сохранение Vпр.д.*/

/*----------------- Цикл проверки на отказ Vmd ----------------------------*/

Cikl_Otkaz_Vmd();

/*----------------- Цикл проверки на отказ Vpr ----------------------------*/

Cikl_Otkaz_Vpr();

/*----------------- Тест на наличие РК "ТК" -------------------------------*/

{

if(INT0==1) Test_Kontrol();

}

while(INT0==1)

/*----------------- Тест на наличие Vmd >= Vpr ----------------------------*/

if(Vprd>=Vmdd) { RXD=0; PK_Vpr=1; }

else { RXD=1; PK_Vpr=0; }

/*----------------- Маштабирование Vprd -----------------------------------*/

Machtab(StecVprd);

VivodCapSl();

/*------------- копируем в поле 271 функциональный тест ------------------*/

SlRab=0;

Priznak_Work(1,0);/* признак функциональный тест */

CalcChetSl(); /* подсчет четности */

asm(" clr TCON.4 ");/* остановка таймера */

SlDs_1=SlRab_1;

SlDs_2=SlRab_2;

SlDs_3=SlRab_3;

Рекомендуем скачать другие рефераты по теме: методы изложения, сочинение евгений онегин.

Предыдущая страница реферата | 13  14  15  16  17  18  19  20  21  22  23 | Следующая страница реферата