API контроллеров AZ®

Редактировал(а) Max 2025/02/25 10:23

Contents

Концепция контроллера

Контроллер эмулирует до 32х дисковых устройств AZ® на одной микроSD-карточке. Каждый эмулируемый диск (псевдодиск) представлен на карточке файлом с точки зрения файловой системы FAT32, поэтому не возникает никаких вопросов в размещении псевдодисков на носителе большого объема - просто помещаем карточку в кардридер, подключаем к PC, копируем на карточку файлы нужного объема (и с нужным содержимым), переставляем ее в контроллер, и всё! Более того, поработав с карточкой на ДВК/БК/УКНЦ, можно извлечь ее из контроллера, снова поместить в кардридер и скопировать наработанные файл-образы дисков на PC, где с ними можно работать любыми средствами - например, подключить к эмулятору, заархивировать и сложить куда-нибудь на хранение, отправить в конференцию, и т.п. Также не представляет особого труда скопировать какой-то материал, найденный в сети, на карточку, переставить ее в контроллер и использовать этот материал на ДВК/УКНЦ.

Регистры контроллера.

Контроллер имеет 4 регистра на МПИ

• 177220 - регистр команд и состояния (CSR)
• 177222 - регистр данных (DR)
• 177224 - регистр начальной загрузки основной (BOOT1)
• 177226 - регистр начальной загрузки альтернативный (BOOT2)

Регистр CSR принимает команды в разрядах D0-D5 и бит разрешения прерываний в разряде D6, все только запись, читается всегда ноль. В разряде D7 читается бит готовности. Единица в нем означает, что предыдущая команда выполнена и контроллер готов к обмену. Ноль означает, что контроллер занят исполнением предыдущей операции, остальные регистры при этом отключены, обращение к любому из них вызовет Trap to 4. Если исполнение предыдущей команды вызвало ошибку, одновременно с битом D7 взводится бит D15.

Запись в регистры производится только словом, байтовая запись недопустима.

Весь обмен данными ведется через DR. Для команд, аргумент у которых одно слово, этот аргумент следует переслать в DR, а затем выслать команду в CSR. Для команд обмена с буфером контроллера, наоборот, следует выдать команду и только после нее принимать или передавать блок данных определённой длины.

Прерывания

Большинство команд исполняется, практически, мгновенно - за время исполнения одной-двух команд ЦП. Но команды обмена с карточкой микро-SD все-таки, требуют времени. Ожидать окончания этих операций можно либо поллингом бита D7 CSR, либо (например, при наличии многозадачной ОС, которой есть, куда утилизировать это время) - взвести бит D6 CSR (разрешение прерываний) и заняться чем-то другим. Когда операция будет завершена, произойдет прерывание и по нему можно продолжить операции.
 

Пространства имен

Как уже было сказано - дисковое устройство презентуемое в систему PDP-11 это физический файл на какой-то файловой системе. Начиная с V17 прошивки, появился сетевой функционал, он позволяет использовать сетевые диски предоставляемые посредством технологии MAXIOL Landisk®. Соответственно, для полной унификации и обеспечения полной "прозрачности" все отличия сводятся к точке монтирования, на данный момент это следующие пространства:

  • 0:/  - локальные файлы на MicroSD карточке
  • R:/ - сетевые файлы в файловом репозитории
  • N:/ - сетевые файлы в архиве https://mirrors.pdp-11.ru/

Планируемые сетевые пространства (фунционал будет реализован в следующих прошивках):

  • P:/  - персональное облако, доступно только под одной УЗ
  • S:/ - облако которое позволяет делится своими файлами с другими участниками

Буфера

В контроллере несколько буферов различного назначения, все буфера имеют словные размеры ибо отдаются через 16ти битный регистр

  • Основной буфер - IOBUF  [258]  
  • Буфер энергонезависимой памяти - cmosmem_buffer[256]
  • Буфер часов - выходной timestamp_out_buffer[14]
  • Буфер часов - входной timestamp_in_buffer [7]
  • Буфер ip информации - ipdata
  • Буфер размера карты - sizecard

Основной блок команд

Команда посылается в CSR, в разряды 5-0. Пересылать следует только словом, байтовая запись недопустима. Разряды команды только для записи, читается всегда ноль. Коды команд приведены восьмеричные.

Данные команды используют основной буфер для своей работы (IOBUF  [258]).

000: Сброс контроллера

Код команды - 000. Команда останавливает, если возможно, все операции контроллера. Её окончания следует дождаться посредством поллинга.
Пример программы:

;.............................
        MOV     #AZ$CSR,R3
1$:     CLR     @R3; Пошлем команду "Сброс"
        TSTB    @R3; Проверим готовность контроллера
        BPL     1$; Если не готов, сбрасываем еще                                                      
               ; раз и проверяем снова
        TST     (R3)+; Проверим на ошибку,
                  ; одновременно сменим адрес
                  ; (пригодится дальше)
        BMI     ERR1
;...............................

Замечание о команде сброса. Вообще-то, она мгновенного действия - если контроллер не занят исполнением операции, которую прерывать нельзя, конкретно - обмен с SD. Пока идет обмен с SD, контроллер не воспринимает никаких команд и команда сброса может быть пропущена. Поэтому, если контроллер занят (бит D7 равен нулю), выдача команды сброса повторяется. Такое встречается достаточно редко (допустим, двойное нажатие Ctrl/C при перезаписи), обычно, при нормальном ходе операций, ожидание записи или чтения производится в специальном месте и, по окончании этой операции, выполняется не сброс, а совсем другие действия.

001: Выбор устройства

Контроллер поддерживает до 32х псевдодисков. Команда "выбор устройства" выбирает для работы один из них. Код команды 001. Для выбора устройства следует переслать в регистр данных (177222) номер накопителя, с которым собираемся работать и затем послать в CSR код 001. Команда выполняется мгновенно, т.е. за время, пока ЦП пересылает код "выбор устройства". ПРи попытке выбрать диск AZ, которому не назначен файл-образ, в бите D15 регистра CSR возвращается ошибка.

Пример программы:

;.......................

SetUni = 001; Символическое наименование команды
     ; "Выбор устройства"

; От предыдущего фрагмента в R3 остался адрес CSR+2=DR

; Считаем, что в R0 в битах 0-3 находится номер
; устройства, остальные биты - нули, процедура
; вычисления этого номера не показана.

        MOV     R0,@R3; Перешлем в DR номер диска AZ, с
               ; с которым собираемся работать

        MOV     #SetUni,-(R3); и пошлем команду "Выбор
; накопителя", с исправлением адреса в R3, который
; теперь снова указывает на CSR.

        TST     (R3)+; Проверим на ошибку и опять
              ; передвинем адрес в R3 на DR
        BMI     ERR2

;........................

002: Установка номера блока, младшие биты номера блока

Контроллер предоставляет машинке с МПИ в качестве дисков AZ0 - AZ7 файл-образы типа DSK на карточке микро-SD. Размер этих файл-образов и, соответственно, псевдодисков, может быть любым, вплоть до 4Г каждый. Адресация на этих псевдодисках прямая - полученный по МПИ номер блока, после сдвига, используется в качестве смещения от начала соответствующего файл-образа. Фактически, это нечто, вроде LBA на PC.

Существуют операционные системы PDP-11, поддерживающие такие диски - RSX-11, ДИАМС, еще что-то. Однако, самая распространенная ОС - RT-11 - использует для номера блока СЛОВО (16 бит), причем код 0177777 кое-где используется в специальных целях и как размер диска не годится, поэтому для RT-11 могут быть использованы диски с максимальным числом блоков 0177776, т.е. 65534 блока (33553408 байт или 32767 К байт). Поэтому команды установки номера блока две: установить младшие биты номера блока - код 002 и установить старшие биты номера блока - код 012. Если номер блока помещается в 16 разрядов (для RT-11 - всегда), достаточно использовать команду установки младших битов номера блока, старшие биты при этом очищаются. Если номер не помещается в 16 разрядов, то сначала надо выдавать младшие биты, а потом старшие. Если попытаться сразу передать старшие биты без предварительной передачи младших, выдается ошибка. Если переданный адрес выходит за границу файл-образа, также выдается ошибка, не важно, на каком этапе - хоть при передаче младших 16 битов номера блока, хоть при передаче старших.

Для выполнения этих действий следует переслать требуемую часть битов номера блока в DR и затем переслать в CSR код команды, после чего следует проверить на ошибку. Команды мгновенные, т.е. выполняются за один цикл обращения по МПИ.

Пример программы в 16-разрядном варианте:

;.......................................

SetBlk=002; Символическое наименование команды
; "Установить младшие 16 разрядов номера блока"

; От предыдущего фрагмента в R3 остался адрес DR
; (177222)
; Считаем, что в ячейке с меткой BLCUR находится 16-
; разрядный дисковый адрес (номер блока, подлежащего
; вводу или выводу). Процедура получения этого номера не
; показана

        MOV     BLCUR,@R3; Помещаем в DR номер блока,
                  ; подлежащего обмену.

        MOV     #SetBlk,-(R3); Посылаем команду в CSR
; не забываем, адрес в R3 перед пересылкой уменьшится на
; 2 и таким останется

        TST     @R3; Проверяем на ошибку

        BMI     ERR3

; В 32-разрядном варианте те же действия следует
; повторить для старших 16 разрядов (на самом деле,
; старших 7, остальные должны быть нулями, ибо максимум
; размера псевдодиска - 4Г) дискового адреса.

; Обратите внимание, что в R3 остался адрес CSR, а не
; DR, как в двух предыдущих фрагментах. Это сделано
; специально.

;.......................................

003: Открыть оглавление HFS

Последовательность действий

сбросить контроллер
• подать в CSR команду "Принять блок данных в буфер" и передать пословно всю строку с полным текстом пути (Full Path) к требуемому оглавлению. Строка должна завершаться нулевым байтом (0х00) и быть не длиннее 384 байт (192 слов).
• переслать в CSR код команды "Открыть оглавление"
• дождаться ее окончания (команда длительная)
• проверить на ошибку

Пример утилиты - AZDIR

Пример программы:

;.............................
AZ$CSR = 177220
WrBuf = 016
OpnDir = 003

        MOV     #AZ$CSR,R3

; Ячейка DirPtr содержит указатель на начало поля с Full
; Path. Считаем, что строка завершается тремя нулевыми
; байтами, чтобы распознать по нулю окончание пересылки
; строки пословно. Действительно, если количество
; символов в строке четное, то следующие два байта нулей
; образуют нулевое слово; если же нечетное, то один ноль
; уйдет вместе с последним символом строки, а нулевое
; слово образуют второй и третий нулевые байты,
; оканчивающие строку. То есть, такое окончание строки,
; передаваемой пословно, вполне надежно.
        MOV     DirPtr,R2

        MOV     #WrBuf,(R3)+; Подаем команду "Запись в
                     ; буфер" и передаем строку
11$:    MOV     (R2)+,@R3; пословно, до тех пор,
        BNE     11$  ; пока не перешлется ноль

        MOV     #OpnDir,-(R3); Подаем команду "Открыть
                       ; оглавление"

12$:    TSTB    @R3; и ждем, когда контроллер ее
        BPL     12$; выполнит,
        TST     @R3; после чего проверяем на ошибку.
        BMI     Err10; Ошибка -->
;.............................

004: Монтировать диск

Порядок действий:
Сбросить контроллер
• Переслать в контроллер строку с записью, подобной строкам описания дисков в файле AZ.INI
• Выдать команду "Монтировать диск"
• Дождаться ее окончания (команда длительная)
• Проверить на ошибки
На выбранный накопитель AZnn НЕ ДОЛЖЕН быть смонтирован диск. Если он таки смонтирован, перед монтированием туда нового диска следует размонтировать старый - команда 014
 

Пример программы:

;..................
AZMNT = 004
MDLEN = MDEND-MDTXT+2

        MOV     #AZ$CSR,R3

20$:    CLR     @R3;
        TSTB    @R3; Сбросим контроллер
        BPL     20$;

        MOV     #WrBuf,(R3)+; Перешлем в него строку
        MOV     #MDTXT,R2; с командой назначения
        MOV     #MDLEN/2,R1;
21$:    MOV     (R2)+,@R3;
        SOB     R1,21$;

        MOV     #AZMNT,-(R3); и отдадим ее на
22$:    TSTB    @R3   ; исполнение
        BPL     22$   ;

        TST     @R3; после чего проверим на ошибку
        BMI     Err11;
;.........................

MDTXT:  .ASCII  "D04=0:/DISKS/SYSTEM/51SYS_DS.DSK"
MDEND:  .BYTE   0,0
;..................

В этом фрагменте на диск AZ4 монтируется файл-образ 51SYS_DS.DSK, лежащий в папке SYSTEM, которая лежит в папке DISKS, лежащей в корневом оглавлении карточки микро-SD.

005: Чтение блока в буфер

У контроллера имеется встроенный буфер на 256 слов (512 байт). Фактически, это часть оперативной памяти микроконтроллера STM32, выделенная в его программе под этот буфер. Весь обмен в основном блоке команд идет через этот буфер.

Память дисков AZ представлена, как набор блоков объемом 512 байт каждый. Такой блок - единственная доступная единица для обмена данными с дисками AZ. Блоки пронумерованы от нуля до 65533 для 16-разрядного варианта или до 8388607 для 32-разрядного - это при использовании накопителей AZ максимально допустимой емкости. Никто не мешает использовать накопители меньшей емкости - фактический размер накопителя равен размеру файл-образа, смонтированного на этот накопитель. При попытке обратиться за пределы файл-образа будет зарегистрирована ошибка.

Команда 005 - чтение блока с MicroSD в буфер. С псевдодиска AZn, выбранного ранее командой "Выбор устройства" запускается на чтение блок, номер которого передан командой (командами) "Установка номера блока". Команда длительного действия.

Фактически, блок с карточки MicroSD читается, примерно, 500-800 мкс. На это время контроллер переходит в состояние, которое во время обсуждения проекта получило название "Думаю, прошу не мешать." А именно, на все время ее исполнения отключаются все регистры устройства, кроме CSR, в котором считывается ноль до тех пор, пока контроллер занят исполнением этой команды. По окончании считывания блока к МПИ подключаются остальные регистры контроллера, взводится бит D7 (готовность) в CSR и, если был установлен бит D6 (разрешение прерываний) в CSR, вырабатывается прерывание с вектором 0174.

Пример без прерываний тривиален:

;...................................

CmdRea=005; символическое наименование команды "Читать
; блок"

; В R3 у нас от предыдущего фрагмента остался адрес CSR.
; Пересылаем туда код  команды чтения
        MOV     #CmdRea,@R3
2$:     TSTB    @R3   ; Проверим бит готовности
        BPL     2$; Не готово -> уходим проверять еще
            ; раз
        TST     @R3; Проверим на ошибку
        BMI     ERR4
; Здесь у нас опять, в отличие от фрагментов пп. 3.1 и
; 3.2, в R3 остался адрес CSR, а не DR.

;...................................

006: Записать блок из буфера на диск

Код команды 006. Содержимое буфера пишется на выбранный псевдодиск по заданному дисковомк адресу (номеру блока). Перед записью выполняются проверки (1) "была ли запись в буфер?", если нет, выдается ошибка и (2) "заполнен ли буфер полностью?", если нет (для последнего укороченного блока файла), остаток буфера очищается нулями. Далее производится запись блока на носитель. Операция длительная, после ее запуска контроллер, как и при чтении переходит в состояние "Думаю, прошу не мешать". И так же, как и при чтении окончания этой операции надо дождаться, теми же средствами, как и при чтении.

Пример программы без прерываний:

;...............................................................

CmdWri=006; символическое наименование команды "Писать
   ; блок"

; В R3 у нас от предыдущего фрагмента остался адрес DR.
; Исправляем его на CSR и пересылаем туда код  команды
; записи
        MOV     #CmdWri,-(R3)
5$:     TSTB    @R3   ; Проверим бит готовности
        BPL     5$; Не готово -> уходим проверять еще
            ; раз
        TST     @R3; Проверим на ошибку
        BMI     ERR5

;....................................................................

007: Получить размер псевдодиска

Есть две команды получения размера псевдодиска, т.е. смонтированного на выбранный псевдопривод AZn файл-образа.

Если используемая ОС (или программа, работающая с дисками без ОС) умеет работать с большими (больше 32М) дисками, следует пользоваться командой с кодом 017. Последовательность действий: сбросить контроллер (команда 000), выбрать накопитель (п. 3.2) и переслать в CSR код 017, а затем, без каких-либо ожиданий, считать из DR сначала младшее, и следом за ним старшее слово размера выбранного накопителя (файл-образа).

Если используемая ОС не умеет работать с дисками бОльшими, чем 32М (RT-11), следует пользоваться командой 007 - получить размер псевдодиска с ограничением до 32М. Действия похожие: сбрасываем контроллер, выбираем диск, посылаем в CSR код 007 и считываем из DR одно слово размера псевдодиска. Если размер файл-образа, смонтированного на выбранный псевдопривод, больше 65534 блоков, вместо этого "большого" размера, контроллер возвращает число 65534. Напоминаем, что число 65535 кое-где используется в специальных целях и не может быть размером диска.

Также напоминаем, что если на этот накопитель не смонтирован файл-образ, последовательность действий не пройдет (команда 001 выбор устройства) и исполнение программы до этого места просто не дойдет. Поэтому ошибок у этих команд не предусмотрено.

Пример программы с "малыми" дисками

;......................................

GetSiz=007; Получить "малый" размер диска

; От фрагмента 3.2 (выбор диска) у нас в R3 остался
; адрес DR (177222)

        MOV     #GetSiz,-(R3); пошлем команду
        TST     (R3)+; вернем адрес в R3 назад, на DR
        MOV     @R3,DskSiz
;......................................

010: Разрешить работу сети

Код команды 010. Закончив последовательность действий по передаче очередной порции данных, и ожидая, что следующий запрос последует не сразу же, можно "утилизировать" процессорное время микроконтроллера STM32, составляющего основу AZ - занять его обслуживанием сети. В той же RT-11 это можно сделать перед выходом из драйвера AZ, перед макрокомандой .DRFIN, завершающей исполнение запроса ввода-вывода.

Действительно, операция ввода-вывода завершена, программа ЦП в системе будет готовить новую порцию данных для вывода, или соображать (на основании предыдущих прочитанных данных), где ей еще что-то прочитать, или вообще размышлять о чем-то своём. smile.gif Другими словами, после окончания запроса ввода-вывода, довольно высока вероятность того, что последует пауза в работе с дисками AZ. Вот, время этой паузы и можно отдать на обслуживание сети. Для этого, перед исполнением макрокоманды .DRFIN в RT-11 или ее аналога в других ОС следует отправить в CSR код 110 (разрешить сеть плюс разрешить прерывания).

Прерывание в этом случае не произойдет, оно активируется только по завершении "длительных" операций, которые переводят контроллер в состояние "Думаю, прошу не мешать", а установленный в "1" триггер разрешения прерываний, кроме этого, разрешает еще и работу сети, если она активирована. При запуске следующей операции ввода-вывода действия в п. 3.1 (сброс контроллера) сбросят и этот триггер, после чего программа обслуживания сети, обнаружив сброс этого триггера, прекратит (приостановит) свою работу и вернет управление основной программе обслуживания дисков AZ. Максимум, что можно заметить со стороны ЦП - это небольшая (10-20 мкс) задержка исполнения команды сброса, но это вполне умеренная плата за сетевые возможности.
 

011: Получить таблицу назначений приводов AZn

Код команды 011. Получив эту команду, контроллер переключается с буфера для блока на свою внутреннюю таблицу назначений (32 строки по 140 байт каждая)* . Перед выдачей этой команды следует сбросить контроллер. После выдачи этой команды следует выдать команду 015 (чтение буфера), но в этом случае будет читаться не буфер, а та самая таблица, последовательно, слово за словом.

* начиная с версии v17, длина имени файла уже не 130 байт, а 386 байт (последнее слово - нулевое, для окончания строки)

пример утилиты AZSMNT

Пример программы:

;...................................
AZ$CSR = 177220; CSR контроллера
RdBuf = 012; Команда "Читать из памяти контроллера"
RdTbl = 011; Команда "Читать таблицу назначений"
TblSiz = 1120.; Длина таблицы в байтах (десятичная)

; Считаем, что в R2 находится адрес первого слова
; области памяти для таблицы назначений. Процедуру
; получения этого адреса не показываем.

        MOV     #AZ$CSR,R3; Готовим CSR контроллера
10$:    CLR     @R3;
        TSTB    @R3; Сбросим контроллер
        BPL     10$;

        MOV     #RdTbl,@R3; Команда "Передать
                     ; таблицу"

        MOV     #RdBuf,(R3+); Команда "Читать из
; памяти контроллера. Одновременно передвинем адрес в R3
; на DR контроллера (177222).

        MOV     #TblSiz/2,R1; Готовим счетчик слов

11$:    MOV     @R3,(R2)+; Перешлем текущее слово
        SOB     R1,11$; и повторим 560 раз
;...................................

012: Установка номера блока, старшие биты номера блока

Контроллер предоставляет машинке с МПИ в качестве дисков AZ0 - AZ7 файл-образы типа DSK на карточке микро-SD. Размер этих файл-образов и, соответственно, псевдодисков, может быть любым, вплоть до 4Г каждый. Адресация на этих псевдодисках прямая - полученный по МПИ номер блока, после сдвига, используется в качестве смещения от начала соответствующего файл-образа. Фактически, это нечто, вроде LBA на PC.

Существуют операционные системы PDP-11, поддерживающие такие диски - RSX-11, ДИАМС, еще что-то. Однако, самая распространенная ОС - RT-11 - использует для номера блока СЛОВО (16 бит), причем код 0177777 кое-где используется в специальных целях и как размер диска не годится, поэтому для RT-11 могут быть использованы диски с максимальным числом блоков 0177776, т.е. 65534 блока (33553408 байт или 32767 К байт). Поэтому команды установки номера блока две: установить младшие биты номера блока - код 002 и установить старшие биты номера блока - код 012. Если номер блока помещается в 16 разрядов (для RT-11 - всегда), достаточно использовать команду установки младших битов номера блока, старшие биты при этом очищаются. Если номер не помещается в 16 разрядов, то сначала надо выдавать младшие биты, а потом старшие. Если попытаться сразу передать старшие биты без предварительной передачи младших, выдается ошибка. Если переданный адрес выходит за границу файл-образа, также выдается ошибка, не важно, на каком этапе - хоть при передаче младших 16 битов номера блока, хоть при передаче старших.

Для выполнения этих действий следует переслать требуемую часть битов номера блока в DR и затем переслать в CSR код команды, после чего следует проверить на ошибку. Команды мгновенные, т.е. выполняются за один цикл обращения по МПИ.
 

013: Прочитать запись оглавления HFS

Код команды 013, команда читает запись оглавления во внутреннюю область памяти и переключает на нее указатель для передачи данных через DR. Оглавление перед этим должно быть открыто. Порядок действий следующий:
• Сбросить контроллер.
• Выдать в CSR команду "Прочитать запись оглавления" и дождаться ее окончания.
• Выдать в CSR команду "Прочитать из памяти контроллера"
• Прочитать из DR 11 слов записи оглавления

Запись оглавления имеет формат:

См. Имя Значение
0 fSize Размер файла в байтах, младшее слово
2 старшее слово
4 fDate Дата в формате MS-DOS
6 fTime Время в формате MS-DOS
10 fAttr Атрибуты 1 байт
11 fName ИМЯ.ТИП файла, 8+1+3+1 = 13 байт

Смещения указаны восьмеричные. Формула в строке fName означает, что там сначала должно быть имя, максимально из восьми символов, далее должна быть точка, далее тип, до трёх символов, и завершающий нулевой байт 0х00. Если тип не указан, точка тоже не нужна.

Атрибуты файлов в байте fAttr (восьмеричные):

001 - Read Only
002 - Hidden
004 - System
020 - Directory
040 - Archive

Пример программы.

;......................................
RdDir = 013; код команды "Читать запись оглавления"
RdBuf = 015

        MOV     #AZ$CSR,R3

15$:    CLR     @R3;
        TSTB    @R3;  Сбросим контроллер
        BPL     15$;

        MOV     #RdDir,@R3; Попросим контроллер
16$:    TSTB    @R3; прочитать в свою память
        BPL     16$; запись оглавления

        MOV     @RdBuf,(R3)+;
        MOV     DIRREC,R2; И перенесем ее к себе в
        MOV     #11.,R1; область памяти, указатель
17$:    MOV     @R3,(R2)+; на которую лежит в ячейке
        SOB     R1,17$; DIRREC.

;......................................

014: Размонтировать диск

Код команды 014, чтобы размонтировать диск, следует сбросить контроллер, переслать в DR контроллера номер привода AZ, который следует размонтировать, и послать в CSR контроллера код 014, после чего дождаться окончания операции (она длительная) и проверить на ошибку. Ошибка выдается, если привод не был смонтирован.
пример утилиты AZUMNT

015: Начать передачу считанного блока

Код команды - 015. Получив эту команду, контроллер настраивается на пословную выдачу содержимого того самого встроенного буфера на 256 слов, которые будут выданы последовательно через регистр DR. Никаких ожиданий не требуется, просто пересылаем 256 раз слово из DR в последовательные ячейки памяти, и все. Если нужно меньше, чем 256 слов (последний укороченный блок файла), то остаток можно просто бросить, не считывая, сброс контроллера в начале следующей операции сбросит и этот остаток.

Пример программы:

;..................................
RdBuf=015; символическое наименование команды

; В R3 от предыдущего фрагмента остался адрес CSR
; (177220)

; Считаем, что у нас в R2 находится адрес первого слова
; памяти, куда следует разместить прочитанный блок.
; Программа получения этого адреса не приводится.

        MOV     #400,R1; Готовим счетчик слов
                 ; 0400 oct = 256 dec

        MOV     #RdBuf,(R3)+; и пересылаем команду
; RdBuf в CSR. Адрес в R3 укажет на DR (177222).

3$:     MOV     @R3,(R2)+;перешлем очередное слово в
                  ; память
        SOB     R1,3$; и повторим это 256 (0400)
                  ; раз
;..................................

Всё, чтение закончено.

Для записи наоборот, требуется сначала перенести весь блок данных из памяти ЦП в контроллер и потом выдать команду "Записать содержимое буфера на диск"

016: Принять блок данных в буфер

Код команды 016. Команда настраивает контроллер на прием блока данных и помещении его в буфер. Следующие 256 циклов записи в DR поместят данные, переданные через МПИ, в буфер.

Пример программы.

;..................................

WrBuf=016; Символическое наименование команды

; Перед записью нужно выполнить те же действия, что и в
; пп. 3.1.-3.3. Обычно, это одна и та же программа,
; просто после пункта 3.3. выполняется проверка "Что
; требуется: чтение или запись?" и разветвление на
; программу чтения или записи.

; После фрагмента в п. 3.3. в R3 остался адрес CSR
; (177220). Будем считать, что в R2 находится адрес в
; памяти ЦП, где находится блок, подлежащий записи.
; Программа получения этого адреса не показана.

        MOV     #400,R1; Готовим счетчик

        MOV     #WrBuf,(R3)+; Перешлем команду в CSR и
                     ; переключим адрес в R3 на
                     ; DR

4$:     MOV     (R2)+,@R3; Перешлем очередное слово
                  ; данных
        SOB     R1,4$; и повторим это 256 раз
;..................................

017: Получить размер псевдодиска, большой

Есть две команды получения размера псевдодиска, т.е. смонтированного на выбранный псевдопривод AZn файл-образа.

Если используемая ОС (или программа, работающая с дисками без ОС) умеет работать с большими (больше 32М) дисками, следует пользоваться командой с кодом 017. Последовательность действий: сбросить контроллер (п. 3.1), выбрать накопитель (п. 3.2) и переслать в CSR код 017, а затем, без каких-либо ожиданий, считать из DR сначала младшее, и следом за ним старшее слово размера выбранного накопителя (файл-образа).

Если используемая ОС не умеет работать с дисками бОльшими, чем 32М (RT-11), следует пользоваться командой 007 - получить размер псевдодиска с ограничением до 32М. Действия похожие: сбрасываем контроллер, выбираем диск, посылаем в CSR код 007 и считываем из DR одно слово размера псевдодиска. Если размер файл-образа, смонтированного на выбранный псевдопривод, больше 65534 блоков, вместо этого "большого" размера, контроллер возвращает число 65534. Напоминаем, что число 65535 кое-где используется в специальных целях и не может быть размером диска.

Также напоминаем, что если на этот накопитель не смонтирован файл-образ, последовательность действий не пройдет (команда 001 выбор устройства) и исполнение программы до этого места просто не дойдет. Поэтому ошибок у этих команд не предусмотрено.

Пример программы с большими дисками

;......................................

GetBig=017; Получить "большой" размер диска

; От фрагмента 3.2 (выбор диска) у нас в R3 остался
; адрес DR (177222)

        MOV     #GetBig,-(R3); пошлем команду
        TST     (R3)+; вернем адрес в R3 назад, на DR
        MOV     @R3,BigSiz
        MOV     @R3,BigSiz+2
;......................................

020: Получить расширенный код диагностики

Код команды 020, после сброса контроллера следует выдать эту команду в CSR и затем прочитать два слова расширенной диагностики из DR. Команда мгновенная, ожидание не требуется.

027: Получить версию firmware AZ STM32

Код команды 027, возвращает 2 слова

первое слово - 06404 = старший байт 13. это версия прошивки, младший байт 4. это версия железа - те AZБК в данном случае
второе слово - 037 = это максимальный монтируемый диск - 31.

;-------------------------------------------------------------
; получение версии прошивки STM32 - результат в R1  R1=0 ошибка
GTSTMV:         MOV     #AZ$CSR,R1
1$:             CLR     (R1)            ; Пошлем команду "Сброс"
                TSTB    (R1)            ; Проверим готовность контроллера
                BPL     1$              ; Если не готов, сбрасываем еще
                mov     #27,(R1)
                TST     (R1)+           ; Проверяем на ошибку
                BMI     2$
                mov     (R1),R1
                return
2$:             CLR     R1
                return
;-------------------------------------------------------------

030:  Нет операции

Основное назначение этой команды - устанавливать бит разрешения прерываний от контроллера. Команда передает бит разрешения прерывания, который находится с ней в одном слове, но не входит в ее состав (напоминаем, команда располагается в битах D0 - D5, а бит разрешения прерываний - D6), в соответствующий триггер контроллера и больше никак не влияет на процессы в контроллере. Управление этим триггером работает даже в состоянии "Думаю, прошу не мешать", и это главная особенность команды "нет операции".

Команда имеет код 0030. Посылка в CSR кода 0130 разрешит прерывания от контроллера, посылка кода 0030 запретит их. Пример не приводится вследствие тривиальности его.

Блок команд работы с энергонезависимой памятью

Интерфейс предоставляет любому AZ-контроллеру доступ к 255 словам энергонезависимой памяти, все команды устанавливают бит готовности по завершению. Это позволяет сохранять пользовательские настройки в энергонезависимой памяти, к примеру это используется в AZБК - там сохраняются настройки для более комфортной работы контроллера.

Все команды этого блока используют буфер энергонезависимой памяти для своей работы.

021: Cчитать блок энергонезависимой памяти в буфер

Код команды 021, данная команда вызывает чтение блока энергонезависимой памяти в буфер энергонезависимой памяти.

022: Отдать на шину считанный блок энергонезависимой памяти из буфера

Код команды 022, данная команда обеспечивает передачу буфера энергонезависимой памяти в регистр DR для считывания.

Пример программы

AZ$CSR      = 177220; регистр команд и состояния (CSR)
AZ$DR       = 177222; регистр данных (DR)


; trap 50 - cброс AZ
; результат в R1  =0 ok
AZreset:        MOV     #AZ$CSR,R1
1$:             CLR     (R1); Пошлем команду "Сброс"
                TSTB    (R1); Проверим готовность контроллера
                BPL     1$; Если не готов, сбрасываем еще
            ; раз и проверяем снова
                TST     (R1); Проверим на ошибку,
                BMI     0ERR$
                CLR     R1
                return
0ERR$:          CLR     R1
                COM     R1
                return


; trap 54 - чтение энергонезависимой памяти блока 1 EEPROM в буфер с адреса ADREEPROMMEM
; результат R3 - адрес, если R3=0 ошибка
; статус чтения в R1 0 - ok
; 1 - размер не соответствует сохраненному
; 2 - oшибка версии
; 3 - oшибка контрольной суммы
ReadEEPROM:     push    R2
                call    AZreset; сбросим
                tst     R1
                bne     0ERR$
; теперь читаем
                MOV     #AZ$CSR,R1
                mov     #21,(R1); считать блок 1 энергонезависимой памяти в буфер
0$:             TSTB    (R1); проверяем результат выполнения
                BPL     0$; ждем
                mov     #22,(R1); отдать на шину считанный блок  энергонезависимой памяти из буфера
1$:             TSTB    (R1); проверяем результат выполнения
                BPL     1$; ждем
                TST     (R1)+; инкрементируем
                mov     #ADREEPROMMEM,R3
                mov     #256.,R2; читаем 256. слов; первое слово - результат чтения
2$:             mov     (R1),(R3)+; читаем блок слов в память
                sob     R2,2$
                mov     #ADREEPROMMEM,R3; успешно
                mov     (R3),R1
                br      0END$
0ERR$:          CLR     R3
0END$:          pop     R2
                return

очевидно, после считывания памяти необходимо проверить код результата в первом слове - см расшифровку кодов ошибок

Примеры возвращаемых данных по командам

последовательная подача команды 021 и затем 022 позволит считать 256. слов
из энергонезависимой памяти
Внимание! первое слово это будет статус успешности чтения
 

  • 0 - ok
  • 1 - размер не соответствует сохраненному
  • 2 - oшибка версии
  • 3 - oшибка контрольной суммы

023: Принять с шины в буфер данные для последующей записи в буфер

Код команды 023, данная команда позволяет наполнить буфер энергонезависимой памяти

024: Записать из буфера в блок энергонезависимой памяти

Код команды 024, данная команда вызывает запись блока энергонезависимой памяти из буфера энергонезависимой памяти.

Пример программы

AZ$CSR      = 177220; регистр команд и состояния (CSR)
AZ$DR       = 177222; регистр данных (DR)


; trap 50 - cброс AZ
; результат в R1  =0 ok
AZreset:        MOV     #AZ$CSR,R1
1$:             CLR     (R1); Пошлем команду "Сброс"
                TSTB    (R1); Проверим готовность контроллера
                BPL     1$; Если не готов, сбрасываем еще
            ; раз и проверяем снова
                TST     (R1); Проверим на ошибку,
                BMI     0ERR$
                CLR     R1
                return
0ERR$:          CLR     R1
                COM     R1
                return

; trap 55 - запись энергонезависимой памяти из буфера с адреса ADREEPROMMEM в блок 1 EEPROM
WriteEEPROM:    push    R1
                push    R2
                push    R3
                call    AZreset; сбросим
                tst     R1
                bne     0ERR$

                MOV     #AZ$CSR,R1
                mov     #23,(R1); командуем что будем писать данные в буфер
0$:             TSTB    (R1); проверяем результат выполнения
                BPL     0$; ждем
                TST     (R1)+; инкрементируем
                mov     #ADREEPROMMEM+2,R3
                mov     #255.,R2; пишем 255. слов; первое слово пропускаем - результат чтения
1$:             mov     (R3)+,(R1); отдаем в контроллер
                sob     R2,1$
                tst     -(R1); декрементируем
                mov     #24,(R1); записать из буфера в блок 1 энергонезависимой памяти
2$:             TSTB    (R1); проверяем результат выполнения
                BPL     2$; ждем
                br      0END$
0ERR$:          CLR     R3
0END$:          pop     R3
                pop     R2
                pop     R1
                return

Обращаю внимание, при записи, буфер идет сразу с данными, те нет первого слова со статусом.

Блок команд для работы с RTC и NTP

В контроллере AZ®  есть 2 источника получения даты-времени, первый это RTC встроенный в STM32, второй это часы в стеке TCP/IP.  Часы RTC работают автономно при наличии установленной батарейки 2032. Часы в стеке TCP/IP устанавливаются на основании данных с NTP-сервера.

Формат буфера timestamp (доступен по чтению)

API контроллера сразу готовит время в нескольких форматах, дабы его было удобно применить на стороне PDP-11

Information

формат буфера даты-времени
offset в восьмеричной системе - те слова
формат буфера даты-времени

[0]=rtc_rt11date();
[2]=rt11 time 50Hz big word;
[4]=rt11 time 50Hz little word;
[6]=rt11 time 60Hz big word;
[10]=rt11 time 60Hz little word;
[12]=rtc_fat_date();
[14]=rtc_fat_time();
[16]=year+2000;
[20]=month;
[22]=day;
[24]=wday;
[26]=hour;
[30]=min;
[32]=sec;

Формат буфера SimpleIN (при записи)

формат максимально упрощен, для работы со стороны PDP-11

Information

offset в восьмеричной системе - те слова

[0]=year       год, младшие две цифры - те 22 а не 2022error
[2]=month;     месяц
[4]=day;       день
[6]=wday;      день недели =0 не установлен, 1- понедельник 2 - вторник итд
[10]=hour;     час
[12]=min;      минута
[14]=sec;      секунда

031:  Получить время из RTC в буфер timestamp

Код команды 031, данная команда использует RTC часы как источник заполнения буфера timestamp

Пример программы:

; trap 61 - чтение данных часов из автономных часов RTC
; R3 - адрес буфера куда надо считать
; результат в R3 адрес, если успешно. R3=0  если ошибка
GetDateFromRTC: push    R0
                push    R1
                push    R2
                call    AZreset; сбросим
                tst     R1
                bne     G60ERR
                MOV     #AZ$CSR,R1
                mov     #31,(R1)
                br      G60; идем туда тк дальше код одинаковый

032:  Получить время из буфера timestamp

Код команды 032, данная команда отдает на шину содержимое буфера timestamp

; работа с часами
; trap 60 - чтение данных часов из TCP/IP стека
; R3 - адрес буфера куда надо считать
; результат в R3 адрес, если успешно. R3=0  если ошибка
GetDateFromLAN: push    R0
                push    R1
                push    R2
                call    AZreset; сбросим
                tst     R1
                bne     G60ERR
                MOV     #AZ$CSR,R1
                mov     #42,(R1)
G60:            TSTB    (R1); проверяем результат выполнения
                BPL     G60; ждем
                mov     #32,(R1)
1$:             TSTB    (R1); проверяем результат выполнения
                BPL     1$; ждем
                TST     (R1)+; инкрементируем
                mov     R3,R0; запомним R3 - адрес
                mov     #10.,R2; читаем 10 слов
2$:             mov     (R1),(R3)+; читаем блок слов в память
                sob     R2,2$
                mov     R0,R3; успешно, вернем адрес в R3
                br      0END$
G60ERR:         CLR     R3
0END$:          pop     R2
                pop     R1
                pop     R0
                return

Стоит проверить корректность полученного времени:

; trap 63 - проверка корректности времени
; R3 - адрес буфера, результат в R3, если адрес буфера то OK, =0 ошибка
CheckDateTime:  Cmp     6(r3),#2021.
                Blos    1err
                Cmp     6(r3),#2100.
                Bhi     1err
0ok$:           return
1err$:          clr     R3
                return

033:  Запись времени-даты в буфер SimpleIN

Код команды 033, данная команда  принимает с шины данные в буфер SimpleIN

Работа данной команды аналогична работе команд 023 и 016

034:  Установка RTC на основании данных из буфера

Код команды 034, данная команда  устанавливает RTC на основании данных в буфере SimpleIN

Данная команда выполняется быстро, но для исключения проблем цикл ожидания выполнения рекомендуется.

035:  Стимуляция запроса времени с NTP сервера, установка на основании ответа

Код команды 035, данная команда отправляет запрос на NTP cервер (установленный в AZ.INI файле или полученный от DHCP) и устанавливает часы в стеке TCP/IP.

Пример программы: отсылка запроса на установку времени с NTP сервера

; trap 62 - отсылка запроса на установку времени с NTP сервера
GetDateNTPtoNET:push    R1
                call    AZreset; сбросим
                tst     R1
                bne     0ERR$
                MOV     #AZ$CSR,R1
                mov     #35,(R1)
0$:             TSTB    (R1); проверяем результат выполнения
                BPL     0$; ждем
0ERR$:          pop     R1
                return

Выполнение команды занимает 1-2 секунды в среднем. Данная команда требует работы стека TCP/IP, соответственно нужны циклы ожидания при включенном стеке.

Пример цикла опроса с целью получить время с сети

; дата-время
                mov     #S_DateTime_0,R3; "Lan Date:"
                trap    10
                mov     #20,R4; количество циклов ожидания
$datry:         trap    62; отослали запрос к NTP серверу
                mov     #110,@#AZ$CSR; включим сеть
                trap    47; ожидание
                trap    47; ожидание
                mov     #ADRTMPSTR,R3
                trap    60; считали в буфер дату-время
                trap    63; проверили дату-время
                tst     R3
                bne     $ok
$sob:           sob     R4,$datry
                mov     #S_DateTime_2,R3; печать ошибки
                trap    7
                br      $go

$ok:            mov     #ADRTMPSTR,R3
                trap    24; печать даты
                trap    25; времени
$go:            mov     #110,@#AZ$CSR; включим сеть

Тут мы явно отсылаем запрос к NTP серверу, затем включаем работу сети и ждем результата, периодически опрашивая и проверяя корректность результата.

036:  Установка RTC на основании часов TCP/IP стека

Код команды 036,  данная команда устанавливает RTC на основании часов в TCP/IP стека. Предварительно надо установить часы в TCP/IP - команда 036.

Пример программы:

; trap 64 - установка времени RTC на основании времени стека
; R1 - результат  R1=0 - OK
SetDateNETtoRTC:call    AZreset; сбросим
                tst     R1
                bne     0ERR$
                MOV     #AZ$CSR,R1
                mov     #36,(R1)
0$:             TSTB    (R1); проверяем результат выполнения
                BPL     0$; ждем                
                clr     R1
0ERR$:          return

042:  Получить время из часов TCP/IP стека в буфер timestamp

Код команды 042,   данная команда использует часы TCP/IP стека как источник заполнения буфера timestamp.

Пример программы:

; работа с часами
; trap 60 - чтение данных часов из TCP/IP стека
; R3 - адрес буфера куда надо считать
; результат в R3 адрес, если успешно. R3=0  если ошибка
GetDateFromLAN: push    R0
                push    R1
                push    R2
                call    AZreset; сбросим
                tst     R1
                bne     G60ERR
                MOV     #AZ$CSR,R1
                mov     #42,(R1)
G60:            TSTB    (R1); проверяем результат выполнения
                BPL     G60; ждем
                mov     #32,(R1)
1$:             TSTB    (R1); проверяем результат выполнения
                BPL     1$; ждем
                TST     (R1)+; инкрементируем
                mov     R3,R0; запомним R3 - адрес
                mov     #10.,R2; читаем 10 слов
2$:             mov     (R1),(R3)+; читаем блок слов в память
                sob     R2,2$
                mov     R0,R3; успешно, вернем адрес в R3
                br      0END$
G60ERR:         CLR     R3
0END$:          pop     R2
                pop     R1
                pop     R0
                return

все команды устанавливают бит готовности по завершению.

Команды специфические для AZБК®

Данные команды предназначены для работы контроллера AZБК®, разработанного для серии компьютеров БК - БК-0010/БК-0010.01/БК-0011М.

Другие контроллеры AZ® игнорируют эти команды

037: перезапуск контроллера AZБК® и всей БК

Код команды 037,  данная команда осуществляет перезапуск микроконтроллера AZ®, что вызывает и перезапуск самой БК-0010/БК-0010.01/БК-0011М

Пример программы

AZ$CSR      = 177220; регистр команд и состояния (CSR)
AZ$DR       = 177222; регистр данных (DR)


; trap 57 - перезапуск БК полный
AZcouldReboot:  call    AZreset; сбросим AZ дабы он был готов принимать команды
                mov     #037,@#AZ$CSR
                return

044: Cохранение скриншота в файл

Код команды 044,  данная команда предназначена для снятия образа памяти указанного размера (или определенного автоматически на основании сохраненных параметров)
технически команда может служить как средство отладки ибо способная снимать образ памяти
общее ограничение на снятие образа памяти - 2МБ на один образ

в качестве параметров используется служебная страница памяти 76(8)

Структура заполнения информации о скриншоте 

// структура хидера скриншота
typedef __packed struct screen_header
{
   unsigned short int                tag;                    // должен быть равен 0240
   
 unsigned int                             begin_adress;    // начальный адрес в словах - прямая задача в физических адресах
   unsigned int                             length;                // длина в словах - прямая задача в физических адресах
   
   unsigned short int                begin_page;        // начальная страница - номер - прямая задача в номерах страниц
   unsigned short int                len_pages;        // количество страниц - прямая задача в номерах страниц
   
   unsigned short int                R177300;            //
   unsigned short int                R177302;            //
   unsigned short int                R177304;            //
   unsigned short int                R177306;            //
   unsigned short int                R177310;            //
   unsigned short int                R177312;            //
   unsigned short int                R177314;            //
   unsigned short int                R177316;            //
   unsigned short int                R177320;            //
   unsigned short int                R177322;            //
   unsigned short int                R177324;            //
   unsigned short int                R177326;            //
   unsigned short int                R177330;            //
   unsigned short int                R177332;            //
   unsigned short int                R177334;            //    
   unsigned short int                R177336;            //
   unsigned short int                R177340;            // - Регистр управления активацией окно - маски окон
   unsigned short int                R177342;            // - Регистр управления r/o на окно
   unsigned short int                R177344;            // - Регистр управления shadow окон - маски окон
   unsigned short int                R177346;            // - Регистр управления маппером
   unsigned short int                R177350;            // - регистр копия по записи 177130 в режиме записи управления памятью в SMK    
 unsigned short int                R177352;            // - регистр копия по записи 177716 в режиме записи управления памятью в БК11М
   
   unsigned short int                R177230;            // - регистр управления
   unsigned short int                R177232;            // - регистр номера страницы начала отображения - верхняя страница (слой 0)
   unsigned short int                R177240;            // - регистр номера страницы начала отображения - средняя страница (слой 1)  
   unsigned short int                R177242;            // - регистр номера страницы начала отображения - нижняя страница  (слой 2)  
   unsigned short int                R177244;            // - регистр вертикального скролинга слой 2
   unsigned short int                R177246;            // - регистр вертикального скролинга слой 1
   unsigned short int                R177250;            // - регистр вертикального скролинга слой 0
   unsigned short int                R177252;            // - регистр гозизонтального скролинга слой 0
   unsigned short int                R177254;            // - регистр гозизонтального скролинга слой 1
   unsigned short int                R177256;            // - регистр гозизонтального скролинга слой 2        
   
   unsigned short int                paldata[338];    //
} screen_header_t;

Пример кода для заполнения страницы памяти

;--------------------------------------------------
; карта 76й страницы - туда мы готовим данные для команды скринщотов
        SCR_PAGE        = 130000             ; 76ую страницу цепляем на место 77й временно - те в окно 130000
        SCR_TAG         = SCR_PAGE+0         ; тут вход - 240 - 1 слово
        SCR_ADDR_CONF   = SCR_TAG+2          ; сюда команду с адресами - адрес+длина 24 бита - 4 слова
        SCR_PAGE_CONF   = SCR_ADDR_CONF+8.   ; сюда команду со страницами - начальная страница и количество страниц - 2 слова
        SCR_MEM_CONF    = SCR_PAGE_CONF+4.   ; cюда конфигурацию памяти из регистров - 22 слова
        SCR_VGA_CONF    = SCR_MEM_CONF+44.   ; сюда конфигурацию видеоконтроллера - 10 cлов
        SCR_PAL         = SCR_VGA_CONF+20.   ; сюда 338. значений(слов) палитры 338 слов
;--------------------------------------------------


; trap 41 - подготовка дефолтной информации для работы функционала скриншотов
PrepSRC:        jsr     R5, PUSHA             ; пакетное сохранение регистров
                mov     @#177326,-(SP)       ; сохраним страницу 130k которая была до вызова
                mov     #76,@#177326         ; цепляем 76ую страницу в окно

                mov     #100377,R3           ; константа-заполнитель
                mov     #SCR_PAGE,R4
                mov     #2047.,R2
4$:             mov     R3,(R4)+
                sob     R2,4$

                mov     #240,@#SCR_TAG       ; проставляем тег

         ; чистим участок адресов - дефолтно автоматическое определение адресов
                clr     R3
                mov     #SCR_ADDR_CONF,R4
                mov     #10,R2
2$:             mov     R3,(R4)+
                sob     R2,2$

         ;конфигурация памяти - дефолтная
                mov     #SCR_MEM_CONF,R4
                mov     #30,(R4)+            ;177300
                mov     #31,(R4)+            ;177302
                mov     #32,(R4)+            ;177304
                mov     #33,(R4)+            ;177306
                mov     #04,(R4)+            ;177310
                mov     #05,(R4)+            ;177312
                mov     #06,(R4)+            ;177314
                mov     #07,(R4)+            ;177316
                mov     #20,(R4)+            ;177320
                mov     #21,(R4)+            ;177322
                mov     #22,(R4)+            ;177324
                mov     #23,(R4)+            ;177326
                mov     #120,(R4)+           ;177330
                mov     #121,(R4)+           ;177332
                mov     #110,(R4)+           ;177334
                mov     #100,(R4)+           ;177336

                mov     #170000,(R4)+        ;177340 - Регистр управления активацией окно - маски окон
                mov     R3,(R4)+             ;177342 - Регистр управления r/o на окно
                mov     #7777,(R4)+          ;177344 - Регистр управления shadow окон - маски окон
                mov     #40404,(R4)+         ;177346 - Регистр управления маппером
                mov     R3,(R4)+             ;177350 - регистр копия по записи 177130 в режиме записи управления памятью в SMK
                mov     #16000,(R4)+         ;177352 - регистр копия по записи 177716 в режиме записи управления памятью в БК11М

         ;конфигурация видеоконтроллера - дефолтная
         ;  177230-177256
                mov     #SCR_VGA_CONF,R4

                mov     #12201,(R4)+         ;177230 - регистр управления
                mov     #4,(R4)+             ;177232 - регистр номера страницы начала отображения - верхняя страница (слой 0)
                mov     R3,(R4)+             ;177240 - регистр номера страницы начала отображения - средняя страница (слой 1) "под спрайты"
                mov     R3,(R4)+             ;177242 - регистр номера страницы начала отображения - нижняя страница (слой 2) "под фон"
                mov     R3,(R4)+             ;177244 - регистр вертикального скролинга слой 2
                mov     R3,(R4)+             ;177246 - регистр вертикального скролинга слой 1
                mov     R3,(R4)+             ;177250 - регистр вертикального скролинга слой 0
                mov     R3,(R4)+             ;177252 - регистр гозизонтального скролинга слой 0
                mov     R3,(R4)+             ;177254 - регистр гозизонтального скролинга слой 1
                mov     R3,(R4)+             ;177256 - регистр гозизонтального скролинга слой 2

         ; закачиваем палитру - берем дефолтную из этой ПЗУшки
                mov     #SCR_PAL,R4
                mov        #PalData,R2
                mov        #338.,R3
1$:             mov     (R2)+,(R4)+
                sob        R3,1$

                mov     (SP)+,@#177326; вернем страницу с которой был вызов
                return

Вариантов указания участков памяти три

  1. указать адрес и длину 24х битные - cм формат, если их нет - система смотрит дальше
  2. указать номер страницы и количество страницы, если их нет
  3. система смотрит дальше - те делает скриншот на основании данных о регистрах 177230 и т.д..

Cкриншот сохраняется в формате
- страница 76 - ее первый килобайт
- сам образ памяти (если режим слоеный - то все три слоя)

Перед вызовом команды можно загрузить имя файла для сохранения скриншота [в cmosmem буфер], однако при его отсутствии (в буфере не будет имени - строки заканчивающейся 0) система сформирует свое имя, на основании следующего правила:
дефолтный путь для сохранения скриншотов
0:/SCREENS/
формат имени - DDHHMISS.SCR
где DD - две цифры дня месяца, HH - час, MI - минута, SS-секунда

Если в процессе выполнения команды возникнет ошибка - вместо имени будет "ERROR *"
к примеру
"ERROR f_open 6"

Пример программы

; обновим информацию в хидере скриншота
;--------------------------------------------------
; карта 76й страницы - туда мы готовим данные для команды скринщотов
        SPAGE        = 170000             ; 76ую страницу цепляем на место 77й временно - те в окно 130000
        STAG         = SPAGE+0         ; тут вход - 240 - 1 слово
        SADDRC   = STAG+2          ; сюда команду с адресами - адрес+длина 24 бита - 4 слова
        SPAGEC   = SADDRC+8.   ; сюда команду со страницами - начальная страница и количество страниц - 2 слова
        SMEMC    = SPAGEC+4.   ; cюда конфигурацию памяти из регистров - 22 слова
        SVGAC    = SMEMC+44.   ; сюда конфигурацию видеоконтроллера - 10 cлов
        SPAL         = SVGAC+20.   ; сюда 338. значений(слов) палитры 338 слов
;--------------------------------------------------

                mov     @#177326,R5       ; сохраним страницу 130k которая была до вызова
                mov     #76,@#177336         ; цепляем 76ую страницу в окно

         ;конфигурация видеоконтроллера
         ;  177230-177256
                mov     #SVGAC,R4

                mov     @#177230,(R4)+;177230 - регистр управления
                mov     @#177232,(R4)+;177232 - регистр  - верхняя страница (слой 0)
                mov     @#177240,(R4)+;177240 - регистр  - средняя страница (слой 1)
                mov     @#177242,(R4)+;177242 - регистр - нижняя страница (слой 2)                
                mov     @#177244,(R4)+;177244 - регистр вертикального скролинга слой 2
                mov     @#177246,(R4)+;177246 - регистр вертикального скролинга слой 1
                mov     @#177250,(R4)+;177250 - регистр вертикального скролинга слой 0
                mov     @#177252,(R4)+;177252 - регистр гозизонтального скролинга слой 0
                mov     @#177254,(R4)+;177254 - регистр гозизонтального скролинга слой 1
                mov     @#177256,(R4)+;177256 - регистр гозизонтального скролинга слой 2

                mov     R5,@#177336; вернем страницу с которой был вызов


         ;-------------------------
                MOV     #AZ$CSR,R3     ; Готовим CSR контроллера
                MOV     #AZ$DR,R4     ; Готовим DR контроллера
20$:            CLR     (R3)         ; Сбросим контроллер
                TSTB    (R3)                
                BPL     20$
               
         ; очистим блок памяти для имени - дабы система сделала дефолтное имя файла
                mov     #23,(R3)     ; командуем что будем писать данные в буфер
128$:           TSTB    (R3)         ; проверяем результат выполнения
                BPL     128$         ; ждем
                clr     R1    

                mov     #256.,R2     ;
129$:           mov     R1,(R4)      ; отдаем в контроллер
                sob     R2,129$


                MOV     #044,(R3)    ; команда скриншот
22$:            TSTB    (R3)         ;
                BPL     22$          ;

         ; получим имя скриншота
                mov     #22,(R3)     ; отдать на шину считанный блок памяти из буфера
121$:           tstb    (R3)         ; проверяем результат выполнения
                bpl     121$         ; ждем
               
                mov     #BUF,R1
                mov     #256.,R2     ; читаем 256. слов; первое слово - результат чтения
122$:           mov     (R4),(R1)+   ; читаем блок слов в память
                sob     R2,122$

                .PRINT  #RESOK
                .Print  #BUF
             
                mov     #110,@#AZ$CSR; включаем сеть по-умолчанию сеть должна быть постоянно включена
                .Exit 

Для распаковки скриншота можно использовать вот эту утилиту 

Команды для работы со стеком TCP/IP

следующие команды работают с буфером информации TCP/IP cтека.

040: Получить ip адрес и прочие настройки стека TCP/IP в буфер

Код команды 040,  данная команда заполняет буфер информацией с TCP/IP cтека текущей (фактической) информацией.

041: Чтение буфера ip адреса

Код команды 041,  данная команда передает буфер на шину 

эта пара команд позволяет получить текущую информацию со стека

  • IP адрес
  • MASK маску
  • GW гейтвей
  • NTP адрес NTP-сервера
  • DNS1 адрес основного DNS
  • DNS2 адрес резервного DNS

соответственно это 12 слов

Пример программы:

; trap 52 - чтение блока IP адресов в блок памяти IPADDDBLOCK (8. ячеек)
; результат в R3 =0 error, иначе адрес куда считано (IPADDDBLOCK)
GetIPaddrs:     push    R1
                push    R2
                call    AZreset; сбросим
                tst     R1
                bne     0ERR$
                MOV     #AZ$CSR,R1
                mov     #40,(R1)
0$:             TSTB    (R1); прочитать адреса в свою память
                BPL     0$; ждем
                mov     #41,(R1)
1$:             TSTB    (R1); подготовить буфер
                BPL     1$; ждем
                TST     (R1)+; инкрементируем
                mov     #IPADDDBLOCK,R3
                mov     #12.,R2
2$:             mov     (R1),(R3)+; читаем блок слов в память
                sob     R2,2$
                mov     #IPADDDBLOCK,R3; успешно
                br      0END$
0ERR$:          CLR     R3
0END$:          pop     R2
                pop     R1
                return

Пример данных

Information

Примеры данных - возвращаемые слова в восьмеричном формате
124300 116400 - IP адрес 192.168.0.157
177777 000377 - MASK маску 255.255.255.0
124300 000400 - GW гейтвей 192.168.0.1
124300 000400 - NTP адрес NTP-сервера 192.168.0.1
124300 050000 - DNS1 адрес основного DNS 192.168.0.90
124300 055000 - DNS2 адрес резервного DNS 192.168.0.80

043: чтение MAC-адреса в ip буфер

Код команды 043, данная команда читает текущий фактический MAC адрес в буфер IP адресов
те сначала 043, а затем 041 команды

Пример программы:

; trap 72 - чтение MAC адреса в блок памяти IPADDDBLOCK (12. ячеек)
; результат в R3 =0 error, иначе адрес куда считано (IPADDDBLOCK)
GetMACaddrs:    push    R1
                push    R2
                call    AZreset     ; сбросим
                tst     R1
                bne     0ERR$
                MOV     #AZ$CSR,R1
                mov     #43,(R1)
0$:             TSTB    (R1)        ; прочитать адреса в свою память
                BPL     0$          ; ждем
                mov     #41,(R1)
1$:             TSTB    (R1)        ; подготовить буфер
                BPL     1$          ; ждем
                TST     (R1)+       ; инкрементируем
                mov     #IPADDDBLOCK,R3
                mov     #12.,R2
2$:             mov     (R1),(R3)+  ; читаем блок слов в память
                sob     R2,2$
                mov     #IPADDDBLOCK,R3; успешно
                br      0END$
0ERR$:          CLR     R3
0END$:          pop     R2
                pop     R1
                retur

Команды для работы с MicroSD картой на файловом уровне

Данные команды предназначены для работы с MicroSD картой на уровне файловой системы и позволяет читать/писать файлы без монтирования файлов как образов дисков.

Эти команды используют буфер 256. слов который задействован в интерфейсе работы с энергонезависимой памятью (см выше команды 022 023)

Ограничения - длина полного пути к файлу  256 байт

050: Установить имя файла который будем читать

Код команды 050,  данная команда устанавливает имя файла который будем читать, при этом производится открытие файла на чтение, а также получение его свойств.

051: Получить размер файла на чтение (или его статус) на МПИ

Код команды 051,  данная команда передает на МПИ размер файла или ошибку его чтения. Размер файла 31бит, старший бит является признаком ошибки. Соответственно максимальный размер файлов с которыми можно работать через этот интерфейс ограничен 2^31 байт (2GB).

формирование ошибки выглядит так:
sizeanyfile=1<<31 + FFres; // если установлен старший бит 32х битного слова - то в младшей части код ошибки

FFres = ошибка FatFS
 

typedef enum {
    FR_OK = 0,                /* (0) Succeeded */
    FR_DISK_ERR,            /* (1) A hard error occurred in the low level disk I/O layer */
    FR_INT_ERR,                /* (2) Assertion failed */
    FR_NOT_READY,            /* (3) The physical drive cannot work */
    FR_NO_FILE,                /* (4) Could not find the file */
    FR_NO_PATH,                /* (5) Could not find the path */
    FR_INVALID_NAME,        /* (6) The path name format is invalid */
    FR_DENIED,                /* (7) Access denied due to prohibited access or directory full */
    FR_EXIST,                /* (8) Access denied due to prohibited access */
    FR_INVALID_OBJECT,        /* (9) The file/directory object is invalid */
    FR_WRITE_PROTECTED,        /* (10) The physical drive is write protected */
    FR_INVALID_DRIVE,        /* (11) The logical drive number is invalid */
    FR_NOT_ENABLED,            /* (12) The volume has no work area */
    FR_NO_FILESYSTEM,        /* (13) There is no valid FAT volume */
    FR_MKFS_ABORTED,        /* (14) The f_mkfs() aborted due to any problem */
    FR_TIMEOUT,                /* (15) Could not get a grant to access the volume within defined period */
    FR_LOCKED,                /* (16) The operation is rejected according to the file sharing policy */
    FR_NOT_ENOUGH_CORE,        /* (17) LFN working buffer could not be allocated */
    FR_TOO_MANY_OPEN_FILES,    /* (18) Number of open files > _FS_LOCK */
    FR_INVALID_PARAMETER    /* (19) Given parameter is invalid */
} FRESULT;

http://elm-chan.org/fsw/ff/doc/open.html

052: Читать блок установленного файла в буфер

Код команды 052,  данная команда осуществляет чтение файла в буфер энергонезависимой памяти.

В итоге схема чтения файла выглядит вот так
023 - заливаем имя файла в буфер
050 - устанавливаем файл на чтение
051 - читаем длину файла или ошибку открытия файла
если ошибка - повторяем сначала 023 050 051
если все ok - приступаем к чтению файла
052 - читает блок файла в буфер
022 - забираем данные из буфера
пары 052 022 повторяем нужное количество раз дабы считать весь файл
как файл будет прочтен - последняя 052 команда закроет его автоматически.
 

Пример программы


                call    AZRST; сбросим

; заливаем в буфер имя файла
7$:             mov     #23,(R1); командуем что будем писать данные в буфер
5$:             TSTB    (R1); проверяем результат выполнения
                BPL     5$  ; ждем
                TST     (R1)+; инкрементируем
                mov     #FILNM,R3
1$:             mov     (R3),(R1); отдаем в контроллер
                tst     (R3)+
                bne     1$
                tst     -(R1); декрементируем


    ; устанавливаем файл на чтение
                mov     #50,(R1); устанавливаем файл на чтение
2$:             TSTB    (R1); проверяем результат выполнения
                BPL     2$  ; ждем


    ; читаем длину файда
                mov     #51,(R1); устанавливаем файл на чтение
3$:             TSTB    (R1); проверяем результат выполнения
                BPL     3$  ; ждем
                TST     (R1)+; инкрементируем
                mov     #FILSZ,R3
                mov     (R1),(R3)+; читаем с контроллера
                mov     (R1),(R3); читаем с контроллера

    ; выведем длину файла на экран
                clr     R0
                mov     #FILSZ+2,R3
                mov     (R3),R1
                call    DNOZ
                mov     -(R3),R1
                call    DNOZ
                .print   #STMS2

    ; читаем файл
                mov     R1,R4; в R1 осталась длина файла
                MOV     #AZ$CSR,R1
                mov     #BUFFL,R5

                bit     #1,R4; если нечетное число байт
                beq     47$
                inc      R4; добавим еще 1 байт тк читаем словами

47$:            tst     R4
                beq     45$ ; уже нечего читать - выходим


                mov     #52,(R1); читаем блок в буфер
4$:             TSTB    (R1); проверяем результат выполнения
                BPL     4$  ; ждем
                mov     #22,(R1); будем читать буфер
51$:            TSTB    (R1); проверяем результат выполнения
                BPL     51$ ; ждем

                cmp     R4,#512.; сравниваем c размером буфера в байтах
                Blos    44$ ; осталось меньше чем буфер


                .print  #STMS1
                mov     #256.,R2
                TST     (R1)+; переходим на регистр данных
46$:            mov     (R1),(R5)+; читаем в буфер
                sob     R2,46$
                sub     #512.,R4; вычитаем
                TST     -(R1); переходим на регистр команд
                br      47$

44$:            .print  #STMS3
                mov     R4,R2
                asr     R2  ; /2 тк читаем словами
                TST     (R1)+; переходим на регистр данных
43$:            mov     (R1),(R5)+; читаем в буфер
                sob     R2,43$


45$:            clr     (R5); проставим конец файла
    ; файл считан - выводим на экран
                .print   #STMS4
                .print  #BUFFL
                .print   #STMS5


                mov     #110,@#AZ$CSR; включаем сеть
                .Exit

053: установить имя файла который будем писать

Код команды 053,  данная команда открывает файл на запись, получает параметры открытия (или ошибки).

054: установка длины файла

Код команды 054,  данная команда устанавливает ожидаемую длину файла, это нужно для корректного формирования файла на файловом уровне MicroSD карты, а также для организации передачи данных.

055: записать в файл данные из буфера

Код команды 055,  данная команда записывает в открытый файл на запись данные из буфера энергонезависимой памяти. Последняя команда 055 автоматически закроет файл по достижению заявленной длины файла.

Схема подачи команд при записи вот такая
023 - заливаем имя файла в буфер
053 - устанавливаем файл на чтение
051 - статус открытия/создания файла
если ошибка - повторяем сначала 023 053 051
если все ok - идем дальше
054 - установка длины файла, те надо сразу объявить какая у нас будет длина файла
023 - заливаем блок данных в буфер
055 - пишем из буфера в файл
пары 023 055 повторяем нужное количество раз дабы записать весь файл
как файл будет записан - последняя 055 команда закроет его автоматически

Пример программы:

; заливаем в буфер имя файла
                MOV     #AZ$CSR,R1
17$:            mov     #23,(R1); командуем что будем писать данные в буфер
15$:            TSTB    (R1)    ; проверяем результат выполнения
                BPL     15$     ; ждем
                TST     (R1)+   ; переходим на регистр данных
                mov     #FILNM2,R3
11$:             mov    (R3),(R1); отдаем в контроллер
                tst     (R3)+
                bne     11$
                tst     -(R1)   ; переходим на регистр команд

        ; устанавливаем файл на запись
                mov     #53,(R1); устанавливаем файл на запись
12$:            TSTB    (R1)    ; проверяем результат выполнения
                BPL     12$     ; ждем


        ; читаем статус создания файла
                mov     #51,(R1)
13$:            TSTB    (R1)    ; проверяем результат выполнения
                BPL     13$     ; ждем
                TST     (R1)+   ; переходим на регистр данных
                mov     #STATS,R3
                mov     (R1),(R3)+; читаем с контроллера
                mov     (R1),(R3); читаем с контроллера

        ; тут надо проверить - если файл создан то оба слова нулевые
                mov     #STATS,R3
                TST     (R3)+
                BNE     66$
                TST     (R3)
                BEQ     60$
66$:            .print  #ERRMS1 ; печать ошибки
                .exit

60$:            MOV     #AZ$CSR,R1
                mov     #54,(R1); установим длину файла который будем писать
23$:            TSTB    (R1)    ; проверяем результат выполнения
                BPL     23$     ; ждем
                TST     (R1)+   ; переходим на регистр данных
                mov     #FILSZ,R3
                mov     (R3)+,(R1); пишем в контроллер
                mov     (R3),(R1); пишем в контроллер

                tst     -(R1)   ; переходим на регистр команд



        ; пишем файл
                mov     @#FILSZ,R4; длина файла
                MOV     #AZ$CSR,R1
                mov     #BUFFL,R5; буфер файла

                bit     #1,R4   ; если нечетное число байт
                beq     147$
                inc      R4   ; добавим еще 1 байт тк читаем словами

147$:           tst     R4      ; проверим длину
                beq     145$    ; уже нечего писать - выходим

                mov     #23,(R1); будем писать в буфер
151$:           TSTB    (R1)    ; проверяем результат выполнения
                BPL     151$    ; ждем

                cmp     R4,#512.; сравниваем c размером буфера в байтах
                Blos    144$    ; осталось меньше чем буфер

                .print  #STMS6  ; заливка полного блока
                mov     #256.,R2
                TST     (R1)+   ; переходим на регистр данных
146$:           mov     (R5)+,(R1); пишем в буфер контроллера
                sob     R2,146$
                sub     #512.,R4; вычитаем
                TST     -(R1)   ; переходим на регистр команд

                mov     #55,(R1); запись буфера в файл
104$:           TSTB    (R1)    ; проверяем результат выполнения
                BPL     104$    ; ждем
                br      147$    ; в начало

144$:            .print  #STMS7 ; заливка последнего блока
                TST     (R1)+   ; переходим на регистр данных
                mov     R4,R2
                asr     R2      ; /2 тк пишем словами
143$:           mov     (R5)+,(R1); пишем в буфер контроллера
                sob     R2,143$

                TST     -(R1)   ; переходим на регистр команд
                mov     #55,(R1); запись пследнего буфера в файл
105$:           TSTB    (R1)    ; проверяем результат выполнения
                BPL     105$    ; ждем

145$:           .print #STMSE   ; конец
                mov     #110,@#AZ$CSR; включаем сеть
                .Exit           ; выходим

пример полностью в виде утилиты RT11 выложен вот тут

056: Получить данные по размеру карты в буфер sizecard

Код команды 056,  данная команда читает параметры MicroSD карты в буфер sizecard

057: Чтение буфера sizecard

Код команды 057,  данная команда отдает буфер sizecard (2 слова)

буфер sizecard содержит 2 слова 16bit
первое слово - общий объем карты доступный для FAT в МБ
второе слово - свободный объем на карте в МБ

Пример программы:

; trap 51 - получение объема SD карты всего/свободно в мегабайтах
; результат в R1 - всего; R2 - свободно
GetSizeSD:      call    AZreset; сбросим
                tst     R1
                bne     0ERR$
                MOV     #AZ$CSR,R1
                mov     #56,(R1)
1$:             TSTB    (R1); подготовить буфер
                BPL     1$; ждем
                mov     #57,(R1)
2$:             TSTB    (R1); подготовить буфер
                BPL     2$; ждем
                mov     @#AZ$DR ,R1; всего мегабайт
                mov     @#AZ$DR ,R2; свободно мегабайт
                return
                clr     R1
                clr     R2
                return

Пример данных
035521 - всего на карточке мегабайт - 15185.
035417 - свободно мегабайт - 15119.
 

Блок команд API Hall of Fame

Данный блок команд предназначен для взаимодействия с сервером Hall of Fame

025: Инициализация Hall of Fame (HOF)

Код команды 025,  данная команда устанавливает соединение с сервером Hall of Fame, инициализирует шифрованный тоннель и подготавливает API к работе.

Пример программы

AZ$CSR          = 177220                 ; регистр команд и состояния (CSR)
AZ$DR           = 177222                 ; регистр данных (DR)

; буфера
SNDBUF:         .BLKW 256.               ; буфер передачи
RCVBUF:         .BLKW 256.               ; буфер приема ответа
SIDMEM:         .BLKB 34.                ; SID
SIDCST:         .ASCII    \{"SID":"\       ; заголовок SID-а
                .even

HOFINI:      ; инициализация HOF
             ;результатом является такой JSON
             ;{"SID":"хеш сессии","RESULT":"OK"}
             ;или ошибка
             ;{"RESULT":"ERROR","DESCRIPTION":"SERVER_ERROR"}
             ;{"RESULT":"ERROR","DESCRIPTION":"CONNECTION_ERROR"}
             ; результат помещается в SNDBUF
             ; в R5 фиксация успешности - =1 есть SID, =0 нет SID-а
               
                mov     R5, -(SP)
                mov     R4, -(SP)
                mov     R3, -(SP)
                mov     R2, -(SP)
                mov     R1, -(SP)
                mov     R0, -(SP)

                mov     #3,R5        ; количество попыток

220$:           mov     #AZ$CSR,R1
                clr     (R1)         ; Пошлем команду "Сброс"
221$:           tstb    (R1)         ; Проверим готовность контроллера
                bpl     221$         ; Если не готов ждем

                mov     #25,(R1)     ; инициализация  - команда 025
20$:            tstb    (R1)         ; проверяем результат выполнения
                bpl     20$          ; ждем

             ; получим результат
                mov     #22,(R1)     ; отдать на шину считанный блок памяти из буфера
21$:            tstb    (R1)         ; проверяем результат выполнения
                bpl     21$          ; ждем
                tst     (R1)+        ; инкрементируем
                mov     #SNDBUF,R3
                mov     #256.,R2     ; читаем 256. слов; первое слово - результат чтения
22$:            mov     (R1),(R3)+   ; читаем блок слов в память
                sob     R2,22$


             ; надо понять - есть ли SID
                mov     #4,R0
                mov     #SNDBUF,R1
                mov     #SIDCST,R2
23$:            cmp     (R1)+,(R2)+
                bne     24$
                sob     R0,23$
                clr     R5              
                inc     R5      
                br      26$          ; успешно

24$:         ; SID не найден!
                sob     R5,220$
                clr     R5           ; ошибка - нет SID-а  

26$:            mov     (SP)+, R0
                mov     (SP)+, R1
                mov     (SP)+, R2
                mov     (SP)+, R3
                mov     (SP)+, R4
                mov     (SP)+, R5
                return

026: обмен с Hall of Fame (HOF)

Код команды 026,  данная команда осуществляет непосредственный обмен с Hall of Fame

Пример программы

             ;4. авторизация пользователя
             ;технически это отправка JSON
             ;{"SID":"хеш сессии","CMD":"AUTH_USER","NIKNAME":"никнейм пользователя","PASSWORD":"пароль пользователя"}
             ;ответ тоже JSON
             ;{"SID":"хеш сессии","RESULT":"OK","UID":"хеш пользователя"}
             ;или
             ;{"SID":"хеш сессии","RESULT":"ERROR","DESCRIPTION":"USER_NOT_FOUND_OR_WRONG_PASSWORD"}
             ;{"SID":"хеш сессии","RESULT":"ERROR","DESCRIPTION":"SERVER_ERROR"}
             ;{"SID":"хеш сессии","RESULT":"ERROR","DESCRIPTION":"SESSION_NOT_EXISTS_OR_EXPIRED"}

             ; загоняем команду CMD04
                mov     #CMD04,R1
                mov     #ADRMEM,R2
                add     #42.,R2      ; cдвигаем указатель на длину блока с SID
33$:            movb   (R1)+,(R2)+
                bne     33$

                .Print    #ADRMEM

                .Print    #HOF05
             ; отсылаем команду и ждем ответа
             ; закачиваем в буфер
                MOV     #AZ$CSR,R1
331$:           TSTB    (R1)         ; Проверим готовность контроллера
                BPL     331$         ; Если не готов ждем                
                mov     #23,(R1)     ; командуем что будем писать данные в буфер
34$:            TSTB    (R1)         ; проверяем результат выполнения
                BPL     34$          ; ждем
                TST     (R1)+        ; инкрементируем
                mov     #ADRMEM,R3
                mov     #256.,R2     ;
35$:            mov     (R3)+,(R1)   ; отдаем в контроллер
                sob     R2,35$
                tst     -(R1)        ; декрементируем

             ; обмен  - команда 026
                MOV     #AZ$CSR,R1
361$:           TSTB    (R1)         ; Проверим готовность контроллера
                BPL     361$         ; Если не готов ждем                
                mov     #26,(R1)
36$:            TSTB    (R1)         ; проверяем результат выполнения
                BPL     36$          ; ждем

             ; получим результат
371$:           TSTB    (R1)         ; Проверим готовность контроллера
                BPL     371$         ; Если не готов ждем                
                mov     #22,(R1)     ; отдать на шину буфер
37$:            TSTB    (R1)         ; проверяем результат выполнения
                BPL     37$          ; ждем
                TST     (R1)+        ; инкрементируем
                mov     #ADRMEM,R3
                mov     #256.,R2     ; читаем 256. слов; первое слово - результат чтения
38$:            mov     (R1),(R3)+   ; читаем блок слов в память
                sob     R2,38$