Косвенная адресация

Пр.: ASSIGN 5,1

Прямая адресация. Параметру 5 присваивается значение 1.

ASSIGN P5,1

Косвенная адресация . Параметру, № которого содержится в параметре 5, присвоить значение 1. Эта запись аналогична следующей:

ASSIGN *5,1

Q5- прямая адресация. Q-СЧА

QP5- косвенная адресация.

Q*5- такое обозначение используется в GPSS вместо QP5

Пример 9.2 Пусть имеется ВС. В ней есть 2 детали (модуля) А и В. Для модуля А – свое время жизни, для модуля В – свое. Когда отказывает, например, А вставляют запасную деталь А, у которой имеется свое время жизни.

А

В

ВС

* Переменные V1 и V2 задают время жизни деталей 1 и 2 соответственно.

1	FVARIABLE	..........
2	FVARIABLE	..........

* Переменная AFIX определяет время ремонта детали 1.

AFIX	FVARIABLE	4
.............

* Функция BFIX задаёт время ремонта детали 2.

BFIX	FUNCTION	.........
.............

*Функция POI является атрибутивно-значимой, то есть в качестве

*результата имеет не конкретное число, а другую функцию или

*переменную. Блок определяет время ремонта (время ремонта зависит от

*типа детали).

POI

FUNCTION

P3,M2

1,V$AFIX/2,FN$BFIX

* Функция FL является атрибутивно-значимой со списковой структурой.

FL

FUNCTION

P3,L2

1,2/2,1

GENERATE

,,,1

*Параметр 1 получит значение переменной 1

	ASSIGN	1,V1
	ASSIGN	2,V2

*Блок SELECT определяет какой из параметров P1 или P2 имеет меньшее *значение, и результат записывается в параметр P3.

L	SELECT MIN	3,1,2,,P
	ADVANCE	60
	SEIZE	MACH

* P*3, X*3, V*3 задают косвенное обращение

	ADVANCE	P*3
	RELEASE	MACH
	ASSIGN	FN$FL-,P*3

* После отказа вытаскиваем деталь

	ADVANCE	40
	SPLIT	1,M
	SEIZE	MAST
	ADVANCE	FN$POI
	RELEASE	MAST
	SAVEVALUE	P3+,1
	TERMINATE

*Проверка наличия деталей отказавшего типа.

M	TEST G	X*3,0
	SAVEVALUE	P3-,1
	ASSIGN	P3,V*3
	TRANSFER	,L

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