Просмотр кода страницы Искра-226/Файлы данных BASIC 02

{{emuverse}}

'''Файлы данных BASIC 02''' — способы записи и чтения данных программой на [[Искра-226]]: режимы доступа, устройство логической записи и форматы значений.

Файловая система, указатель каталога и концевая запись описаны в статье [[Искра-226/Файловая система|Файловая система]]. Формат рисунка, который программа записывает в файл как обычное символьное значение, — в статье [[Искра-226/Графический буфер BASIC 02|Графический буфер BASIC 02]].

== Способы доступа ==

{| class="wikitable"
! Приставка !! Режим !! Адресация
|-
| <code>DC</code> || файл каталога || последовательная, от текущего сектора файла
|-
| <code>DA</code> || абсолютная адресация || начальный сектор задан в операторе
|-
| <code>BA</code> || блок 256 байт || то же, служебной разметки нет
|-
| <code>BT</code> || блочный обмен с устройством || диск не участвует
|}

Тип файла в записи каталога («данные») о внутреннем устройстве файла не говорит: он может содержать логические записи, сырые блоки от <code>DATA SAVE BA</code> либо и то и другое.

=== Таблица устройств ===

Файл открывается на одну из восьми строк таблицы устройств, <code>#0</code>…<code>#7</code>; строка выбирается программой оператором <code>SELECT #n</code>, а не выдаётся системой. У открытого файла строка содержит три адреса: начальный сектор, конечный сектор и текущий сектор.

Оператор <code>DATA SAVE DC CLOSE</code> обнуляет только эти три адреса; адрес самого устройства, назначенный оператором <code>SELECT</code>, сохраняется. Параметр <code>ALL</code> закрывает все открытые файлы.

== Операторы ==

{| class="wikitable"
! Токен !! Оператор !! Действие
|-
| <code>1E</code> || IF END THEN <строка> || переход, если последнее чтение наткнулось на концевую запись
|-
| <code>66</code> || DATA LOAD BT || принять блок с устройства
|-
| <code>68</code> || DATA SAVE BT || передать блок на устройство
|-
| <code>6E</code> || DATA SAVE BA || записать 256-байтовый блок по абсолютному адресу
|-
| <code>6F</code> || DATA SAVE DA || записать логическую запись по абсолютному адресу
|-
| <code>70</code> || DATA LOAD BA || прочитать 256-байтовый блок
|-
| <code>71</code> || DATA LOAD DA || прочитать логическую запись по абсолютному адресу
|-
| <code>74</code> || DATA LOAD DC || прочитать логическую запись с текущего сектора
|-
| <code>75</code> || DATA LOAD DC OPEN || открыть существующий файл
|-
| <code>76</code> || DATA SAVE DC || записать логическую запись с текущего сектора
|-
| <code>76</code> + <code>D7</code> || DATA SAVE DC END || записать концевую запись
|-
| <code>77</code> || DATA SAVE DC CLOSE || закрыть файл
|-
| <code>78</code> || DATA SAVE DC OPEN || завести файл в каталоге и открыть
|-
| <code>79</code> || DBACKSPACE || сдвинуть текущий сектор назад
|-
| <code>7A</code> || DSKIP || сдвинуть текущий сектор вперёд
|-
| <code>7B</code> || LIMITS || выдать границы файла и число занятых секторов
|-
| <code>81</code> || SCRATCH || вычеркнуть файл из каталога
|-
| <code>82</code> || SCRATCH DISK || создать каталог
|-
| <code>83</code> || VERIFY || проверить читаемость области
|}

Операнды всех перечисленных операторов описаны в статье [[Оттранслированное представление BASIC 02]].

=== Последовательность работы ===

Запись в режиме каталога:

# <code>DATA SAVE DC OPEN</code> заводит файл в указателе и заполняет строку таблицы устройств тремя адресами. В '''последний''' сектор файла записывается <code>1C 00 01</code>; больше при открытии не пишется ничего.
# <code>DATA SAVE DC</code> пишет логическую запись начиная с текущего сектора и двигает текущий за неё.
# <code>DATA SAVE DC END</code> кладёт концевую запись в текущий сектор и текущего '''не двигает''': она помечает сектор, откуда можно продолжать запись, и следующая запись ляжет на её место.
# <code>DATA SAVE DC CLOSE</code> обнуляет адреса строки.

Чтение устроено так же, с <code>DATA LOAD DC OPEN</code> и <code>DATA LOAD DC</code>. Прочитав сектор с кодом <code>1C</code>, оператор чтения ничего не делает, оставляет текущий сектор на концевой записи и взводит признак, который проверяет <code>IF END THEN</code>. Обычная запись признак снимает.

Параметры <code>DSKIP</code> и <code>DBACKSPACE</code>: число записей, <code>BEG</code>, <code>END</code> либо число с параметром <code>S</code> — в секторах.

=== Абсолютная адресация ===

Операторы <code>DA</code> и <code>BA</code> получают начальный сектор выражением в самом операторе; каталог при этом не нужен. Необязательный второй операнд — приёмник, куда возвращается адрес сектора за последним занятым; у символьного приёмника это два первых байта двоичным числом.

Диски, записанные только так, указателя каталога не имеют вовсе.

=== Блочный обмен ===

Операторы <code>DATA SAVE BT</code> и <code>DATA LOAD BT</code> передают блок байтов без всякой служебной разметки. Устройство задаётся приставкой <code>/&lt;адрес&gt;</code>, причём '''адрес — выражение, а не сырой байт'''; чаще всего это переменная.

Название группы устройств по умолчанию (<code>TAPE</code>) вводит в заблуждение: обмен идёт с любым устройством. Адреса из таблицы ФАУ:<ref name="balasanyan" />

{| class="wikitable"
! Адрес !! Устройство
|-
| <code>05</code> || блок отображения символьной информации
|-
| <code>0C</code> || АЦПУ
|-
| <code>10</code> || блок отображения графической информации
|-
| <code>14</code> || графопостроитель
|-
| <code>34</code>, <code>35</code> || телекоммуникационный интерфейс: передатчик и приёмник
|}

== Логическая запись ==

Сектор записи:

 <код сектора> <тип> <длина> <данные> <тип> <длина> <данные> …

{| class="wikitable"
! Код !! Значение
|-
| <code>02</code> || первый сектор многосекторной записи
|-
| <code>03</code> || последний сектор многосекторной записи
|-
| <code>1C</code> || концевая запись
|-
| <code>8B</code> || запись целиком в одном секторе
|-
| <code>8F</code> || промежуточный сектор
|}

Служебный заголовок сектора данных занимает '''один''' байт, а не два, как у программных секторов; под данные остаётся 255 байт.

Идентификатор значения — два байта:

{| class="wikitable"
! Тип !! Длина !! Значение
|-
| <code>00</code> || всегда <code>08</code> || число
|-
| <code>40</code> || 1…253 || строка символов, [[КОИ-8]]
|}

Документация<ref name="balasanyan" /> описывает также целое значение длиной 2 байта, но на дисковых образах такие значения не встречаются: у типа <code>00</code> длина всегда 8.

Хвост сектора после последнего значения — нули. Значение, не помещающееся в сектор целиком, переносится в следующий сектор полностью; остаток предыдущего сектора при этом не затирается, и там остаётся копия ранее записанных значений.

Массив в списке записи и чтения разворачивается в свои элементы, строка за строкой.

== Формат числа ==

Восемь байт, двоично-десятичный.

{| class="wikitable"
! Байт !! Значение
|-
| 0–5 || цифры 1…12 мантиссы, BCD, старшая первой
|-
| 6 || порядок, знаковое двоичное (дополнительный код)
|-
| 7 || старшая тетрада — 13-я цифра мантиссы, младшая — знак: <code>0</code> плюс, <code>1</code> минус
|}

 значение = d1 d2 d3 . d4 … d13 × 1000 ^ порядок

Мантисса — 13 цифр с точкой после третьей, что даёт заявленные для машины 13 значащих разрядов. '''Порядок берётся по основанию 1000''', а не 10: нормализованная мантисса лежит в диапазоне [1, 1000).

Первая значащая цифра стоит на позиции 1, 2 или 3, поэтому число значащих разрядов в записи на диск равно 13, 12 или 11 соответственно.

Примеры: <code>00 10 00 00 00 00 00 00</code> — единица, <code>00 80 00 00 00 00 00 00</code> — восьмёрка.

== Десятично-упакованный формат ==

Операторы <code>PACK(</code> (токен <code>48</code>) и <code>UNPACK(</code> (<code>5D</code>) укладывают числа в символьное поле по образу печати, вида <code>[+|-] ### [.###] [^^^^]</code>.

* Две цифры на байт, старшая тетрада первой, разряды в порядке образа.
* Размер группы: число тетрад = знак плюс количество знаков <code>#</code>, округлить вверх до целого байта, плюс байт порядка при <code>^^^^</code>.
* Образ <code>####</code> занимает ровно два байта.

Тетрада знака (<code>0</code> плюс, <code>1</code> минус) и байт порядка со знаком на дисковых образах не встречаются и приняты по устройству восьмибайтового числа.

== Поток значений переменных ==

Секторы, следующие за программой в оттранслированном программном файле, содержат значения переменных, записанные в том же формате логической записи. Для файла <code>DIG DEM</code>: сектор начинается идентификатором <code>02</code>, за ним 25 записей по 10 байт (<code>00 08</code> и восемь байт значения), последние 5 байт сектора не используются — <code>1 + 25 × 10 + 5 = 256</code>.

== Не установлено ==

# Кодирование целого значения длиной 2 байта, описанного в документации.
# Тетрада знака и байт порядка в десятично-упакованном формате.
# Токен формы <code>DATA SAVE DA … END</code> и приёмника адреса в скобках у <code>BA</code> и <code>DA</code>: документация их описывает, в оттранслированных файлах они не встречаются.
# Округляет или усекает машина разряды, не поместившиеся в восьмибайтовое число.

== Примечания ==

<references>
<ref name="balasanyan">Баласанян В. Э., Богдюкевич С. В., Шахвердов В. А. Программирование на микроЭВМ «Искра 226». — М.: Финансы и статистика, 1987. — 264 с.: ил. — разделы 11.5, 18.1–18.9.</ref>
</references>

== Источники ==

* Баласанян В. Э., Богдюкевич С. В., Шахвердов В. А. Программирование на микроЭВМ «Искра 226». — М.: Финансы и статистика, 1987.
* Аладьев В. З. и др. Персональный компьютер «Искра-226». Архитектура и программное обеспечение. — Киев, 1988.
* Реконструкция по 65 файлам данных с 42 образов дисков; формат числа — по 12 132 значениям.

[[Категория:Искра-226]]