Контроллеры
Категория реферата: Рефераты по информатике, программированию
Теги реферата: шпаргалки по праву, диплом государственного образца
Добавил(а) на сайт: Lev.
Предыдущая страница реферата | 28 29 30 31 32 33 34 35 36 37 38 | Следующая страница реферата
SlVpr_4=SlRab_4;
asm(" setb TCON.4 ");/* запуск таймера */
/*------------- копируем в поле 207 функциональный тест ----------------*/
SlRab=0;
Priznak_Work(1,0);/* признак функциональный тест */
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 ");/* запуск таймера */
/*----------------- Тест Контроль программы -----------------------------*/
TestControlPO();
/*-------- Формирование дискретного 271 слова ----------------------------*/
SlRab=0;
Adress=0x9d;/* адрес слова 271 */
Priznak_Test();/* растановка признаков тестирования в слове */
Priznak_Usvic();/* признак от УСВИЦ-250 */
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 слова в соответствии с РТМ, изм,3 для Vpr ------*/
SlRab=0;
FormPTM(StecVprd);
Adress=0x61;/* адрес слова 206 */
Priznak_Usvic();/* признак от УСВИЦ-250 */
Priznak_Work(1,1);/* признак нормальной работы */
If_Speed(Vprd);/* проверка на < 50км */
if ((Vpr_Ok==1)||(PO_Ok==1)) Priznak_Work(0,0);/* отказ */
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 ");/* запуск таймера */
/*----- Формирование 207 слова в соответствии с РТМ, изм,3 для Vmd -----*/
SlRab=0;
FormPTM(StecVmdd);
Adress=0xe1;/* адрес слова 207 */
Priznak_Usvic();/* признак от УСВИЦ-250 */
Priznak_Work(1,1);/* признак нормальной работы */
If_Speed(Vmdd); /* проверка на < 50км */
if ((Vmd_Ok==1)||(PO_Ok==1)) Priznak_Work(0,0);/* отказ */
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 ");/* запуск таймера */
SlRab=0;
/*-------------------- G O T O -> N A C H ---------------------------*/
}
goto Nach;
}
Приложение 2. Программы вывода слов в магистраль.
defseg c_text,class=code
seg c_text
int38T equ 65535-80*36-80*32-67+33+54
BaitV equ 2ah ; адрес выводного байта 28
Bit6V equ 51h ; Bit6V прямой вывод бита 80
Bit7V equ 52h ; Bit7V инверсной вывод бита 81
Sl206 equ 10h ; адрес слова 206
Sl207 equ 3ch ; адрес слова 207
Sl271 equ 38h ; адрес слова 271
NomParam equ 1bh ; Номер выводимого параметра 0=Sl206
global _Timer,_Vivod206,_Vivod207;,_Vivod271
_Timer:
PUSH PSW ; время от начала прерывания ___11
CLR TCON.4 ; Останов таймеpа 1
CLR TCON.5 ; Сбpос флага пеpеполнения 1
PUSH 0E0h ; 2
MOV A,#low(int38T) ; Выбоp младшего байта INT_38T 1
MOV TL0,A ; запись в TL0 1
MOV A,#high(int38T) ; Выбоp стаpшего байта INT_38T 1
MOV TH0,A ; запись в TH0 1
Рекомендуем скачать другие рефераты по теме: методы изложения, сочинение евгений онегин.
Предыдущая страница реферата | 28 29 30 31 32 33 34 35 36 37 38 | Следующая страница реферата