ОС RT-11 и поддержка Y2K !!!

[Patron]

Мне вот это как раз нужно, а где бы увидеть пример как прочитать параметры и вообще строку которую пользователь ввёл

Работать будет только в v5.02 и выше:

;
	.MCall	.Exit, .Print, .GTLIN
START:
	Mov	#510, R0
	Mov	(R0)+, R1
	BEq	1$
	Dec	R1
	BEq	1$

	.Print	#Args
	.Print	#512	
	.GTLIN	#BUFF
	.Exit
1$:
	.Print	#NoArgs
	.Exit

NoArgs:	.ASCIZ	\No Args..\
Args:	.ASCII	\Args: \<200>
	.Even
BUFF = .
.End	START
;

[Advertiser]

[form]

Работать будет только в v5.02 и выше:

;
	.MCall	.Exit, .Print, .GTLIN
START:
	Mov	#510, R0
	Mov	(R0)+, R1
	BEq	1$
	Dec	R1
	BEq	1$

	.Print	#Args
	.Print	#512	
	.GTLIN	#BUFF
	.Exit
1$:
	.Print	#NoArgs
	.Exit

NoArgs:	.ASCIZ	\No Args..\
Args:	.ASCII	\Args: \<200>
	.Even
BUFF = .
.End	START
;

Только кроме проверки в chain области, параметры еще надо явно вычитать с помощью .GTLIN, .CSIGEN и .CSISPC, иначе они отработают как следующая команда

---------- Post added at 18:57 ---------- Previous post was at 18:56 ----------

А-а, ну тут оно и вычитывается - не рассмотрел

---------- Post added at 18:58 ---------- Previous post was at 18:57 ----------

Добавлю еще, что CCL при вводе команды в формате "PROG ARG1 ARG2" выдаст результат пригодный для CSI (ARG2=ARG1). Но в chain области перестановок не будет.