RT-11 и аргументы командной строки

[SuperMax]

После .CSISPC - никак - потребуются отдельные действия

Самое простое - посмотреть в области каналов (через смещения RMON).
Описание содержимого блока каналов есть в System Internals.

гм

Универсальный вариант - сначала вызвать .CSTAT, проверить по слову имени устройства что .CSTAT работает (его нет в SJ мониторе, но ошибки не будет), если не работает - получить информацию через смещения RMON (для SJ каналы гарантированно там).

увы это первое, что я опробовал и потому уточнял что у меня SJ (это БКшка и там своя перепиленная RT11)

.CSISPC опробовал, но он блин имеет неприятный побочный эффект, после него RT11 хочет ПЗУ КНГМД которое я хочу отключить

[Alex_K]

гм

Пункт 2.3.1 в данном документе описывает структуру каналов. По умолчанию в SJ их 16 (от 0 до 17 восьмеричные). Расположены каналы со смещения 4 в RMON (ячейка 54 - начало RMON), на каждый канал выделено 5 слов.
Для .CSIGEN это каналы от 0 до 2 для вывода и от 3 до 10 для ввода. Смотрите слово статуса канала (смещение 0, бит 15), что канал открыт, соответственно в слове со смещением 4 - размер файла.

[form]

Универсальный вариант. Подпрограмма берет номер канала (0-17) из R0, в R1 возвращает адрес блока информации о канале.
Если на выходе C=1 - канал не открыт. Подпрограмма сработает в любом мониторе (включая TSX).
Для SB/FB/XM/XB/ZM/ZB/TSX сработает .CSTAT, в этом случае пофигу FG или BG задание работает (и номер канала тоже любой годится).
Для SJ .CSTAT не сработает и не выдаст ошибки - это для нас сигнал: ошибки нет, но канал не открыт (если верить блоку состояния канала). Поскольку в SJ у нас есть только BG - можно смело брать информацию о каналах 0-17 из RMON.

	.TITLE	CSTAT
	.IDENT	/V01.00/

$SYPTR	=:	54			;УКАЗАТЕЛЬ НА RMON

;+
;$CSTAT	-- ПОЛУЧЕНИЕ ИНФОРМАЦИИ О КАНАЛЕ
;
;НА ВХОДЕ:
;	R0	- НОМЕР КАНАЛА (0-17)
;
;НА ВЫХОДЕ:
;	C	- 0=ИНФОРМАЦИЯ ПОЛУЧЕНА, 1=КАНАЛ НЕ ОТКРЫТ
;	R1	- АДРЕС БЛОКА ИНФОРМАЦИИ
;		  +00	- СЛОВО СОСТОЯНИЯ КАНАЛА
;		  +02	- НАЧАЛЬНЫЙ БЛОК НА УСТРОЙСТВЕ (0 ДЛЯ УСТРОЙСТВА)
;		  +04	- ДЛИНА ФАЙЛА В БЛОКАХ (0 ДЛЯ УСТРОЙСТВА)
;		  +10	- БАЙТ, КОЛИЧЕСТВО ЗАПРОСОВ В ОЧЕРЕДИ
;		  +11	- БАЙТ, НОМЕР УСТРОЙСТВА
;-
$CSTAT::
	MOV	R0,-(SP)		;@SP=CH
	MOV	#STAT,R1		;R1=БЛОК СОСТОЯНИЯ
	CLR	@R1			;ИНИЦИАЛИЗИРУЕМ БЛОК
	.CSTAT	#AREA,@SP,R1		;ПОЛУЧАЕМ ИНФОРМАЦИЮ О КАНАЛЕ
	BCS	10$			;CS - КАНАЛ НЕ ОТКРЫТ
	TST	@R1			;ПРОВЕРЯЕМ БИТ ОТКРЫТОГО КАНАЛА
	BMI	10$			;MI - КАНАЛ ОТКРЫТ - .CSTAT СРАБОТАЛ
	MOV	@#$SYPTR,R1		;R1=RMON
	CMP	(R1)+,(R1)+		;R1=$CSW
	ASL	@SP			;@SP=CH*2
	ADD	@SP,R1			;R1=$CSW+CH*2
	ASL	@SP			;@SP=CH*4
	ASL	@SP			;@SP=CH*10
	ADD	@SP,R1			;R1=$CSW+CH*12
	CMP	@R1,#100000		;УСТАНАВЛИВАЕМ C ЕСЛИ КАНАЛ НЕ ОТКРЫТ
10$:	MOV	@SP,(SP)+		;ВОССТАНАВЛИВАЕМ СТЕК (НЕ ТРОГАЯ C)
	RETURN				;ВОЗВРАТ

AREA:	.BLKW	2			;БЛОК EMT
STAT:	.BLKW	6			;БЛОК СОСТОЯНИЯ КАНАЛА

	.END