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

[BYTEMAN]

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

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

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

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

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

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

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

[Patron]

пишет 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

[BYTEMAN]

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

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

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

[form]

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

[hobot]

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

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

[AFZ]

А можно на конкретном примере гипотетическом функционал программы продемонстрировать.
То есть что означает "меняющая консольный терминал", смена типа терминала на лету с 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 или ДИАМСом - запросто.

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

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

[Advertiser]

[form]

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

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

[BYTEMAN]

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

[Patron]

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

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

[AFZ]

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

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