RSX-11, ОСРВ, ОСРВМ

[form]

Улучшенный командный файл для конфигурации IPNET.
>@IPNET ON (или просто @IPNET) - включает IPNET (ничего не делает если задача MLTNET активна)
>@IPNET OFF - выключает IPNET
>@IPNET UPD - обновляет конфигурацию

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

	.ENABLE SUBSTITITION

	.SETT ON
	.SETF UPD
	.IF P1 = "OFF" .SETF ON
	.IF P1 = "UPD" .SETT UPD
	.SETS CIR P2

	.TESTPARTITION MLTCOM
	.PARSE <EXSTRI> "," JUNK JUNK JUNK LOC JUNK
	.IF LOC = "NSP" INS LB:[IPNET]MLTCOM/UIC=[1,54]/PRO=[RW,RW,,]
	.IFNINS MLTNET INS LB:[IPNET]MLTNET
	.IFNINS ...MNC INS LB:[IPNET]MLTCFG

	.IFF UPD .IFT ON .IFACT MLTNET .GOTO DONE
	.IFT ON .OR .IFT UPD NCP SET PROC IP TOP
	.IFT ON .OR .IFT UPD NCP SET LIN IP-0-* ALL

	.TESTFILE LB:[IPNET]IPNET.CFG
	.IF <FILERR> <> 1 .GOTO DONE

	.OPENR LB:[IPNET]IPNET.CFG
.LOOP:
	.READ LINE
	.IFT <EOF> .GOTO DONE

	.PARSE LINE ";" LINE JUNK
	.PARSE LINE "!" LINE JUNK
	.SETS LINE "'LINE%C'"
	.IF LINE = "" .GOTO LOOP

	.PARSE LINE " " CIRC MODE HOST PORT JUNK
	.IF CIR <> "" .IF CIR <> CIRC .GOTO LOOP

	.IFF ON .OR .IFT UPD NCP SET CIR 'CIRC' STA OFF
	.IFT ON .OR .IFT UPD MNC SET CIR 'CIRC' 'MODE' HOST 'HOST' PORT 'PORT'
	.IFT ON .OR .IFT UPD NCP SET CIR 'CIRC' STA ON
	.GOTO LOOP

.DONE:
	.CLOSE

Пример IPNET.CFG со CTAKAH'а:

;Circ	Mode	Host				Port	Comment
;------	-------	-------------------------------	-------	-----------------------
IP-0-0	TCA	mim.update.uu.se:700		0	MIM
IP-0-1	TCP	95.104.192.245:0		700	CTEPEO
IP-0-2	TCP	5.128.31.182:0			700	COPOKA
IP-0-3	TCP	bigsys.home.lan:0		700	BIGSYS

[Advertiser]