knvin

obsl variable (95)

N_buf equ (1000)

prior function RN3,D5 ; распределение потока на четыре приоритета (можно варьировать)

0,0/0.25,1/0.5,2/0.75,3/1,4

opr function P1,D4 ; порядок опроса очередей

1,1/2,2/3,3/4,4

generate 1,,,1 ; блок опроса

assign 1,1

oper assign 1,FN$opr

seize ustr

Test NE CH1,0,osv2

unlink 1,qq,1

osv2 Test NE CH2,0,osv3

unlink 2,qq,1

osv3 Test NE CH3,0,osv4

unlink 3,qq,1

osv4 Test NE CH4,0,osv

unlink 4,qq,1

advance 1

osv release ustr

advance 10

transfer ,oper

Input1 GENERATE (exponential(1,0,100))

assign 2,(FN$prior)

test L Q$line1,N_buf,loss

Test E P2,1,q_2

Queue LINE1

Link 1,fifo

q_2 test L Q$line2,N_buf,loss

Test E P2,2,q_3

Queue LINE2

Link 2,fifo

q_3 test L Q$line3,N_buf,loss

Test E P2,3,q_4

Queue LINE3

Link 3,fifo

q_4 test L Q$line4,N_buf,loss

Test E P2,4,ex1

Queue LINE4

Link 4,fifo

qq seize ustr

Test E P2,1,q_q2

depart line1

advance V$obsl

release ustr

TRANSFER ,ex1

q_q2 Test E P2,2,q_q3

depart line2

advance V$obsl

release ustr

TRANSFER ,ex1

q_q3 Test E P2,3,q_q4

depart line3

advance V$obsl

release ustr

TRANSFER ,ex1

q_q4 Test E P2,4,ex1

depart line4

advance V$obsl

release ustr

TRANSFER ,ex1

loss savevalue 1,N$loss

ex1 Terminate

GENERATE 10000000

Terminate 1

start 1

reset

start 1

reset

start 1