Компьютерное моделирование. Тарасов В.Н - 105 стр.

UptoLike

ВУЗ: 

ОГУ | Оренбург

Составители: 

Рубрика: 

105
LEAVE PKTBUF1 ; забрали из буфера
ASSIGN DATA,1 ; маркер с данными
ASSIGN HOST,1 ; с нашим адресом
TRANSFER ,WKS2 ; ушёл по кольцу
GENERATE 10,FN$EXPON ; пакеты от первой
станции
GATE SNF PKTBUF1,REFUSE ; проверка
буфера на занятость
ENTER PKTBUF1 ; пакет помещается в буфер
TERMINATE
; 2 станция
WKS2 ADVANCE (NORMAL(1,5,1)) ; задержка пе-
редачи
TEST E P$DATA,1,FREETK2
TEST E P$HOST,2,WKS3
ADVANCE 10,2
TRANSFER P$ERR,,WKS3
ASSIGN DATA,0
ASSIGN HOST,0
QUEUE SERVICED
TRANSFER ,WKS3
FREETK2 GATE SNE PKTBUF2,WKS3
LEAVE PKTBUF2
ASSIGN DATA,1
ASSIGN HOST,2
TRANSFER ,WKS3
GENERATE 15,FN$EXPON
GATE SNF PKTBUF2,REFUSE
ENTER PKTBUF2
TERMINATE
; 3 станция
WKS3 ADVANCE (NORMAL(1,5,1))
TEST E P$DATA,1,FREETK3
TEST E P$HOST,3,WKS4
ADVANCE 10,2
TRANSFER P$ERR,,WKS4
ASSIGN DATA,0
ASSIGN HOST,0
QUEUE SERVICED 
          LEAVE PKTBUF1             ; забрали из буфера
          ASSIGN DATA,1             ; маркер с данными
          ASSIGN HOST,1             ; с нашим адресом
          TRANSFER            ,WKS2       ; ушёл по кольцу

          GENERATE            10,FN$EXPON         ; пакеты от первой
станции
         GATE SNF             PKTBUF1,REFUSE            ; проверка
буфера на занятость
         ENTER PKTBUF1              ; пакет помещается в буфер
         TERMINATE

; 2 станция
WKS2      ADVANCE             (NORMAL(1,5,1))           ; задержка пе-
редачи
          TEST E P$DATA,1,FREETK2
          TEST E P$HOST,2,WKS3
          ADVANCE             10,2
          TRANSFER            P$ERR,,WKS3
          ASSIGN DATA,0
          ASSIGN HOST,0
          QUEUE SERVICED
          TRANSFER            ,WKS3
FREETK2GATE SNE               PKTBUF2,WKS3
          LEAVE PKTBUF2
          ASSIGN DATA,1
          ASSIGN HOST,2
          TRANSFER            ,WKS3

          GENERATE            15,FN$EXPON
          GATE SNF            PKTBUF2,REFUSE
          ENTER PKTBUF2
          TERMINATE

; 3 станция
WKS3      ADVANCE             (NORMAL(1,5,1))
          TEST E P$DATA,1,FREETK3
          TEST E P$HOST,3,WKS4
          ADVANCE             10,2
          TRANSFER            P$ERR,,WKS4
          ASSIGN DATA,0
          ASSIGN HOST,0
          QUEUE SERVICED


                                                                     105

Страницы