Исследование на имитационной модели процесса передачи данных в информационно-вычислительной сети

008 BUF1     STORAGE   20
009 BUF2     STORAGE   20
010 BUF3     STORAGE   20
011 BUF4     STORAGE   20
008 TAB1     TABLE     M1,25,25,15
009 MET1     ENTER     BUF4,1 //поступление в выходной накопитель
010          SEIZE     CPU1  //обработка в процессоре CPU1
015          ADVANCE   2
020          LEAVE     BUF4,1     // удаление из выходного накопителя
025          RELEASE   CPU1
030          ENTER     BUF1,1      //поступление во входной накопитель
035          TEST E    P2,1,MET4
040          TEST E    P1,20,COP1
045          SPLIT     1,NEX1      //создание копии пакета для передачи
046          MARK
050 COP1     MATCH     COP1    //ожидание подтверждения
055          LEAVE     BUF1,1      //удаление копии пакета и подтверждения
060          ASSEMBLE  2
065          TABULATE  TAB1
070          TERMINATE 
075 MET4     SEIZE     DCH1 
080          LEAVE     BUF1,1 
085          TRANSFER  ,DEX1
090 NEX1     SEIZE     DCH1      //занятие канала DCH1
095 DEX1     ADVANCE   P1      //передача по каналу DCH1
100          RELEASE   DCH1 
105          ASSIGN    1,1
110 MET2     ENTER     BUF2,1  //поступление во входной накопитель
115          SEIZE     CPU2
120          ADVANCE   2          //обработка в процессоре CPU2
125          LEAVE     BUF2,1    //выход из входного накопителя
130          RELEASE   CPU2
135          ENTER     BUF3,1    //поступление в выходной накопитель
140          TEST E    P2,2,MET5
145          TEST E    P1,20,COP2
150          SPLIT     1,NEX2    //создание копии пакета для передачи
155 COP2     MATCH     COP2    //ожидание подтверждения
160          LEAVE     BUF3,1    //удаление копии пакета и подтверждения
165          TERMINATE 
170 MET5     SEIZE     DCH2
175          LEAVE     BUF3,1 
180          TRANSFER  ,DEX2 
185 NEX2     SEIZE     DCH2  //занятие канала DCH2
190 DEX2     ADVANCE   P1   //передача по каналу DCH2
195          RELEASE   DCH2 
200          ASSIGN    1,1
205          TRANSFER  ,MET2 
210 GEN2     GENERATE  25,FN$EXPON 
215          ASSIGN    1,20
220          ASSIGN    2,2
225          TRANSFER  ,MET2    //поступление пакетов в прямом на-правлении 
230 GEN1     GENERATE  25,FN$EXPON
235          ASSIGN    1,20
240          ASSIGN    2,1
245          TRANSFER  ,MET1 
250          GENERATE  1,,10000    //системные часы
255          TERMINATE 1 
260          START     100