Софт для ДВК/PDP11

Форматирование не работает увы...
В DX0: просто пишет Drive not ready, в DX1 пишет что идет форматирование без ошибок, но потом INIT не проходит. Есть подозрение что в DX1: не работает запись, попробовал скопировать на дискету саму программу - ошибок не было, но файл не появился. В DX0: копирование отработало успешно. Но форматирование не запускается... INIT на отформатированную в DX1: дискету вставленную в DX0 не работает - клацает бошками...

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

обратил внимание - в dx1 головку при попытке форматирования не позиционирует, прижимает головку только на 28 треке

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

попытка чтения в dx0 заканчивается драйв нот риди, а в дх1 - ошибки 120

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

читал заведомо хорошую дискету

Цитата:

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

пишет Drive not ready

Константы для количества циклов ожидания были взяты наугад.

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

Код:

....................................................... ;............... Ожидание запроса DX .................; WaitTR: 1$: Clr R0 2$: BiT #<CSTR!CSERR>, @$SReg BMi DxErr BNE LRet3 ;; SOB R0, 2$ ; Это убрать Br 2$ ; Это вставить Br NtRd DxErr: .PRI mDxErr Br ErrRet ....................................................... ;.............. Ожидание готовности DX ...............; ; ; R1 = Количество циклов ожидания. ; WaitDX: 1$: Clr R0 2$: BiT #<CSDONE!CSERR>, @$SReg BNE LRet3 ;; SOB R0, 2$ ; Это убрать Br 2$ ; Это вставить SOB R1, 1$ NtRd: .PRI NotRdy ErrRet: SeC LRet3: Return

После чего перекомпилить программу :

Код:

.EX COPYDX

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

И там же следом ещё два места, где может ругаться :

Код:

ResetDX: Mov #CSINIT, @$SReg Mov #100., R1 Call WaitDX BCS LRet BiT #ESID, @$DReg ;; BEq NtRd ; Это убрать BEq LRet ; Это вставить Mov #C.RDST, R0 ; R0 = Чтение регистра состояния. BiS $Drive, R0 ; Учесть номер привода. Mov R0, @$SReg 4$: Mov #32., R1 Call WaitDX BCS LRet BiT #ESDRY, @$DReg ;; BEq NtRd ; Это убрать LRet: Return

Попытаюсь справиться)

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

Вродь пересобрал, завтра буду пробовать на железе.

Вложений: 2

Програмка для смены консольного терминала

Небольшая програмка, меняющая консольный терминал в однотерминальных RT-11. В принципе такая програмка есть в дистрибутиве (CONSOL.MAC), но ее надо каждый раз пересобирать, а здесь можно указать CSR и VECTOR.

Цитата:

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

меняющая консольный терминал в однотерминальных RT-11.

А можно на конкретном примере гипотетическом функционал программы продемонстрировать.
То есть что означает "меняющая консольный терминал", смена типа терминала на лету с VT52 на какой-то другой к примеру или что?
Я хочу выяснить насколько ctty по теме архива и актуален для ДВК \ УК-НЦ ?

Цитата:

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

А можно на конкретном примере гипотетическом функционал программы продемонстрировать.
То есть что означает "меняющая консольный терминал", смена типа терминала на лету с VT52 на какой-то другой к примеру или что?
Я хочу выяснить насколько ctty по теме архива и актуален для ДВК \ УК-НЦ ?

ctty я не разглядывал, а CONSOL.MAC в свое время собирал и испытывал. Все просто. Допустим, у тебя есть два терминала, каких-нибудь Mera 7209, подключенных по адресам 177560/66 и 176560/66, возможно стоящих в разных местах. Загружаешь однотерминальную RT-11, консольным, естественно, окажется тот, который подключен к адаптеру 177560. Запускаешь программу CONSOL, и она сменит адрес/вектор консоли системы на те, которые прописаны в ее коде. А у ctty, как я понял, адрес/вектор принимаются параметрами. Пропиши там 176560 - 360, и консольным станет именно этот терминал, твоя вторая Mera.

Зачем это нужно? Представь, что ЭВМ стоит в машзале, консоль рядом с ней, а терминалы растащены по рабочим местам, в том числе таковой имеется и в твоем кабинете. Вы работаете под "большой" многозадачкой, допустим, RSX-11, TSX-11 и т.д. Тебе вдруг понадобилось что-то поадминить из-под простой RT-11. Идешь в машзал, монтируешь все необходимые диски/ленты/etc, загружаешь RT-11, начинаешь админить и чувствуешь дискомфорт - ЭВМ шумит, клавиатура у терминала непривычная, шкаф с софтовыми доками у тебя в кабинете... Подаешь команду CONSOL и идешь продолжать работу из своего кабинета.

То есть, конечно, с RSX в качестве основной системы такое маловероятно, а вот с TSX или ДИАМСом - запросто.

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

Зачем оно на ДВК/УКНЦ? Не знаю. Так, на всякий случай.

Цитата:

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

актуален для ДВК \ УК-НЦ ?

У ДВК/УКНЦ есть второй порт для терминала, соответственно может и потребность быть туда переключиться.

Попробовал вариант со всеми исправлениями, в дисководе 0 зависаем на 0:0 а в дисководе 1 ничего не поменялось - дорожки якобы меняются, но голова не едет вперед, головка прижалась только на 1:14.

Цитата:

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

Попробовал вариант со всеми исправлениями, в дисководе 0 зависаем на 0:0

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

Цитата:

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

У ДВК/УКНЦ есть второй порт для терминала, соответственно может и потребность быть туда переключиться.

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