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

UptoLike

106
TRANSFER ,WKS4
FREETK3 GATE SNE PKTBUF3,WKS4
LEAVE PKTBUF3
ASSIGN DATA,1
ASSIGN HOST,3
TRANSFER ,WKS4
GENERATE 18,FN$EXPON
GATE SNF PKTBUF3,REFUSE
ENTER PKTBUF3
TERMINATE
; 4 станция
WKS4 ADVANCE (NORMAL(1,5,1))
TEST E P$DATA,1,FREETK4
TEST E P$HOST,4,WKS5
ADVANCE 10,2
TRANSFER P$ERR,,WKS5
ASSIGN DATA,0
ASSIGN HOST,0
QUEUE SERVICED
TRANSFER ,WKS5
FREETK4 GATE SNE PKTBUF4,WKS5
LEAVE PKTBUF4
ASSIGN DATA,1
ASSIGN HOST,4
TRANSFER ,WKS5
GENERATE 20,FN$EXPON
GATE SNF PKTBUF4,REFUSE
ENTER PKTBUF4
TERMINATE
; 5 станция
WKS5 ADVANCE (NORMAL(1,5,1))
TEST E P$DATA,1,FREETK5
TEST E P$HOST,5,WKS6
ADVANCE 10,2
TRANSFER P$ERR,,WKS6
ASSIGN DATA,0
ASSIGN HOST,0
QUEUE SERVICED
TRANSFER ,WKS6
       TRANSFER               ,WKS4
FREETK3GATE SNE               PKTBUF3,WKS4
       LEAVE PKTBUF3
       ASSIGN DATA,1
       ASSIGN HOST,3
       TRANSFER               ,WKS4

        GENERATE              18,FN$EXPON
        GATE SNF              PKTBUF3,REFUSE
        ENTER PKTBUF3
        TERMINATE

; 4 станция
WKS4      ADVANCE             (NORMAL(1,5,1))
          TEST E P$DATA,1,FREETK4
          TEST E P$HOST,4,WKS5
          ADVANCE             10,2
          TRANSFER            P$ERR,,WKS5
          ASSIGN DATA,0
          ASSIGN HOST,0
          QUEUE SERVICED
          TRANSFER            ,WKS5
FREETK4GATE SNE               PKTBUF4,WKS5
          LEAVE PKTBUF4
          ASSIGN DATA,1
          ASSIGN HOST,4
          TRANSFER            ,WKS5

        GENERATE              20,FN$EXPON
        GATE SNF              PKTBUF4,REFUSE
        ENTER PKTBUF4
        TERMINATE

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



                                                106