MOV A,L
   SUB E
   MOV L,A
   MOV A,H
   SBB D
   MOV H,A

4. Нужно ли позволять ли компилятору компилировать (устанавливать) в регистры процессора, в видеопамять, в порты? Уважаемый Zelya убедил меня, что — нет ! Ну почти убедил!

program primer;
Begin
.....
jnz(m93);
.....
movAL;
.....
CPI(0);
....
Comiling;
end.

Procedure p1;
var a,b,c: byte;
begin
......
a:=a+1;b:=a;
......
end;

Procedure p2;
var d,r,t: byte;
begin
......
p1;// использует процедуру p1;
end;

Procedure p3;
begin
......
p1;// использует процедуру p1;
end;


BEGIN {старт программы}
p2;// старт программы с процедуры p2;
END;

Procedure С_p1; { процедура генерирующая код-процедуры-p1-для-ПК-01. Если процедура p1-для-ПК-01 используется, надо запустить С_p1 и начнётся генерация кода для ПК-01}
var a,b,c: byte;
begin
......
a:=a+1;b:=a;
......
end;

Procedure С_p2;  { процедура генерирующая код-процедуры-p2-для-ПК-01. Если процедура p2-для-ПК-01 используется, надо запустить С_p2 и начнётся генерация кода для ПК-01}
var d,r,t: byte;
begin
......
p1;// использует процедуру p1;
end;


Procedure С_p3;  { процедура генерирующая код-процедуры-p3-для-ПК-01. Если процедура p3-для-ПК-01 используется, надо запустить С_p3 и начнётся генерация кода для ПК-01}
begin
......
p1;// использует процедуру p1;
end;



{КО ВСЕМУ НАПИСАННОМУ ВЫШЕ ТАКЖЕ генерируется мадлом на основе содержимого процедуры p1}
Procedure use_p1; { процедура для проверки используется ли процедура p1 и нужно ли её компилировать}
Begin
f_use_p1:=1; {когда зупустится процедура use_p1; установится флаг f_use_p1 что её надо компилировать, так как она используется }
end;

{генерируется мадлом на основе содержимого процедуры p2}
Procedure use_p2; { процедура для проверки используется ли процедура и нужно ли её компилировать}
Begin
f_use_p2:=1;{когда зупустится процедура use_p2; установится флаг f_use_p2 что её надо компилировать, так как она используется }
use_p1;{запустить процедуру которую использует (вызывает) процедура p2 (для установки флага об использовании её) }
end;

{генерируется мадлом на основе содержимого процедуры p3}
Procedure use_p3; { процедура для проверки используется ли процедура и нужно ли её компилировать}
Begin
f_use_p3:=1;{когда зупустится процедура use_p3; установится флаг f_use_p3 что её надо компилировать, так как она используется }
use_p1;{запустить процедуру которую использует (вызывает) процедура p2 (для установки флага об использовании её) }
end;


BEGIN
use_p2; {запуск "процедур-установки-флагов"}

if  f_use_p1=1 then  С_p1;  {если запуск "процедур-установки-флагов" установил флаг f_use_p1=1, процедура используется программой и её надо компилировать, для этого запускаем С_p1, т.е. процедуру компилирующую  p1-для-пк-01; }
if  f_use_p2=1 then  С_p2;  {если запуск "процедур-установки-флагов" установил флаг f_use_p2=1, процедура используется программой и её надо компилировать, для этого запускаем С_p2, т.е. процедуру компилирующую  p2-для-пк-01; }
if  f_use_p3=1 then  С_p3;  {если запуск "процедур-установки-флагов" установил флаг f_use_p3=1, процедура используется программой и её надо компилировать, для этого запускаем С_p3, т.е. процедуру компилирующую p3-для-пк-01; }
END.

type TBuffer=array [0..PastELbuf] of Byte;
 PBuffer=^TBuffer;
...........
Var Buffer:array[1..AmountFiles] of PBuffer;
...............
New(Buffer[NumBUF]);
...............
{Обращение к буферам}
Buffer[NumBUF]^[w-adrBegin1Buf[NumBUF]]:=b;
......................

{Пример {комментария {{пример комментария}

{Пример {комментария {{пример комментария}}}}

Я на этом очень сильно "погорел" когда не мог понять почему файлы Delphi не могут быть скомпилированы FPC (lazarus) и что это за жалобы такие "Warning: Comment level 2 found" и "Fatal: Unexpected end of file".
Будьте внимательны!