MODULE DemoLvov; (*$MAIN*)
IMPORT Lvov;
VAR b1,b2,b3,CO:INT16;

PROCEDURE p1( a:INT16);
VAR b1,b2,b3,CO:INT16;
BEGIN
Lvov.LINE(1, 1,10,1, 3); (* типа старт ^-) *)
END p1;

BEGIN 
END DemoLvov.

MODULE DemoLvov; (*$MAIN*)
IMPORT Lvov;

BEGIN
  Lvov.CLS(255);
  Lvov.PSET(0, 32, 3);
  Lvov.PRESET(10, 33);
  Lvov.LINE(0, 0, 128, 128, 2);
  Lvov.LINE(0, 10, 128, 138, 1);
  Lvov.BOX(50, 50, 75, 75, 3);
  Lvov.FIL_BOX(150, 150, 75, 75, 3);
(*
  Lvov.COLOR(5, 0);
  Lvov.PAINT(130, 30, 2, 3);
*)
  LOOP END
END DemoLvov.

Зорко, подавай эффективные типы данных и конструкции!

MODULE DemoLvov; (*$MAIN*)
IMPORT Lvov;
VAR b1:INT8;


BEGIN
(*  Lvov.CLS(0); *)
FOR b1:=0 TO 127 DO END;
(*  Lvov.CLS(255);*)
END DemoLvov.

{Дизкомпилированный файл: 'DemoLvov.lvt'}
{Формат LVT}
{ Начальный адрес: $0000 (0) }
{ Конечный адрес : $0029 (41) }
{ Адрес старта   : $0000 (0) }

program Project; uses  uMD01u in 'uMD01u.pas';

VAR
L0000, L0007, L000E, L0023, L0024
:TLabelLV;

BEGIN
INITCompiler;

SetFullNameLVTfile('DemoLvov.lvt');
SetNameInternalKOI(#$44+#$65+#$6D+#$6F+#$4C+#$76);

SetAddrRAM($0000);

StartProgram;

LabelA(L0000);
Call(L0007);
JMP($F875);     // непонятное ?!??!!
DB($E9);     // непонятное ?!??!!

LabelA(L0007);
LxiHL(L0000);     //  HL=$0000
MovAL;     //A=L
Sta(L0023);     // b1:INT8=L=$00

	LabelA(L000E);     // похоже на цикл FOR b1:=0 TO
	LxiHL(L0023);     // ^b1

	Call(L0024);     // А ЭТО ВООБЩЕ ЧТО ТАКОЕ И ЗАЧЕМ!??!?!

	InxHL;     //HL=HL+1
	MovAL;     //A=L
	Sta(L0023);     //b1=A
	MovAL;     //
	Xri($80);     // A = A xor 128
	Sui($80);     // A = A - 128
	cmc;     //  not c(признак).
	Jc(L000E);     //
	RET;

LabelA(L0023);     // VAR b1:INT8
DB($00);

	LabelA(L0024);     // А ЭТО ВООБЩЕ ЧТО ТАКОЕ И ЗАЧЕМ !??!?!
	MovAM;     // A=b1
	MovLA;     // L=b1
	rlc;       // A=  сдвиг влево
	SbbA;     // A=A-A-c
	MovHA;     // H=A
	RET;

FINALCompiler;
END.

MODULE DemoLvov; (*$MAIN*)
IMPORT Lvov;
VAR b1:INT8;

BEGIN

WHILE  b1< 127 DO END;

END DemoLvov.

{Дизкомпилированный файл: 'DemoLvov.lvt'}
{Формат LVT}
{ Начальный адрес: $0000 (0) }
{ Конечный адрес : $001A (26) }
{ Адрес старта   : $0000 (0) }

program Project; uses  uMD01u in 'uMD01u.pas';

VAR
L0007, L0014, L0015
:TLabelLV;

BEGIN
INITCompiler;

SetFullNameLVTfile('DemoLvov.lvt');
SetNameInternalKOI(#$44+#$65+#$6D+#$6F+#$4C+#$76);

SetAddrRAM($0000);

StartProgram;
Call(L0007);

JMP($F875);
DB($E9);

	LabelA(L0007);// начало цикла WHILE
	LxiHL(L0014);//HL=b1

	Call(L0015);////// что это за "подстраховака" "перестраховака"такая какая-то

	MovAL;//A=b1
	Sui($7F);// A=A-127
	Jc(L0007);//цикл
	RET;// конец цикла

LabelA(L0014);//VAR b1:INT8;
DB($00);

	LabelA(L0015);/// что это за "подстраховака" "перестраховака"такая какая-то
	MovAM;
	MovLA;
	rlc;
	SbbA;
	MovHA;
	RET;

FINALCompiler;
END.