Скрипты-86РК

[Alikberov]

Этой темой я заинтересовался относительно недавно.
Оглядываясь на такие экзотические скриптовые языки, как PERL и RUBY, которые раньше всюду управляли интернет сайтами, я подумал, а не разработать ли нечто подобное и для РАДИО-86РК?
Если в Windows и Linux пакетные файлы описываются как Batch и Bash, синтаксис которых своеобразен, почему бы и на РАДИО-86РК не описывать файлы автоматизации на каком-то своём синтаксисе?

Главное условие - компактность интерпретатора/парсера/транслятора.
Если в машинный код внедрить в синтаксис скрипта, можно существенно сэкономить на размере.

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

Ниже я представляю экспериментальную среду для редактирования и запуска скрипта.
В качестве демонстрации я описал там сценарий-затравку для игры «Питон».

Синтаксис прост.

• Каждый байт транслируется в конечный код как есть
• Каждое слово транслируется в конечный код как есть
• Буквы «G-Z» адресуют область переменных/меток (ячейки 7640-767F Монитора)
• Символ «@» используеся для чтения из ячейки переменной/метки
• Символами «[» и «]» экранируется блок
• Символ «:» адресует текущий адрес кода для метки
• Строчные комментарии отделяются как в ассемблере - через «;»

;;;;;;;;;;;;;
; SCRIPT-86RK
;;;;;;;;;;;;;
F803K F81BI                     ; LET K=F803,I=F81B
F809S F818T                     ; LET S=F809,T=F818
F821Z                           ; LET Z=F821

:G 21                           ; LXI H,"***ПИТОН***"
[0D 0A "***ПИТОН***" 0A 00]
CD T@                           ; CALL TEXT

:W 21                           ; LXI H,"НАЖМИТЕ <ВК>"
[0D 07 "НАЖМИТЕ <ВК>" 00]
CD T@                           ; CALL TEXT
CD K@                           ; CALL KEY
FE 1B C8                        ; IF KEY==ESC THEN RETURN
FE 0D C2 W@                     ; IF KEY<>13 THEN GOTO W

[Advertiser]

[Alikberov]

Вложенные блоки позволяют полностью или частично отказаться от использования многочисленных меток.
Иными словами, вместо «GOTO» теперь можно использовать аналоги «BREAK» и «CONTINUE» с указанием конкретного уровня вложенности.

Для доступа к стеку блоков введена специальная операция - «точка» («$»), которая возвращает адрес стека трансляции.

• « 1$» возвращает адрес выхода из блока текущего уровня вложенности («BREAK»)
• « 2$» возвращает адрес выхода из блока уровня вложенности выше
• « 1$...» возвращает адрес повторного входа в блок уровня («CONTINUE»)

Также, добавлены операционные псевдопеременные:

• «\» определяет адрес трансляции
• «^» определяет стартовый адрес

Вот иллюстрация управления иерархией:

1100\                            ; Аналог ORG 1100H
1100^                            ; Адрес пуска программы
C3[                              ; Родительский блок (безусловный)
    FE 01                        ; <---------------------------------+
    CA[                          ; Дочерний блок (условие JZ)        |
        FE 02                    ; <-------------------------------+ |
        D2[                      ; Внучатый блок (условие JNC)     | |
            FE 03                ; <-----------------------------+ | |
            DA                   ; По условию JC                 | | |
            1$...                ; повторить текущий блок -------+ | |
            E2                   ; По условию JPO                  | |
            2$...                ; повторить дочерний блок --------+ |
            EA                   ; По условие JPE                    |
            3$...                ; повторить родительский блок ------+
            F2                   ; По условию JP
            3$                   ; покинуть родительский блок -------+
            FA                   ; По условию JM                     |
            2$                   ; покинуть дочерний блок ---------+ |
        ]                        ; Закрываем блок в стеке          | |
    ]                            ; Закрываем блок в стеке          | |
    00                           ; <-------------------------------+ |
]                                ; Закрываем блок в стеке            |
00                               ; <---------------------------------+

Демонстрационный редактор доработан:

• Комбинация «Забой»+«F2» - удаляет помеченный символ
• Комбинация «ТАБ»+«F2» может помочь зарезервировать позиции под вставку символов

Но над его функционалом работы не ведутся, так как персер специально разрабатывается для интеграции с моим редактором «ПОБЕДИТ» в перспективе.

P.S.: Основной код парсера 0100-01FF - с лёгкостью уместится в любое ПЗУ.
(Второй вариант поддерживает конструкцию «IF-THEN-ELSE»: Спасибо b2m!')

[Strijar]

Так можно же просто использовать язык Forth. Для Радио-86РК он есть.

[Alikberov]

Так можно же просто использовать язык Forth. Для Радио-86РК он есть.

Ну, на Forth пишутся программы, а конкретно эта тема - про скрипты.

Тем не менее, представляю Вам свой вариант недо-среды недо-разработки (запуск по «G644»).

• «1000-10FF» - справочный лист клавиши «F1»
• «2000-2FFF» - листинг скрипта клавиши «F2»
• «3000-75FF» - листинг скрипта клавиши «F3»

Как можно заметить, адреса «1100-1FFF» зарезервированы под классическую трансляцию.
Потому, текст основного буфера (справочного листа) не рекомендуется править!

Тем самым, под трансляцию кода доступны три региона:

1. «0000-0643» - 1604 байта
2. «1100-1FFF» - 3840 байтов
3. «4000-74FF» - до 13568 байтов, в зависимости от размера скрипта #3

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

P.S.: Это как бы первый пример практического применения редактора «ПобЭдит».

[Alikberov]

Доработал оболочку и расширил функционал:

• «F1»/«F2»/«F3» - Переключение между листингами
• «F4» - Трансляция и запуск активного листинга
• «УС+S» - Сохранение активного листинга/буфера в файл
• «УС+O» - Загрузка буфера листинга из файла в память
• «УС+P» - Установка атрибута цвета фона (90-BF)
• «УС+Q» - Установка атрибута цвета текста (80-AF)

• Запуск - «G5DA»
• Ячейка «0617» - атрибут цвета активной области редактирования.

В качестве демонстрации, ниже представляю несколько файлов.
Сначала загружаем и запускаем сам «SCRIPT86», а затем клавишами «CTRL+O» подгружаем «PITON» и «BEEP».
Теперь можно проверить:

1. По «F2» и «F4» запускается «Питон» - почти Журнальный вариант
2. По «F3» и «F4» запустится мой полифонический цикл из моего редактора

P.S.: Теперь гораздо легче разрабатывать непосредственно машинным кодом, без избыточной синтаксической нагрузки Ассемблерных мнемоник.
И частично решил концепт USR-вызовов.

[Alikberov]

Внёс мелкие правки и доработки.
Адаптировал под Апогей.

[Alikberov]

Адаптировал свой код под Северную Пальмиру

[Zidane]

В общем то вопрос. Есть какая подпрограмма или скрипт, которые к бинарнику добавляют заголовок ну и все остальное, чтобы загрузить потом его в эмулятор? Для "Специалиста" нашел, для РК если и есть, то похоронено в глубинах форума где-то, по крайней мере я не нашел. Спасибо.

[Alikberov]

Синтаксис языка псевдо-скриптов достаточно прост и в основном состоит из символического представления шестнадцатеричного машинного кода, позволяя кодировать программный код как есть - дампом в текстовой записи.
Главное отличие от голого дампа - небольшой синтаксический сахар, позволяющий использовать:

1. Блочную структуру с условно неограниченной глубиной вложений
2. Метки (в ограниченном количестве)
3. Условную трансляцию и динамическое исполнение кода в трансляторе
4. Поддержка бинарных данных (для кодирования знакогенератора)
5. Подобие переменных среды конкретной платформы

Блоки ограничиваются символами «[» («BEGIN»), «]» («END») и «!» («ELSE»).
Перед открывающим блоком «[» («BEGIN») обязателен код любой трёхбайтовой инструкции - «C3» («JMP»), «CD» («CALL»), «21» («LXI») и прочих.
Для доступа к стеку блочной иерархии и передачи управления между блоками необходимо использовать символ «$» с указанием уровня «n$» вложенности «1$»…«9$» и получением указателя на выход из блока («BREAK»). Чтобы скорректировать указатель на начало указанного блока («CONTINUE»), инструкцию следует дополнить многоточием «n$...».

Метки определяются одним символом с предшествующей константой или символом двоеточия «:» (как в Batch-файлах MS-DOS). Количество меток ограничено символами латинского алфавита «G»…«Z», но допускается использования и символов Кириллицы (на свой страх и риск, так как высока вероятность пересечения с областью стека).
Вместе с метками можно использовать или определить переменные среды:

• Псевдопеременная «\» - аналог псевдооператора «ORG», задающего начальный адрес трансляции
• Псевдопеременная «^» задаёт стартовый адрес для запуска итогового кода трансляции

Динамическое исполнение кода в ходе трансляции позволило существенно сократить код самого транслятора и предоставить возможность производить вычисления любой сложности.
Следует помнить, что аналогично функции «EVAL» в любых других языках, использовать подобные врезки без соблюдения элементарных правил корректного кодостроения может привести к зависанию транслятора или повреждения данных в ОЗУ.
Фрагменты кода динамического исполнения экранируются обычными скобками «(…)» и должны возвращать результат в регистровой паре HL, а в регистре D - количество тетрад из HL для записи в итоговый код.
При этом, допускаются блочные вложения и все другие конструкции, поддерживаемые транслятором.

Бинарный формат данных имеет специфическое представление в силу максимальной простоты парсера.

0-+-+-+-+       ; 0b01010101
0+-+-+-+-       ; 0b10101010

Переменные среды являются значительной составляющей частью синтаксиса, позволяющей писать практически кроссплатформенные скрипты.
При грамотном их использовании появляется возможность запускать один скрипт без переделки и адаптации на разных платформах: «РАДИО-86РК», «АПОГЕЙ», «ПАЛЬМИРА» и т.п.

• «0@» - адрес самой первой ячейки экранной памяти: 76D0h
• «1@» - адрес домашней ячейки экранной памяти: 77C2h
• «2@» - адрес рабочих ячеек Монитора с адресом под курсором: 7600h
• «3@» - адрес ИМС К580ВИ53
• «4@» - резерв
• «5@» - адрес ИМС К580ВВ55 клавиатуры: 8000h
• «6@» - адрес ИМС К580ВВ55 периферии: A000h
• «7@» - адрес ИМС К580ВГ75: C000h
• «8@» - адрес ИМС К580ВТ57: E000h
• «9@» - адрес самой нижней ячейки активной экранной области: 7F12h
• «'A'@» или «A@» - подпрограммы чтения клавиатуры: F803h или F81Bh
• «'B'@» или «B@» - подпрограммы опроса буфера экрана или клавиатуры: F821h или F812h
• «'C'@» или «C@» - подпрограммы печати символа, байта или слова: F809h или F815h
• «'D'@» или «D@» - подпрограммы вывода на дисплей: F818h через HL или PC
• «'E'@» или «E@» - подпрограммы установки и чтения позиции курсора: «CUR L,H» или F81Eh
• «'F'@» или «F@» - резерв
• «'T'@» - управление шириной табуляции
• «'V'@» - индекс версии текущей среды скрипта
• «'X'@» - возврат обратно в среду

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

• «A@» обращается к подпрограмме чтения клавиши с ожиданием: F803h
• «A@...» обращается к подпрограмме чтения клавиши без ожидания: F81Bh
• «B@» обращается к подпрограмме чтения экрана в позиции курсора: F821h
• «B@...» обращается к подпрограмме опроса статуса клавиатуры: F812h
• «C@» обращается к подпрограмме вывода символа на экран: F809h
• «C@...» обращается к подпрограмме вывода байта на экран: F815h
• «C@......» обращается к подпрограмме вывода слова HL на экран: F815h
• «D@» обращается к подпрограмме вывода сообщения по HL экран: F818h
• «D@...» обращается к подпрограмме вывода сообщения по PC экран: F818h
• «E@» обращается к подпрограмме установки относительной позиции курсора по HL
• «E@...» обращается к подпрограмме установки относительной позиции курсора по PC
• «E@......» обращается к подпрограмме чтения позиции курсора: F81Eh

P.S.: Хочу выразить отдельную благодарность Ведущему Специалисту: Северная Пальмира достаточно приятная машина.

[Hammer]

А может ну его нафиг эти подпрограммы из ПЗУ? Может их лучше свои использовать? Тогда получится очень юзабельно.

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