GPSS / Z

SIMULATE
NS1 STORAGE 6
NS2 STORAGE 6
NS3 STORAGE 6
NS4 STORAGE 6
NS5 STORAGE 6
NS6 STORAGE 6
*GIST TABLE X$COXR,4,4,20

GENERATE 7,1
SPLIT 2,BBB,5
BBB TEST E P5,2,CCC
TRANSFER ,BLOKA
CCC TEST E P5,3,DDD
TRANSFER ,BLOKB
DDD TEST E S$NS1,6,PAM1
SAVEVALUE COXR+,1
* TABULATE GIST
SAVEVALUE COXR1+,1

PAM1 ENTER NS1
SEIZE 1
LEAVE NS1
advance 13
RELEASE 1
TRANSFER ,SBOR
BLOKA TEST E S$NS2,6,PAM2
SAVEVALUE COXR+,1
* TABULATE GIST
SAVEVALUE COXR2+,1
PAM2 ENTER NS2
SEIZE 2
LEAVE NS2
advance 13
RELEASE 2
TRANSFER ,SBOR
BLOKB TEST E S$NS3,6,PAM3
SAVEVALUE COXR+,1
* TABULATE GIST
SAVEVALUE COXR3+,1
PAM3 ENTER NS3
SEIZE 3
LEAVE NS3
advance 13
RELEASE 3
TRANSFER ,SBOR
SBOR ASSEMBLE 3
ENTER NS4
SEIZE 4
LEAVE NS4
ADVANCE 6,2
RELEASE 4
TEST E S$NS5,6,PAM5
SAVEVALUE COXR+,1
* TABULATE GIST
SAVEVALUE COXR4+,1
PAM5 ENTER NS5
SEIZE 5
LEAVE NS5
advance 13
RELEASE 5
TEST E S$NS6,6,PAM6
SAVEVALUE COXR+,1
* TABULATE GIST
SAVEVALUE COXR5+,1
PAM6 ENTER NS6
SEIZE 6
LEAVE NS6
advance 13



RELEASE 6
TERMINATE
GENERATE 480
TERMINATE 1
START 1
STOP

END