Курсовая работа: Устройство контроля интенсивности движения через мост

MAIN:MOV R4,#0;Обнуление

MOV R6,#0;количества а/м.

MOV P0,#0FFH;Сброс триггеров

SETB RD;Сброс счетчика.

NOP ;Задержка в 1мкс (для срабатывания CT)

CLR RD;

MOV P0,#0;Восстановление работы триггеров.

SETB WR ;Импульс переключения линий с датчиков.

MOV SP,#100;Установка указателя стека.

BEGIN:MOV B,#4;Число датчиков.

MOVR0,#1;R0=1.

CYCLE:CLR WR;Импульс переключения линий с датчиков.

NOP;Задержка в 1мкс (для срабатывания CT и MS).

JNB INT0,J11;Опрос линии порта (проверка состояния датчиков).

MOV P0,R0;Сброс соответсвующего триггера датчика

CALL SUM;Вызов п/п суммипрвания.

MOV P0,#0;Восстановление счетнго режима триггера

J11:MOVA,R0;A=R0.

RL A;Пестановка сбрасывающего бита триггеров.

MOVR0,A;R0=A.

SETB WR;Импульс переключения линий с датчиков.

DJNZ B,CYCLE;B=B-1. If B<>0, то переход на новый цикл

;опроса датчиков.

JB INT1,J2;Если INT1=1, то J2,

CALL DSPLY; иначе вызов п/п вывода инф-ции на

;внешнее устройство.

J2:SJMP BEGIN;Переход на начало опроса датчиков.

;П/п суммирования количества прошедшего транспорта.

SUM:MOV A,R6;Суммирование десятков.