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

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.