ДВК (и всё, что с ними связано)

[Korchagin]

Выходить в ОС надо - вдруг юзер что-то забыл сделать перед выключением компа и внезапно вспомнил об этом. Иначе получается, что машина будет завешена?

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

Хотя, да - если ОС грузится с жесткого, то парковка будет отменена.

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

Тогда завесим машину по BR

[Alex_K]

MOVB #40, 174016 ;команда чтения сектора, команды пишутся в младший байт РАЦ

Здесь можно полнословный MOV, т.к. контроллер старший байт не трогает. А процессоры 1801ВМ2 и 1806ВМ2 по команде MOVB сначала читают эту ячейку, а уже потом записывают нужный байт.

[form]

Выходить в ОС надо - вдруг юзер что-то забыл сделать перед выключением компа и внезапно вспомнил об этом. Иначе получается, что машина будет завешена?

Тогда надо ждать клавиши и если нажата - выход в систему. В противном случае выход в систему вызовет чтение с диска и эффективно отменит парковку.

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

Тогда завесим машину по BR

.TTYIN и .EXIT после него достаточно
Ну еще JSW проинитить чтобы достаточно было одной клавиши.

[Alex_K]

Тогда надо ждать клавиши и если нажата - выход в систему. В противном случае выход в систему вызовет чтение с диска и эффективно отменит парковку.

А вдруг мы в FB или XM мониторе и пока ждём, оперативное задание чего нибудь и прочтёт с жесткого диска.

[Korchagin]

Да, с нажатием клавиши хорошая идея - если нажата, то возврат в ОС, или просто выключение машины.

[form]

А вдруг мы в FB или XM мониторе и пока ждём

Проверить на наличие foreground job не помешает. Это несложно. Ну а заодно и запретить запуск под VBGEXE (на случай XM), ну и отловить случай когда регистра нет с помощью .TRPSET... Если совсем чисто делать - также можно проверить на предмет TSX/RTEM дабы и не рыпаться в этом случае

[Alex_K]

Да, с нажатием клавиши хорошая идея - если нажата, то возврат в ОС, или просто выключение машины.

Проверить на наличие foreground job не помешает. Это несложно.

Ну тогда классический вариант RT-11:
?PARK-I-Are you sure?

[Korchagin]

А вот не знаю, отправит ли классический парк головы моего хдд на 644 трек.

[form]

?PARK-I-Are you sure?

Тут уместнее не парковать если загружен так как парковка просто может отмениться другим заданием. Заодно вопрос с TSX отпадет - там всегда бит FJOB$ установлен.

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

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

$JSX	=:	4			;EXTENDED JOB STATUS WORD
NOVBG$	=:	100			;DISABLE VBGEXE BIT

$JSW	=:	44			;JOB STATUS WORD
TTSPC$	=:	10000			;SPECIAL MODE TERMINAL BIT
TCBIT$	=:	100			;INHIBIT TERMINAL WAIT BIT

$SYPTR	=:	54			;POINTER TO RMON
$CNFG1	=:	300			;SYSTEM CONFIG WORD
FJOB$	=:	200			;FOREGROUND LOADED BIT

$SYSGE	=:	372			;SYSGEN FEATURE WORD
RTEM$	=:	10			;RTEM-11 SYSTEM

	.ASECT
	.=$JSX
	.WORD	NOVBG$			;DISABLE VBGEXE
	.=$JSW
	.WORD	TTSPC$!TCBIT$		;SET TERMINAL MODE
	.PSECT

START::	MOV	@#$SYPTR,R0		;R0 -> RMON
	BIT	#RTEM$,$SYSGE(R0)	;RTEM-11?
	BNE	10$			;YES, EXIT
	TSTB	$CNFG1(R0)		;FOREGROUND LOADED?
	BPL	...			;IF PL NO, OK
	.PRINT	#FLOAD			;FOREGROUND LOADED ERROR
10$:	.EXIT				;EXIT

Ну и где клавиша будет ожидаться - если принят CR, сделать еще один .TTYIN - в RT-11 он всегда дополняется LFом.

[Alex_K]

А вот не знаю, отправит ли классический парк головы моего хдд на 644 трек.

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