Обработка задач на ЭВМ
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