[an error occurred while processing this directive]
<pre>
.ктФг.00035-01 33 02
.нс2
.сс
.цв
АННОТАЦИЯ
.ов
В настоящем  документе приведена информация о назначении и условиях применения интерпретатора языка "Бейсик" для персональной  электронной вычислительной машины (ПЭВМ) "АГАТ", основные характеристики и обращения к программе. Описаны входные, выходные данные и сообщения интерпретатора.
В разделе "Дополнительные сведения" собраны сведения, которые могут оказаться полезными при разработке опытным программистом программ, использующих особенности реализации языка "Бейсик" и возможности других элементов системного программного обеспечения. 
Для использования интерпретатора необходимо ознакомиться с описанием языка "Бейсик" (см. Фг.00035-01&nbsp;35&nbsp;01).
.сс
.цв
СОДЕРЖАНИЕ
.ов
1. Назначение и условия применения&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;4
2. Характеристики программы&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;4
3. Обращение к программе&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;4
4. Входные и выходные данные&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;5
5. Сообщения об ошибках&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;5
6. Дополнительные сведения&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;8
.сс
.цв
1. НАЗНАЧЕНИЕ И УСЛОВИЯ ПРИМЕНЕНИЯ
.ов
Интерпретатор реализует язык "Бейсик", соответствующий стандарту АНСИ&nbsp;Х&nbsp;30-1978.
Интерпретатор служит для выполнения программ и директив языка  "Бейсик".
Интерпретатор языка "Бейсик" размещается  на гибком магнитном диске (ГМД) и загружается в оперативную память (ОП).
.цв
2. ХАРАКТЕРИСТИКИ ПРОГРАММЫ
.ов
Интерпретатор работает в режиме непосредственного исполнения программ и директив языка "Бейсик". Интерпретатор обеспечивает:
ввод программы с клавиатуры и кассетного магнитофона;
возможность вычисления выражений над целыми и вещественными переменными, элементарными функциями;
возможность выполнения условных операторов, циклов и обращений к подпрограммам и функциям;
диагностику и обнаружение ошибок в программе.

.цв
3. ОБРАЩЕНИЕ К ПРОГРАММЕ
.ов
Для запуска интерпретатора необходимо разместить его в ОЗУ ПЭВМ "АГАТ", и затем передать управление на адрес &curren;Е000. Все действия выполняются автоматически программой "Дисковая операционная система" (ДОС) при включении ПЭВМ.
После запуска интерпретатора на экране видеоконтрольного устройства (ВКУ) появляется символ '}' и курсор в виде мигающей черты, что определяет готовность интерпретатора к работе.
После выполнения программы эти сигналы вновь появляются на экране ВКУ.
Для обращения к интерпретатору из программы системный монитор (см. Фг.00035-01&nbsp;12&nbsp;01) используются следующие команды:
*E000G - для обращения к интерпретатору без сохранения программы и состояния интерпретатора;
*E003G или УПР-С, - для обращения к интерпретатору с сохранением программы и состояния интерпретатора.
.цв

4. ВХОДНЫЕ И ВЫХОДНЫЕ ДАННЫЕ
.ов
Входными данными для интерпретатора языка "Бейсик" являются тексты программ и директив языка "Бейсик", выходными данными - результаты исполнения  программ и директив (программы в кодах, сообщения о результатах работы программ, сообщения об ошибках).
.цв

5. СООБЩЕНИЯ ОБ ОШИБКАХ
.ов
Сообщением об окончании исполнения программы и директив языка "Бейсик" являются сигналы: приглашение к диалогу '}' и курсор в виде мигающей черты. 
Интерпретатор сообщает об ошибках в программе или директиве посредством выдачи сообщений на экран ВКУ либо на печатающее устройство.
На экран ВКУ выдается, кроме этого, текст строки, при исполнении которой обнаружена ошибка, с выделением местоположения ошибки красным цветом, а при работе в черно-белом текстовом режиме - знаком "!".
После каждой ошибки происходит останов программы, при этом приглашение и курсор вновь появляются на экране ВКУ.
В результате неправильного ввода в процессе исполнения операторов INPUT на экране ВКУ появляется сообщение ОШ.ВВОД, после этого ввод необходимо повторить.
Возможны следующие сообщения об ошибках:
NEXT&nbsp;БЕЗ&nbsp;FOR - встреченному по ходу исполнения NEXT нет соответствующего FOR;
СИНТ.ОШ. - недопустимый символ в операторе;
RETURN&nbsp;БЕЗ&nbsp;GOSUB - некуда возвращаться, как правило неверный вход в подпрограмму (GOTO вместо GOSUB);
МАЛО&nbsp;ДАННЫХ - выполняется READ, а списки DATA исчерпаны, возможно пропущен RESTORE;
ОШ.ТИП - несогласованы операнды, например сложение строки с числом;
ПЕРЕПОЛНЕНИЕ - засылка в целую переменную слишком большого числа, шестнадцатеричная константа длиннее 4 цифр и т.д.;
МАЛО&nbsp;ПАМЯТИ - нет свободной памяти под переменную или  массив, либо вложенные GOSUB и FOR не оставили в стеке свободного места под выражение, либо нет места под буфер поиска/замены в директиве LIST и др.;
НЕТ&nbsp;НОМЕРА - отсутсвует строка с номером, указанным в GOTO, THEN или GOSUB;
ОШ.ИНДЕКС - значение индекса выходит за пределы размерности, указанной для массива в DIM;
УЖЕ&nbsp;ОПИСАН - при исполнении DIM обнаружен массив с таким же именем, ошибка может быть вызвана использованием имени массива раньше DIM;
Х/0 - делить на ноль нельзя;
ОШ.ЗНАЧЕНИЕ - неправильный операнд,  например попытка записать с помощью POKE число больше 255, указать в PLOT координату за пределами экрана и др.;
СТРОКА&nbsp;ДЛИННА - в результате сложения получена строка длиннее 255 символов;
ОСТАНОВ - после одновременного  нажатия клавиш УПР-Ц или выполнения STOP в программе (ошибкой не является);
НАДО&nbsp;RUN - перед CONT выполнено редактирование программы, была ошибочная директива или нажаты клавиши УПР, СБР - продолжить нельзя;
НЕ&nbsp;В&nbsp;ДИАЛОГЕ - команда только для программного исполнения;
НЕТ&nbsp;МЕТКИ - в выражении ассемблера использовано имя с неопределенным значением, выдается также при  использовании отсутствующей функции;
БАЙТ&nbsp;НЕПОЛОН - в шестнадцатеричной загрузке памяти записано нечетное число цифр;
ОШ.МЕТКА - начало оператора ассемблирования принято за метку, но меткой служить не может, например
 &nbsp;! МЕТКА+1: RTS ;&nbsp;&nbsp;
Может быть вызвана неправильной записью операции (! TXW);
ОШ.КОД - не удается сформировать команду в ассемблере, например недопустимая адресация; выдается также при нарушении условий относительной адресации, когда метка перехода далеко отстоит от команды условного перехода; может быть вызвана повреждением заготовки объектного кода между первым и вторым проходом ассемблирования (адрес загрузки кода попал на системные буфера или, например, на адреса ПЗУ);
УЖЕ&nbsp;ЕСТЬ - в команде ассемблера использована метка, значение которой уже определено ко времени условного перехода.

.цв
6. ДОПОЛНИТЕЛЬНЫЕ СВЕДЕНИЯ
.ов
При разработке программного обеспечения на языке "Бейсик" могут оказаться полезными следующие сведения:
6.1. При желании можно для вывода текста на экран ВКУ использовать не весь экран. Для этого необходимо задать текстовое окно. В ячейке памяти 32 лежит левая граница текстового окна, а в ячейке 33  - ширина (в цветном текстовом режиме 32*32 хранятся удвоенные значения горизонтальных размеров, поэтому нечетные значения недопустимы). Командами POKE 33,A , POKE 32,B&nbsp; можно задавать горизонтальные размеры текстового окна. При этом А должно находиться в пределах от 1 до 64, а B - в пределах от 0 до 63. Другие значения могут привести к непредсказуемым последствиям. В ячейках 34 и 35 лежат соответственно номер первой (верхней) строки окна и номер строки, расположенной непосредственно под окном.
Командами POKE 34,C и POKE 35,D &nbsp;можно задавать вертикальные размеры текстового окна. Переменные C и D должны находиться соответственно в пределах от 0 до 31 и от 1 до 32, при этом D должно быть больше C.
6.2. Для того, чтобы очистить текстовое окно от символов, можно, кроме команды HOME, нажать одновременно клавиши УПР и Л или выполнить команду PRINT CHR&curren;(140).
При нажатии функциональной клавиши '8' или одновременном нажатии клавиш УПР,Ч или при выполнении оператора PRINT CHR&curren;(158) текстовое окно очистится от символов, начиная с позиции курсора, и до конца текстового окна.
При одновременном нажатии клавиш УПР,Щ или при исполнении PRINT&nbsp;CHR(157) строка очистится от символов, начиная с позиции курсора и кончая правой границей текстового окна.
Одновременное нажатие клавиш УПР,Г или PRINT CHR&curren;(135) приводит к звучанию динамика.
Можно использовать и другие подпрограммы программы "Системный монитор", вызывая их с помощью оператора CALL.
6.3. В табл. 1 приведены сведения, которые могут оказаться полезными при обработке ошибок в программах (английской диагностике соответствуют коды ошибок языка Applesoft).
.пв
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Таблица 1&nbsp;&nbsp;
.ов
.ао0
-----------------------------------------------------
&nbsp;&nbsp;&nbsp;&nbsp;Русская диагностика&nbsp;&nbsp;!&nbsp;&nbsp;&nbsp;Английская диагностика&nbsp;&nbsp;
-------------------------!--------------------------
&nbsp;Код!&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Сообщение&nbsp;&nbsp;&nbsp;&nbsp;!Код!&nbsp;&nbsp;Сообщение&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
-------------------------!---------------------------
.ао1
&nbsp;&nbsp;0&nbsp;!&nbsp;NEXT&nbsp;БЕЗ&nbsp;FOR&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!&nbsp;0&nbsp;!&nbsp;NO&nbsp;FOR&nbsp;ERROR&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
!&nbsp;12!&nbsp;СИНТ.ОШ.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!&nbsp;6&nbsp;!&nbsp;SYNTAX&nbsp;ERROR&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
!&nbsp;19!&nbsp;RETURN&nbsp;без&nbsp;GOSUB&nbsp;&nbsp;&nbsp;!&nbsp;12!&nbsp;NO&nbsp;GOSUB&nbsp;ERROR&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
!&nbsp;35!&nbsp;МАЛО&nbsp;ДАННЫХ&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!&nbsp;20!&nbsp;NO&nbsp;DATA&nbsp;ERROR&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
!&nbsp;46!&nbsp;ОШ.ЗНАЧЕНИЕ&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!&nbsp;29!&nbsp;ILLEGAL&nbsp;VALUE&nbsp;ERROR&nbsp;
!&nbsp;57!&nbsp;ПЕРЕПОЛНЕНИЕ&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!&nbsp;40!&nbsp;OVERFLOW&nbsp;ERROR&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
!&nbsp;69!&nbsp;МАЛО&nbsp;ПАМЯТИ&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!&nbsp;48!&nbsp;OUT&nbsp;OF&nbsp;MEMORY&nbsp;ERROR&nbsp;&nbsp;
!&nbsp;80!&nbsp;НЕТ&nbsp;НОМЕРА&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!&nbsp;61!&nbsp;UNDEF&nbsp;STATEMENT&nbsp;ERROR
!&nbsp;90!&nbsp;ОШ.ИНДЕКС&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!&nbsp;76!&nbsp;SUBSCRIFT&nbsp;ERROR&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
!&nbsp;99!&nbsp;УЖЕ&nbsp;ОПИСАН&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!&nbsp;85!&nbsp;REDIM&nbsp;ARRAY&nbsp;ERROR
!109!&nbsp;X/0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!&nbsp;96!&nbsp;DIVIZION&nbsp;&nbsp;BY&nbsp;ZERO
!124!&nbsp;ОШ.ТИП&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!126!&nbsp;TYPE&nbsp;ERROR&nbsp;&nbsp;
!130!&nbsp;СТРОКА&nbsp;ДЛИННА&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!130!&nbsp;LONG&nbsp;STRING&nbsp;ERROR
!165!&nbsp;НЕТ&nbsp;МЕТКИ&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!157!&nbsp;UNDEF&nbsp;NAME&nbsp;ERROR
!174!&nbsp;БАЙТ&nbsp;НЕПОЛОН&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!167!&nbsp;BYTE&nbsp;UNCOMRL&nbsp;ERROR
!186!&nbsp;ОШ.МЕТКА&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!179!&nbsp;LABEL&nbsp;ERROR&nbsp;
!194!&nbsp;ОШ.КОД&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!184!&nbsp;OPCODE&nbsp;ERROR
!200!&nbsp;УЖЕ&nbsp;ЕСТЬ&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;!190!&nbsp;DOUBLE&nbsp;DEF&nbsp;NAME&nbsp;ERROR

При использовании в программе оператора ONERR&nbsp;GOTO исполнение команды X=PEEK(216)+PEEK(219)*256 приведет к тому, что в X будет номер строки, в которой была ошибка.
Команда POKE&nbsp;216,0 отключает режим программной реакции на ошибки, установленный оператором &nbsp;ONERR&nbsp;GOTO.
После выполнения команды Y=PEEK(222),&nbsp;Y будет равен коду ошибки. Коды ошибок и их соответсвие диагностическим сообщениям в русской и английской версиях приведены в табл.1.
Если седьмой бит ячейки с адресом 216 равен 1, это означает, что оператор ONERR&nbsp;GOTO&nbsp; уже выполнен. Это можно использовать в программе, например, так:
&nbsp;&nbsp;40 IF&nbsp;PEEK(216)&nbsp;&gt;&nbsp;127&nbsp;THEN&nbsp;GOTO1000
6.4. При использовании различных областей памяти для отображения в графических и текстовых режимах (операторы TEXT=, GR=, MGR= и HGR=) необходимо следить за возможными пересечениями их с рабочими зонами СП "Бейсик" с учетом исполнения ПЭВМ "АГАТ", применяемой для эксплуатации программы. Адреса текстовых экранов приведены в табл.2. Размещение экранов графики 64*64 совпадает с размещением текстовых экранов, графические экраны 128*128 и 256*256 занимают по 4 текстовых экрана каждый, I-ый экран такого типа занимает место текстовых экранов с номерами от I*4 до I*4+3.
.сс
.пв
 Таблица 2
.ов
.ао0
----------------------------------------------------------
Номера:Адреса&nbsp;экранов&nbsp;
экрана:---------------
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:Исполнение&nbsp;7:
------:------------:
0??&nbsp;&nbsp;&nbsp;:&nbsp;0*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:
------:------------:
1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;800***&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:
------:------------:
2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:1000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:
------:------------:
3???&nbsp;&nbsp;:&nbsp;1800*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:
------:------------:
4-15&nbsp;&nbsp;:2000-7800**&nbsp;:
------:------------:
16-31&nbsp;:повторение  :
      :экранов с 0 :
      : до 15      :
------:------------:
32&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;0*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:
------:------------:
33&nbsp;&nbsp;&nbsp;&nbsp;:800***&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:
------:------------:
34&nbsp;&nbsp;&nbsp;&nbsp;:1000&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:
------:------------:
35&nbsp;&nbsp;&nbsp;&nbsp;:1800*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:
------:------------:
36-47&nbsp;:2000-7800**&nbsp;:
------:------------:
48-63&nbsp;:повторение&nbsp;&nbsp;:
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:экранов с 32:
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:до 47&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;*
------:------------:
.ао1


------------------------------
*&nbsp;Использование&nbsp;зоны приводит к нарушению работы системы.
** Зона пересекается с рабочей памятью интерпретатора "Бейсик", может испортиться программа пользователя или ее переменные. Использование зоны следует предусмотреть при размещении программы языка "Бейсик" /или переменных (см. Фг.00012-02&nbsp;33&nbsp;02).
*** Зона пересекается с рабочей памятью ДОС. Для ее использования необходимо отключить ДОС (директива отключения: 36&lt;57A.57D M).

6.5. Программа пользователя размещается интерпретатором при наборе и загрузке с диска с адреса &curren;1901. Адрес конца программы хранится в ячейках &curren;AF-&curren;B0, этот же адрес при отсутствии оператора LOMEM служит началом области хранения переменных. Переменные хранятся двумя участками: от адреса, указанного в &curren;69-&curren;6A (этот адрес устанавливается LOMEM), до адреса, указанного в &curren;6D-&curren;6E, находятся простые переменные, массивы и дескрипторы строк; от адреса, указанного в &curren;6F-&curren;70, до адреса в &curren;73-&curren;74 (этот адрес устанавливается HIMEM и при запуске СП "Бейсик" равен &curren;C000) находятся тексты строк.
Можно изменить и адрес начала программы пользователя. Для этого требуемый адрес заносится в ячейки &curren;67-&curren;68, записывается "0" в ячейку, предшествующую этому адресу, и выполняется NEW. Если требуется выполнить эти действия из программы, вместо NEW можно использовать директиву ДОС "RUN".
6.6. Переключать страницы экранной памяти в программах можно непосредственно обращениями по адресам переключателя с помощью команд&nbsp;&nbsp;POKE&nbsp;-14592+KP+NS*Q,&nbsp;0
Примечания:
1. КР - код режима работы. КР равен: 0 - в режиме GR, 1 - в режиме MGR, 2 - в текстовом режиме, 3 - в режиме HGR;
2. NS - номер страницы памяти. NS - целое и находится в интервале: от 1 до 63 - в режимах GR и текстовом, от 1 до 3 - в режимах MGR и HGR. Номера текстовых страниц от 1 до 31 соответствуют режиму 32*32, от 33 до 63 - режиму 64*32;
3. Q=4 - в режимах GR и текстовом, Q=16 - в режимах MGR и HGR.
4. Переключения не меняют содержимого экранных страниц, но не подключают к ним программные средства обращения, что обеспечивает возможность писать или рисовать на невидимом экране, после чего сразу включить готовое изображение.
6.7 Считывание с клавиатуры можно осуществить, например, так:
&nbsp;&nbsp;100&nbsp;&nbsp;WAIT&curren;C000,&curren;80,0
&nbsp;&nbsp;110&nbsp;&nbsp;X&curren;=CHR&curren;(PEEK(&curren;C000))
&nbsp;&nbsp;120&nbsp;&nbsp;POKE&curren;C010,0
6.8 Интерпретатор языка "Бейсик" имеет 4 оператора, позволяющие манипулировать графическими объектами в режиме графики высокого разрешения. Это операторы DRAW, XDRAW, ROT, SCALE. Однако прежде, чем эти операторы могут быть исполнены, графический объект должен быть описан посредством так называемого "описателя формы". Описатель формы состоит из последовательности закодированных векторов, определяющих форму объекта. Один или несколько таких описателей вместе с указателями составляют "таблицу образов". Коды этой таблицы могут быть набраны с блока клавиатуры и записаны на внешнем носителе для последующего использования.
Каждый байт описателя формы разделен на три секции, каждая из которых описывает вектор, указывающий направление движения воображаемого "пера", рисующего объект.
По команде DRAW или XDRAW интерпретатор просматривает секцию за секцией описателя. Если встречается байт, все биты которого нули,  просмотр описателя заканчивается.
Структура одного байта описателя формы:
.лв
&nbsp;&nbsp;Секции&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;C&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;B&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;A
&nbsp;&nbsp;Номер&nbsp;бита&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;76&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;543&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;210
&nbsp;&nbsp;Обозначение&nbsp;битов&nbsp;DD&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PDD&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PDD
.ов
Каждая пара битов, обозначенная DD, определяет направление движения "пера", а каждый бит P указывает, чертить или не чертить точку, прежде чем "перу" сместиться в указанном направлении.
Если DD=00, "перо" сместится вверх, DD=01 - вправо, DD=10 - вниз, DD=11 - влево.
P=0 вызывает смещение без черчения, а P=1 - смещение с черчением точки.
Секция C (два старших бита) не содержит поля P. Считается, что в секции C P=0, т.е. в ней можно указывать только смещение без черчения.
Таким образом, каждый байт описывает до трех векторов (по одному в секциях A, B и C).
Директивы DRAW и XDRAW обрабатывают секции справа налево (вначале секцию A, затем секцию B, далее C).
Если секции, оставшиеся до конца байта, содержат одни нули, они игнорируются.
Например: байт описателя не может заканчиваться секцией C, равной 00 (движение вверх без черчения), т.к. эта секция, содержащая одни нули, будет проигнорирована. Аналогично, если секция C содержит 00, секция B не может быть равной 000, т.к. она тоже будет пропущена. И 000 в секции A прервет описатель, если в секциях B и C нет ни одного бита, равного 1.
Предположим, нужно изобразить объект, указанный на рис.1:

.ао0
.цв
&nbsp;&nbsp;&nbsp;*&nbsp;*&nbsp;*&nbsp;&nbsp;
&nbsp;&nbsp;*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;*&nbsp;
&nbsp;&nbsp;*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;*&nbsp;
&nbsp;&nbsp;*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;*&nbsp;
&nbsp;&nbsp;&nbsp;*&nbsp;*&nbsp;*&nbsp;&nbsp;

&nbsp;&nbsp;&nbsp;Рис.1&nbsp;&nbsp;

.ов
.ао
Вначале нанесем его на клетчатую бумагу так, чтобы каждая точка занимала одну клетку. Затем выберем начальную точку. Пусть она находится в центре фигуры. Теперь нарисуем путь воображаемого "пера" через точки нашего объекта, используя только угол поворота на 90 .
Развернем эту последовательность векторов и расположим их в том порядке, в каком "перо" проходит через точки объекта (см. рис.2):
.ао0
.кс0

O&nbsp;&nbsp;O&nbsp;&nbsp;&lt;*&nbsp;&lt;*&nbsp;^&nbsp;&nbsp;^&nbsp;&nbsp;^&nbsp;&nbsp;^&nbsp;&nbsp;O&gt;&nbsp;*&gt;&nbsp;*&gt;&nbsp;*&gt;&nbsp;O&nbsp;&nbsp;*&nbsp;&nbsp;*&nbsp;&nbsp;*&nbsp;&nbsp;&lt;O&nbsp;&lt;*
v&nbsp;&nbsp;v&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;O&nbsp;&nbsp;*&nbsp;&nbsp;*&nbsp;&nbsp;*&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;v&nbsp;&nbsp;v&nbsp;&nbsp;v&nbsp;&nbsp;v&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
.ов
.ао1

.кс3
.цв
.ао0

+--+--+--+--+--+
!&nbsp;&nbsp;!&nbsp;&nbsp;!&nbsp;&nbsp;!&nbsp;&nbsp;!&nbsp;&nbsp;!
!&nbsp;O-&gt;*-&gt;*-&gt;*-&gt;O!
+-^+--+--+--+-!+
!&nbsp;!!&nbsp;&nbsp;!&nbsp;&nbsp;!&nbsp;&nbsp;!&nbsp;v!
!&nbsp;*!&nbsp;&nbsp;!&nbsp;&nbsp;!&nbsp;&nbsp;!&nbsp;*!
+-^+--+--+--+-!+
!&nbsp;!!&nbsp;&nbsp;!&nbsp;&nbsp;!&nbsp;&nbsp;!&nbsp;v!
!&nbsp;*!&nbsp;&nbsp;!&nbsp;O!&nbsp;&nbsp;!&nbsp;*!
+-^+--+-!+--+-!+
!&nbsp;!!&nbsp;&nbsp;!&nbsp;v!&nbsp;&nbsp;!&nbsp;v!
!&nbsp;*!&nbsp;&nbsp;!&nbsp;O!&nbsp;&nbsp;!&nbsp;*!
+-^+--+-!+--+-!+
!&nbsp;!!&nbsp;&nbsp;!&nbsp;v!&nbsp;&nbsp;!&nbsp;v!
!&nbsp;O&lt;-*&lt;-*&lt;-*&lt;-O!
+--+--+--+--+--+

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Рис.2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
.ов
.ао1


Рассмотрим на этом примере процесс составления таблицы образов (см. рис.3). Для каждого вектора записываем его двоичный код в следующую свободную секцию таблицы. Если код не подходит (например, вектор в секции C не может чертить точку) или равен 00 (000) в конце байта, пропускаем эту секцию и переходим к следующей.
.сс
.пв
         &nbsp;&nbsp;&nbsp;Таблица образов&nbsp;&nbsp;&nbsp;
.цв
------------------------------------------
Байт&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Секция&nbsp;С&nbsp;&nbsp;&nbsp;Секция&nbsp;В&nbsp;&nbsp;Секция&nbsp;А
------------------------------------------
&nbsp;12&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;пропуск&nbsp;00&nbsp;&nbsp;Ov&nbsp;010&nbsp;&nbsp;&nbsp;&nbsp;Ov&nbsp;010
&nbsp;3F&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;пропуск&nbsp;00&nbsp;&nbsp;&lt;*&nbsp;111&nbsp;&nbsp;&nbsp;&nbsp;&lt;*&nbsp;111
&nbsp;20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;пропуск&nbsp;00&nbsp;&nbsp;*^&nbsp;100&nbsp;&nbsp;&nbsp;&nbsp;O^&nbsp;000
&nbsp;64&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;O&gt;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;01&nbsp;&nbsp;*^&nbsp;100&nbsp;&nbsp;&nbsp;&nbsp;*^&nbsp;100
&nbsp;2D&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;пропуск&nbsp;00&nbsp;&nbsp;*&gt;&nbsp;101&nbsp;&nbsp;&nbsp;&nbsp;*&gt;&nbsp;101
&nbsp;15&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;пропуск&nbsp;00&nbsp;&nbsp;Ov&nbsp;010&nbsp;&nbsp;&nbsp;&nbsp;*&gt;&nbsp;101
&nbsp;36&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;пропуск&nbsp;00&nbsp;&nbsp;*v&nbsp;110&nbsp;&nbsp;&nbsp;&nbsp;*v&nbsp;110
&nbsp;1E&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;пропуск&nbsp;00&nbsp;&nbsp;&lt;O&nbsp;011&nbsp;&nbsp;&nbsp;&nbsp;*v&nbsp;110
&nbsp;07&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;пропуск&nbsp;00&nbsp;пропуск&nbsp;000&nbsp;&lt;*&nbsp;111
.цв
Рис.3
.ов

Заполним теперь другую таблицу. Преобразуем последовательность нулей и единиц в шестнадцатеричный формат и добавим 00 - признак конца:
.цв
&nbsp;&nbsp;12&nbsp;&nbsp;3F&nbsp;&nbsp;20&nbsp;&nbsp;64&nbsp;&nbsp;2D&nbsp;&nbsp;15&nbsp;&nbsp;36&nbsp;&nbsp;1E&nbsp;07&nbsp;&nbsp;00&nbsp;&nbsp;
.ов
Эта последовательность байтов должна быть загружена в память ПЭВМ "АГАТ". Необходимо закодировать еще некоторую информацию, чтобы завершить создание "таблицы образов".
&nbsp;&nbsp;&nbsp;&nbsp;Адрес&nbsp;&nbsp;&nbsp;&nbsp;Содержание&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Формат&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;E8&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;S -база таблицы&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;адрес&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;S&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;N -количество образов&nbsp;байт&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;S+1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;не используется&nbsp;&nbsp;&nbsp;&nbsp;байт&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;S+2*I&nbsp;&nbsp;относительный адрес,&nbsp;&nbsp;адрес&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;I-го&nbsp;&nbsp;описателя&nbsp;&nbsp;
.ов
Описатель I-ый начинается по адресу S+(S+2*I)&nbsp; и заканчивается нулевым байтом. Все адреса хранятся в порядке "младший байт, старший байт".
В нашем примере таблица образов содержит только один описатель. Байт с адресом S содержит число описателей, в данном примере 01. Расположим описатель сразу после указателя, тогда, согласно таблице, адрес первого байта описателя равен &nbsp;S+4&nbsp;. Относительный адрес равен 4. Байт &nbsp;S+2&nbsp; содержит младшие две цифры (04), а байт &nbsp;S+3&nbsp; - старшие (00).
Выберем начальный адрес таблицы равным S&nbsp;. Этот адрес должен быть меньше, чем наибольший доступный адрес ОЗУ ПЭВМ "АГАТ". Таблица не должна располагаться в текстовой и графической страницах, используемых программой. Допустим, что &nbsp;S=1DFC&nbsp; удовлетворяет этим требованиям. Тогда необходимо в диалоге программы "Системный монитор" выполнить команду:
1DFC:01&nbsp;00&nbsp;04&nbsp;00&nbsp;12&nbsp;3F&nbsp;20&nbsp;64&nbsp;2D&nbsp;15&nbsp;36&nbsp;1E&nbsp;07&nbsp;00&nbsp;
По этой команде таблица будет помещена в ОЗУ, начиная с адреса &curren;1DFC&nbsp;. Теперь мы должны сообщить интерпретатору, в каком месте ОЗУ находятся коды таблицы. Для этой цели служат ячейки памяти с адресами &nbsp;&curren;E8-&curren;E9&nbsp;, причем в &nbsp;&curren;E8&nbsp; лежит младший байт адреса, а в &curren;E9 - старший.
Набрать, находясь в программе "Системный монитор"
 &nbsp;&curren;E8:FC&nbsp;1D
Таблицу можно загружать, используя команду ДОС &nbsp;BLOAD&nbsp;, если таблица хранится на диске.
Используя команду интерпреатора &nbsp;POKE&nbsp;, можно загружать адрес в ячейки памяти&nbsp;&curren;E8-&curren;E9&nbsp;(224-225), не вызывая программу "Системный монитор".
Удобно загружать таблицу с помощью средств ассемблирования, например:
&nbsp;&nbsp;&nbsp;10&nbsp;&nbsp;HIMEM:&curren;8000
&nbsp;&nbsp;&nbsp;20&nbsp;&nbsp;*&curren;8000:
&nbsp;&nbsp;&nbsp;30&nbsp;&nbsp;!M1:=1!=T1-M1
&nbsp;&nbsp;&nbsp;40&nbsp;&nbsp;!T1:123F20642D15361E0700
&nbsp;&nbsp;&nbsp;50&nbsp;&nbsp;!:
&nbsp;&nbsp;&nbsp;60&nbsp;&nbsp;*&curren;E8:!=M1!:
&nbsp;&nbsp;&nbsp;70&nbsp;&nbsp;HGR=2:COLOR=15
&nbsp;&nbsp;&nbsp;80&nbsp;&nbsp;SCALE=8
&nbsp;&nbsp;&nbsp;90&nbsp;&nbsp;FOR&nbsp;I=1&nbsp;TO&nbsp;64
&nbsp;&nbsp;&nbsp;100&nbsp;ROT=I:DRAW&nbsp;1&nbsp;AT&nbsp;20+3*I,50+2*I
&nbsp;&nbsp;&nbsp;110&nbsp;&nbsp;NEXT
Программа загружает таблицу описанного выше примера за установленной оператором 10 верхней границей памяти под переменные, при этом таблица оказывается защищенной при выполнении программы и любых операциях ее редактирования. Так, чтобы добавить еще один описатель, достаточно при загруженной программе набрать:  
&nbsp;&nbsp;&nbsp;30&nbsp;&nbsp;!M1:=2!=T1-M1!=T2-M1
&nbsp;&nbsp;&nbsp;32&nbsp;&nbsp;&nbsp;T2:&curren;....&nbsp;&nbsp;код второй таблицы.
 число описателей, в данном примере 01. Расположим описатель сразу после указателя, тогда, со
</pre>
[an error occurred while processing this directive]