Обработка задач на ЭВМ

T TABLE M1,1,2,50

KANAL STORAGE 2
Prov1 BVARIABLE (Q$Rem1>2000);    проверка мест в очереди к ЭВМ-1 (в очереди не должно быть заявок больше указанного значения)
Prov2 BVARIABLE (Q$Rem2>2000);    проверка мест в очереди к ЭВМ-2

GENERATE 20,3;                генерация входных заявок

TEST E BV$Prov1,0,met1;       есть ли место в очереди к ЭВМ-1?
QUEUE Rem1;                   встать в очередь
SEIZE evm1;                  занятие 1й ЭВМ
DEPART Rem1;                 освободить очередь
ADVANCE 1			;              первичная обработка запроса
TRANSFER	.5,ewmbuf;        с вероятность 50% нужная инф. есть в ЭВМ-1, иначе запрос передается в ЭВМ-2
ADVANCE 20,2		;выдача ответов
RELEASE evm1		; освобождение ЭВМ1
TRANSFER ,met3

ewmbuf 	RELEASE evm1	;заявка покидает 1-ю ЭВМ 	
	ENTER KANAL	;подготовка перед передачей по каналу связи
       	ADVANCE 2		;передача
	LEAVE KANAL
	
TEST E BV$Prov2,0,met2;      есть ли место в очереди к ЭВМ-2
QUEUE Rem2
SEIZE evm2;                 занятие 2й ЭВМ
DEPART Rem2;                освободить очередь
ADVANCE 20,2;               обработка заявок
RELEASE evm2;               освобождение ЭВМ2
	ENTER KANAL
       	ADVANCE 2
	LEAVE KANAL
TRANSFER ,met4


met4  TABULATE T
  TERMINATE 1;           получен результат в ЭВМ-2
met3  TABULATE T
     TERMINATE 1;           получен результат в ЭВМ-1
met1 TERMINATE;           необслуженные заявки (не попали в очередь)ЭВМ-1
met2 TERMINATE;           необслуженные заявки (не попали в очередь) ЭВМ-2


START 400

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *