Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

помогите перевести с Pascal'я на ассемблер код

93K
16 апреля 2014 года
swet-baby
1 / / 16.04.2014
program svetofor;

var Rez :byte; //Режим

Red : sbit at GPIO.B4; //Красный цвет

Yellow : sbit at GPIO.B5; //Желтый цвет

Green : sbit at GPIO.B2; //Зеленый цвет

Button : sbit at GPIO.B3; //Кнопка

procedure interrupt; //Прерывание по нажатию кнопки

begin

delay_ms(100); //Защита от дребезга

if Button then

begin

if Rez=1 then Rez:=0 else Rez:=1; //Переключение режима

end;

ClearBIT(INTCON,GPIF); //Сброс флага прерывания по кнопке

end;

{ Main program }

begin

{Настройка прерывания}

iocb :=%00001000;

INTCON :=%10001000;

{Настройка порта вв}

CMCON :=7;

trisio :=0;

gpio :=0;

Rez:=0; //Режим 0

{Бесконечный цикл}

while 1 do

begin

if Rez=1 then {Режим Мигающий желтый}

begin

delay_ms(500);

Yellow:=1;

delay_ms(500);

Yellow:=0;

end;

if Rez=0 then {Рабочий режим}

begin

//Красный

Red:=1;

delay_ms(3000);

Yellow:=1;

//Желтый

delay_ms(2000);

Red:=0;

Yellow:=0;

//Зеленый

Green:=1;

delay_ms(3000);

Green:=0;

//Мигание зеленого

delay_ms(500);

Green:=1;

delay_ms(500);

Green:=0;

delay_ms(500);

Green:=1;

delay_ms(500);

Green:=0;

delay_ms(500);

Green:=1;

delay_ms(500);

Green:=0;

//Желтый

Yellow:=1;

delay_ms(2000);

Yellow:=0;

end;

end;

end.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог