УТВЕРЖДЁН

00008-01.33.01-1-ЛУ

ПЕРСОНАЛЬНАЯ ЭВМ "ЭЛЕКТРОНИКА МС0513"

ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ

ОПЕРАЦИОННАЯ СИСТЕМА ОС БК11

СИСТЕМНЫЕ ТАБЛИЦЫ И БИБЛИОТЕКИ

РУКОВОДСТВО ПРОГРАММИСТА

00008-01.33.01-1

1988

АННОТАЦИЯ

Данный документ состоит из двух частей.

В первой части дано описание системной макробиблиотеки и системной объектной библиотеки. Вводятся основные понятия, необходимые при работе с этими библиотеками. И правила обращения к макрокомандам, процедурам и функциям библиотек. Кроме этого даётся краткое описание системных таблиц (системная область связи и фиксированные смещения в резидентном мониторе).

Вторая часть документа содержит рекомендации по разработке драйверов внешних устройств. В ней описаны макрокоманды для их написания и даны примеры некоторых драйверов.

1. НАЗНАЧЕНИЕ И УСЛОВИЯ ПРИМЕНЕНИЯ БИБЛИОТЕК

Операционная система ОС БК-11 содержит широкий набор сервисных функций, таких как работа с файлами, интерпретация командных строк, управление вводом/выводом и т.д.

Обращение к ним программ пользователя, написанных на языке ассемблер, осуществляется с помощью системных макрокоманд, определения макрокоманд включены в файл системной библиотеки, имеющей наименование SYSMAC.SML. Системные макрокоманды интерпретируются монитором во время выполнения программы пользователя.

При программировании на языке Паскаль доступ к сервисным функциям программист получает через вызовы подпрограмм из системной объектной библиотеки, имеющей наименование SYSLIB.OBJ. Особенностью этих подпрограмм является то, что все параметры передаются только по имени. В эту библиотеку также включены наборы подпрограмм для работы со строковыми данными и 32-х разрядной целочисленной арифметикой.

Допустимо также обращение к подпрограммам библиотеки из программ на языке макроассемблер.

2. ХАРАКТЕРИСТИКИ БИБЛИОТЕК

Данный раздел описывает характеристики библиотеки системных макрокоманд (SYSMAC.SML) и системной объектной библиотеки (SYSLIB.OBJ).

2.1. МАКРОБИБЛИОТЕКА

SJ-монитор поддерживает системные макрокоманды, позволяющие работать с файлами, производить операции ввода/вывода, работать с таймером, определять ресурсы и состояние системы, а также завершать выполнение программ.

Аргументы системных макрокоманд должны быть допустимыми выражениями языка макроассемблер. При трансляции макрокоманды расширяются в последовательность инструкций.

Большинство системных макрокоманд используют инструкцию EMT для передачи информации монитору, который извлекает её и выполняет требуемую функцию. Младший байт инструкции EMT содержит код в интервале от 340 до 377 (восьмеричное):

Примечание. Инструкция EMT не должна использоваться в программах, написанных пользователем.

2.2. ОБЪЕКТНАЯ БИБЛИОТЕКА

Системная объектная библиотека (SYSLIB.OBJ) содержит подпрограммы, вызываемые из программ, написанных на языке Паскаль, подпрограммы позволяют использовать свойства мониторов, выполнять разнообразные вспомогательные функции. В неё входит пакет подпрограмм для работы со строками и обеспечение вспомогательных преобразований двухсловного целого.

Библиотека SYSLIB имеет:

• набор средств ввода/вывода: синхронный, асинхронный и по событиям; подпрограммы библиотеки могут быть инициированы из подпрограмм завершения;
• возможность планирования во времени асинхронных подзаданий (подпрограмм завершения);
• подпрограммы обслуживания прерываний;
• набор средств обслуживания таймера, включая асинхронную обработку прерываний; преобразование различных форматов времени;
• вспомогательные функции ввода/вывода, включающие возможности открытия, закрытия, переименования, создания и удаления файлов с устройства;
• доступ к интерпретатору командных строк (CSI) для выборки и анализа стандартных командных строк ОС БК-11;
• пакет обработки символьных данных, обеспечивающий обработку символьных строк переменной длины;
• подпрограммы обработки данных в формате INTEGER*4, которые позволяют выполнять вычисления с целыми длиной в два слова;

Примечание. Авторы документа тщательно заменяли слово Фортран на Паскаль, выкидывали все абзацы, относящиеся к Фортрану, но тем не менее оставили раздел 8, посвящённый подпрограммам Фортрана, и в тексте постоянно встречаются обрывки фраз, связанные с Фортраном, которые просто так, без переработки смысловой нагрузки из абзацев не выкинешь. Поэтому, многие абзацы, касающиеся Фортрана, возвращены обратно.

Подпрограммы IPEEK, IPOKE, IPEEKB, IPOKEB и (или) ISPY для выборки адресов системы, монитора, технических средств могут различным образом выполняться на определённых конфигурациях. При программировании на языке Фортран СМ необходимо иметь в виду следующее:

• Различные функции в пакете SYSLIB.OBJ как результат выдают величины, которые по типу являются целыми, вещественными или удвоенной точности. Если пользователь применяет оператор IMPLICIT, который изменяет заданные по умолчанию типы величин для внешних функций, он должен явно определить тип тех функций из SYSLIB.OBJ, которые на выходе выдают целые или вещественные результаты. Функции удвоенной точности всегда должны описываться оператором DOUBLE PRECISION (или REAL*8). Несоблюдение этого требования может привести к непредсказуемым результатам
• Все имена подпрограмм, являющимся внешними по отношению к головной программе и передаются "планирующим" подпрограммам (таким как ISCHED, ITIMER, IREADF и др.), должны описываться как в операторе EXTERNAL программы, которая использует этот вызов.
• Некоторые параметры (указанные в описаниях отдельных подпрограмм) в вызовах SYSLIB.OBJ должны размещаться таким образом, чтобы не попасть в область свопинга USR. Если секция OTS¤I по длине не равна 2 Ксловам, то в программе, вызывающей модули из SYSLIB.OBJ, может появиться ошибка. Чтобы избежать ошибки, следует сделать USR резидентной (команда монитора "SET USR NOSWAP") или расширить OTS¤I до 10000 (восьмеричное) ячеек. Фортран СМ использует директиву .PSECT для компоновки программы и данных соответствующей области памяти.
• Литералы (строки) могут использоваться в качестве параметров при вызове подпрограмм и функций системной объектной библиотеки
• На подпрограммы завершения и обслуживания прерываний накладываются определённые ограничения.

3. ОБРАЩЕНИЕ К БИБЛИОТЕКАМ

Программа пользователя при выполнении операций средствами операционной системы обращается к монитору с "программным запросом". При обращении к монитору программа должна сформировать таблицу параметров и выполнить необходимую инструкцию EMT. Для облегчения формирования таблиц и выбора инструкции EMT пользователю предоставляется две библиотеки. Для формирования "программных запросов" из программ, написанных на языке ассемблер, используется системная макробиблиотека SYSMAC.SML, а из программ, написанных на языке Паскаль, используется системная объектная библиотека SYSLIB.OBJ, допускающая обращения и из программ, написанных на языке ассемблер.

3.1. ОБРАЩЕНИЕ К СИСТЕМНОЙ МАКРОБИБЛИОТЕКЕ

Имена системных макрокоманд начинаются с точки (.) для отличия их от символов и имён макрокоманд, определённых пользователем.

Аргументы системных макрокоманд должны быть допустимыми выражениями языка ассемблер, т.к. при макрорасширении в процессе трансляции они будут использованы как операнд "источник" в инструкции MOV.

Все системные макрокоманды, используемые в программе, должны быть описаны в директиве .MCALL. В процессе трансляции определения соответствующих макрокоманд будут выбраны из SYSMAC.SML.

В ОС БК-11 используются системные макрокоманды двух форматов:

1)   .PRGREQ APG1,ARG2,...,ARGN
2)   .PRGREQ AREA,APG1,ARG2,...,ARGN

Макрокоманды первого формата генерируют либо EMT 374, либо одну из EMT 340-357.

Системные макрокоманды, использующие инструкцию EMT 374, размещают аргументы в регистре R0. В младший байт заносится номер канала, а в старший - код функции.

Для системных макрокоманд с кодами 340-357 аргументы (если они заданы) размещаются в стеке, в R0 или и в R0, и в стеке.

Некоторые аргументы макрокоманды могут быть опущены.

Макрокоманды второго формата генерируют всегда EMT 375. В этом формате первый аргумент (AREA) представляет собой указатель адреса списка аргументов. Формат списка аргументов представлен на рис. 1.

Рис. 1

Допускается отсутствие аргументов. Если опущен аргумент AREA, то предполагается, что он содержится в R0. Если опущены какие-либо аргументы от ARG1 до ARGN, то макрокоманда не изменяет соответствующих им записей в списке аргументов.

Например, в макрокоманде:

.PRGREQ AREA,ARG1,ARG2

заполняются первый и второй аргументы, а R0 содержит адрес списка аргументов.

В макрокоманде:

.PRGREQ AREA

в списке заполняется только первый байт (код функции), а остальные аргументы (если они есть) не изменяются. R0 содержит адрес списка аргументов.

В макрокоманде:

.PRGREQ ,ARG1

предполагается, что R0 уже содержит адрес списка аргументов. В списке заполняется только первый аргумент, не изменяя остальных (если они есть).

В макрокоманде:

.PRGREQ

предполагается, что R0 содержит адрес списка аргументов, а сами аргументы уже занесены пользователем или предыдущим вызовом данной макрокоманды.

Список аргументов EMT может быть заполнен статически:

        MOV     #AREA,R0
        .PRGREQ
        ...
AREA:   .BYTE   CHAN
        .BYTE   CODE
        .WORD   ARG1
        .WORD   ARG2

и динамически:

        .PRGREQ #AREA,#ARG1,#ARG2

или

        MOV     #AREA,R0
        MOV     #ARG1,2(R0)
        MOV     #ARG2,4(R0)
        MOVB    #CHAN,@R0
        MOVB    #CODE,1(R0)
        .PRGREQ

Эти три примера определяют одну и ту же макрокоманду.

ОС БК-11 предоставляет модификации системных макрокоманд второго формата (EMT 375), основанных на возможности использования ключевых аргументов, т.е. таких, на мнемонику которых реагирует макроассемблер.

3.1.1. КЛЮЧЕВОЙ АРГУМЕНТ "BLOCK"

Этот ключевой аргумент даёт возможность пользователю статически описывать список аргументов EMT. Сама макрокоманда должна быть описана в разделе данных программы пользователя следующим образом:

LABEL:  .PRGREQ BLOCK,ARG1,...,ARGN

В этом случае макрокоманда расширится в список аргументов EMT, а сама инструкция EMT генерироваться не будет.

Чтобы выполнить данную макрокоманду, пользователь должен использовать одну из трёх эквивалентных записей:

1)      .MCALL  .WRITE,.DIR,.EXIT
        .DIR    #WR
        BCS     ERROR
        .EXIT
ERROR:  . . .
WR:     .WRITE  BLOCK,CHAN,BUF,WCN,BLOCKN
        .END

2)      .MCALL  .WRITE,.EXIT
        MOV     #WR,R0
        .WRITE
        BCS     ERROR
        .EXIT
ERROR:  . . .
WR:     .WRITE  BLOCK,CHAN,BUF,WCN,BLOCKN
        .END

3)      .MCALL  .WRITE,.EXIT
        MOV     #WR,R0
        EMT     375
        BCS     ERROR
        .EXIT
ERROR:  . . .
WR:     .WRITE  BLOCK,CHAN,BUF,WCN,BLOCKN
        .END

3.1.2. КЛЮЧЕВОЙ АРГУМЕНТ "PSECT"

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

Встретив этот ключевой аргумент, макроассемблер создаёт список аргументов в программной секции ¤¤EMT¤.

Пример.

        .MCALL  .WRITE
        .PSECT  PROG
        .WRITE  PSECT,CHAN,BUF,WCN,BLOCKN,SECT=PROG
                
        .PSECT  ¤¤EMT¤         ; Расширение
¤¤¤ = .                        ; Макро-
        .BYTE   CHAN,COD       ; команды
        .WORD   BUF,WCN,BLOCKN ;
        .PSECT  PROG           ;
        MOV     #¤¤¤,R0        ;
        EMT     375            ;
        BCS     ERROR

Ключевой аргумент "PSECT" позволяет пользователю не задумываться над местом расположения списка аргументов и не резервировать для него место в программе (место будет отводиться автоматически).

3.1.3. КЛЮЧЕВОЙ АРГУМЕНТ "CODE"

Этот ключевой аргумент позволяет программисту регулировать занесение кода функции в список аргументов. CODE может иметь два значения: SET - занести код функции и NOSET - не заносить код функции.

Пример.

        .MCALL  .WRITE,.READ,.EXIT 
        ...
        .WRITE  #AREA,#CHAN,#BUF,#WCN,#BLOCKN
        ...
        .WRITE  #AREA,CODE=NOSET
        ...
        .READ   #AREA,CODE=SET
        ...
        .WHITE  #AREA,CODE=SET
        ...
        .EXIT

Этот ключевой аргумент позволяет использовать один и тот же список аргументов для макрокоманд, имеющих одни и те же аргументы, но различные коды функций. Использование этого ключевого аргумента уменьшает размер программы и время её выполнения.

3.1.4. АДРЕСАЦИЯ АРГУМЕНТОВ

Аргументы системных макрокоманд должны иметь режим адресации, допустимый в инструкции MOV. Например, для занесения в список аргументов числа шесть, используется адресация (#):

        .PRGREQ #AREA,#6

Если нужно занести содержимое адреса или регистра, используется:

        .PRGREQ #AREA,ADDR,R0

Это связано с тем, что список аргументов должен содержать непосредственно значения аргументов.

При использовании ключевых слов "BLOCK" и "PSECT" список аргументов формируется с помощью директив .WORD и .BYTE. Поэтому аргументы макрокоманд должны быть непосредственными значениями и указываться все.

Примечания:

1. После выполнения макрокоманды все универсальные регистры, кроме R0, сохраняют свои значения. R0 содержит информацию, возвращённую монитором. В тех случаях, когда информация не возвращается, содержимое R0 не предсказуемо.
2. Так как R0 является рабочим регистром системных макрокоманд, программист при указании аргументов не должен использовать связанных с ним режимов адресации.
3. Указатель стека остаётся без изменений. Исключением является вызов интерпретатора командной строки (CSI).

3.2. ОБРАЩЕНИЕ К СИСТЕМНОЙ ОБЪЕКТНОЙ БИБЛИОТЕКЕ

Подпрограммы из SYSLIB.OBJ вызываются так же, как и подпрограммы, написанные пользователем. В системную объектную библиотеку входят как подпрограммы (PROCEDURE), так и функции (FUNCTION). Обращение к функции производится по имени в виде:

I=NAME([ARGUMENTS])

Значение, возвращаемое функцией, может быть кодом ошибки или другой информацией, которую использует вызывающая программа. Смысл значения определяется при описании каждой конкретной функции.

Подпрограммы в Паскале вызываются следующим образом:

NAME[(ARGUMENTS)]

а в Фортране используется оператор CALL:

CALL NAME[(ARGUMENTS)]

Функции из SYSLIB.OBJ могут быть вызваны и как подпрограммы, если нет необходимости в результирующей величине и наоборот.

Ввиду того, что в Паскале есть описатель FORTRAN, гарантирующий вызов всех параметров только по имени, рекомендуется при описании процедур и функций, вызываемых из SYSLIB.OBJ, пользоваться именно им. В дальнейшем в примерах для большей наглядности будет использоваться нотация фортрана. Например:

CALL ITWAIT(TIME)

или

I = ITWAIT(TIME)

Если в описании подпрограммы не указано, что её можно вызывать как функцию, то при обращении к ней как к функции возвращаемое значение неопределённо.

Примечания.

3.2.1. ОБРАЩЕНИЕ К SYSLIB.OBJ ИЗ ПРОГРАММ НА ЯЗЫКЕ МАКРОАССЕМБЛЕР

В следующем примере функция JMUL из библиотеки SYSLIB вызывается программой, написанной на языке макроассемблер.

Пример.

        .GLOBL  JMUL
        MOV     #LIST,R5       ;Занесение адреса параметров
        JSR     PC,JMUL        ;Обращение к функции
        CMP     #-2,R0         ;Проверка ошибки
        BEQ     ERROR
        ...
LIST:   .WORD   3              ;Блок параметров
        .WORD   OPR1
        .WORD   OPR2
        .WORD   RESULT
OPR1:   .WORD   100,0          ;множимое
OPR2:   .WORD   10,10          ;множитель
RESULT: .BLKW   2              ;результат
        .END

Программы пользователя, написанные на макроассемблере и вызывающие подпрограммы из SYSLIB.OBJ, должны сохранять содержимое любых требующихся регистров до вызова подпрограммы из SYSLIB.OBJ и восстанавливать их после выхода из подпрограммы.

Функции помещают в регистры единственный результат. Распределение регистров для помещения различных типов переменных следующее:

• результаты функций целого и логического типов записываются в регистр R0;
• результаты функций 32-разрядного целого и логического типов записываются в регистр R0 (младшая часть) и регистр R1 (старшая часть);
• результаты функций вещественного типа записываются в регистр R0 (старшая часть) и в регистр R1 (младшая часть);
• результаты функций с удвоенной точностью - в регистры R0-R3, самая младшая часть результата записывается в R3;
• результаты функций комплексного типа - в регистры R0-R3: в регистр R0 - старшая вещественная часть результата; в регистр R1 - младшая вещественная часть результата; в регистр R2 - старшая мнимая часть результата; в регистр R3 - младшая мнимая часть результата.

USR, если она не резидентна, помещается при свопинге в область памяти, смежную со стеком (в сторону больших адресов) и занимает 2 Кслов. В эту зону не должны помещаться подпрограммы обработки прерываний, подпрограммы завершения, их данные. Проще всего проверить выполнение этого требования путём проверки карты загрузки, чтобы убедиться, что USR не перекрывает при свопинге подпрограмму на языке макроассемблера. В противном случае необходимо изменить порядок объектных модулей и библиотечных подпрограмм. Чтобы снять эти ограничения, следует сделать USR резидентной.

3.2.2. КОМПОНОВКА СИСТЕМНОЙ ОБЪЕКТНОЙ БИБЛИОТЕКИ С ПРОГРАММОЙ ПОЛЬЗОВАТЕЛЯ

При использовании библиотеки SYSLIB.OBJ с программой пользователя будут компоноваться только нужные модули. Например:

.LINK PROG

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

4. ВХОДНЫЕ И ВЫХОДНЫЕ ДАННЫЕ

Данный подраздел содержит описание параметров системных макрокоманд, подпрограмм и функций системной объектной библиотеки.

4.1. СИСТЕМНАЯ МАКРОБИБЛИОТЕКА

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

4.1.1. НОМЕР КАНАЛА

Номер канала - это числовой логический идентификатор файла или набора данных, используемый мониторами ОС БК-11. Он принимает значение от 0 до 377 (восьмеричное). Пользователь должен сам установить связь номера канала с файлом или устройством с помощью системных макрокоманд. После установления связи для ссылки на файл или устройство, достаточно указать номер канала.

Система по умолчанию предоставляет пользователю 16 каналов. Чтобы получить большее количество каналов, необходимо использовать соответствующие системные макрокоманды.

4.1.2. БЛОК УСТРОЙСТВА

Блок устройства - четырёхсловная таблица, содержащая информацию для системной макрокоманды об имени устройства, имени и типе файла в коде .RAD50.

Первое слово содержит физическое или логическое имя устройства. Второе и третье - содержат имя файла (не более 6 символов), четвёртое - тип файла.

Имена не должны содержать точек и двоеточий, являющихся разделителями в командной строке.

Например, блок устройства, представляющий файл POKAZ.MAC на устройстве DK:, можно записать следующим образом:

        .RAD50  /DК /
        .RAD50  /РОК/
        .RAD50  /AZ /
        .RAD50  /MAC/

либо

        .RAD50  /DК POKAZ MАС/

либо

        .DBLK   DК,РОКАZ,МAC

Недостающие символы во втором случае дополняются пробелами, а в первом и третьем могут просто опускаться. Для удобства рекомендуется использовать макрокоманду .DBLK.

4.1.3. СВОПИНГ USR

В зависимости от того, требуют или нет системные макрокоманды присутствия в памяти USR, они делятся на два соответствующих типа.

Некоторые системные макрокоманды, использующие USR, требуют считывания новой копии USR. Это связано с тем, что подпрограммы, выполняющие эти макрокоманды, расположены в области буфера USR, который используется для хранения одного сегмента каталога. Таким образом, если USR в памяти, то система считает, что буфер USR уже модифицирован, и поэтому, для выполнения подобных системных макрокоманд, производится считывание новой копии USR.

Следует отметить, что работа макрокоманды .CLOSE с устройствами нефайловой структуры (устройство печати, терминал и т.д.) обходится без использования USR.

Если в программе встретилась макрокоманда, для выполнения которой необходима USR, то область программы, в которую должна быть загружена USR, сохраняется системой в файле SWAP.SYS на системном устройстве, а USR загружается в оперативную память. Завершив выполнение требуемой операции, система восстанавливает программу из файла SWAP.SYS.

Обычно свопинг происходит по умолчанию, но можно свести количество необходимых обменов к минимуму, если при написании программ учитывать следующее:

• если в задании макрокоманда .SETTOP указывает на адрес, превышающий нижний адрес обычного размещения USR, то при вызове USR потребуется операция обмена (свопинг);
• если адрес загрузки USR в ячейке 46 установлен пользователем во время трансляции или при выполнении программы, то он используется монитором в качестве возможного места загрузки USR. Если же в ячейке 46 содержится 0, USR загружается в обычную область;
• смещение 374 в резидентной части монитора содержит размер USR в байтах и должно использоваться программой для динамического определения размера области, необходимой для свопинга.

Примечания:

1. Операция свопинга требует относительно больших затрат времени, поэтому её необходимо по возможности избегать.
2. Содержимое ячейки 46 игнорируется, если не нужен свопинг.
3. SJ-монитор не контролирует правильность адреса свопинга в ячейке 46. Если область свопинга перекрывает резидентный монитор, система разрушается.
4. Необходимо следить, чтобы USR не загружалась в программный стек, в блоки параметров обращения к USR, в буферы ввода/вывода, в драйверы устройств, в программы завершения, используемые при вызовах USR.

4.1.4. ПОДПРОГРАММЫ ЗАВЕРШЕНИЯ

Подпрограммы завершения - написанные пользователем программы, выполняемые по окончании ввода/вывода. При входе в неё R0 содержит слово состояния канала, R1 - номер канала, с которым связана операция. Бит "C" сброшен. При работе SJ-монитора подпрограммы завершения прерывают друг друга.

При создании подпрограмм завершения необходимо соблюдать следующие ограничения:

• им запрещается выдавать запросы, требующие свопинг USR, иначе возникнет неустранимая ошибка монитора;
• они не должны размещаться в памяти, предназначенной для USR;
• выход из подпрограммы завершения должен осуществляться посредством команды RTS PC;
• если используются регистры, кроме R0 и R1, их содержимое должно в начале подпрограммы запоминаться, а в конце восстанавливаться.

4.2. СИСТЕМНАЯ ОБЪЕКТНАЯ БИБЛИОТЕКА

Ниже приведены основные системные понятия, связанные с работой подпрограмм и функций системной объектной библиотеки, и соглашения, используемые при вызове этих подпрограмм и функций.

4.2.1. НОМЕР КАНАЛА

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

OTS Фортрана имеет 16 (десятичное) каналов, доступных для использования. Функция IGETC закрепляет номер канала за программой и помечает в системе ввода/вывода, что канал используется. При освобождении канал закрывается подпрограммой CLOSEC, ICLOSE или PURGE. Канал освобождается и возвращается в систему ввода/вывода Фортрана вызовом IFREEC.

Функция ICDFN предоставляет пользователю до 255 (десятичное) каналов. Она выделяет память в области задания для размещения информации о статусе дополнительных каналов. Функцию ICDFN желательно использовать во время инициации задания. Система ввода/вывода Фортрана использует каналы от 0 до 15 (десятичное), поэтому каналы с большими номерами можно использовать без ограничений.

Каналы должны выделяться в основной программе или в её подпрограммах. Не рекомендуется выделять каналы в программах, которые были активизированы в результате завершения ввода/вывода или функциями ISCHED или ITIMER.

4.2.2. БЛОК УСТРОЙСТВА

Блоком устройства является четырёхсловный блок информации в коде RAD50, который определяет физическое устройство и имя файла. В фортране можно использовать три различных метода задания этого блока:

1. использование операторов DIMENSION и DATA:

   DIMENSION IFILE(4)
   DATA      IFILE /3RSY, 3RFIL, 3RE, 3RXYZ/
   

2. перевод доступной строки символьного описания файла в формат RAD50 с использованием вызовов SYSLIB, таких как IRAD50, R50ASC и RAD50, например:

   REAL*8    FILSPC
   CALL      IRAD50 (12, 'SY FILE  XYZ', FILSPC)
   

3. использование SYSLIB с вызовом ICSI, которая обращается к интерпретатору командной строки (CSI) для приёма и грамматического разбора стандартной командной строки ОС БК-11.

4.2.3. СВОПИНГ USR

Необходимо размещать программы обслуживания прерываний и подпрограммы завершения так, чтобы они не перекрывались при свопинге USR. Границы области свопинга определяются по карте распределения памяти, построенной компоновщиком. При необходимости нужно изменить порядок объектных модулей и библиотек в команде компоновщику.

4.2.4. УПРАВЛЕНИЕ СВОПИНГОМ USR

Можно управлять свопингом USR, используя команды KMON:

SET USR NOSWAP

и

SET USR SWAP

Команда "SET USR NOSWAP" запрещает свопинг USR и фиксирует её в памяти ниже RMON. Команда "SET USR SWAP" разрешает свопинг USR.

Во время выполнения задания можно управлять свопингом USR с помощью подпрограмм LOCK и UNLOCK.

Вызов LOCK фиксирует USR в памяти. Вызов UNLOCK освобождает USR.

4.2.5. СТРАТЕГИЯ СВОПИНГА USR

При написании программ необходимо учитывать, что объектный модуль состоит из программных секций (PSECT) имеющих уникальные имена. Атрибуты, связанные с каждой PSECT, указывают компоновщику, как комбинировать различные отдельно оттранслированные модули программ пользователя, модули на языке макроассемблер и библиотечные программы в загрузочный модуль.

Программные секции в загрузочном модуле размещаются в порядке, в котором они указаны компоновщику. Секции упорядочиваются по следующим критериям: содержащие информацию только для чтения (такие, как инструкции или данные), смешанные секции, содержащие переменные.

Головной модуль в программе на Фортране (обычно первый объектный модуль в последовательности предъявленных компоновщику) объявляет программные секции в следующем порядке:

USR может перекрывать инструкции, но не должна загружаться на зону констант и смешанных данных, которые могут быть использованы как аргументы для USR. Показанное упорядочение собирает все чистые секции в памяти перед смешанными. USR может обмениваться с секциями OTS¤I, OTS¤P, SYS¤I, USER¤I и ¤CODE. По умолчанию область обмена начинается с базы секции OTS¤I. Ячейка 46 системной области связи содержит адрес, по которому произойдёт свопинг USR. Если ячейка 46 содержит нуль, USR загружается на 2К слова ниже RMON.

4.2.6. ИСПОЛЬЗОВАНИЕ USR И ВРЕМЯ

Если одно задание использует USR, а её требует и второе задание, второе будет ждать, пока первое не освободит USR. Время ожидания может быть достаточно велико. В это время могут работать только подпрограммы завершения и программы обслуживания прерываний, но не основная программа. Минимизировать время выполнения задания можно одним из следующих четырёх способов:

• не использовать устройства с медленным доступом, такие, как кассетные или магнитные ленты;
• писать операции реального времени как подпрограммы обработки прерываний или подпрограммы завершения так, чтобы время ожидания не влияло на операции реального времени;
• разделять операции реального времени и работу с USR;
• использовать вызов ITLOCK и избегать вызовов SYSLIB, требующих USR, пока USR занята другим заданием.

Оперативное задание может быть построено так: фаза инициализации, на которой оно открывает все необходимые каналы и запускает операции реального времени; фаза реального времени, на которой выполняются операции ввода-вывода и обслуживание прерываний; фаза завершения, которая останавливает активную работу в реальном времени и затем закрывает каналы. Использование такой структуры в оперативном задании позволяет фоновому заданию выполнять операции с USR без блокирования оперативного задания. Это же упрощает свопинг USR, так как USR может обмениваться с подпрограммами обработки прерываний и буфером ввода-вывода, поскольку они неактивны.

4.2.7. РАБОТА С INTEGER*4

Целые переменные величины типа INTEGER*4 размещаются в памяти в двух словах: первое слово содержит младшую часть величины, а второе слово - знак и старшую часть величины. Диапазон представляемых чисел от -(2**31)+1 до (2**31)-1.

Этот формат отличается от двухсловного внутреннего формата времени, согласно которому старшая часть значения времени хранится в первом слове, а младшая часть - во втором. Функция JJCVT осуществляет преобразование одного формата в другой.

Если для задания значений переменным типа INTEGER*4 используется оператор DATA, он должен задавать как младшую, так и старшую часть. Правильное задание значения 3 переменной типа INTEGER*4:

    INTEGER*4 J
    INTEGER*2 I(2)
    EQUIVALENCE(J,I)
    DATA I/3,0/

Неправильное задание значения 3 переменной типа INTEGER*4:

    INTEGER*4 J
    DATA J/3/

При присвоении переменной типа INTEGER*4 отрицательного значения (например, -4) старшая часть (второе слово) должна быть продолжением младшей части при двухсловном представлении переменной:

    INTEGER*4 J
    INTEGER*2 I(2)
    EQUIVALENCE(J,I)
    DATA I/-4,-1/

При вызове подпрограмм удобна следующая форма присвоения значений параметрам типа INTEGER*4:

    INTEGER*2 J(2)
    DATA L/3,0/

4.2.8. ПОДПРОГРАММЫ, ТРЕБУЮЩИЕ ДОПОЛНИТЕЛЬНОГО ЭЛЕМЕНТА ОЧЕРЕДИ

Некоторые подпрограммы для выполнения требуют элемент очереди:

Для задания автоматически выделяется один элемент очереди. Использование более чем одного запроса из данного списка требует дополнительных элементов очереди. Дополнительные элементы очереди могут быть выделены при помощи вызова функции IQSET.

4.2.9. ПОДПРОГРАММЫ ЗАВЕРШЕНИЯ

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

Подпрограмма завершения - это подпрограмма, которая выполняется асинхронно с основной программой и планируется к вызову как можно скорее после завершения соответствующего события, такого как окончание ввода/вывода или истечение заданного интервала времени. Все подпрограммы завершения текущего задания имеют высший приоритет по сравнению с другими частями задания. Вызов подпрограммы завершения прерывает выполнение задания на время выполнения подпрограммы.

Подпрограммы завершения в SJ-мониторе полностью асинхронны и могут прерывать друг друга.

Подпрограммы завершения, которые вызываются следующими вызовами:

имеют такие ограничения:

• канал не может быть получен вызовом IGETC или освобождён вызовом IFREEC из подпрограммы завершения; каналы, используемые подпрограммой завершения должны быть уже выделены и помещены в блок COMMON.
• подпрограмма завершения не может производить вызов, требующий использования USR;
• файлы, используемые подпрограммой завершения, должны быть открыты и закрыты в основной программе; нет ограничений на операции ввода/вывода, которые могут проводиться подпрограммами завершения; если много файлов должны быть доступны для подпрограммы завершения, они могут быть открыты основной программой и сохранены для дальнейшего использования (не занимая каналы ОС БК-11) вызовом ISAVES; подпрограмма завершения может в дальнейшем сделать его доступным повторным присоединением файла к каналу вызовом IREOPN; подпрограмма завершения не должна вызывать CLOSE для закрытия логического канала;
• только одна функция завершения должна быть активна в каждый момент времени.

4.2.10. ФУНКЦИИ ПО ОБРАБОТКЕ СТРОК СИМВОЛОВ

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

Строки хранятся в массивах типа CHAR (в нотации Фортрана - LOGICAL*1), которые должен описать программист. Строки запоминаются в этих массивах по одному символу в каждом элементе массива плюс нулевой байт для обозначения текущего конца строки (формат ASCIZ).

Длина строки может изменяться в диапазоне от нуля символов в строке до длины, на единицу меньшей длины массива, в котором хранится строка. Максимальный размер строки 32767 (десятичное) символов. Строки могут содержать символы КОИ-7 имеющие коды от 1 до 127 (десятичное).

Необходимо следить, чтобы строка не превысила размер массива, для чего можно воспользоваться тем, что в подпрограммах системной библиотеки для ограничения длины может указываться необязательный параметр. В разделах, описывающих подпрограммы обработки символьных строк, этот параметр называется LEN. Длина выходной строки ограничивается величиной, указанной параметром LEN, плюс один элемент для конца строки. Поэтому массив, принимающий результат, должен по длине, по крайней мере, равняться значению параметра LEN плюс 1.

При указании параметра LEN может включаться необязательный параметр ERR, позволяющий определить наличие ошибки. Параметр ERR является логической переменной, которая должна первоначально устанавливаться в значение FALSE если в функции по обработке символьных строк указываются параметры LEN и ERR, а параметр LEN действительно использовался для ограничения длины результирующей строки, то тогда параметр ERR устанавливается в значение TRUE. Если параметр LEN для ограничения длины строки не использовался, то параметр ERR не изменяется.

Параметры LEN и ERR являются необязательными параметрами. Параметр LEN может задаваться отдельно, а параметр ERR - только с параметром LEN.

Некоторые подпрограммы используют понятие позиции. Каждому символу строки присваивается позиционный номер, на единицу больше номера позиции символа, стоящего непосредственно слева от него. Первый символ строки имеет позиционный номер, равный единице.

Строки, заключённые в кавычки, могут использоваться в виде параметров любой подпрограммы обработки строки, которая вызывается оператором CALL. Они могут так же использоваться для подпрограмм, вызываемых в качестве функции. Например:

CALL SCOMP(NAME,'FREE CORE',M)

Этот оператор сравнивает строку в массиве NAME со строкой символов 'FREE CORE' и устанавливает соответствующее значение целой переменной M.

5. СООБЩЕНИЯ

В процессе выполнения системных макрокоманд монитор может обнаружить ошибки, о которых необходимо сообщить пользователю. В ОС БК-11 существует три способа сообщений об ошибках:

• через бит C в слове состояния;
• через байт ошибки (байт 52 в системной области связи);
• посредством сообщений монитора об ошибках.

Бит C сбрасывается при правильном выполнении программного запроса. В противном случае устанавливается в 1, поэтому практически за каждой системной макрокомандой должны следовать либо инструкция BCS, либо BCC для обнаружения возможных ошибок.

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

Некоторые серьёзные (грубые) ошибки заставляют монитор распечатывать на терминале соответствующие сообщения, после чего управление передаётся монитору. Чтобы проанализировать такие ошибки, необходимо использовать системную макрокоманду .SERR.

Тексты сообщений приводятся в документе "Сообщения и диагностика ошибок", 00008-01.94.01.

6. СИСТЕМНЫЕ ТАБЛИЦЫ

Во время выполнения задания часто необходимо знать некоторые параметры монитора и самого задания, иногда нужно изменить эти параметры. Программа пользователя может получать информацию о параметрах монитора и управлять своей работой, используя системную область связи и фиксированные смещения (ячейки) резидентного монитора.

Свойства монитора и драйверов доступны программе с помощью системной макробиблиотеки (для программ на макроассемблере) и системной объектной библиотеки (для программ на Паскале).

6.1. СИСТЕМНАЯ ОБЛАСТЬ СВЯЗИ

Байты 40-57 (абсолютные адреса) называются системной областью связи (SYSCOM). Они содержат информацию о системе и о программе, выполняющейся в данный момент. Эта информация необходима как монитору, так и программисту. Чтобы использовать эти сведения в программе, можно применять системные макрокоманды, определяющие символьные обозначения байтов. Их содержимое определяется при загрузке монитора (в части, касающейся системы) и при загрузке программы, информация о программе берётся из нулевого блока файла загрузочного модуля программы (т.е. определяется на этапе её компоновки) и может быть изменена самой программой во время её выполнения. Ниже даны адреса байтов и их символьные обозначения.

Примечание. Байт 52 должен использоваться всегда как байт, а не как слово, т.к. байт 53 применяется для указания статуса завершения программы.

6.1.1. СТАТУС ЗАВЕРШЕНИЯ ПРОГРАММЫ (USERRB)

При загрузке интерпретатор команд монитора (KMON) проверяет статус завершения пользовательской программы. Если при выполнении пользовательской программы имелись ошибки, информация о которых содержится в байте 53 (USERRB), то KMON может прервать (прекратить) дальнейшее выполнение текущего командного файла. Таким образом производится контроль за выполнением команд в командном файле. Это особенно важно, если корректное выполнение последующих команд зависит от успешного завершения предшествующих.

Имеются следующие статусы завершения программы:

Системные программы и KMON всегда устанавливают статус завершения программы для указания результата выполнения каждой команды монитора, обычно выполнение командных файлов прекращается, если имела место ошибка при выполнении команды монитора. В табл. 1 представлены коды типов ошибок, которые могут быть установлены в байте 53.

Примечание. Биты 5-7 зарезервированы для применения в следующих версиях системы. Программы не должны обнулять байт 53, можно только устанавливать необходимый бит с помощью инструкции BISB. Определение символьных обозначений статуса завершения и байта 53 рекомендуется выполнять с помощью системной макрокоманды .USRDF. Если при работе программы было установлено несколько битов, то система ОС БК-11 определяет статус по биту с наибольшим порядковым номером.

6.1.2. СЛОВО СОСТОЯНИЯ ЗАДАНИЯ (JSW)

Байты 44 и 45 содержат слово состояния задания (JSW) ниже даётся описание битов JSW. Биты, отмеченные "*", устанавливаются монитором или самой программой во время её выполнения. Биты, отмеченные "+", устанавливаются перед загрузкой программы (при компоновке), а биты, отмеченные "*+", могут быть установлены как до, так и при выполнении программы

RUN LINK
TEST, TEST = MOD1,LIB/I 
^C

6.2. ФИКСИРОВАННЫЕ СМЕЩЕНИЯ РЕЗИДЕНТА МОНИТОРА

Некоторые ячейки, содержащие информацию о системе, всегда имеют фиксированное положение от начала RMON. Эти ячейки называются ячейками с фиксированными смещениями. Для доступа к ячейкам с фиксированными смещениями из выполняющейся программы используется системная макрокоманда .GVAL.

Ниже даны фиксированные смещения RMON. Их символьное обозначение и длина в байтах даны в восьмеричном виде.

6.2.1. СЛОВО КОНФИГУРАЦИИ СИСТЕМЫ (CONFIG)

Слово конфигурации системы CONFIG (имеет относительное смещение 306) содержит информацию о подключённой аппаратуре и о параметрах монитора.

Ниже приводится описание битов слова конфигурации CONFIG (по умолчанию считается, что бит установлен, или же назначение бита указывается для обоих случаев). В скобках указано символьное имя бита.

6.2.2. ДОПОЛНИТЕЛЬНОЕ СЛОВО КОНФИГУРАЦИИ СИСТЕМЫ (CONFG2)

Дополнительное слово конфигурации системы (относительное смещение 370) указывает на имеющиеся дополнительные аппаратные средства в комплексе.

Все описания даны для установленного бита (приводятся номера битов, их символьные имена и назначение):

Остальные биты зарезервированы для использования в. следующих версиях системы.

6.2.3. СЛОВО ПАРАМЕТРОВ ГЕНЕРАЦИИ СИСТЕМЫ (SYSGEN)

Слово параметров генерации системы содержит информацию о параметрах, определяемых при генерации системы. Все описания даны для установленного бита.

Примечание. Значения первых четырёх битов должны соответствовать параметрам, которые устанавливаются при ассемблировании пользовательских драйверов.

7. СИСТЕМНАЯ МАКРОБИБЛИОТЕКА

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

Все рассматриваемые макрокоманды в соответствии с выполняемыми функциями подразделяются на следующие группы:

• макрокоманды работы с каталогами;
• макрокоманды операций ввода/вывода;
• макрокоманды работы с каналами;
• макрокоманды обработки командной строки;
• макрокоманды работы с таймером;
• макрокоманды общего назначения;
• макрокоманды работы с драйверами;

7.1. ОПЕРАЦИИ С КАТАЛОГАМИ

При выполнении макрокоманд, работающих с каталогами, используется USR, обслуживающая каталоговые структуры носителей, поэтому необходимо учитывать ограничения, связанные со свопингом. Обычно свопинг происходит по умолчанию, но существует возможность оптимизировать программу так, что количество необходимых обменов сведётся к минимуму.

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

7.1.1. МАКРОКОМАНДА .CLOSE

Системная макрокоманда .CLOSE завершает работу с указанным каналом (закрывает канал) и тем самым освобождает его для других операций.

Формат макрокоманды:

.CLOSE CHAN

Формат регистра R0:

Если указанный - канал CHAN не открыт, макрокоманда игнорируется.

Макрокоманда .CLOSE предназначена для файла, открытого с помощью макрокоманды .ENTER. В результате её выполнения указанный файл становится постоянным на устройстве, соответствующем указанному каналу, и в каталог заносится информация о нём (имя, тип, дата создания). При этом файл с таким же именем, уже имеющийся на этом устройстве, из каталога исключается.

Если на устройстве уже существует защищённый файл с аналогичным именем, то закрытие файла происходит, но появляется два файла с одинаковыми именами.

Длина файла, закрытого макрокомандой .CLOSE, определяется количеством заполненных блоков.

Обычно для выполнения макрокоманды .CLOSE необходимо присутствие в памяти USR. Однако, файл, открытый с помощью .LOOKUP, не требует никаких преобразований в каталоге по макрокоманде .CLOSE, потому нет необходимости в использовании USR.

Ошибки:

Примечание. Следует помнить, что при отсутствии драйвера соответствующего устройства в памяти, возникает ошибка монитора.

Пример приведён при описании макрокоманды .SPFUN

7.1.2. МАКРОКОМАНДА .DELETE

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

Формат макрокоманды:

.DELETE AREA,CHAN,DBLK,SEGNUM

Формат таблицы аргументов EMT:

Макрокоманда .DELETE игнорируется, если указано устройство с нефайловой структурой.

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

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

Ошибки:

Пример.

         .MCALL  .LOOKUP,.ЕXIT 
        .MCALL  .DELETE,.PRINT
ERRWD = 52
ST:     .LOOKUP #AREA,#3,#FILE1 ; открыть файл по
        BCS     NLO             ; каналу 3
        .PRINT  #МSG1
        .DELETE #AREA,#3,#FILE1 ; удалить его
        BCS     NDE1
        .PRINT  #MSG2
        .EXIT
AREA:   .BLKW   10
FILE1:  .RAD50  /SY ABC   /
        .RAD50  /TXT/
NLO:    .PRINT  #NOLO
        .EXIT
NDE:    .PRINT  #NODE
        .EXIT
NDE1:   TSTB    @#ERRWD         ; определение кода ошибки
        BNE     NDE
        .PRINT  #NODE1
        .EXIT
NODE:   .ASCIZ  /ФАЙЛ НЕ НАЙДЕН/
MSG1:   .ASCIZ  /КАНАЛ ОТКРЫТ/
NOLO:   .ASCIZ  /ОШИБКА LOOKUP/
NODE1:  .ASCIZ  /КАНАЛ ЗАНЯТ/
MSG2:   .ASCIZ  /ФАЙЛ ABC.TXT УДАЛЕН/
        .EVEN
        .END    ST

7.1.3. МАКРОКОМАНДА .ENTER

Макрокоманда .ENTER создаёт временный файл с указанным именем на заданном устройстве. Указанный номер канала связывается с файлом.

Файл становится постоянным только после выполнения макрокоманды .CLOSE. Если существовал постоянный файл с тем же именем, то он удаляется, а это имя получает вновь созданный файл. Фактическая длина файла определяется при выполнении .CLOSE.

После выполнения макрокоманды .ENTER R0 содержит фактический размер области носителя, доступной для файла. Если устройство является бескаталоговым, то R0 содержит 0.

Формат макрокоманды:

.ENTER AREA,CHAN,DBLK,LEN,SEGNUM

Формат таблицы аргументов EMT:

Указывая нулевое значение аргумента "LEN" в макрокоманде .ENTER необходимо иметь в виду, что назначается половина наибольшей области, т.е., если на устройстве наибольшая свободная область составляет 200 блоков, а длина файла, подлежащего передаче, 150 блоков, то передача с аргументом LEN=0 невозможна, т.к. макрокоманда .ENTER предоставит только 100 блоков. Во время передачи появится ошибка ввода/вывода. Однако, если с помощью аргумента LEN=150 затребована длина в 150 блоков, то передача пройдёт без ошибок. За этим обстоятельством особенно необходимо следить при копировании на устройства, имеющие малый объём, например, BY:.

Примечание. Макрокоманда .ENTER требует, чтобы драйвер устройства находился в памяти перед её выполнением. Поэтому необходимо перед .ENTER, например, выполнить макрокоманду .FETCH.

Ошибки:

Пример приведён при описании макрокоманды .WRITW.

7.1.4. МАКРОКОМАНДА .RENAME

Эта системная макрокоманда изменяет имя указанного файла. Если на устройстве уже существует файл с тем же именем, то он удаляется.

Формат макрокоманды:

.RENAME AREA,CHAN,DBLK

Формат таблицы аргументов EMT:

Макрокоманда .RENAME действительна только для каталоговых устройств; для остальных устройств она игнорируется.

Примечание. По завершении .RENAME канал CHAN будет свободен.

Ошибки:

В следующем примере файл DATA.TMP на DX0: переименовывается в файл DATA.CNT.

Пример.

        .MCALL  .FETCH,.PRINT,.EXIT,.RENAME
ST:     .FETCH  #HSPACE,#NAMBLK        ;загрузить драйвер DX
        BCS     FEER
        .RENAME #AREA,#0,#NAMBLK       ;сделать переименование
        BCS     RENER
        .EXIT
FEER:   .PRINT  #FMSG
        .EXIT
RENER:  .PRINT  #RNMSG
        .EXIT
AREA:   .BLKW   2                      ;обл. аргументов EMT
NAMBLK: .RAD50  /DX0DATA  TMP/         ;старое имя
        .RAD50  /DX0DATA  CNT/         ;новое имя
FMSG:   .ASCIZ  /ОШИБКА .FETCH/
RNMSG:  .ASCIZ  /ОШИБКА .RENAME/
        .EVEN
HSPACE = .
        .END    ST

7.1.5. МАКРОКОМАНДА .LOOKUP

Макрокоманда .LOOKUP связывает указанный канал с устройством и/или файлом для выполнения операций ввода/вывода.

Чтобы освободить канал для других операций необходимо выполнить одну из макрокоманд:

.CLOSE

.SAVESTATUS

.SRESET

.HRESET

.PURGE

.CSIGEN (освободит все каналы с номерами 0-10)

Формат макрокоманды:

.LOOKUP AREA,CHAN,DBLK[,SEGNUM]

Формат таблицы аргументов EMT

Следует помнить, что оверлейная программа использует 15-й канал для чтения перекрытия. Перед выполнением .LOOKUP драйвер должен находиться в памяти, после завершения макрокоманды регистр R0 содержит длину открытого файла в блоках или 0 для бескаталоговых устройств.

Ошибки:

В примере показано использование макрокоманды .LOOKUP. Определяется, существует ли на устройстве DK: рабочий файл, содержащий очередь файлов на вывод к указанному устройству. Если такой файл существует, то его размер выводится на терминал (в блоках).

Пример.

        .TITLE  LOOKUP.MAC
        .MCALL  .LOOKUP,.PRINT,.EXIT
START:  .LOOKUP #AREA,#0,#QUSPEC
        BCC     1¤
        .PRINT  #NOFIL
        .EXIT
1¤:     MOV     #SIZE,R1
        JSR     PC,CNV10
        .PRINT  #BUF
        .EXIT
CNV10:  MOV     R0,-(SP)
        CLR     R0
1¤:     INC     R0
        SUB     #10.,@SP
        BGE     1¤
        ADD     #72,@SP
        DEC     R0
        BEQ     2¤
        CALL    CNV10
2¤:     MOVB    (SP)+,(R1)+
        RTS     PC
AREA:   .BLKW   3
QUSPEC: .RAD50  /DK QUFILE/
        .RAD50  /TMP/
BUF:    .ASCII  /DK:QUFILE.TMP = /
SIZE:   .ASCIZ  /    BLOCKS/
NOFIL:  .ASCIZ  /?НЕ НАЙДЕН ФАЙЛ DK:QUFILE.TMP ?/
        .EVEN
        .END    START

7.2. ОПЕРАЦИИ ВВОДА/ВЫВОДА

7.2.1. МАКРОКОМАНДЫ .READ/.READC/.READW

Данные макрокоманды обеспечивают передачу указанного количества слов по заданному каналу в память в одном из трёх режимов.

После выполнения любой макрокоманды типа .READ регистр R0 будет содержать полезную информацию.

Если считывание производится с устройства последовательного доступа, то R0 содержит требуемое для операции число слов. При обслуживании устройств с прямым доступом R0 содержит фактическое количество слов, которое будет считано (.READ, .READC) или было считано (.READW).

Если сделана попытка считывания после конца файла, то частичная передача все же возможна, но это количество слов (также отражаемое в R0) будет меньше, чем требуется. В случае частичной передачи устанавливается бит "C", и выдаётся код ошибки 0. Поэтому программа всегда должна использовать сведения о фактическом числе принятых слов, содержащихся в R0. Например, если для файла длиной в семь блоков, имеющего номера блоков с 0 по 6 выполняется макрокоманда на чтение 262 слов, начиная с блока 6, то считывается только 256 слов и устанавливается бит "C" (код ошибки 0 в ERRWD).

Ошибки одинаковы для всех трёх режимов:

7.2.1.1. МАКРОКОМАНДА .READ

Макрокоманда .READ выполняет передачу данных по указанному каналу в память. После того, как запрос установлен в очередь к соответствующему драйверу, управление немедленно передаётся программе пользователя. Назначение канала производится с помощью макрокоманд .LOOKUP и .ENTER.

Формат макрокоманды:

.READ AREA,CHAN,BUF,WCNT,BLK

Формат таблицы аргументов EMT:

Примечание. Для использования считанных данных рекомендуется выполнить макрокоманду .WAIT, которая переводит программу в состояние ожидания до завершения операции ввода/вывода. Макрокоманда .WAIT также возвращает ошибки, которые могут появиться во время передачи.

7.2.1.2. МАКРОКОМАНДА .READC

Макрокоманда передаёт необходимое число слов по указанному каналу в память. Управление возвращается программе пользователя сразу после того, как запрос поставлен в очередь. Программа пользователя продолжает выполняться до окончания ввода данных, затем управление передаётся подпрограмме завершения, указанной в макрокоманде. После выполнения инструкции RTS PC в подпрограмме завершения управление возвращается прерванной программе.

Формат макрокоманды:

.READC AREA,CHAN,BUF,WCNT,CRTN,BLK

Формат таблицы аргументов EMT:

При входе в подпрограмму завершения:

• R0 содержит слово состояния канала; установленный в нём бит 0 означает возникшую при передаче аппаратную ошибку;
• R1 содержит восьмеричный номер канала; его удобно использовать, когда одна и та же подпрограмма завершения применяется для работы с несколькими каналами.

Примечание. В подпрограммах завершения недопустимо использование макрокоманд, требующих USR.

7.2.1.3. МАКРОКОМАНДА .READW

Эта макрокоманда передаёт указанное количество слов по определённому каналу в память. Управление возвращается программе пользователя только после завершения операции чтения или при обнаружении ошибки.

Формат макрокоманды:

.READW AREA,CHAN,BUF,WCNT,BLK

Формат таблицы аргументов EMT:

Если после выполнения макрокоманды .READW установлен бит "C", это означает, что произошла ошибка передачи.

Пример приведён при описании макрокоманды .WRITW.

7.2.2. МАКРОКОМАНДЫ .TTYIN/.TTINR

Эти системные макрокоманды производят передачу знаков с системного терминала в программу пользователя. Пересылаемый символ помещается в R0, или в R0 и указанную ячейку.

Формат макрокоманды:

.TTYIN CHAR

.TTINR

Если аргумент CHAR не указан, то символ остаётся в младшем байте R0.

Макрокоманда .TTYIN расширяется в последовательность:

        EMT     340
        BCS     .-2

а .TTINR как:

        EMT     340

При работе .TTYIN выполнение основной программы приостанавливается до тех пор, пока символ не будет введён. При использовании .TTINR, если нет знака на ввод (бит 12 JSW равен 1) или строки (бит 12 JSW равен 0) на ввод, то выполняется возврат из макрокоманды с установленным битом "C".

Используя бит 12 в JSW, можно управлять работой системного терминала (см. п. 6.1.2).

Этот бит пользователь должен устанавливать сам. При возвращении управления системе он сбрасывается. Комбинации <СУ/F> и <СУ/B> не зависят от бита 12.

Примечание. Макрокоманда .TTYIN не считывает данных из командного файла. Если при использовании командных файлов необходима такая функция, используется макрокоманда .GTLIN.

Ошибки одинаковы для обоих режимов:

Пример приведён при описании макрокоманды .TTYOUT.

7.2.3. МАКРОКОМАНДЫ .TTYOUT/.TTOUTR

Системные макрокоманды .TTYOUT и .TTOUTR выполняют передачу символов из R0 на системный терминал.

Разница между ними в том, что в случае, если в буфере монитора нет места для символа из R0, то макрокоманда .TTYOUT приостановит выполнение всей программы пользователя и будет ожидать появление свободной ячейки, в то время как макрокоманда .TTOUTR продолжит выполнение программы, даже если символ не передан из R0 в монитор.

Формат макрокоманды:

.TTYOUT CHAR

.TTOUTR

Если аргумент CHAR не указан, то в монитор будет передано содержимое R0.

Если после выполнения макрокоманды .TTOUTR бит "C" установлен, это означает, что в буфере нет места, и символ не был выведен.

Ошибки:

Пример.

        .MCALL  .EXIT,.TTYIN,.TTYOUT,.TTINR,.TTOUTR
ST:     MOV     #BUF,R1
        CLR R2
INLOOP: .TTINR                 ;ввести символы
                               ;с терминала
CHRIN:  MOVB    R0,(R1)+       ;записать символ в буфер
        INC     R2             ; увеличить счетчик
        CMP     R0,#12
        BNE     INLOOP
        MOV     #BUF,R1
OUTLOP: MOVB    (R1),R0        ;занести символ в R0
        .TTOUTR                ;распечатать его
        BCS     NOROOM         ;нет места для выходного
                               ;буфера
CHROUT: DEC     R2             ;уменьшить счётчик
        BEQ     ST
        INC     R1             ;сдвинуть указатель
                               ;буфера и печатать
        BR      OUTLOP         ;следующий символ
NOROOM: MOVB    (R1),R0        ;периодическая попытка
        .TTOUTR                ;вывести символ
        BCC     CHROUT
TYPETT:
        .TTYOUT (R1)           ;вывести символ
        BR      CHROUT
BUF:    .BLKW   100.
        .END    ST

7.2.4. МАКРОКОМАНДА .WAIT

Системная макрокоманда .WAIT приостанавливает выполнение программы до завершения операции ввода/вывода по указанному каналу.

Формат макрокоманды:

.WAIT CHAN

Формат регистра R0:

Макрокоманда .WAIT, используемая совместно с макрокомандами .READ/.WRITE, позволяет осуществить двойную буферизацию процесса ввода/вывода.

Макрокоманда .WAIT передаёт пользователю информацию об ошибках аппаратуры в операции ввода/вывода.

Ошибки:

Пример приведён при описании макрокоманды .MRKT.

7.2.5. МАКРОКОМАНДЫ .WRITE/.WRITC/.WRITW

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

Примечание. При использовании запросов типа .READ/.WRITE для буферных операций ввода/вывода необходимо выделять дополнительные элементы очереди при помощи макрокоманды .QSET.

Ошибки одинаковы для всех трёх режимов:

7.2.5.1. МАКРОКОМАНДА .WRITE

Выполняет передачу указанного количества слов из памяти по каналу CHAN. Управление передаётся программе пользователя сразу после того, как запрос поставлен в очередь. Назначение канала производится при помощи макрокоманд .LOOKUP и .ENTER

Формат макрокоманды:

.WRITE AREA,CHAN,BUF,WCNT,BLK

Формат таблицы аргументов EMT:

7.2.5.2. МАКРОКОМАНДА .WRITC

Передаёт необходимое количество слов из памяти по указанному каналу. Управление возвращается программе пользователя немедленно после того, как запрос поставлен в очередь. Выполнение программы пользователя продолжается до окончания вывода, затем управление передаётся подпрограмме завершения, по инструкции RTS PC в подпрограмме завершения управление передаётся в прерванную программу пользователя.

Формат макрокоманды:

.WRITC AREA,CHAN,BUF,WCNT,CRTN,BLK

Формат таблицы аргументов EMT:

Примечание. Для макрокоманды .WRITC действительны все соглашения и примечания, касавшиеся макрокоманды .READC.

7.2.5.3. МАКРОКОМАНДА .WRITW

Эта макрокоманда передаёт указанное количество слов из памяти по указанному каналу. Управление возвращается в программу пользователя после завершения вывода.

Формат макрокоманды:

.WRITW AREA,CHAN,BUF,WCNT,BLK

Формат таблицы аргументов EMT:

В следующем примере с использованием .READW и .WRITW вывод полностью синхронен. Программа не выполняется до тех пор, пока весь буфер не будет заполнен или очищен.

Пример.

        .MCALL  .FETCH,.READW,.WRITW,.ENTER,.LOOKUP,.PRINT
        .MCALL  .EXIT,.CLOSE
ERRWD = 52
ST:     .FETCH  #HSPACE,#PCNAME         ; Загрузить драйвер PC
        BCS     FERR
        MOV     #AREA,R5                ; Обл. аргументов EMT
        CLR     R4                      ; R4 - канал вывода 0
        MOV     #1,R3                   ; R3 - канал ввода 1
        .ENTER  R5,R4,#PCNAME           ; Открыть файл
        BCS     ENERR
        .LOOKUP R5,R3,#PCNAME
        BCS     LKERR
        CLR     R1                      ; R1 - номер блока
LOOP:   .READW  R5,R3,#BUFF,#256.,R1    ; Считать блок
        BCS     RDERR
        .WRITW  R5,R4,#BUFF,#256.,R1    ; Записать его
        BCS     WTERR
        INC     R1                      ; Увеличить счетчик
        BR      LOOP
RDERR:  TSTB    ERRWD                   ; Это EOF ?
        BEQ     1¤                      ; Да
        .PRINT  #RDMSG
1¤:     .EXIT
WTERR:  .PRINT  #WTMSG
        .EXIT
PCNAME: .RAD50  /PC/                    ; Для PC не нужно имя
        .WORD   0                       ; Файла, оно - 0
FERR:   .PRINT  #FEMSG
        .EXIT
ENERR:  .PRINT  #ENMSG
        .EXIT
LKERR:  .PRINT  #LKMSG
        .EXIT
FEMSG:  .ASCIZ  /СДЕЛАТЬ "INSTALL PC"/
ENMSG:  .ASCIZ  /ОШИБКА ENTER/
LKMSG:  .ASCIZ  /ОШИБКА LOOKUP/
ROMSG:  .ASCIZ  /ОШИБКА READ/
WTMSG:  .ASCIZ  /ОШИБКА WRITE/
        .EVEN
AREA:   .BLKW   10
BUFF:   .BLKW   256.
HSPACE = .
        .END    ST

Эта же программа может быть написана с использованием макрокоманд .READC и .WRITС. Макрокоманды выполнят начальную часть ввода-вывода, а подпрограммы завершения обработают оставшуюся часть.

        .MCALL  .PRINT,.EXIT,.FETCH,.ENTER,.LOCKUP
        .MCALL  .CLOSE,.READC,.WRITC,.WAIT
ERRWD = 52
ST:     .FETCH  #AREA,#PCNAME           ; Загрузить драйвер PC
        BCS     FERR
FLNK:   MOV     #AREA,R5                ; Обл. аргументов EMT
        .ENTER  R5,#1,#PCNAME           ; Открыть файл
        BCS     ENERR
        .LOOKUP R5,#0,#PCNAME
        BCS     LKERR
        CLR     R1                      ; R1 - номер блока
LOOP:   CLR     DFLG                    ; Сброс флага вып./ошиб.
        .READC  R5,#0,#BUFF,#256.,RDCOMP,R1 ; Считать блок
        BCS     EOF
1¤:     TST     DFLG                    ; Флаг установлен ?
        BEQ     1¤                      ; Нет
        BMI     IOERR                   ; Да
EOF:    .CLOSE  #1
        .EXIT
RDCCMP: ROR     R0                      ; Бит C установлен, значит
        BCS     RWERR                   ; Встретилась ошибка
        .WRITC  R5,#0,#BUFF,#256.,#WRCOMP,BLKN ; Записать блок 
        BCC     RTS
RWERR:  MOV     #-1,DFLG                ; Флаг ошибки
RTS:    RTS     PC
WRCOMP: ROR     R0
        BCS     RWERR                   ; Ошибка аппаратуры
        INC     BLKN
        .READC  R5,#1,#BUFF,#256.,#RDCOMP,BLKN
        BCC     3¤
        TSTB    ERRWD
        BNE     RWERR                   ; Нет
        INC     DFLG
3¤:     RTS     PC
FERR:   MOV     #FMSG,R0
        BR      TYPIT
IOERR:  MOV     #IOMSG,R0
        BR      TYPIT
LKERR:  MOV     #LMSG,R0
        BR      TYPIT
ENERR:  MOV     #EMSG,R0
TYPIT:  .PRINT
        .EXIT
PMSG:   .ASCIZ  /СДЕЛАТЬ "INSTALL PC"/
EMSG:   .ASCIZ  /ОШИБКА ENTER/
LMSG:   .ASCIZ  /ОШИБКА LOOKUP/
IOMSG:  .ASCIZ  !ОШИБКА ВВОДА/ВЫВОДА!
        .EVEN
DFLG:   .WORD   0
PCNAMEs .RAD50  /PC/
        .WORD   0
BLKN:   .WORD   0
AREA:   .BLKW   10
BUFF:   .BLKW   256.
HSPACE  = .
        .END    ST

7.2.6. МАКРОКОМАНДА .PRINT

Эта макрокоманда предназначена для вывода строки текста на системный терминал.

Формат макрокоманды:

.PRINT ADDR

Строка, выдаваемая на печать, может оканчиваться либо нулевым байтом, либо байтом со значением <200>. Если строка оканчивается нулевым байтом, то автоматически добавляется <ВК><ПС>. Если строку заканчивает байт <200>, то выдача <ВК><ПС> не производится.

Управление возвращается программе пользователя после размещения в буфере вывода всех выводимых символов.

Ошибки отсутствуют.

7.2.7. МАКРОКОМАНДА .SPFUN

Эта системная макрокоманда используется драйверами устройств для выполнения специальных функций, зависящих от устройств.

Формат макрокоманды:

.SPFUN AREA,CHAN,FUNC,BUF,WCNT,BLK,CRTN

Формат таблицы аргументов EMT:

Аргументы BLK, CHAN и WCNT могут определяться так же, как для операции .READ/.WRITE.

Макрокоманда .SPFUN даёт возможность выполнять функции, приведённые в табл. 2.

Чтобы использовать запрос .SPFUN, драйвер должен находиться в памяти, и канал должен быть связан с файлом запросом .LOOKUP.

Запрос .SPFUN для записи абсолютных блоков на гибкий диск не должен ничего записывать на нулевую дорожку, если будет использоваться команда DUP или COPY/DEVICE для поддержки носителя. DUP не записывает дату на нулевую дорожку. Также нужно следить за тем, чтобы правильно были указаны адрес буфера и количество слов. Монитор проверяет, находится ли аргумент BUF в рабочей области, но не проверяет BUF+WCNT. Если использовать запрос .SPFUN и драйвер устройства, который не поддерживает специальных функций, вызов возвращается в программу, не объявляя об ошибке.

Для драйвера диска типа RK06/07 (DM) коды специальных функций 377 и 376 требуют размера буфера на одно слово больше, чем необходимо для данных. Первое слово буфера содержит информацию об ошибке, возвращённую как результат работы запроса .SPFUN. Данные, переданные в результате запроса чтения или записи, находятся во втором и следующих словах буфера.

Коды ошибок:

Ошибки:

Примечание. Перед выполнением макрокоманды .SPFUN драйвер соответствующего устройства должен быть загружен в память.

Следует отметить, что код функции занимает только один байт и его значение всегда отрицательно. Допустимые значения кода не выходят за пределы от -1 до -128 десятичных (от 377 до 200 восьмеричных).

В следующем примере программа производит перемотку кассеты к записывает блок в 256 слов и межфайловый промежуток.

Пример

        .MCALL  .PRINT,.FETCH,.LOOKUP,.SPFUN
        .MCALL  .WRITW,.EXIT,.WAIT,.CLOSE
ST:     .FETCH  #HSPC,#CT           ;Загрузить драйвер СТ
        BCS     FERR
        .LOOKUP #AREA,#4,#CT
        BCS     LKERR
        .SPFUN  #AREA,#4,#373,#0    ;Перемотать синхронно
        BCS     SERR
        .WRITW  #AREA,#4,#BUFF,#256.,BLK
        BCS     WTERR
        .SPFUN  #AREA,#4,#372,#1    ;Запись межфайлового
                                    ;промежутка
        .PRINT  #DONE
        .WAIT   #4
        .CLOSE  #4
        .EXIT
AREA:   .BLKW   10
FERR:   .PRINT  #FMSG
        .EXIT
LKERR:  .PRINT  #LKMSG
        .EXIT
SERR:   .PRINT  #SMSG
        .EXIT
WTERR:  .PRINT  #WTMSG
        .EXIT
DONE:   .ASCIZ  /КОНЕЦ РАБОТЫ/
FMSG:   .ASCIZ  /ОШИБКА FETCH/
LKMSG:  .ASCIZ  /ОШИБКА LOOKUP/
SMSG:   .ASCIZ  /ОШИБКА SPFUN/
WTMSG:  .ASCIZ  /ОШИБКА WRITW/
        .EVEN
CT:     .RAD50  /CT/
        .WORD   0,0,0
BUFF:   .BLKW   256.
BLK:    .WORD   0
HSPC =  .
        .END    ST

7.3. РАБОТА С КАНАЛАМИ

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

7.3.1. МАКРОКОМАНДА .CDFN

Системная макрокоманда .CDFN используется для увеличения числа каналов ввода/вывода.

Формат макрокоманды:

.CDFN AREA,ADDR,NUM

Формат таблицы аргументов EMT:

Каждое задание первоначально обеспечивается 16 (десятичное) каналами ввода/вывода, имеющими номера с 0 по 15. С помощью данной макрокоманды число каналов может быть увеличено до 256 (десятичное).

Память, используемая для размещения новых каналов ввода/вывода, резервируется в программе пользователя. Каждый канал ввода/вывода требует 5 слов памяти. Если количество определяемых каналов равно N, то пользователь должен зарезервировать для них 5*N слов памяти начиная с адреса ADDR.

Рекомендуется использовать макрокоманду .CDFN в начале программы, перед выполнением операции ввода/вывода.

Макрокоманда .CDFN определяет только новые каналы; ранее определённые каналы не используются, но содержимое старых каналов передаётся в новые. Попытка уменьшить количество каналов приведёт к сообщению об ошибке.

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

Если программа использует оверлейную структуру, 15 канал не должен изменяться, т.к. используется драйвером оверлеев. Другие каналы могут быть определены и использованы как обычно.

Макрокоманды .SRESET и .HRESET отменяют действие макрокоманды .CDFN и устанавливают исходные 16 каналов, определённые при запуске программы.

Ошибки:

В примере определяется сначала 25, каналов, затем 30. каналов. При попытке определить 20. каналов возникает ошибка, т.к. ранее было определено большее количество каналов. На системный терминал выдаются сообщения.

Пример.

        .MСАLL  .CDFN,.PRINT,.HRESET,.EXIT
START:  .CDFN   #AREA,#CHANL,#25.      ;определить 25. каналов
        BCS     ERR
        .PRINT  #MSG                   ;печать сообщения
        .CDFN   #AREA,#CHANL,#30.      ;определить 30. каналов
        BCS     ERR
        .PRINT  #MSG                   ;печать сообщения
        .CDFN   #AREA,#CHANL,#20.      ;определить 20. каналов
        BCC     ЕRR1
        .PRINT  #MSG
CONT:   .HRESET                        ;возврат к 16. каналам
        .CDFN   #AREA,#CHANL,#20.      ;определить 20. каналов
        BCS     ERR
        .PRINT  #MSG                   ;печать сообщения
        .EXIT
ERR:    .PPINT  #MSG1
        .EXIT
ERR1:   .PRINT  #MSG1
        BR      CONT
ARFA:   .BLKW   3                      ;блок аргументов EMT
MSG:    .ASCIZ  /КАНАЛЫ ОПРЕДЕЛЕНЫ/
MSG1:   .ASCIZ  /ОШИБКА .CDFN/
        .EVEN
CHANL:  .BLKW   30.*5                  ;область для каналов
        .END    START

7.3.2. МАКРОКОМАНДА .PURGE

Системная макрокоманда .PURGE используется для освобождения канала без выполнения макрокоманд .HRESET, .SRESET, .SAVESTATUS или .CLOSE.

Формат макрокоманды:

.PURGE CHAN

Формат регистра R0:

Макрокоманда .PURGE освобождает канал, не выполняя никаких других операций (временно созданный файл теряется).

Если программа имеет оверлейную структуру, то в макрокоманде .PURGE нельзя задавать канал 17 (восьмеричное), т.к. этот канал используется драйвером перекрытий.

Если указанный в макрокоманде канал не занят, т.е. не связан с файлом, то макрокоманда игнорируется.

Ошибки отсутствуют.

7.3.3. МАКРОКОМАНДА .REOPEN

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

Формат макрокоманды:

.REOPEN AREA,CHAN,CBLK

Формат таблицы аргументов EMT:

Сочетание макрокоманд .REOPEN и .SAVESTATUS удобно в тех случаях, когда нужно одновременно обработать большое число файлов при ограниченном количестве каналов. Необходимое количество файлов можно открыть макрокомандой .LOOKUP и сохранить макрокомандой .SAVESTATUS. Когда требуются данные из файла, макрокоманда .REOPEN даёт возможность программе связать файл, сохранённый макрокомандой .SAVESTATUS, со свободным каналом и затем произвести считывание.

Макрокоманда .REOPEN может использовать любой канал, не обязательно тот, который использовался ранее макрокомандами .LOOKUP и .SAVESTATUS.

Ошибки:

Пример приведён при описании макрокоманды .SAVESTATUS.

7.3.4. МАКРОКОМАНДА .SAVESTATUS

Макрокоманда .SAVESTATUS передаёт 5 слов информации о состоянии канала в указанную область памяти. Освобождая канал для других целей. Эти слова содержат полную информацию, необходимую системе для определения файла.

Формат макрокоманды:

.SAVESTATUS AREA,CHAN,CBLK

Формат таблицы аргументов EMT:

После выполнения макрокоманды файл закрывается, и канал освобождается для использования.

Макрокоманда .SAVESTATUS применяется только в том случае, если файл был открыт посредством макрокоманды .LOOKUP. Если файл был открыт макрокомандой .ENTER, то использование макрокоманды .SAVESTATUS недопустимо, при этом возникает ошибка.

Эта макрокоманда может относиться только к тем файлам, которые находятся на устройстве с каталоговой организацией.

В табл. 3 приведена информация о состоянии канала. Символом «*» помечены биты, пояснения к которым даны, для установленного бита.

Сочетание макрокоманд .SAVESTATUS/.REOPEN очень удобно, но необходимо соблюдать некоторые меры предосторожности:

1. если после выполнения макрокоманды .SAVESTATUS файл был удалён до макрокоманды .REOPEN, то выполненная в этот момент макрокоманда .ENTER может использовать область этого файла как свободную и изменить её содержимое; после этого содержимое файла нельзя восстановить;
2. при выполнении макрокоманды .REOPEN присутствие в памяти драйвера соответствующего устройства необязательно; однако, если выполняются макрокоманды .READ или .WRITE, то при отсутствии драйвера выдаётся неустранимая ошибка.

Ошибки:

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

Пример.

        .MCALL  .READ,.EXIT,.CSIGEN,.SAVESTATUS,.REOPEN
ST:     MOV     #AREA,R5
        .CSIGEN #DSPACE,#DEXT      ;ввести строку
        MOV     R0,BUF             ;указатель на
                                   ;свободную память
        .SAVEST R5,#3,#BLOCK1      ;сохранить информацию
                                   ;о первом вход. Файле
        .SAVEST R5,#4,#BLOCK2      ;о втором
        .SAVEST R5,#5,#BLOCK3      ;о третьем
        MOV     #BLOCK1,R4
PRCS:   .REOPEN R5,#0,R4           ;переоткрыть файл
                                   ;по каналу 0
        .READ   R5,#0,BUF,COUNT,BLOCK ;и обработать его
DONE:   ADD     #12,R4             ;указатель на
                                   ;следующий блок
        CMP     R4,#BLOCK3         ;последн. Файл обработан?
        BLOS    PRCS               ;нет, выполнить следующий
        .EXIT
BLOCK1: .WORD   0,0,0,0,0          ;блоки для информации
BLOCK2: .WORD   0,0,0,0,0          ;о сохраненном
BLOCK3: .WORD   0,0,0,0,0          ;состоянии каналов
AREA:   .BLKW   10
BUF:    .WORD   0
BLOCK:  .WORD   0
COUNT:  .WORD   256.
DEXT:   .WORD   0,0,0,0
DSPACE = .
        .END    ST

7.4. ОБРАБОТКА КОМАНДНОЙ СТРОКИ

7.4.1. МАКРОКОМАНДА .CSIGEN

Системная макрокоманда .CSIGEN вызывает интерпретатор командной строки (CSI) в обычном режиме.

Формат макрокоманды:

.CSIGEN DEFSPC,DEFEXT,CSTRNG[,LINBUF]

Если строка находится в памяти, она должна заканчиваться нулевым байтом, а не содержать символы <ВК>,<ПС>.

Блок DEFEXT содержит:

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

Область LINBUF (длиной 81. байт) резервируется пользователем. Вводимая строка представляется, как строка директивы .ASCIZ, и может быть напечатана с помощью макрокоманды .PRINT.

Макрокоманда .CSIGEN автоматически выбирает строку из командного файла, если был указан ввод с терминала (CSTRNG=0), а сама программа вызывалась из этого командного файла.

Макрокоманда .CSIGEN связывает три возможных выходных файла с каналами 0,1,2 соответственно и шесть входных файлов - с каналами 3-10 (восьмеричное). Пропуск спецификации файла в командной строке оставляет соответствующий канал свободным.

Область DEFSPC должна быть достаточной, чтобы вместить все вводимые драйверы одновременно. Если размеры драйверов превышают имеющуюся область, программа пользователя может быть испорчена. По завершении макрокоманды .CSIGEN R0 содержит адрес первой свободной ячейки выше драйверов.

Ключи и связанные с ними значения передаются в стек.

Ошибки:

Примечание. Если ввод строки происходит с терминала, то при появлении ошибок сообщение о них выводится на системный терминал.

7.4.2. МАКРОКОМАНДА .CSISPC

Системная макрокоманда .CSISPC вызывает интерпретатор командной строки в специальном режиме.

Формат макрокоманды:

.CSISPC OUTSPC,DEFEXT,CSTRNG[,LINBUF]

В этом режиме интерпретатор командной строки не производит загрузку драйверов и не выполняет макрокоманд .CLOSE, .ENTER и .LOOKUP.

В блоке OUTSPC отводится первые 15 слов для трёх выходных файлов (5 слов на файл) и 24 слова для шести входных файлов (4 слова на файл). Если какой-то файл отсутствует, то соответствующее поле заполняется нулями.

В блок для выходных файлов заносится:

В блок для входных файлов заносится:

Если строка находится в памяти, она должна заканчиваться нулевым байтом, а не содержать символы <ВК>, <ПС>.

Блок DEFEXT содержит:

Если не используются расширения по умолчанию, соответствующие слова должны содержать 0.

Область LINBUF (длиной 81. байт) резервируется пользователем. Вводимая строка представляется, как строка директивы .ASCIZ, и может быть напечатана с помощью макрокоманды .PRINT.

Макрокоманда .CSISPC автоматически выбирает строку из командного файла, если был указан ввод с терминала (CSTRNG=0), а сама программа вызывалась из этого командного файла.

В общем и специальном режимах интерпретатора командной строки (CSI, ключи и соответствующие им значения передаются в стеке.

Ключом является косая черта (/), за которой следует любой символ (желательно, чтобы он был неслужебным).

За ключом может следовать значение ключа, которое указывается двоеточием (:). Значение ключа может быть либо восьмеричным числом, либо десятичным числом, либо набором буквенно-цифровых символов (от 1 до 3 символов), первый из которых должен быть буквенным. Десятичные величины указываются числом с точкой. Если точка отсутствует, то число считается восьмеричным.

Пользователь получает в стеке ключи и их значения в следующем виде:

Примечание. Если ключ имеет несколько значений, в стек записывается соответствующее количество ключей.

Ошибки:

Примечание. Если ввод строки происходит с терминала, то при появлении ошибок сообщение о них выводится на системный терминал.

В примере показано использование CSI в специальном режиме. Программа читает файл в формате ДОС и записывает его в формате ОС БК-11.

Пример

        .MCALL  .CSISPC,.PRINT,.EXIT,.ENTER,.CLOSE
START:  .CSISPC #OUTSP,#DEFEXT,#CSTRNG ; Ввести командную
                                    ; строку из памяти
        BCC     1¤
        .PRINT  #MSG
        .EXIT
1¤:     .ENTER  #AREA,#0,#OUTSPC,OUTSPC+10 ;Открыть файл
                                    ;для вывода
        BCC     2¤
        .PRINT  #MSG1
        .EXIT
2¤:     JSR     PC,IO               ; Подпрограмма  ввода
                                    ; в формате ДОС и вывода
                                    ; в формате ОС БК-11
        .CLOSE  #0                  ; закрыть выходной файл
        .EXIT
CSTRNG: .ASCIZ  "RK1:RAFOS,MAC=RK2:DDS.MAC" ; Командная
                                    ; строка
        .EVEN
DEFEXT: .WORD   0,0,0,0             ; Блок расширений
                                    ; по умолчанию
AREA:   .BLKW   5                   ; Блок аргументов EMT
MSG:    .ASCIZ  /ОШИБКА CSI/
MSG1:   .ASCIZ  /ОШИБКА ENTER/
        .EVEN
IO:     .                           ; Текст подпрограммы
        .
        RTS PC
OUTSP = .                           ; Блок дескрипторов
        .END    START

7.4.3. МАКРОКОМАНДА .GTLIN

Системная макрокоманда .GTLIN вводит командную информацию, отличную от формата CSI с системного терминала или из выполняющегося командного файла.

Формат макрокоманды:

.GTLIN LINBUF[,PROMPT]

Вводимая строка в области LINBUF (81. байт) оканчивается нулевым байтом вместо <ВК><ПС>.

Макрокоманда .GTLIN требует USR и выбирает строку с системного терминала или из командного файла в зависимости от того, откуда была загружена программа.

Если была задана команда SET TT QUIET, а ввод происходит из косвенного файла, строка-подсказка игнорируется, в противном случае строка-подсказка выводится на системный терминал прежде, чем выбрана вводимая строка.

Ошибки отсутствуют.

В следующем примере программа вводит строку с терминала и распечатывает её.

Пример.

        .MCALL  .GTLIN,.PRINT,.EXIT
START:  .GTLIN  #BUF,#PROMPT        ;ввести строку
        TSTB    BUF                 ;строка пустая?
        BEQ     ЕND                 ;да
        .PRINT  #BUF                ;нет ... вывести строку
        BR      START
END:    .EXIT
PROMPT: .ASCIZ  /ВВЕДИТЕ СТРОКУ/    ;строка-подсказка
BUF:    .BLKB   82.                 ;буфер вводимой строки
        .END    START

7.5. РАБОТА С ТАЙМЕРОМ

7.5.1. МАКРОКОМАНДА .GTIM

Системная макрокоманда .GTIM возвращает текущее содержимое системного таймера (в тиках) по указанному адресу.

Формат макрокоманды:

.GTIM AREA,ADDR

Формат списка аргументов EMT:

Программа пользователя должна сама преобразовывать время из тиков в часы, минуты, секунды (1 сек. = 50 тикам для сети с частотой 50 Гц).

Ошибки отсутствуют.

В примере пользователь получает в ячейке TIME текущее время в тиках.

Пример.

        .MCALL  .GTIM,.EXIT
START:  .GTIM   #AREA,#TIME     ;Получить время
        .EXIT
TIME:   .WORD   0,0
AREA:   .BLKW   2               ;Блок аргументов EMT
        .END    START

7.5.2. МАКРОКОМАНДА .CMKT

Системная макрокоманда .CMKT предназначена для отмены невыполненных макрокоманд временного интервала (.MRKT).

Формат макрокоманды:

.CMKT AREA,ID[,TIME]

Формат списка аргументов EMT:

Отмена макрокоманды .MRKT освобождает соответствующий элемент очереди для других целей.

Если несколько макрокоманд .MRKT имеют одинаковый ID, то отменяется макрокоманда с самым ранним временем окончания.

Если ID = 0, то все несистемные макрокоманды .MRKT (в диапазоне 1-177377) для данной программы отменяются, а аргумент TIME игнорируется.

Ошибки:

Пример приведён при описании макрокоманды .MRKT.

7.5.3. МАКРОКОМАНДА .MRKT

Системная макрокоманда .MRKT планирует запуск указанной подпрограммы завершения через заданный интервал времени в тиках ( 1 с = 50 тиков для частоты сети 50 Гц).

Формат макрокоманды:

.MRKT AREA,TIME,CRTN,ID

Формат таблицы аргументов EMT:

Системная макрокоманда .MRKT требует элемент очереди. Пользователь должен сам распределить достаточное количество элементов очереди.

ID в диапазоне 177400-177777 (восьмеричное) зарезервированы для системного использования.

Несколько макрокоманд .MRKT могут иметь один и тот же ID.

При входе в подпрограмму завершения R0 содержит ID.

Ошибки:

В следующем примере по истечении времени выдаётся сообщение на терминал.

Пример.

        .MCALL  .READ,.WAIT,.MRKT,.CMKT
        .MCALL  .QSET,.PRINT,.EXIT,.LOOKUP
START:  .LOOKUP #AREA,#0,#FILE      ; открыть файл
        BCS     LKERR
        MOV     #AREA,-(SP)
        .QSET   #QUEUE,#5           ; добавить 5 элементов
                                    ; очереди
        .MRKT   (SP),#INTRVL,#MRTN,#1   ; запустить MRTN
                                    ; по истечении времени
        BCS     NOMRKT
        .READ   #RDLST              ; читать
        BCS     RDERR
        .WAIT   #0                  ; ждать
        .CMKT   (SP),#1             ; освободить элемент
                                    ; очереди (отменить .MRKT)
        BCS     NOTDUN
        .EXIT
MRTN:                               ; подпрограмма завершения
        .PRINT  #FAIL1
        RTS     PC
LKERR:  .PRINT  #LM
        .EXIT
RDERR:  .PRINT  #RDMSG
        .EXIT
NOTDUN: .PRINT  #FAIL
        .EXIT
NOMRKT: .PRINT  #NOQ
        .EXIT
NOQ:    .ASCIZ  /НЕТ ЭЛЕМЕНТА ОЧЕРЕДИ/
FAIL:   .ASCIZ  /ОШИБКА CMKT/
FАIL1:  .ASCIZ  /ВРЕМЯ ИСТЕКЛО/
LM:     .ASCIZ  /ОШИБКА LOOKUP/
RDMSG:  .ASCIZ  /ОШИБКА READ/
        .EVEN
INTRVL: .WORD   0,13.               ; время
QUEUE:  .BLKW   5*7                 ; блок элементов
AREA:   .BLKW   5                   ; блок аргументов EMT
                                    ; для .MRKT
FILE:   .RAD50  /DK FTLE  TST/
RDLST:  .BYTE   0                   ; блок аргументов EMT
        .BYTE   10                  ; для .READ
BLOCK:  .WORD   0
        .WORD   BUF
        .WORD   256.
        .WORD   1
BUF:    .BLKW   256.                ; буфер ввода
        .END    START

7.6. СИСТЕМНЫЕ МАКРОКОМАНДЫ ОБЩЕГО НАЗНАЧЕНИЯ

В этом подразделе в алфавитном порядке приведено описание системных макрокоманд общего назначения.

7.6.1. МАКРОКОМАНДА .CHAIN

Системная макрокоманда .CHAIN обеспечивает загрузку новой программы вместо выполняемой и передачу ей управления без вмешательства оператора. Повторяя этот процесс, можно организовать загрузку программ по "цепочке".

Ячейки памяти 500-507 содержат имя устройства и файла (в коде RADIX-50), из которого будет выполняться загрузка новой программы, а область 510-777 используется для передачи информации загружаемой программе.

Формат макрокоманды:

.CHAIN

Формат регистра R0:

Выполнение макрокоманды .CHAIN гарантирует сохранение содержимого области памяти 500-510 и монитора. Сохранение ячеек 510-777 (область обмена информацией) зависит от значения бита CHAIN¤ (бит 8) в слове состояния программы перед загрузкой.

При выполнении макрокоманды .CHAIN открытые каналы ввода/вывода могут использоваться новой программой. Однако следует помнить, что монитор во время выполнения макрокоманды .CHAIN возвращается к исходным 16 каналам. Следовательно, программы, оставляющие файлы открытыми, не должны использовать макрокоманду .CDFN. Это справедливо только для программ на ассемблере. Для языков высокого уровня информация об открытых каналах и назначениях не сохраняется при выполнении макрокоманды .CHAIN.

Нерезидентные драйверы устройств выгружаются во время выполнения макрокоманды .CHAIN и должны быть загружены новой программой с помощью макрокоманды .FETCH.

Проверкой бита CHAIN¤ (бит 8) слова состояния программы JSW можно установить, была ли программа загружена посредством макрокоманды .CHAIN или командой монитора RUN.

Ошибки:

Макрокомандой .CHAIN выдаются те же сообщения об ошибках, какие генерируются при выполнении команды монитора RUN. При появлении ошибки макрокоманда .CHAIN игнорируется и управление передаётся монитору.

Примечание. При использовании макрокоманды .CHAIN нужно быть осторожным при инициализации стека. Обычно компоновщик при инициализации стека по умолчанию устанавливает его начальный адрес равным 1000 (восьмеричное). Если осторожность не соблюдена, стек может разрушить передаваемую информацию до того, как она будет использована.

Пример.

Программа PRINT.SAV загружается из программы GO.SAV с помощью макрокоманды .CHAIN.

;       ПРОГРАММА GO.SAV
;       ----------------
;
        .MCALL  .CHAIN,.TTYIN,.DBLK,.CTRLT
        .CTRLT                      ; определить управля-
                                    ; ющие символы
                                    ; (здесь LF)
START:  MOV     #500,R1
        MOV     #FILE,R2
        .REPT   4
        MOV     (R2)+,(R1)+         ; имя файла в 500-507
        .ENDR
1¤:     .TTYIN                      ; занесение символов с
        MOVB    R0,(R1)+            ; TT: в область 510-777
        CMPB    R0,#LF              ; вся строка введена?
        BNE     1¤                  ; нет
        CLRB    -(R1)               ; да
        .CHAIN                      ; запуск программы PRINT
FILE:   .DBLK   SY,PRINT,SAV        ; имя устройства и файла
        .END    START
         
;       ПРОГРАММА PRINT
;       ---------------
;
        .MCALL  .PRINT,.EXIT
BUF = 510
START:  .PRINT  #MSG                ; печать сообщения
        .PRINT  #BUF                ; печать области 510-777
        .PRINT  #MSG1               ; печать сообщения
        .EXIT
MSG:    .ASCII  /НАЧАЛО ПЕЧАТИ СООБЩЕНИЯ ИЗ /
        .ASCIZ  /ОБЛАСТИ 510-777/
MSG1:   .ASCIZ  /КОНЕЦ ПЕЧАТИ/
        .EVEN
        .END    START

7.6.2. МАКРОКОМАНДА .CNFDF

Системная макрокоманда .CNFDF определяет символы и мнемонические обозначения разрядов слов конфигурации системы.

Формат макрокоманды:

.CNFDF

Расширение макрокоманды:

 CONFIG  =^O300
FBMON¤  =^O1
HWDSP¤  =^O4
BATCH¤  =^O10
CLK50¤  =^O40
HWFPU¤  =^O100
FJOB¤   =^O200
GTLNK¤  =^O400
USR¤    =^O1000
LSI¤    =^O4000
MMU¤    =^O10000
LKCS¤   =^O20000
KW¤P    =^O40000
CLOCK¤  =^O100000
CONFG2  =^O370
CACHE¤  =^O1
MPTY¤   =^O2
SWREG¤  =^O4
LIGHT¤  =^O10
EIS¤    =^O400
VS6¤0   =^O1000
TYP70¤  =^O40000
TYP60¤  =^O100000
SYSGEN  =^O372
ERLG¤   =^O1
MMGT¤   =^O2
TIMIT¤  =^O4
MPTY¤   =^O1000
TIMER¤  =^O2000
ESCP¤   =^O14000
MTTY¤   =^O20000