Black Crow #02 01 ноября 1998

Программирование

Программистам - Мини Windows`98

     ПРОГРАММНАЯ ОБОЛОЧКА WINDOWS`98.     
                                          
                          
------------------------------------------
                Лохи плодятся каждый день.
                                          
   Такой  эпиграф мною выбран не случайно.
Обзор новинок софта, а СМИ особенно, среди
всего прочего паталога выявил еще один ин-
тересный   момент:  сколько  софтмейкеров,
столько  и попыток сделать более-менее по-
хожее  подобие  Windows`а  на ПиСи. Каждый
считает  себя  академиком,  поэтому тратит
уйму времени и сил для подражания. В неко-
торых    случаях   это   удается,   но   в
большинстве  своем подражание превращается
в  пародию.  Пока небыло времени (желания)
посмотреть  на все эти извраты изнутри, но
внешне  - ерунда. В некоторых случаях, что
особенно  примечательно,  сразу  возникает
вопрос  -  какой контроллер кемпстон мышки
имеется  у  ребят, написавших тот или иной
стрелочный  драйвер?  Дело в том, что софт
довольно интересно поддерживает данный до-
весок  -  стрелка  движется  только тогда,
когда  держишь  нажатым  клавишу "пробел".
Огневые  кнопки не работают вовсе или сра-
батывают  опять-таки  при нажатом пробеле.
Маразм  крепчает... Особенно когда для пе-
ремещения стрелки по экрану из одного края
к  другому  при  помощи  мышки (!) надо 83
(!!!!!!)  сантиметра!  Следующий  изврат -
оконный  интерфейс.  Собственно,  окно и в
Африке  окно,  но не каждый его использует
логично и красиво. Иногда открыв окно, те-
ряешься  в догадках - как его отменить, да
так,  чтобы  ничего не выбирая и не запус-
кая. Некоторые программисты пытались боле-
е-менее  дышащую  паталогию предложить для
широкого  применения всеми остальными, при
этом  нявязывая  целую стопку неотъемлемых
требований  и условий работы и т.д. Я тоже
в свое время прошел этот путь, но постоян-
ное  усовершенствование  не  привело к еще
большим требованиям к программисту, а нао-
борот  -  развязало ему руки. Теперь решил
подарить  всем  желающим свой MiniWindows.
Данная  версия не имеет физических адресов
подпрограмм.  Доступ  через  единую  точку
входа. Итак, всем дебилам посвящается...  
                                          
                1.ВВЕДЕНИЕ                
                                          
   Данный программный продукт представляет
собой законченный объектный модуль для ор-
ганизации  удобного  интерфейса.  Оболочка
состоит из комплекта функций, совокупность
которых позволяет получить современный ди-
зайн программы. Завязывать функции следует
согласно данной инструкции по программиро-
ванию. Для удобства работы осуществлен ме-
тод нумерации функций после команды ее вы-
зова. Отныне пользователь понятия не имеет
о местонахождении всех подпрограмм оболоч-
ки. Доступ к ним только через единую точку
входа:                                    
                                          
         CALL #6000;вызов оболочки.       
         DEFB #41  ;печать окна.          
или же:                                   
         RST  #10                         
         DEFB #41                         
                                          
   В первом случае все регистры сохраняют-
ся,  а во втором из-за особенностей работы
RST  16  в  ПЗУ  48`го  бейсика  убивается
альтернативный  DE. Обращение через RST 16
возможно,  если  после  инсталляции  (#40)
"привязать" процедуру SUPERVISOR, идущую в
комплекте с оболочкой и являющейся ее сос-
тавной частью. Для привязки надо регистро-
вую пару ВС занести по адресу #5С51.      
                                          
   Номера  функций начинаются не с нуля, а
с  #40.  Это сделано для того, чтобы можно
было применять команды типа CALL NZ,OS без
риска  уйти  в  медитацию при несовпадении
условий,  т.к. следующий байт является но-
мером функции. Если условие вызова не сов-
пало,  то номер функции превращается в бо-
лее-менее безобидную комаду...            
                                          
   Учитывая  пожелания программеров, имев-
ших  уже  дело с моей версией windows`а, я
после  инсталляции  в  регистровой паре HL
даю  адрес  начала  таблицы  функций, т.е.
двухбайтовые  физические  адреса  функций.
Это  сделано  для  того,  чтобы можно было
привязаться к некоторым (или всем) функци-
ям  оболочки и не тратить лишние такты для
их понумерного вызова. Для привязки следу-
ет  взять  порядковый номер функции, затем
дать поправку к нулю, а потом расчитав на-
хождение  адреса  в  таблице  взять  его и
подставить  под JP adr. В регистровой паре
DE  находится  адрес начала второго шрифта
или,  если  его нет, адрес конца оболочки.
Первый  шрифт  для  42`символьной  печати,
второй - какой хотите, такой и привязывай-
те.  Но  по высоте ВОСЕМЬ бит! Третий "вы-
ходной"  параметр - адрес для привязки RST
16.  Просто  занесите значение регистровой
пары  ВС по адресу #5С51 и все. Естествен-
но, если надо, тогда предварительно сохра-
ните старое значение этой системной.      
                                          
        2.ТЕХНИЧЕСКИЕ ОСОБЕННОСТИ         
                                          
   Оболочка  компилирована под адрес #6000
(24576) и расчитана для работы на 48-кило-
байтных и более компьютерах. Неплохо иметь
минимум  128  Кб. ОЗУ, т.к. для сохранений
экрана  под окнами необходимо отводить не-
которое  количество памяти компьютера, что
в 48 Кб. проблематично. Подпрограмма печа-
ти  окон  предусматривает сохранение фраг-
ментов  экрана  под  окнами  на  отведеную
программистом страницу ОЗУ.               
                                          
   Размер  оболочки равен 8 килобайт. Если
нет  второго  шрифта,  тогда 6 килобайт. В
этом  файле  имеется  все  для  интерфейса
пользователя:  печать и удаление окон, пе-
чать  текстов меню, селекция меню стрелоч-
ным  курсором, печать стандартного размера
(3 на 3) пиктограмм, процедура одновремен-
ного  опроса  кемпстон-мыши и клавиатуры +
джойстики, полноценный шрифт на 256 симво-
лов,  программируемый размер букв от 32 до
64  символов в строке и мелкие функции для
разных случаев применения оболочки.       
                                          
   В комплект оболочки входят 4 вида шриф-
та  (32,42,51,64  символа  в строке), файл
пиктограмм,  утилитный файл для ассемблера
"ALASM",  предназначенный  для  инсталяции
номеров   функций   и  оболочки,  экранный
файл-заставка  (обои),  листинг  программы
создания пиктограмм.                      
                                          
   Оболочка  при работе использует текущий
набор  регистров процессора плюс регистро-
вую  пару IX. Альтернативный набор не тро-
гается,  включая AF`. Режим прерывания мо-
жет  быть любым, даже запрещенным. Но сле-
дить  за  ним следует, т.к. для торможения
курсора применяется команда HALT. Оболочка
сама  следит  за  разрешением или запретом
прерываний за исключением функций дисковых
операций  (установка  DI) и input`а (уста-
новка EI). Для input необходимо иметь зна-
чение  IY,23610. Это для экономии памяти и
простоты  извлечения  кода нажатия клавиши
по адресу IY-50.                          
                                          
   ВНИМАНИЕ!  Функции  дисковых операций и
ввода  символов используют системные пере-
менные  бейсика  и  TR-Dos!  Будьте внима-
тельны  при написании программ. Если такие
ограничения  вам не подходят, тогда пишите
себе сами дисковые операции, вводы строк и
так далее...                              
                                          
   Программисту  предлагается самому уста-
навливать страницу для сохранений экранной
области  под  окнами. На эту же страницу я
рекомендую  заносить файл с пиктограммами.
Естественно, не следует увлекаться больши-
ми окнами в большом количестве одновремен-
но  на  экране,  т.к. ограничения в памяти
возникнут  сразу же. Программа печати окон
в целях экономии памяти и машинного време-
ни не делает проверок достижения конца па-
мяти  при сохранении экрана. Кстати, о эк-
ране:  оболочка  использует основной экран
компьютера  с адреса #4000 (16384), второй
экран  отдан  программисту  на  его  цели.
Функция PAGE включит любой экран!         
                                          
   Принцип  сохранений  экрана  аналогичен
работе со стеком процессора: последним за-
шел, первым вышел. Информация о сохранени-
ях  экрана  автоматически  закладывается в
специальный  буфер,  размер которого равен
количеству  одновременно открытых окон. На
одно  сохранение надо отводить шесть байт,
где  хранится  информация  о размере окна,
его  месте  на экране, цветовых аспектах и
адресе  в буфере сохранений. Также имеется
системная  переменная  о количестве сохра-
ненных  экранов,  которая  устанавливается
тоже автоматически. Если она в нулю, тогда
программа удаления окна игнорируется.     
                                          
       3.ПРИНЦИП РАБОТЫ С ОБОЛОЧКОЙ       
                                          
   Инсталляция  системы  описана  далее, а
здесь  вкратце  о технологии написания ин-
терфейса.  Первым делом надо заказать век-
тор окна (см. ниже), открыть окно, напеча-
тать  меню,  создать  системные для опций,
активировать   курсорный  селектор  опций,
удалить  курсор,  окно, сделать переход по
созданной  таблице  адресов далее по алго-
ритму.  Звучит не определенно... Но на са-
мом деле все очень просто и доступно.     
                                          
     4.ПРОГРАММИРОВАНИЕ ВЕКТОРА ОКНА      
                                          
   Для  задания  параметров  окна  следует
создавать специальный набор байт, называе-
мых  далее  вектором  окна. На этот вектор
всегда   указывает  регистровая  пара  IX.
Практически  все подпрограммы оболочки ра-
ботают  с  вектором,  поэтому  программист
должен  следить за его сохранностью и сво-
евременностью подстановки, если была необ-
ходимость  использовать IX регистр. Вектор
окна включает в себя следующие значения:  
                                          
   +0  колонка печати окна в знакоместах. 
   +1  строка печати окна в знакоместах.  
   +2  длина окна в знакоместах.          
   +3  высота окна в знакоместах.         
   +4  цвет окна.                         
   +5  флаг номер один.                   
   +6  тек. колонка печати текста в пикс. 
   +7  тек. строка печати текста в знаком.
   +8  текущий цвет печати текста.        
   +9  флаг номер два.                    
   +10 адрес вектора материнского окна.   
   +11                                    
   +12 адрес системных параметров на меню.
   +13                                    
   +14 адрес таблицы адресов перехода     
   +15 согласно выбранного меню.          
   +16 признак наличия заголовка окна     
       (ноль - нет заголовка).            
                                          
   Параметры  со смещением 6,7,8,10,11 ус-
танавливаются  оболочкой автоматически. По
смещению  +16  установка нуля означает от-
сутствие заголовка окна, но если заголовок
нужен,  тогда  этот байт является первым в
заголовке.  А  теперь  о каждом смещении в
векторе  окна по порядку. Программа печати
окна  не следит за корректностью введенных
параметров, поэтому фуфло задавать не сле-
дует.                                     
                                          
   По  смещению  плюс  четыре  указывается
цвет  окна и текста, который там будет на-
печатан.  Биты значений ink, paper, bright
и flash аналогичны Бейсику.               
                                          
   Байты со смещением 6,7,8 устанавливают-
ся  программой печати окна автоматически и
означают текущие значения колонки в пиксе-
лях от края экрана ТВ, значение строки пе-
чати  в  знакоместах  от  верха экрана ТВ,
значение  текущего цвета печати текста со-
ответственно.                             
                                          
   По  смещению  плюс  10 программа печати
окна  устанавливает адрес вектора предиду-
щего (материнского) окна, из которого выз-
валось  новое окно. Значение текущего окна
хранится  в специальной системной перемен-
ной (REGWIN). Чтобы организовать возврат к
материнскому  окну,  функция  RESTOR берет
отсюда  адрес предидущего окна, делает его
текущим  и  удаляет  последнее окно. Таким
образом при помощи вектора окна можно вер-
нуться на предидущее разветвление алгорит-
ма user soft.                             
                                          
   По  смещению плюс 12 программист обязан
указать  начало  системных  параметров для
селекции  опций менюшки. На одно меню надо
указать четыре координаты: позиция колонки
от края экрана, позиция стоки от верха эк-
рана,  размер в длину и высоту полоски ме-
ню.  Все  значения задаются в знакоместах.
Конец  системных переменных код #FF. Коли-
чество четырехзначных системных зависит от
количества  опций меню в окне. Если в про-
цессе  работы  программы необходимо исклю-
чить  какой-нибудь  режим  из опроса, надо
"занулить"  параметр  длины полоски. Тогда
выбор невозможен, но при подсчете порядко-
вого номера селекцированого меню исключен-
ный тоже считается!                       
                                          
   Для осуществления переходов по подпрог-
раммам  вне оболочки я предлагаю использо-
вать табличный метод движения, т.к. он на-
иболее удобен при работе с моим "WINDOWS".
Адрес начала таблицы адресов надо помещать
по смещению +14. Принцип перехода JP (HL).
                                          
   По  смещению  плюс 16: ноль - нет заго-
ловка.   Конец  заголовка,  как  и  других
текстов  в  оболочке,  всегда ноль. Печать
заголовка выделена инверсией.             
                                          
   Теперь  о флагах по смещению 5 и 9. Так
как они используются совместно, здесь рас-
писаны  вместе. Итак, список номеров бит и
реакция оболочки на их значения:          
                                          
BIT 0,(IX+5) - указатель границ окна при  
               печати текста.             
0 -печать на границах.                    
1 -печать с отступлением в одно знакоместо
                                          
BIT 1,(IX+5) - указатель копирования экра-
               на под окном.              
0 -копию экрана делать.                   
1 -копию не делать.                       
                                          
BIT 2,(IX+5) - указатель разрешения печати
               тени окна.                 
0 -тень не делать.                        
1 -тень делать.                           
                                          
BIT 3,(IX+5) - разрешение на инверсию по- 
               лосы меню.                 
0 -полоса инвертируется.                  
1 -запрет инверсии полосы меню.           
                                          
BIT 4,(IX+5) - реакция полосы меню на вы- 
               бор опции. Работает в паре 
               со значением BIT 3,(IX+5). 
00 -полоса есть : удалить.                
01 -полосы нет  : оставить, как есть.     
10 -полоса есть : оставить, как есть.     
11 -полосы нет  : установить.             
                                          
BIT 5,(IX+5) - указатель размера буквы в  
               пикселях.                  
0 -размер буквы произвольный.             
1 -размер буквы восемь пикселей.          
                                          
BIT 6,(IX+5) - указатель инверсии печати  
               текста.                    
0 -инверсия выключена.                    
1 -инверсия включена.                     
                                          
BIT 7,(IX+5) - указатель разрешения пода- 
               чи звукового щелчка.       
0 -щелчек разрешен.                       
1 -щелчек запрещен.                       
                                          
BIT 0,(IX+9) - действие с ведущими нулями 
               при печати чисел.          
0 -пропуск ведущего нуля.                 
1 -печать пробела вместо ведущего нуля.   
                                          
BIT 1,(IX+9) - коррекция цвета пиктограммы
0 -цвет пиктограммы не менять.            
1 -окрасить пиктограмму цветом из (IX+8). 
                                          
BIT 2,(IX+9) - разрешение обводить рамкой 
               пиктограмму.               
0 -не обводить рамкой.                    
1 -обвести пиктограмму рамкой.            
                                          
BIT 3,(IX+9) - разрешение печати иконок   
               закрытия и откладки окна   
               в заголовке.               
0 -иконки не печатать.                    
1 -иконки печатать.                       
                                          
BIT 4,(IX+9) - способ печати пиктограмм.  
0 -печатать по принципу наложения OR.     
1 -обычная печать.                        
                                          
BIT 5,(IX+9) - действие защиты от дребез- 
               га при нажатии "огонь".    
0 -защита от дребезга включена.           
1 -защита снята (можно рисовать курсором).
                                          
BIT 6,(IX+9) - резерв для программиста.   
                                          
BIT 7,(IX+9) - разрешение/запрет ввода    
               нерусских букв в INPUT.    
0 -запрещено.                             
1 -разрешено.                             
                                          
         5.ИНСТАЛЛЯЦИЯ ОБОЛОЧКИ.          
                                          
   Программа  пользователя  должна сделать
настройку  системных  и  некоторых функций
оболочки для дальнейшей совместной работы.
Для  этого  необходимо создать специальную
последовательность байт, которые использу-
ет функция INSTALL. Ваши действия:        
                                          
   1.  Загрузить  в память компьютера файл
пиктограмм  и  указать  в  инсталляционном
блоке  переменных его начало и номер стра-
ницы, где он находится.                   
                                          
   2. Зарезервировать буфер сохранений эк-
ранной  области,  накрываемой  печатаемыми
окнами. Размер буфера можно расчитать, ис-
ходя  из  максимального  количества  окон,
открытых одновременно. Формула для опреде-
ления  количества  ОЗУ  для  одного  окна:
а=длина  окна,  b=высота  окна,  с=длина с
тенью,  d=высота с тенью, r=(а*b)*8+(с*d).
Для  правильного  нахождения  информации в
буфере  сохранений  следует  резервировать
своеобразный  дискриптор  по шесть байт на
каждое окно. Проще всего это делать на од-
ной  странице:  сначала дискриптор 6*nn, а
затем  буфер  сохранений.  nn равен макси-
мальному  числу одновременно открытых окон
в  программе, например пять. Начало того и
другого указать в инсталляционном блоке.  
                                          
   3. Загрузить экранный файл фона (обои).
                                          
   4. Программа опроса мыши ассемблирована
для  трехкнопочной  мыши.  Если контроллер
мыши  отсутствует  (из порта #FADF (64223)
читается  ноль), тогда опрос игнорируется,
а  при инсталляции драйвер мыши обрезается
и  более недоступен. Первая нажатая кнопка
(левая   или  правая)  считается  огневой,
центральная  кнопка не может быть "fire" и
нет к ней доступа, пока драйвер не опреде-
лился  с  огневой кнопкой. При инсталляции
проверяется   наличие  кемпстон  джойстика
(чтение с порта #1F первых пяти бит) и при
его отсутствии он исключается из опроса.  
                                          
   5.  Для работы на компьютерах с объемом
ОЗУ  более  48 Кб появляется необходимость
указывать  номер текущей страницы. Эти ус-
тановки необходимо делать каждый раз, ког-
да, например, работает IM 2 с проигрывани-
ем  музыки  на  другой странице. Системная
STRAN  указывает  последнее значение, зас-
ланное  в порт #7FFD функцией PAGE. Вектор
окна  может  быть  в  любом  месте памяти:
программа открытия окна сама перебрасывает
его  себе в спецбуфер и работает с ним от-
дельно. После открытия окна он возвращает-
ся  на место с откорректированными данными
по цвету, печати и т.д.. Страница тоже за-
поминается и восстанавливается.           
                                          
   Внешний вид инсталляционного блока:    
                                          
+О  DEFB О ;BORDER   цвет бордера при целчках на beeper.        
+1  DEFB О ;PICPAG   номер страницы, где лежат пиктограммы.     
+2  DEFB О ;COXP     номер страницы сохранений под окнами.      
+З  DEFW О ;TABSOHR  начало таблицы системных o сoхранениях.    
+5  DEFW О ;TABSPR   непосредственно буфер сохранений.          
+7  DEFW О ;TABPIC   адрес нахождения файла пиктограмм.         
+9  DEFW О ;P_KUR1   позиция курсора на экране в пикселях.      
+11 DEFB О ;DRIVE    номер текyцегo дисковода О,1,2,З.          
+12 DEFB О ;LD_MIU   номер первого физического сектора диска    
+1З DEFB О ;LD_MAX   номер последнего физического номера.       
+14 DEFB О ;SV_MIU   аналог двух предидyцих, но для функции     
+15 DEFB О ;SV_MAX   записи группы секторов.                    
+16 DEFW О ;STACK    стандартное положение стэка (рег. SP).     
+18 DEFB О ;И_KURS   номер курсора оболочки О,1,2.              
                                          
   Значения  +12/+15 указывают оболочке на
первый  и последний номера секторов, кото-
рые  физически присутствуют на диске. Пер-
вые два значения для загрузки, следующие -
для  записи  на диск. Провалов в нумерации
быть  не  должно!  Размер сектора не имеет
значения  -  будет  считано  столько байт,
сколько  есть  согласно размеру сектора на
диске.  Драйвер написан таким образом, что
сам следит за адресами загрузки.          
                                          
   Позиция  курсора указывается в пикселях
от  верхнего  и  левого  края  ТВ-экрана и
представленя  в  порядке: младшее значение
равно   колонке,  старшее  значение  равно
строке.    Как    и   положенно   оболочке
"WINDOWS",  внешний  вид можно заменить на
свой  собственный. При этом следует учиты-
вать, что курсор имеет размер всего четыре
знакоместа.   При  написании  автор  руко-
водствовался  здравым  смыслом, поэтому не
предусматривал размерность курсора в поло-
вину  экрана... Системной переменной, ука-
зывающей на адрес курсора, который активи-
рован  на данный момент, является FORMA. В
оболочке  имеется  три  вида  курсора: ма-
ленькая  стрелка как в Art-Studio, большая
стрелка  и пальчик. Курсор имеет приблизи-
тельно такой вид в битовом раскладе:      
                                          
      КУРСОР                  МАСКА       
                                          
 00000000 00000000      00011111 11111111 
 01100000 00000000      00001111 11111111 
 01010000 00000000      00000111 11111111 
 01001000 00000000      00000011 11111111 
 01000100 00000000      00000001 11111111 
 01010010 00000000      00000000 11111111 
 01011001 00000000      00000000 01111111 
 01011100 10000000      00000000 00111111 
 01011110 01000000      00000000 00011111 
 01010000 00100000      00000000 00001111 
 01000111 11110000      00000000 00000111 
 01001000 00000000      00000000 00000111 
 01010000 00000000      00000111 11111111 
 01100000 00000000      00001111 11111111 
 01000000 00000000      00011111 11111111 
 00000000 00000000      00111111 11111111 
                                          
   Закладка   формы  курсора  производится
следующим  образом  - сначала два столбика
"курсор" по-порядку слева направо, а затем
"маска"  таким  же образом. Всего 64 байта
на один вид.                              
                                          
              5. ПЕЧАТЬ txt               
                                          
   Позиция  печати окна указывается в зна-
коместах  от верхнего и левого края экрана
и  представлена в порядке, описаном в век-
торе окна.                                
                                          
   Позиция  печати текста указывается нао-
борот от позиции печати окна: младшее зна-
чение - строка, старшее - колонка. Немного
напутано  получилось,  но  "имеем  то, что
имеем"  (Л.М.  Кравчук). Такой-же стандарт
позиции и для печати пиктограмм.          
                                          
   Оболочка  изначально  ассемблирована  с
42-символьным   шрифтом.  ВНИМАНИЕ!  ВВИДУ
НАСТУПИВШИX  ОГРАНИЧЕНИЙ ПАМЯТИ В ОСНОВНОМ
ШРИФТЕ  ОБОЛОЧКИ ПЕРВЫЕ 256 БАЙТ ИСПОЛЬЗУ-
ЮТСЯ  ДЛЯ  ДРУГИХ ЦЕЛЕЙ, ПОЭТОМУ ПЕРВЫЕ 32
СИМВОЛА С НУЛЯ ДО #1F ПЕЧАТАТЬ НЕ РЕКОМЕН-
ДУЕТСЯ,  Т.К.  НА ЭКРАНЕ БУДЕТ "МУСОР", НО
АДРЕС НАХОЖДЕНИЯ ШРИФТА УКАЗЫВАЕТСЯ С УЧЕ-
ТОМ  ЭТИХ  СИМВОЛОВ!  Просьба это помнить!
После  инсталляции в переменной SHRIFT ле-
жит его начало. Длина шрифта 2048 байт. На
выходе  после INSTALL в регистрах DE будет
адрес  для второго шрифта, размером не бо-
лее  2048  байт.  Для  печати используется
маска, которая имеет двухбайтовый вид:    
                                          
 32 #0800   42 #0603   51 #0507   64 #040F
                                          
где  старший  байт означает размер буквы в
пикселях,  а младший в битах маски при пе-
чати. Если догружен альтернативный (допол-
нительный)  шрифт, то для перехода на него
надо  перезаказать  системные  размерности
PIKSEL  (если  он  отличен от основного) и
адреса  начала  шрифта в системной SHRIFT.
Естественно,  делать  надо  установки  от-
дельно от INSTALL, если это не первый раз.
                                          
       7.ОПИСАНИЕ ФУНКЦИЙ ОБОЛОЧКИ        
                                          
   При написании оболочки автор не придер-
живался  синтаксиса  на  английском языке,
поэтому названия меток и подпрограмм могут
звучать абсурдно. Sorry... По соображениям
понимания  того,  о  чем пишешь, я оставил
все,  как в оригинальном листинге програм-
мы. Сначала идет номер функции, а затем ее
имя.                                      
                                          
#40  _INSTAL - инсталляция оболочки.      
   in  -HL,инсталляционный блок.          
   ### -HL,DE,ВС,AF                       
   out -HL,адрес таблицы функций.         
        DE,начало второго шрифта или конец
           оболочки.                      
        ВС,для подключения RST 16.        
   push-нет.                              
                                          
#41  _RAMKA  - функция открытия окна.     
   in  -IX,вектор окна.                   
   ### -IX,HL,DE,ВС,AF.                   
   out -***                               
   push-нет.                              
                                          
   Функция  открывает  окно согласно пара-
метров,  указанных  вектором окна. Написан
алгоритм так, что цикл печати и сохранений
работают  синхронно,  поэтому если нет ко-
манды   на  сохранение  экранной  области,
подставляется  адрес  #0000.  Это  следует
учесть тем, у кого в адресном пространстве
ПЗУ может его и не оказаться...           
                                          
#42   _RESTOR - закрытие текущего окна.   
   in  -нет.                              
   ### -all                               
   out -IX,материнское окно.              
   push-DE,ВС,AF.                         
   sys -(REGWIN)-уст.                     
                                          
   Из  текущего вектора окна берется адрес
материнского  окна,  заносится в системную
REGWIN  и  регистр  IX.  Затем переходит в
удаление окна.                            
                                          
#43  _KURSOR - печать курсора.            
   in  -ВС,позиция курсора в пикселях.    
   ### -IX,HL,DE,ВС,AF.                   
   out -***                               
   push-нет.                              
   sys -(IX+12)  -исп.                    
        (P_KUR1) -уст.                    
        (FORMA)  -исп.                    
        (REGWIN) -исп.                    
        5,(IX+9) -исп. для "REPER" оп/off.
                                          
   Очень  важная  и  серьезная программа в
оболочке. Она устанавливает позицию курсо-
ра в пикселях, читает порты мышки (канал А
и Б) и устанавливает исходное значение для
поправок движения. Из вектора окна берется
адрес  нахождения  системной  цепочки и по
ним происходит определение "наезда" на оп-
цию.                                      
                                          
#44  _DELKUR - удаление курсора.          
   in  -нет.                              
   ### -IX,HL,DE,ВС,AF.                   
   out -***                               
   push-HL,DE,ВС,AF,(IX+5).               
   sys -(REGWIN)-исп.                     
        3+4,7,(IX+5)-исп.                 
                                          
   Обычное  удаление  курсора  с реакцией,
согласно значению бит 3+4,7,(IX+5).       
                                          
#45  _SELECT - селекция меню.             
   in  -нет.                              
   ### -IX,HL,DE,ВС,AF.                   
   out -С,(ОТВЕТ)-результат опроса менюшек
        B,(KOMAND)-результат опроса клавиш
                   и мыши.                
        AF,(ОТВЕТ) -результат опроса меню.
        CF-реакция на действие пользоват. 
   push-нет.                              
   sys -(KOMAND)-исп.+ уст.               
        (АТ_KUR)-уст.+ исп.               
        (ADRKUR)-уст.+ исп.               
        (P_KUR1)-уст.+ исп.               
                                          
   Самая  крутая программа оболочки. После
опроса  клавиатуры  она смотрит на тип за-
действованного  интерфейса и если это была
мыша,  то  производится  коррекция позиции
курсора без торможения Если не мышь, тогда
задействуется цикл разгона курсора от 1 до
4  пикселей. Если бит 5,(IX+9) установлен,
тогда  смещение всегда будет 1 и можно ри-
совать  без  паузы  для отжатия клавиш. На
выходе  в  А будет ответ селекции меню. Но
ответ  зависит от состояния флага CF. Если
флаг  сброшен, значит нажатия огневых кла-
виш  не  происходило  или произошло внутри
окна, но не на меню! При этом регистр А не
равен #FF - огонь не нажат, обычное движе-
ние  курсора или молчание. Если флаг уста-
новлен - нажат "fire". Регистр А равен #FF
-  нажатие произошло за пределами окна; не
равен #FF - номер выбранного меню! Нумера-
ция  начинается  с  нуля. Следует помнить,
что  нажатие средней или не огневой кнопки
на  мышке  отражается на ответе, как будто
ничего  не  происходит, поэтому необходимо
смотреть   содержимое   ячейки  KOMAND,  а
конкретно  -  биты,  отвечающие за кнопки.
Расклад  бит  смотри  в  описании  функции
INKEY.                                    
                                          
#46  _REPER - защита от дребезга.         
   in  -нет.                              
   ### -HL,DE,ВС,AF.                      
   out -in                                
   push-all.                              
   sys -см. "INKEY".                      
                                          
   Программа проверяет все кнопки (мышки и
"fire")  на нажатие и не отпустит алгоритм
до тех пор, пока что-то нажато.           
                                          
#47  _SOUND - щелчек на порт #FE.         
   in  -нет.                              
   ### -HL,ВС,AF.                         
   out -***                               
   push-all                               
   sys -(BORDER)-исп.                     
                                          
#48  _STOP_M - проверка нажатия "отменной"
               кнопки на мышке.           
   in  -нет.                              
   ### -IX,HL,DE,ВС,AF                    
   out -AF,результат                      
   push-IX,HL,DE,ВС                       
   sys -см. "K_MOUSE".                    
                                          
   Проверяет бит 5 порта кнопок на мышке и
если  нет  нажатия,  тогда флаг будет Z. В
регистре AF результат этого опроса.       
                                          
#49  _PRI_SP - печать пиктограмм.         
   in  -Е,строка D,колонка в знакоместах  
        А,номер пиктограммы.              
   ### -IX,HL,DE,ВС,AF.                   
   out -DE,колонка +3 (размер пикты)      
   push-нет.                              
   sys -(PICPAG)-исп.                     
        (IX+8,9)-исп.                     
                                          
   Печатает  пиктограмму по указанному но-
меру  и позиции в знакоместах. Окрас берет
из  вектора окна (IX+8). Нумерация пиктог-
рамм начинается с нуля. Размер пиктограммы
стандартный:  72  байта,  т.е.  три на три
знакоместа. Так проще и вообще...         
                                          
#4A  _PRHEX - 16-ричная печать чисел.     
   in  -HL,число от 0 до #FFFF.           
   ### -HL,DE,ВС,AF.                      
   out -***                               
   push-HL,DE,ВС.                         
   sys -см. "PRINT".                      
                                          
   Печатает  в  указанном  формате.  Перед
числом ставится "#".                      
                                          
#4B  _PRDES - 10-чная печать чисел.       
   аналог "PRHEX".                        
                                          
#4С  _PRINT - печать одного символа.      
   in  -A,символ от #00 до #FF.           
   ### -IX,HL,DE,ВС,AF.                   
   out -***                               
   push-HL,DE,ВС.                         
   sys -(IX+5,6,7,8)-исп.                 
        (SHRIFT)-исп.                     
        (PIKSEL)-исп.                     
                                          
   Главная процедура печати символов в те-
кущем окне. За пределами печать не возмож-
на (если не извращаться с установкой пози-
ции  печати...).  При  достижении  правого
края окна автоматически переводится строка
на  следующую, но если это последняя стро-
ка,  тогда  на  ее  начало. Окрас буквы из
вектора  окна (IX+8). Размер буквы и маска
берутся  из  системной  пары  PIKSEL.  Это
единственная подпрограмма, которая печата-
ет коды символов менее #20 (32).          
                                          
#4D  _ENTER - перевод строки печати в окне
   in  -нет.                              
   ### -HL,AF.                            
   out -HL                                
   push-нет.                              
   sys -(IX+6,7).                         
                                          
                                          
#4Е  _PRI_С - цикл печати текстов.        
   in  -HL,начало текста.                 
   ### -см. "PRINT".                      
   out -HL,конец текста+1                 
   push-нет.                              
   sys -см. "PRINT".                      
                                          
   Цикл  печати текстов меню. Конец текста
всегда  ноль. Для сервиса предисмотрен ряд
токкенов,  которые можно вставить в текст.
Конец текста - ноль, все коды меньше #14 -
перевод строки.                           
                                          
...,#14,... - включает бит инверсной печа-
ти в векторе окна.                        
                                          
...,#15,... - выключает бит инверсии печа-
ти.                                       
                                          
...,#16,...  -  перевод на режим свободной
размерности  букв. При этом нет конкретной
коррекции  системных!  Только бит 5,(IX+5)
сбрасывается.                             
                                          
...,#17,n1,n2,n3,n4,... -  переключение на
альтернативный  шрифт  пользователя с кор-
рекцией  размерности букв, где n1 младший,
n2  старший байт физического адреса начала
шрифта;  n3 маска для печати символа, n4 -
размер символа в пикселях.                
                                          
...,#18,... - размер букв 8 бит.          
                                          
...,#19,...  -  устанавливает  в системной
SHRIFT адрес стандартного шрифта оболочки.
                                          
...,#1A,n1,n2,... печать числа в 16-ричной
системе.                                  
                                          
...,#1B,... - автотабуляция текста относи-
тельно границ окна. При работе любой байт,
за   исключением   токкена   замены  цвета
текста,  меньший за код пробела, считается
концом  операции  подсчета букв. На выходе
корректирует  значения текущей позиции пе-
чати текста.                              
                                          
...,#1С,n1,n2,...  -  декомпрессия текста.
Байт  n1 содержит значение количества пов-
торений, n2 - код символа.                
                                          
...,#1D,n1,n2,...  -  10-чная  печать, где
n1, n2 -число для печати.                 
                                          
...,#1Е,n1,n2,...  -  новая позиция печати
текста. Байт n1 указывает на строку печати
в  пикселях,  n2  - колонка в знакоместах.
Все параметры от края текущего окна!      
                                          
...,#1F,n1,...  - замена текущего цвета на
значение n1.                              
                                          
#4F  _NEW_АТ - новая позиция печати текста
   in  -Е,строка в знакоместах.           
        D,колонка в пикселях.             
   ### -DE,AF.                            
   out -DE                                
   push-нет.                              
   sys -(IX+6,7).                         
                                          
#50  _TABUL - центровка текста в окне.    
   in  -HL,начало текста.                 
   ### -HL,ВС,AF.                         
   out -HL-1.                             
   push-нет.                              
   sys -(PIKSEL+1)-исп.                   
        (IX+6)    -уст.                   
                                          
#51  _CHWIND - подключение основного шриф-
               та оболочки.               
   in  -нет.                              
   ### -HL                                
   out -нет.                              
   push-all                               
   sys -(SHRIFT)-set                      
        (PIKSEL)-set                      
                                          
#52  _PAGE - переключение страниц ОЗУ.    
   in  -A,номер страницы.                 
   ### -ВС,AF.                            
   out -AF,что послано в порт #7FFD.      
   push-ВС.                               
   sys -(STRAN)-устанавливает.            
                                          
   Переключает  страницы ОЗУ. В номере ус-
танавливается  бит ПЗУ 48 бейсика и полная
адресация порта #7FFD.                    
                                          
#53  _SCRADR - получение экранного адреса.
   in  -Е,строка D,колонка в знакоместах. 
   ### -HL,DE,AF.                         
   out -HL,экранный адрес.                
   push-нет.                              
   sys -нет.                              
                                          
#54  _ATRADR - получение адреса атрибутики
   ... - аналогично предидущей процедуре. 
                                          
#55  _INKEY - опрос мыши, клавиш и джойст.
   in  -нет.                              
   ### -HL,DE,ВС,AF.                      
   out -С,A - результат.                  
       -HL  -если работала мышь,тогда но- 
             вая позиция курсора.         
   push-нет.                              
   sys -нет.                              
                                          
   Главная процедура опроса внешних факто-
ров  воздействия  на  курсор или оболочку.
Приоритет отдан мышке, как самой "шустрой"
в  системе. Проверяется порт кнопок и если
там  ноль,  переход  далее на опрос других
устройств.     Первая    нажатая    (кроме
центральной)  кнопка считается "fire". Да-
лее проверяются порты направлений движения
и сравниваются со значением системных, за-
ложенных функцией KURSOR. Если есть разли-
чия (мышь двигалась), тогда корректируется
значение из системной P_KUR1, но не закла-
дывается,  а  выходит  в HL. Направления в
битах  движения  не  указываются, но 7 бит
установлен как признак работы мышки. Ответ
находится в регистрах А и С. Признаком ра-
боты  мышки  является  установка  CF.  Ос-
тальные  девайсы  не  проверяются! Если не
трогалась мышь, тогда опрашивается клавиа-
тура   и   джойстики   (Sinclair  right  &
Kempston) плюс курсорные и ENTER. Для раз-
деления "сферы влияния" курсорных клавиш и
синклер-джойстика сначала опрашивается на-
жатие  CAPS SHIFT и если не нажато, значит
это синклер. Задействованы клавиши: О-left
P-right  Q-ир A-down SPACE/ENTER-fire. Для
определения  направлений  движения курсора
использованы следующие биты:              
                                          
 БИТ   КОМАНДА     БИТ   КОМАНДА          
  0  -  fire        4  -  left            
  1  -  down        5  -  2 key mouse     
  2  -  ир          6  -  3 key mouse     
  3  -  right       7  -  mouse 1-оп 0-off
                                          
#56  _K_MOUSE - опрос кемпстон мышки.     
    in  -нет                              
    ### -HL,ВС,AF                         
    out -HL,новая позиция курсора.        
        -С,A-результат опроса.            
    push-ВС                               
    sys -(KOMAND)-уст., если есть работа. 
                                          
   Опрос самонастраиваемого драйвера мыши.
Если  нет контроллера мыши, тогда выход по
Z.  В регистрах ответа отображаются только
нажатия   на   кнопки   и  устанавливается
седьмой бит как признак работы на мышке.  
                                          
#57  _LOADER - загрузка группы секторов.  
    in:HL,адрес загрузки.                 
       D,трек Е,сектор                    
       B,количество секторов.             
    ### -IX,IY,HL,DE,ВС,AF                
    out -см. объяснение.                  
    push-IX,IY                            
    sys -DRIVE,L23796,ADR_LD.             
                                          
   Функция  производит  чтение секторов по
указанному адресу. Принудительно запрещает
прерывания и НЕ ВОССТАНАВЛИВАЕТ! На выходе
флаг ZF имеет результат работы с диском: Z
- ок, NZ - еггог. При ошибке в AF будет ее
код:                                      
                                          
  0 - ок.                                 
  1 - disk еггог.                         
  2 - read  only.                         
  3 - disk пот present.                   
  4 - track пот formatted.                
  5 - break in program.                   
                                          
   Значения HL,DE при "ок" имеют следующие
параметры, при "еггог" - где произошел об-
лом.  В регистре B будет остаток недорабо-
танных секторов. Функции безразличен набор
размеров  секторов  на диске. Главное - не
нарушать последовательность нумерации.    
                                          
#58  _SAVER - запись группы секторов.     
    см. LOADER                            
                                          
#59  _MOTOR - останов мотора дисковода.   
    сохраняет все, режим INT не трогает.  
                                          
#5A  _INPUT - ввод символьной строки.     
    in  -DE,адрес буфера ввода.           
         С,максимальная длина строки.     
         (IX+6),(IX+7)-уже должна быть.   
         IY,23610                         
    ### -all                              
    out -AF,код клавиши выхода.           
    push-HL,DE,ВС                         
    sys -(INP_KOD)-уст.                   
                                          
   Устанавливает  EI.  В системной INP_KOD
будет  код  последней нажатой (не путать с
введенной)  клавиши, по которой произведен
выход из функции. Выход возможен только по
кодам,  менее  32,  а  именно: enter (13),
cursor down (10), break (5), extend и т.д.
Функция  имеет  вид  полуфабриката.  Изна-
чально компилирована под русский регистр и
прописные буквы.                          
                                          
#5B  _STAND1 - стандартный опрос менюшки. 
   Вводных  нет. Работает в текущим векто-
ром  окна. Производит переход по алгоритму
согласно таблице адресов перехода. При от-
мене  (за  пределами окна нажат "fire" или
кнопка  "отмена"  на мыше) удаляет текущее
окно  и  устанавливает основной шрифт обо-
лочки.  При выборе опции меню текущее окно
не удаляется.                             
                                          
#5С  _STAND2 - стандартный опрос менюшек. 
   Полный  аналог  предидущей  функции  за
исключением того, что текущее окно при вы-
боре опции удаляется.                     
                                          
#5D  _SETKUR - выбор курсора оболочки.    
    in   -A,номер курсора                 
   В  системную  FORMA  заносит адрес вида
курсора.  Оболочка имеет три вида курсора,
различаемых  по номерам - 0,1,2. Для зада-
ния  своего вида, находящегося вне оболоч-
ки, надо в системную FORMA подставить свое
значение.                                 
                                          
#5Е  _BREAK - опрос этой клавиши.         
    in  - нет.                            
    ### -AF                               
    push-нет.                             
    out -AF,результат.                    
                                          
   Если  есть нажатие клавиши break, тогда
в  AF  будет  #05 и NZ. В противном случае
ноль и Z.                                 
                                          
#5F  _IN_1F - опрос регистра #1F на ВГ-93.
    Устанавливает  DI.  Сохраняет  все ре-
гистры.  На  выходе в AF имеет значение из
регистра ВэГэшки. Использовать при ошибоч-
ных  ситуациях  с дисковыми функциями обо-
лочки  бессмысленно из-за особенностей на-
писания этих самых функций.               
                                          
#60  _SBIT - вычисление активного бита.   
   Функция  сделана  для определения бита,
на  который в момент нажатия "fire" указы-
вал  курсор. Полезно знать, если вдруг ре-
шишь  потушить защиту от дребезга во флаге
и рисовать курсором. Ответ находится в AF.
                                          
       8. ПРИМЕР РАБОТЫ С ОБОЛОЧКОЙ       
                                          
  ╔═══════════════════════════════════╗   
  ║   I N S Т A L L   W I N D О W S   ║#  
  ╚═══════════════════════════════════╝#  
   #####################################  
                                          
        ORG     #6000                     
        INCBIN  "WINDOWS8";объектный код  
                                          
OS      EQU #6000;точка входа             
STRAN   EQU OS+3 ;номер текущей страницы  
REGWIN  EQU OS+4 ;текущий вектор окна     
STACK   EQU OS+6 ;стандартное полож. SP   
SHRIFT  EQU OS+8 ;адрес текущего шрифта   
PIKSEL  EQU OS+10;размер буквы в пикс.    
FORMA   EQU OS+12;адрес формы курсора     
K_SPR   EQU OS+14;кол-во сохранений       
ADRKUR  EQU OS+15;scr. адрес курс.        
АТ_KUR  EQU OS+17;АТ курсора в знакоместах
P_KUR1  EQU OS+19;^ колонка в пикс.       
P_KUR2  EQU OS+20;^ строка в пикс.        
SETBIT  EQU OS+21;активный бит            
BORDER  EQU OS+22;цвет                    
INP_KOD EQU OS+23;код выхода из INPUT`а   
ОТВЕТ   EQU OS+24;номер select меню       
KOMAND  EQU OS+25;результат опроса клавиш 
DRIVE   EQU OS+27;drive 0,1,2,3           
L23796  EQU OS+28;аналог 23796            
ADR_LD  EQU OS+30;next adr. if ОК operat. 
B32     EQU #0800;маска на 8 бит буква    
B42     EQU #0603;на 6 бит буква          
B52     EQU #0507;на 5 бит буква          
B64     EQU #040F;на 4 бита буква         
                                          
      Список номеров функций windows`98   
                                          
_INSTAL  EQU #40;инсталляция              
_RAMKA   EQU #41;печать окна              
_RESTOR  EQU #42;удаление окна            
_KURSOR  EQU #43;печать курсора           
_DELKUR  EQU #44;удаление курсора         
_SELECT  EQU #45;селектор опций меню      
_REPER   EQU #46;защита от дребезга       
_SOUND   EQU #47;щелчек                   
_STOP_M  EQU #48;проверка отмены мышкой   
_PRI_SP  EQU #49;печать пиктограммы       
_PRHEX   EQU #4A;hex печать HL            
_PRDES   EQU #4B;dec печать HL            
_PRINT   EQU #4С;печать одного символа    
_ENTER   EQU #4D;перевод строки печати    
_PRI_С   EQU #4Е;печать строки текста     
_NEW_АТ  EQU #4F;новая позиция печати     
_TABUL   EQU #50;центровка строки текста  
_CHWIND  EQU #51;основной шрифт windows   
_PAGE    EQU #52;переключение страниц ОЗУ 
_SCRADR  EQU #53;экранный адрес           
_ATRADR  EQU #54;атрибутный адрес         
_INKEY   EQU #55;полный опрос управления  
_K_MOUSE EQU #56;опрос кемпстон мышки     
_LOADER  EQU #57;загрузка группы секторов 
_SAVER   EQU #58;запись группы секторов   
_MOTOR   EQU #59;выключение мотора дис-да 
_INPUT   EQU #5A;ввод строки символов     
_STAND1  EQU #5B;селектор. Окно остается  
_STAND2  EQU #5С;селектор. Окно удаляется 
_SETKUR  EQU #5D;set cursor (0,1,2)       
_BREAK   EQU #5Е;опрос нажатия break      
_IN_1F   EQU #5F;опрос порта #1F на ВГ93  
_SBIT    EQU #60;активный бит после SELECT
                                          
  ╔═══════════════════════════════════╗   
  ║      D Е M О     V I S I О N      ║#  
  ╚═══════════════════════════════════╝#  
   #####################################  
                                          
        ORG  #8000   ;user soft           
        LD   HL,(#5С51) ;сохранить теку-  
        LD   (L5C51),HL ;щий поток rst    
        LD   HL,TABINST ;блок install     
        LD   (TABINST+16),SP;стандарт     
        CALL OS         ;вызов оболочки   
        DEFB _INSTAL    ;номер функции    
                                          
;out:HL,начало таблицы адресов функций    
;    DE,начало альтернативного шрифта     
;    ВС,адрес подключения RST 16          
                                          
        LD   (#5С51),ВС ;подключ. rst 16  
        JR   CONTI      ;и так далее...   
;`````````````````````````````````````````
;------ ИНСТАЛЛЯЦИОННЫЙ БЛОК WINDOWS -----
                                          
TABINST DEFB 0       ;BORDER            0 
        DEFB 0       ;PICPAG            1 
        DEFB 0       ;page сохранений   2 
        DEFW TABSOHR ;сист. сохранений  3 
        DEFW TABSPR  ;буфер сохранений  5 
        DEFW TABPIC  ;где пиктограммы   7 
        DEFW #1010   ;P_KUR1            9 
        DEFB 0       ;DRIVE             11
        DEFB #01     ;LD_MIN            12
        DEFB #10     ;LD_MAX TR-DOS     13
        DEFB #01     ;SV_MIN            14
        DEFB #10     ;SV_MAX TR-DOS     15
        DEFW 0       ;STACK             16
        DEFB 1       ;N_KURS 0,1,2      18
                                          
L5C51   DEFS 2  ;сохранение потока RST 16 
                                          
;------ Буфер и системные сохранений -----
;Предполагаемые размеры:                  
;TABSOHR:30 байт для 5 окон. 5*6=30       
;TABPIC :1440 байт для 20 пикт. 72*20=1440
;TABSPR :вся оставшаяся память страницы   
                                          
TABSOHR EQU #С000       ;5 окон   30      
TABPIC  EQU TABSOHR+30  ;20 pick  1440    
TABSPR  EQU TABPIC+1440 ;сюда сохранять...
;`````````````````````````````````````````
                                          
CONTI   LD      IX,R_DEMO;вектор окна     
        LD      (REGWIN),IX;заносить толь-
        CALL    OS       ;ко первый раз!!!
        DEFB    _RAMKA   ;open window     
        LD      HL,Т_DEMO;текст в окне    
        RST     16       ;после install   
        DEFB    _PRI_С   ;можно rst 16    
CONTI1  LD      ВС,(P_KUR1);позиция курс. 
        CALL    OS       ;print cursor    
        DEFB    _KURSOR                   
DEMKA1  CALL    OS       ;вызов селектора 
        DEFB    _SELECT  ;меню            
        JR      NC,DEMKA1;нет выбора      
        OR      A        ;за пределами    
        JP      M,OTMENA ;окна?           
        CALL    OS       ;удалить курсор  
        DEFB    _DELKUR                   
        CALL    OS       ;защита от дре-  
        DEFB    _REPER   ;безга           
        LD      L,(IX+14);адрес таблицы   
        LD      Н,(IX+15);переходов по JP 
        ADD     A,A      ;из номера меню  
        LD      Е,A                       
        LD      D,0                       
        ADD     HL,DE                     
        LD      Е,(HL)   ;адрес перехода  
        INC     HL       ;на user подпрог-
        LD      D,(HL)   ;рамму           
        PUSH    DE       ;run program     
        RET                               
                                          
OTMENA  CALL    OS       ;защита дребезга 
        DEFB    _REPER                    
        CALL    OS       ;удалить курсор  
        DEFB    _DELKUR                   
        CALL    OS       ;удалить окно    
        DEFB    _RESTOR                   
        LD      SP,(STACK);станд. значение
;здесь надо возврат в цикл селекции для   
;нормального беганья по окнам...          
;       JR      CONTI1                    
                                          
_RET    LD      HL,(L5C51);восстановить   
        LD      (#5С51),HL;поток rst 16   
        EI                ;и выход из     
        RET               ;программы      
                                          
;пример ввода строки текста               
                                          
INP_TXT LD      DE,#0006;позиция печати   
        RST 16          ;вводимой строки  
        DEFB    _NEW_АТ                   
        RST 16          ;защита от сраба- 
        DEFB    _REPER  ;тывания выхода   
        RST 16          ;по enter, т.к.   
        DEFB    _REPER  ;он есть "fife"!  
        LD      DE,BUFTXT;буфер ввода     
        LD      С,22    ;макс.размер line 
        RST 16          ;вызов input`а    
        DEFB    _INPUT                    
        RST 16          ;возврат в селек- 
        DEFB    _REPER  ;тор текущего ок- 
        JR      CONTI1  ;на               
                                          
;------ Пример окна -------               
                                          
R_DEMO  DEFB    6,8,20,9,114,1,0,0,0,#9С  
        DEFW    R_DEMO,S_UPR,J_UPR        
        DEFB    #1B,"Управление",0        
Т_DEMO  DEFB 13,#1B,"Kempston mouse",13   
        DEFB #1B,"Kempston joy",13        
        DEFB #1B,"Sinclair joy II",13     
        DEFB #1B,"Cursor key",13          
        DEFB #1B,"QAOP Space, Enter",13,0 
S_UPR   DEFB 6,10,20,1,6,15,20,1,#FF      
J_UPR   DEFW    _RET,INP_TXT              
                                          
BUFTXT  DEFS    41      ;for input buffer 
                                          
   ПРИМЕЧАНИЯ.  Исходя из того, как посто-
ронние  программисты  пытались  работать с
оболочкой, я решил отдельно комментировать
некоторые  ньюансы.  Для  селекции менюшек
вовсе  не  обязательно каждый раз набирать
последовательность функций _KURSOR,_SELECT
и  так  далее. Прелесть оболочки состоит в
том,  что разветвление алгоритма на каждое
открытое  окно  привязано  к вектору окна.
Таким образом можно один раз набрать выше-
указанную  последовательность  (в  примере
это  от  метки  CONTI1  до  OTMENA включи-
тельно) и затем селекцию производить имен-
но этим фрагментом! Внимательно рассмотри-
те  пример работы с оболочкой и вы поймете
все без проблем! ФИРМА ГАРАНТИРУЕТ.       
                                          
   Еще  один немаловажный ньюанс для люби-
телей  делать  перехват выхода в 48`Кб ПЗУ
через  RET по адресу 23746. Функции диско-
вых  операций  и чтения регистра #1F также
делают  такой  перехват,  чем забивают три
байта  по  вышеуказанному  адресу. Поэтому
следите  за  их  своевременной установкой,
если так нужно.                           
                                          
              9. ЗАКЛЮЧЕНИЕ               
                                          
   Вот такая штучка получилась. Как вы уже
догадались  -  происхождение  оболочки  из
многими  горячо  любимой программы некогда
известного  на  Спектруме  хаккера Николая
Родионова  "DCU 2.xx". Данная версия явля-
ется  восьмой  по  счету  переделкой  того
wind`а.  На  этом  этапе работа по усовер-
шенствованию  свернута, так как дальнейшие
навороты  требуют  дополнительных ресурсов
памяти, что в данном случае уже неприемле-
мо.  Кто  желает  развиваться далее в этом
направлении - STS вам в руки...