А ты на мой МАДЛ гонишь! Я ж его не для написания бухгалтерских програм делаю! А для писания динамических игр для ПК-01!

• https://github.com/Oleg-N-Cher/Bolder16K

{изменеия цвета экрана нажатием на "2"
из игры "Лабиринт"}
program Project; uses  uMD01u in 'uMD01u.pas';

VAR
EE_Cycle,Proc_Color_RET,Byte_Color,Proc_Color_cycle1,Proc_Color
:TLabelLV;

BEGIN
INITCompiler;
SetFullNameLVTfile('_res.LVT');
SetNameInternalKOI(#$20+#$20+#$20+#$20+#$20+#$20);

{Процедура Опроса нажатия кл "2"}
{Byte_Color - переменная установленного цвета}
LabelA(Proc_Color);
  { изменения цвета нажатием на  '2'}
  MviA($EF);Out_($D0);// посылаем на порт $D0, '11101111'{$EF}
  In_($D1); // опрашиваем порт $D1
  Cpi($BF); //'10111111'){BF});   // сравниваем нажата ли "2"
  Jnz(Proc_Color_RET);// если не нажата выход

{если же нажата .....}
{Byte_Color = Byte_Color+4}
Lda(Byte_Color); MovBA; MviA($04); AddB; Sta(Byte_Color);
Out_($C1); // { отправиляем Byte_Color на порт $C1 }

    {Ожидаем отжатия "2"}
    LabelA(Proc_Color_cycle1);
    MviA($EF);Out_($D0); // посылаем на порт $D0, '11101111'{$EF}
    In_($D1); // опрашиваем порт $D1
    Cpi($BF); //'10111111'){BF});   // сравниваем нажата ли "2"
    Jz(Proc_Color_cycle1); // если не ОТЖАТА, - переход LabelA(Proc_Color_cycle1);

LabelA(Proc_Color_RET);  RET;
LabelA(Byte_Color);DB($00);   // переменная цвета
// конец процедуры

StartProgram; LabelA(EE_Cycle); Call(Proc_Color); Goto_(EE_Cycle);

FINALCompiler;
END.