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

[hobot]

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

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

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



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

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

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

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

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

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

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

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

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

[Advertiser]

[form]

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

Нельзя его этой командой ставить - только автоматом

[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 - ДА

[Alex_K]

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

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

[hobot]

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

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

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

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

[Eats]

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

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

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

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

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

[form]

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

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

[Alex_K]

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

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

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

ТЗ: Я предлагаю нашим профи помочь в создании более совершенного драйвера по типу 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 для запуска, только, если настроено, меняет его вид.

[form]

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

[Alex_K]

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

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