Практическое программирование в среде RT-11 на ассемблере.

Вид для печати

Показывать 40 сообщений этой темы на одной странице

14.12.2016, 04:34
hobot

Цитата:

Сообщение от hobot

Ладно, сейчас буду править по последней шпоре.

Поправил, собрал.
Реакция на команду INS SH > ?MON-F-Trap to 4 110664

Зато после перезагрузки и команды LO SH
вроде бы почти оно (надо ещё пощупать на нюансы)

http://pic.pdp-11.ru/thumbs/20161214010145171.png

form, я вот такие вещи "не врубаю" как может программа доходить до АСКИЗ про нет файла,
если буквально перед ней стоит прямой переход BR ??? Мне как Паскальщику не понять это сходу!
Проблема в том, что мы с тобой видим один и тот же бублик, только видимо ты видишь его в виде замеса
из ингридиентов, а я в виде готовой булочки )))

- - - Добавлено - - -

Цитата:

Сообщение от form

Кроме того нужно убрать тестирование KMON indicator

Ещё что то подчистить ??? Можно планочку пониже, рупор погромче, у нас тут в танках только паскаль и броня толстая )))

- - - Добавлено - - -

Цитата:

Сообщение от hobot

я вот такие вещи "не врубаю"

стоп! Моя ошибка! Это не мой аскиз - это мон ругается за меня ) Вот это я совсем не понимаю.

- - - Добавлено - - -

в общем выкинул и свою строку, вроде бы всё красиво и соотв. ТЗ )))
Огромное преогромное !!! Но буду ещё тестить проверять мучить по всякому !!! )))
14.12.2016, 07:01
form

Цитата:

Сообщение от hobot

Реакция на команду INS SH

Нельзя его этой командой ставить - только автоматом :)
14.12.2016, 21:48
form

Пара слов о разборках с системой в которой RT-11 программа выполняется и попутных фичах. RSTS/E пока не затронут - сам не знаю что в нем и как кроме некоторой теории ;)

Код:

$SYSGE =: 372 ;СМЕЩЕНИЕ ДО СЛОВА ПАРАМЕТРОВ ГЕНЕРАЦИИ TSXP$ =: 100000 ;БИТ TSX-PLUS RTEM$ =: 10 ;БИТ RTEM-11 $SYSVE =: 276 ;СМЕЩЕНИЕ НОМЕРА ВЕРСИИ RT-11 $SYSUP =: 277 ;СМЕЩЕНИЕ НОМЕРА КОРРЕКЦИИ RT-11 $CNFG1 =: 300 ;СМЕЩЕНИЕ СЛОВА КОНФИГУРАЦИИ СИСТЕМЫ FJOB$ =: 200 ;БИТ ЗАГРУЖЕННОГО FOREGROUND ИЛИ SYSTEM ЗАДАНИЯ FBMON$ =: 1 ;БИТ МОНИТОРА FB/XM ИЛИ SET NOSJ $TSXVE =: -40 ;СМЕЩЕНИЕ ВЕРСИИ TSX/TSX-PLUS $RTEID =: 252 ;АДРЕС ИДЕНТИФИКАТОРА RTEM-11 RTE$ID =: ^RRTE ;ИДЕНТИФИКАТОР RTME-11

Код:

;ЭТО УНИВЕРСАЛЬНЫЙ СПОСОБ ПРОВЕРКИ НА TSX/TSX-PLUS (И РАФОС/TS - КАК БЕЗ НЕГО). ;РУКОВОДСТВО ПРОГРАММИСТА TSX-PLUS ПРЕДЛАГАЕТ ДРУГОЙ СПОСОБ: ВЫЗВАТЬ КАКОЙ-НИБУДЬ ;EMT 375 С ФУНКЦИЕЙ, СПЕЦИФИЧНОЙ ДЛЯ TSX (ПРЕДВАРИТЕЛЬНО ЗАПРЕТИВ ПРЕРЫАНИЕ ПРОГРАММЫ ;МАКРОКОМАНДОЙ .SERR), НО СПОСОБ ОТРИЦАТЕЛЬНЫХ СМЕЩЕНИЙ .GVAL ВЫГЛЯДИТ ПРОЩЕ ;И, ЕСЛИ СКЛЕРОЗ НЕ ПОДВОДИТ, В РАФОСОВСКОЙ ДОКУМЕНТАЦИИ РЕКОМЕНДУЕТСЯ ИМЕННО ОН). .GVAL $AREA,#$TSXVE ;ПОЛУЧАЕМ ВЕРСИЮ TSX BCS ... ;CS - ЭТО НЕ TSX/TSX-PLUS ;В ПРОТИВНОМ СЛУЧАЕ ИМЕЕМ В R0 ВЕРСИЮ СИСТЕМЫ ;В ВИДЕ X.Y (X*100.+Y)

Код:

;ПРОВЕРКА ПАРАМЕТРОВ ГЕНЕРАЦИИ СИСТЕМЫ МОЖЕТ ВЫЯВИТЬ TSX-PLUS, НО НЕ СМОЖЕТ ВЫЯВИТЬ ;СТАРЫЕ ВЕРСИИ TSX (И РАФОС/TS - КАК БЕЗ НЕГО). RTEM-11 ВЫЯВИТ. .GVAL $AREA,#$SYSGE ;ПОЛУЧАЕМ ПАРАМЕТРЫ ГЕНЕРАЦИИ СИСТЕМЫ TST R0 ;TSX-PLUS? BMI ... ;MI - ДА ;ЗАТО RTEM-11 ЧЕРЕЗ ДАННОЕ СМЕЩЕНИЕ RMON ВЫЯВИТЬ МОЖНО ОЧЕНЬ ЛЕГКО BIT #RTEM$,R0 ;RTEM-11? BNE ... ;NE - ДА ;ТАКЖЕ ВОЗМОЖЕН ДРУГОЙ СПОСОБ ПРОВЕРКИ НА RTEM-11 - БЕЗ ПРИВЛЕЧЕНИЯ СМЕЩЕНИЙ RMON CMP #RTE$ID,@#$RTEID ;RTEM-11? BEQ ... ;EQ - ДА

Код:

;ДАЛЕЕ РАЗБИРАЕМСЯ С ВЕРСИЯМИ RT-11 (С ВЕРСИЯМИ TSX/TSX-PLUS МЫ РАЗОБРАЛИСЬ ВЫШЕ, ;И МЕТОД, ОПИСАННЫЙ НИЖЕ, ПОКАЖЕТ В НИХ ТОЛЬКО ВЕРСИЮ RT-11 ИЗ ПОД КОТОРОЙ БЫЛ ЗАПУЩЕН ;TSX/TSX-PLUS ИЛИ РАФОС/TS. ; ;ЭТОТ НОМЕР ВЕСЬМА ПОЛЕЗЕН ЧТОБЫ ЗНАТЬ НА ЧТО СПОСОБНА СИСТЕМА. В RT-11 ЕСТЬ ;ЧЕТКО РАСПИСАННОЕ СООТВЕТСТВИЕ ВОЗМОЖНОСТЕЙ ВЕРСИЯМ; TSX-PLUS ПО НОМЕРАМ ВЕРСИИ ТАКЖЕ ;ОПРЕДЕЛЯЕТ СООТВЕТСТВИЕ ВОЗМОЖНОСТЕЙ УЖЕ В ЗАГРУЖЕННОМ TSX-PLUS. НАШ (ИЛИ СКОРЕЕ "НАШ") ;РАФОС НЕ НАРУШАЕТ ТРАДИЦИЙ - ОН ЧЕСТНО СОВПАДАЕТ С ВЕРСИЕЙ RT-11 С КОТОРОЙ ЕГО СП...ИСАЛИ. ;ФОДОС, "НАПИСАННЫЙ" ПОЗЖЕ НЕКИМИ РЕДИСКАМИ НЕ СЛЕДУЕТ ЭТОЙ ТРАДИЦИИ И ПОТОМУ МОЖЕТ ВВОДИТЬ ;В ЗАБЛУЖДЕНИЕ, НО, ПОСКОЛЬКУ РЕДИСКИ ДАННОГО ВИДА РОДИЛИСЬ ПОЗЖЕ V4.00 И УМЕРЛИ РАНЬШЕ V5.01, ;СМЕЛО СЧИТАЕМ ФОДОС КАК RT-11 V5.0 ([ПРАВДА, ОПЯТЬ ТАКИ, ЕСЛИ СКЛЕРОЗ НЕ ;ИЗМЕНЯЕТ, ВСЕ ЖЕ ВИДЕЛ ФОДОС - RT-11 V3, НО НИ РАЗУ V4]. ВОТ ТОЛЬКО КАК ;ОПРЕДЕЛИТЬ ЧТО ЭТО ИМЕННО ФОДОС - КАКОЙ ТОЛЬКО ХЕРНИ ОНИ НЕ ВПИСЫВАЛИ ;ДАЖЕ В СТРОКУ КОТОРАЯ ПЕЧАТАЕТСЯ ПРИ ЗАГРУЗКЕ)... .GVAL #AREA,#$SYSVE ;ПОЛУЧАЕМ ВЕРСИЮ СИСТЕМЫ ;МЛАДШИЙ БАЙТ - ВЕРСИЯ, СТАРШИЙ - НОМЕР КОРРЕКЦИИ

Код:

;ПРОВЕРКА НА НАЛИЧИЕ FOREGROUND JOB (А ТАКЖЕ ПОПУТНО НА TSX) ;ЭТОТ БИТ ВСЕГДА УСТАНОВЛЕН В TSX/TSX-PLUS (И РАФОС/TS - КАК БЕЗ НЕГО) ;ТАМ ГДЕ ВСЕ ПОДОБНЫЕ УСЛОВИЯ МОЖНО УРАВНЯТЬ ЭТОТ БИТ ОТЛИЧНО СРАБОТАЕТ... .GVAL #AREA,#$CNFG1 ;ПОЛУЧАЕМ КОНФИГУРАЦИЮ СИСТЕМЫ TSTB R0 ;БИТ 7 ГОВОРИТ О ЗАГРУЖЕННОМ FOREGROUND/SYSTEM JOB BMI ... ;MI - ЗАГРУЖЕН

Код:

;ПРОВЕРКА НА SJ МОНИТОР. ЭТА ПРОВЕРКА ПОЗВОЛИТ ИДЕНТИФИЦИРОВАТЬ SJ МОНИТОР. ;SJ МОНИТОР КРОМЕ ОДНОЗАДАЧНОСТИ ОТЛИЧАЕТСЯ ТАКЖЕ ОТСУТСТВИЕМ МНОГИХ СИСТЕМНЫХ ВЫЗОВОВ И ;ВОЗМОЖНОСТЕЙ. НАЧИНАЯ С RT-11 ВЕРСИИ 5.6, SJ МОНИТОРА НЕ СТАЛО, А ОДНОЗАДАЧНЫЙ МОНИТОР SB ;ЯВЛЯЕТСЯ СКОРЕЕ ОДНОЗАДАЧНОЙ ВЕРСИЕЙ FB МОНИТОРА (И ПОДДЕРЖИВАЕТ ВСЕ ЕГО СИСТЕМНЫЕ ВЫЗОВЫ). ;ПРИ ЭТОМ В RT-11 V5.6 И НОВЕЕ ЗНАЧЕНИЕ ЭТОГО БИТА МОЖЕТ БЫТЬ ИЗМЕНЕНО КОМАНДОЙ ;SET MODE [NO]SJ. СЛОВОМ, ЕСЛИ ПОЛАГАТЬСЯ НА ЭТОТ БИТ - НУЖНО ТАКЖЕ ПРОВЕРЯТЬ ВЕРСИЮ СИСТЕМЫ. .GVAL $AREA,#$CNFG1 ;ПОЛУЧАЕМ КОНФИГУРАЦИЮ СИСТЕМЫ BIT #FBMON$,R0 ;SJ МОНИТОР BEQ ... ;EQ - ДА
15.12.2016, 22:46
Alex_K

Цитата:

Сообщение от hobot

мне нужны подробности. почему так а не по другому, это одна из причин
почему я AC.SYS до сих пор не переделал, просто потому, что я не могу
разделить ненужный функционал от нужного (точнее я разделяю, но прога
перестаёт работать! "смайл")

А какой же у AC.SYS ненужный функционал? Он писался для изменения промтера системы и для запуска оболочки SY:ACM.SAV. Собственно это он вроде нормально выполняет.
16.12.2016, 06:17
hobot

Цитата:

Сообщение от Alex_K

А какой же у AC.SYS ненужный функционал?

Если помните я просил помощи урезать только до промтера и всё что с ним связано,
там ещё что то в нём я не помню сейчас уже точно, но сегодня абсолютно не актуальное.
Далее я столкнулся ещё с одним тупиком - я совершенно не понимаю как сделать современные даты
в нём. Извиняюсь, но я Паскальщик на уровне хобби. Я например не представляю где там в исходнике
параметр отвечающий 2 буковки на год или 4, попытка убрать это (что бы не чесалось) снова приводит к краху.
В итоге я забросил и пользуюсь как есть. )))

Цитата:

Сообщение от Alex_K

и для запуска оболочки SY:ACM.SAV.

Вот это лишний функционал 100%
18.12.2016, 05:54
Eats

Цитата:

Сообщение от Alex_K

Цитата:

Сообщение от hobot

Желательно имя запускаемого файла сделать параметром типа SE JS SFN(Start File Name)=/тут шесть символов имя файла

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

Не вижу ничего невозможного. Драйверу передаётся 16-разрядное слово. Каким способом интерпретирует это слово драйвер - это сугубо его личное дело. Он может считать это слово, например, именем файла от 0.SAV до 65535.SAV (подставляя расширение, естественно, самостоятельно) или от 0.SAV до 177777.SAV, здесь только необходимо будет учитывать ограничение на невозможность использования в именах запускаемых файлов ничего кроме цифр. Но если я правильно понял ТЗ хобота, ему такое ограничение не доставит неудобства.

Цитата:

Сообщение от hobot

может проще дизасемблировать оригинальный JS.SYS

Дык уж давно бы! Там объём-то с гулькин нос... Кстати, как называется файл дизассемблера для 11-го процессора и где его взять?
18.12.2016, 07:00
form

Цитата:

Сообщение от Eats

Кстати, как называется файл дизассемблера для 11-го процессора и где его взять?

Тупой дизассемблер (дизассемблит все подряд не разбирая) где-то здесь выкладывал (как для RT-11 так и для UNIX/Win). Можно искать по слову дизассемблер. Есть DISSAV, ориентированный конкретно на SAV файлы RT-11 (взять можно на ftp://ftp.dbit.com/pub/pdp11/rt11/). Есть DOB, ориентированный на OBJ файлы - он есть вживую на CTAKAH'е, исходники доступны там же в SW:[DOB2]. IDA вроде тоже умеет дизассемблить SAV'ы.
18.12.2016, 17:19
Alex_K

Цитата:

Сообщение от hobot

Вот это лишний функционал 100%

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

- - - Добавлено - - -

Цитата:

Сообщение от hobot

ТЗ: Я предлагаю нашим профи помочь в создании более совершенного драйвера по типу JS.SYS,
а именно
1.Программа должна по команде SE JS ON запускать прописанный внутри неё исполняемый файл - без глюков как классический JS.SYS
2.Желательно имя запускаемого файла сделать параметром типа SE JS SFN(Start File Name)=/тут шесть символов имя файла - проверка на правильность не требуется, на совести оператора!!!/ у старого JS имя файла надо править при помощи DESSа к примеру
3.Не мешать запущенной программе работать и передавать управление приложениям директивой
.CHAIN
4.По завершению этих приложений снова стартовать прописанный SFN

1. Драйвер AC при настроенном параметре SET AC COM и при вызове SET AC ON позволяет запускать без глюков исполняемый файл SY:ACM.SAV.
2. Второй пункт желателен, но желателен это значит, что не обязателен. Да, настройки запускаемого имени файла в AC.SYS нет, всегда запускается SY:ACM.SAV.
3. Драйвер AC естественно никому не мешает, на .CHAIN не реагирует, он реагирует только на вывод промптера KMON-ом.
4. Вот здесь у AC идеальный порядок, в отличии от JS. JS.SYS я видел две версии. Первая реагирует на EMT 350, в итоге она не дает этому EMT выполнить всю нужную работу по завершению текущей задачи, да и к тому же прервет любой командный файл. Вторая версия получше и реагирует на EMT 351 в области KMON с командой MOV R5,R5 после этого EMT, вроде бы нормально, но такую команду KMON выдает не только на вывод промптера, но и на ввод недостающих параметров, например ввели команду COPY без параметров, так вот этот JS не даст вывести запрос "From?", а запустит оболочку.
Драйвер AC реагирует только на вывод промптера KMON для ввода команды, потому при нем нормально отработает командный файл, даже если он был запущен с параметром SET TT NOQUIET, т.е. с выводом команд на экран. При исполнении командного файла драйвер AC не реагирует на промтер KMON для запуска, только, если настроено, меняет его вид.
18.12.2016, 17:43
form

Еще один вариант на закуску - скрытый драйвер. Особого смысла нет - просто побаловаться если есть интерес. Принцип такой: некая команда SET (или запуск драйвера по RUN или еще какой вариант на этапе подготовки дискеты) ищет во вторичном загрузчике команду MOV @#177570,R4 перед которой идет инструкция BR. Эта конструкция одинакова во всех RT-11 как минимум начиная с V4.0 (с оговоркой). Меняем BR на NOP, а MOV меняем на MOV #157400,R4 (значение по надобности скорректировать). В результате получаем во время загрузки зарезервированное окно куда уже драйвер из инсталционной процедуры может вписаться. Ну и оговорка (вернее две): метод не подойдет для mapped мониторов - там просто нет этого кода в загрузчике. Также в старых мониторах следующей после MOV командой идет BIC #3777,R4 - это легко проверить и поставить два NOPа. От обычного драйвера отличается только тем, что требует чуть-чуть меньше памяти (за счет экономии на служебных словах вначале и в конце драйверва).
18.12.2016, 17:49
Alex_K

Цитата:

Сообщение от form

Еще один вариант на закуску - скрытый драйвер.

Будет отъедать память у системы, т.е. если функционал AC или JS не нужен, то память не будет задействована. Также не сработает, если кто-то запустит на ДВК с включенным ПЗУ Бейсика, там память ограничена 48 Кбайт до 0140000.

Показывать 40 сообщений этой темы на одной странице