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

[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ом.

[Advertiser]