Контроллеры
Категория реферата: Рефераты по информатике, программированию
Теги реферата: шпаргалки по праву, диплом государственного образца
Добавил(а) на сайт: Lev.
Предыдущая страница реферата | 28 29 30 31 32 33 34 35 36 37 38 | Следующая страница реферата
/* Н А Ч А Л О П Р О Г Р А М М Ы /
/*************************************************************************/
void main(void)
{
/*---------- Запуск таймера на вывод -------------------------------------*/
set_vector(TIMER0,Timer);
Zapusk();
/*-------- Сброс сторожевого таймера -------------------------------------*/
TXD=0;
TXD=1;
/*----------------- Обнуление данных -------------------------------------*/
Clear();
/*------------------------ Вывод на ЦАП ----------------------------------*/
Machtab(StecVprd);
VivodCapSl();
/*--------- Подготовка вывода 206 слова ----------------------------------*/
SlRab=0;
Adress=0x61;
Priznak_Usvic();/* признак от УСВИЦ-250 */
Priznak_Work(0,1);/* признак нет вычисленных данных */
CalcChetSl();/* Подсчет четности */
asm(" clr TCON.4 ");/* остановка таймера */
SlVmd_1=SlRab_1;
SlVmd_2=SlRab_2;
SlVmd_3=SlRab_3;
SlVmd_4=SlRab_4;
asm(" setb TCON.4 ");/* запуск таймера */
/*--------- Подготовка вывода 207 слова ----------------------------------*/
SlRab=0;
Adress=0xe1;
Priznak_Usvic();/* признак от УСВИЦ-250 */
Priznak_Work(0,1);/* признак нет вычисленных данных */
CalcChetSl();/* подсчет четности */
asm(" clr TCON.4 ");/* остановка таймера */
SlVpr_1=SlRab_1;
SlVpr_2=SlRab_2;
SlVpr_3=SlRab_3;
SlVpr_4=SlRab_4;
asm(" setb TCON.4 ");/* запуск таймера */
/*--------- Заполнение начальными данными Vpr и Vmd ----------------------*/
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;
SlDs_4=SlRab_4;
asm(" setb TCON.4 ");/* запуск таймера */
/*------------- копируем в поле 206 функциональный тест ----------------*/
SlRab=0;
Priznak_Work(1,0);/* признак функциональный тест */
CalcChetSl(); /* подсчет четности */
asm(" clr TCON.4 ");/* остановка таймера */
SlVpr_1=SlRab_1;
SlVpr_2=SlRab_2;
SlVpr_3=SlRab_3;
Рекомендуем скачать другие рефераты по теме: методы изложения, сочинение евгений онегин.
Предыдущая страница реферата | 28 29 30 31 32 33 34 35 36 37 38 | Следующая страница реферата