(*~\Глагол\Приложения\Свои\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
                                 ОТДЕЛ ПроРегистр+;
(*============================================================================
 *      Пример приложения, которое использует библиотечный отдел Регистр.отд
 *                          работа с байтами и ячейками
 *============================================================================*)

ИСПОЛЬЗУЕТ
  Регистр,
(*
  Асм     ИЗ "..\..\Отделы\Заграница\",
*)
  НаЭкран ИЗ "..\..\Отделы\Обмен\ВводВывод\";

(*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
ЗАДАЧА Главная;
ПЕР
  и64:ШИРЦЕЛ;
  и32:ЦЕЛ;

  номБайта,номЯч,номУзк,номЦел:ЦЕЛ;     (* ЦЕЛ номер *)

   яц:ЯЧЦЕЛ;

  узк:УЗКЦЕЛ;
  цел:ЦЕЛ;

УКАЗ
  НаЭкран.ВсяЦепь("^----------------- Привет! работа с байтами и ячейками----------------^^");

(* проверка задачи, возвращающей ответ яц:=Регистр.БайтИзРядаЯчеек(и32,номБайта) *)
  НаЭкран.ВсяЦепь("^проверка задачи, возвращающей ответ яц:=Регистр.БайтИзРядаЯчеек(и32,номБайта)^^");
  и32:=255;
                        номБайта:=0;
  яц:=Регистр.БайтИзРядаЯчеек(и32,0); НаЭкран.Цел4числа('^и32= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=1;
  яц:=Регистр.БайтИзРядаЯчеек(и32,1); НаЭкран.Цел4числа('^и32= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=2;
  яц:=Регистр.БайтИзРядаЯчеек(и32,2); НаЭкран.Цел4числа('^и32= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=3;
  яц:=Регистр.БайтИзРядаЯчеек(и32,3); НаЭкран.Цел4числа('^и32= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
(*
         ОШИБКА         номБайта:=4;
  яц:=Регистр.БайтИзРядаЯчеек(и32,4); НаЭкран.Цел4числа('^и32= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
*)

  и32:=МИН(ЯЧЦЕЛ); (*-128;*)
                        номБайта:=0;
  яц:=Регистр.БайтИзРядаЯчеек(и32,0); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=1;
  яц:=Регистр.БайтИзРядаЯчеек(и32,1); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=2;
  яц:=Регистр.БайтИзРядаЯчеек(и32,2); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=3;
  яц:=Регистр.БайтИзРядаЯчеек(и32,3); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);

  и32:=МИН(УЗКЦЕЛ); (*-32768;*)
                        номБайта:=0;
  яц:=Регистр.БайтИзРядаЯчеек(и32,0); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=1;
  яц:=Регистр.БайтИзРядаЯчеек(и32,1); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=2;
  яц:=Регистр.БайтИзРядаЯчеек(и32,2); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=3;
  яц:=Регистр.БайтИзРядаЯчеек(и32,3); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);

  и32:=МИН(ЦЕЛ);
                        номБайта:=0;
  яц:=Регистр.БайтИзРядаЯчеек(и32,0); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=1;
  яц:=Регистр.БайтИзРядаЯчеек(и32,1); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=2;
  яц:=Регистр.БайтИзРядаЯчеек(и32,2); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=3;
  яц:=Регистр.БайтИзРядаЯчеек(и32,3); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);

  и64:=МИН(ШИРЦЕЛ);
                        номБайта:=0;
  яц:=Регистр.БайтИзРядаЯчеек(и64,0); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=1;
  яц:=Регистр.БайтИзРядаЯчеек(и64,1); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=2;
  яц:=Регистр.БайтИзРядаЯчеек(и64,2); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=3;
  яц:=Регистр.БайтИзРядаЯчеек(и64,3); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=4;
  яц:=Регистр.БайтИзРядаЯчеек(и64,4); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=5;
  яц:=Регистр.БайтИзРядаЯчеек(и64,5); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=6;
  яц:=Регистр.БайтИзРядаЯчеек(и64,6); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=7;
  яц:=Регистр.БайтИзРядаЯчеек(и64,7); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);

  и32:=МАКС(ЯЧЦЕЛ);
                        номБайта:=0;
  яц:=Регистр.БайтИзРядаЯчеек(и32,0); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=1;
  яц:=Регистр.БайтИзРядаЯчеек(и32,1); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=2;
  яц:=Регистр.БайтИзРядаЯчеек(и32,2); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=3;
  яц:=Регистр.БайтИзРядаЯчеек(и32,3); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);

  и32:=МАКС(УЗКЦЕЛ);
                        номБайта:=0;
  яц:=Регистр.БайтИзРядаЯчеек(и32,0); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=1;
  яц:=Регистр.БайтИзРядаЯчеек(и32,1); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=2;
  яц:=Регистр.БайтИзРядаЯчеек(и32,2); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=3;
  яц:=Регистр.БайтИзРядаЯчеек(и32,3); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);

  и32:=МАКС(ЦЕЛ);
                        номБайта:=0;
  яц:=Регистр.БайтИзРядаЯчеек(и32,0); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=1;
  яц:=Регистр.БайтИзРядаЯчеек(и32,1); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=2;
  яц:=Регистр.БайтИзРядаЯчеек(и32,2); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);
                        номБайта:=3;
  яц:=Регистр.БайтИзРядаЯчеек(и32,3); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и32,номБайта,яц,0);

  и64:=МАКС(ШИРЦЕЛ);
                        номБайта:=0;
  яц:=Регистр.БайтИзРядаЯчеек(и64,0); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=1;
  яц:=Регистр.БайтИзРядаЯчеек(и64,1); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=2;
  яц:=Регистр.БайтИзРядаЯчеек(и64,2); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=3;
  яц:=Регистр.БайтИзРядаЯчеек(и64,3); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=4;
  яц:=Регистр.БайтИзРядаЯчеек(и64,4); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=5;
  яц:=Регистр.БайтИзРядаЯчеек(и64,5); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=6;
  яц:=Регистр.БайтИзРядаЯчеек(и64,6); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);
                        номБайта:=7;
  яц:=Регистр.БайтИзРядаЯчеек(и64,7); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)= %d, номБайта= %d, яц=регистр[номБайта]= %d',и64,номБайта,яц,0);


(* проверка собственно задачи (не возвращающей ответ) Регистр.ЯчейкаИзРядаЯчеек(и32,номЯч,яц) *)

  НаЭкран.ВсяЦепь("^^проверка собственно задачи Регистр.ЯчейкаИзРядаЯчеек(и32,номЯч,яц)^^");
  и32:=255;
                         номЯч:=0;
  Регистр.ЯчейкаИзРядаЯчеек(и32,0,яц); НаЭкран.Цел4числа('^и32=%d, номЯч=%d, ИзПамяти(ПолучитьАдрес(регистр)+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=1;
  Регистр.ЯчейкаИзРядаЯчеек(и32,1,яц); НаЭкран.Цел4числа('^и32=%d, номЯч=%d, ИзПамяти(ПолучитьАдрес(регистр)+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=2;
  Регистр.ЯчейкаИзРядаЯчеек(и32,2,яц); НаЭкран.Цел4числа('^и32=%d, номЯч=%d, ИзПамяти(ПолучитьАдрес(регистр)+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=3;
  Регистр.ЯчейкаИзРядаЯчеек(и32,3,яц); НаЭкран.Цел4числа('^и32=%d, номЯч=%d, ИзПамяти(ПолучитьАдрес(регистр)+номЯч,яц)=%d',и32,номЯч,яц,0);
(*
          ОШИБКА         номЯч:=4;
  Регистр.ЯчейкаИзРядаЯчеек(и32,4,яц); НаЭкран.Цел4числа('^и32=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
*)

  и32:=МИН(ЯЧЦЕЛ); (*-128;*)
                         номЯч:=0;
  Регистр.ЯчейкаИзРядаЯчеек(и32,0,яц); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=1;
  Регистр.ЯчейкаИзРядаЯчеек(и32,1,яц); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=2;
  Регистр.ЯчейкаИзРядаЯчеек(и32,2,яц); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=3;
  Регистр.ЯчейкаИзРядаЯчеек(и32,3,яц); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);

  и32:=МИН(УЗКЦЕЛ); (*-32768;*)
                         номЯч:=0;
  Регистр.ЯчейкаИзРядаЯчеек(и32,0,яц); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=1;
  Регистр.ЯчейкаИзРядаЯчеек(и32,1,яц); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=2;
  Регистр.ЯчейкаИзРядаЯчеек(и32,2,яц); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=3;
  Регистр.ЯчейкаИзРядаЯчеек(и32,3,яц); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);

  и32:=МИН(ЦЕЛ);
                         номЯч:=0;
  Регистр.ЯчейкаИзРядаЯчеек(и32,0,яц); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=1;
  Регистр.ЯчейкаИзРядаЯчеек(и32,1,яц); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=2;
  Регистр.ЯчейкаИзРядаЯчеек(и32,2,яц); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=3;
  Регистр.ЯчейкаИзРядаЯчеек(и32,3,яц); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);

  и64:=МИН(ШИРЦЕЛ);
                         номЯч:=0;
  Регистр.ЯчейкаИзРядаЯчеек(и64,0,яц); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=1;
  Регистр.ЯчейкаИзРядаЯчеек(и64,1,яц); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=2;
  Регистр.ЯчейкаИзРядаЯчеек(и64,2,яц); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=3;
  Регистр.ЯчейкаИзРядаЯчеек(и64,3,яц); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=4;
  Регистр.ЯчейкаИзРядаЯчеек(и64,4,яц); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=5;
  Регистр.ЯчейкаИзРядаЯчеек(и64,5,яц); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=6;
  Регистр.ЯчейкаИзРядаЯчеек(и64,6,яц); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=7;
  Регистр.ЯчейкаИзРядаЯчеек(и64,7,яц); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);

  и32:=МАКС(ЯЧЦЕЛ);
                         номЯч:=0;
  Регистр.ЯчейкаИзРядаЯчеек(и32,0,яц); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=1;
  Регистр.ЯчейкаИзРядаЯчеек(и32,1,яц); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=2;
  Регистр.ЯчейкаИзРядаЯчеек(и32,2,яц); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=3;
  Регистр.ЯчейкаИзРядаЯчеек(и32,3,яц); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);

  и32:=МАКС(УЗКЦЕЛ);
                         номЯч:=0;
  Регистр.ЯчейкаИзРядаЯчеек(и32,0,яц); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=1;
  Регистр.ЯчейкаИзРядаЯчеек(и32,1,яц); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=2;
  Регистр.ЯчейкаИзРядаЯчеек(и32,2,яц); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=3;
  Регистр.ЯчейкаИзРядаЯчеек(и32,3,яц); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);

  и32:=МАКС(ЦЕЛ);
                         номЯч:=0;
  Регистр.ЯчейкаИзРядаЯчеек(и32,0,яц); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=1;
  Регистр.ЯчейкаИзРядаЯчеек(и32,1,яц); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=2;
  Регистр.ЯчейкаИзРядаЯчеек(и32,2,яц); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);
                         номЯч:=3;
  Регистр.ЯчейкаИзРядаЯчеек(и32,3,яц); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и32,номЯч,яц,0);

  и64:=МАКС(ШИРЦЕЛ);
                         номЯч:=0;
  Регистр.ЯчейкаИзРядаЯчеек(и64,0,яц); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=1;
  Регистр.ЯчейкаИзРядаЯчеек(и64,1,яц); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=2;
  Регистр.ЯчейкаИзРядаЯчеек(и64,2,яц); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=3;
  Регистр.ЯчейкаИзРядаЯчеек(и64,3,яц); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=4;
  Регистр.ЯчейкаИзРядаЯчеек(и64,4,яц); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=5;
  Регистр.ЯчейкаИзРядаЯчеек(и64,5,яц); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=6;
  Регистр.ЯчейкаИзРядаЯчеек(и64,6,яц); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);
                         номЯч:=7;
  Регистр.ЯчейкаИзРядаЯчеек(и64,7,яц); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номЯч=%d, ИзПамяти(R+номЯч,яц)=%d',и64,номЯч,яц,0);


(* проверка собственно задачи (не возвращающей ответ) Регистр.УзкИзРядаЯчеек(и32,номУзк,узк) *)

  НаЭкран.ВсяЦепь("^^проверка собственно задачи Регистр.УзкИзРядаЯчеек(и32,номУзк,узк)^^");
  и32:=255;
                     номУзк:=0;
  Регистр.УзкИзРядаЯчеек(и32,0,узк); НаЭкран.Цел4числа('^и32=%d, номУзк=%d, ИзПамяти(ПолучитьАдрес(регистр)+номУзк*2,узк)=%d',и32,номУзк,узк,0);
                     номУзк:=1;
  Регистр.УзкИзРядаЯчеек(и32,1,узк); НаЭкран.Цел4числа('^и32=%d, номУзк=%d, ИзПамяти(ПолучитьАдрес(регистр)+номУзк*2,узк)=%d',и32,номУзк,узк,0);
(*
         ОШИБКА      номУзк:=2;
  Регистр.УзкИзРядаЯчеек(и32,2,узк); НаЭкран.Цел4числа('^и32=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);
*)

  и32:=МИН(ЯЧЦЕЛ); (*-128;*)
                     номУзк:=0;
  Регистр.УзкИзРядаЯчеек(и32,0,узк); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);
                     номУзк:=1;
  Регистр.УзкИзРядаЯчеек(и32,1,узк); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);

  и32:=МИН(УЗКЦЕЛ); (*-32768;*)
                     номУзк:=0;
  Регистр.УзкИзРядаЯчеек(и32,0,узк); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);
                     номУзк:=1;
  Регистр.УзкИзРядаЯчеек(и32,1,узк); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);

  и32:=МИН(ЦЕЛ);
                     номУзк:=0;
  Регистр.УзкИзРядаЯчеек(и32,0,узк); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);
                     номУзк:=1;
  Регистр.УзкИзРядаЯчеек(и32,1,узк); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);

  и64:=МИН(ШИРЦЕЛ);
                     номУзк:=0;
  Регистр.УзкИзРядаЯчеек(и64,0,узк); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и64,номУзк,узк,0);
                     номУзк:=1;
  Регистр.УзкИзРядаЯчеек(и64,1,узк); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и64,номУзк,узк,0);
                     номУзк:=2;
  Регистр.УзкИзРядаЯчеек(и64,2,узк); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и64,номУзк,узк,0);
                     номУзк:=3;
  Регистр.УзкИзРядаЯчеек(и64,3,узк); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и64,номУзк,узк,0);

  и32:=МАКС(ЯЧЦЕЛ);
                     номУзк:=0;
  Регистр.УзкИзРядаЯчеек(и32,0,узк); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);
                     номУзк:=1;
  Регистр.УзкИзРядаЯчеек(и32,1,узк); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);

  и32:=МАКС(УЗКЦЕЛ);
                     номУзк:=0;
  Регистр.УзкИзРядаЯчеек(и32,0,узк); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);
                     номУзк:=1;
  Регистр.УзкИзРядаЯчеек(и32,1,узк); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);

  и32:=МАКС(ЦЕЛ);
                     номУзк:=0;
  Регистр.УзкИзРядаЯчеек(и32,0,узк); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);
                     номУзк:=1;
  Регистр.УзкИзРядаЯчеек(и32,1,узк); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и32,номУзк,узк,0);

  и64:=МАКС(ШИРЦЕЛ);
                     номУзк:=0;
  Регистр.УзкИзРядаЯчеек(и64,0,узк); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и64,номУзк,узк,0);
                     номУзк:=1;
  Регистр.УзкИзРядаЯчеек(и64,1,узк); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и64,номУзк,узк,0);
                     номУзк:=2;
  Регистр.УзкИзРядаЯчеек(и64,2,узк); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и64,номУзк,узк,0);
                     номУзк:=3;
  Регистр.УзкИзРядаЯчеек(и64,3,узк); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номУзк=%d, ИзПамяти(R+номУзк*2,узк)=%d',и64,номУзк,узк,0);


(* проверка собственно задачи (не возвращающей ответ) Регистр.ЦелИзРядаЯчеек(и64,номЦел,цел) *)

  НаЭкран.ВсяЦепь("^^проверка собственно задачи Регистр.ЦелИзРядаЯчеек(и64,номЦел,цел)^^");
  и64:=255;
                     номЦел:=0;
  Регистр.ЦелИзРядаЯчеек(и64,0,цел); НаЭкран.Цел4числа('^и64=%d, номЦел=%d, ИзПамяти(ПолучитьАдрес(регистр)+номЦел*4,цел)=%d',и64,номЦел,цел,0);
                     номЦел:=1;
  Регистр.ЦелИзРядаЯчеек(и64,1,цел); НаЭкран.Цел4числа('^и64=%d, номЦел=%d, ИзПамяти(ПолучитьАдрес(регистр)+номЦел*4,цел)=%d',и64,номЦел,цел,0);
(*
         ОШИБКА      номЦел:=2;
  Регистр.ЦелИзРядаЯчеек(и64,2,цел); НаЭкран.Цел4числа('^и32=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и32,номЦел,цел,0);
*)

  и32:=МИН(ЯЧЦЕЛ); (*-128;*)
                     номЦел:=0;
  Регистр.ЦелИзРядаЯчеек(и32,0,цел); НаЭкран.Цел4числа('^и32=МИН(ЯЧЦЕЛ)=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и32,номЦел,цел,0);

  и32:=МИН(УЗКЦЕЛ); (*-32768;*)
                     номЦел:=0;
  Регистр.ЦелИзРядаЯчеек(и32,0,цел); НаЭкран.Цел4числа('^и32=МИН(УЗКЦЕЛ)=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и32,номЦел,цел,0);

  и32:=МИН(ЦЕЛ);
                     номЦел:=0;
  Регистр.ЦелИзРядаЯчеек(и32,0,цел); НаЭкран.Цел4числа('^и32=МИН(ЦЕЛ)=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и32,номЦел,цел,0);

  и64:=МИН(ШИРЦЕЛ);
                     номЦел:=0;
  Регистр.ЦелИзРядаЯчеек(и64,0,цел); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и64,номЦел,цел,0);
                     номЦел:=1;
  Регистр.ЦелИзРядаЯчеек(и64,1,цел); НаЭкран.Цел4числа('^и64=МИН(ШИРЦЕЛ)=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и64,номЦел,цел,0);

  и32:=МАКС(ЯЧЦЕЛ);
                     номЦел:=0;
  Регистр.ЦелИзРядаЯчеек(и32,0,цел); НаЭкран.Цел4числа('^и32=МАКС(ЯЧЦЕЛ)=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и32,номЦел,цел,0);

  и32:=МАКС(УЗКЦЕЛ);
                     номЦел:=0;
  Регистр.ЦелИзРядаЯчеек(и32,0,цел); НаЭкран.Цел4числа('^и32=МАКС(УЗКЦЕЛ)=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и32,номЦел,цел,0);

  и32:=МАКС(ЦЕЛ);
                     номЦел:=0;
  Регистр.ЦелИзРядаЯчеек(и32,0,цел); НаЭкран.Цел4числа('^и32=МАКС(ЦЕЛ)=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и32,номЦел,цел,0);

  и64:=МАКС(ШИРЦЕЛ);
                     номЦел:=0;
  Регистр.ЦелИзРядаЯчеек(и64,0,цел); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и64,номЦел,цел,0);
                     номЦел:=1;
  Регистр.ЦелИзРядаЯчеек(и64,1,цел); НаЭкран.Цел4числа('^и64=МАКС(ШИРЦЕЛ)=%d, номЦел=%d, ИзПамяти(R+номЦел*4,цел)=%d',и64,номЦел,цел,0);

КОН Главная;

(*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*)
УКАЗ
  Главная
КОН ПроРегистр.
