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

UptoLike

107
FREETK5 GATE SNE PKTBUF5,WKS6
LEAVE PKTBUF5
ASSIGN DATA,1
ASSIGN HOST,5
TRANSFER ,WKS6
GENERATE 10,FN$EXPON
GATE SNF PKTBUF5,REFUSE
ENTER PKTBUF5
TERMINATE
; 6 станция
WKS6 ADVANCE (NORMAL(1,5,1))
TEST E P$DATA,1,FREETK6
TEST E P$HOST,6,WKS7
ADVANCE 10,2
TRANSFER P$ERR,,WKS7
ASSIGN DATA,0
ASSIGN HOST,0
QUEUE SERVICED
TRANSFER ,WKS7
FREETK6 GATE SNE PKTBUF6,WKS7
LEAVE PKTBUF6
ASSIGN DATA,1
ASSIGN HOST,6
TRANSFER ,WKS7
GENERATE 15,FN$EXPON
GATE SNF PKTBUF6,REFUSE
ENTER PKTBUF6
TERMINATE
; 7 станция
WKS7 ADVANCE (NORMAL(1,5,1))
TEST E P$DATA,1,FREETK7
TEST E P$HOST,7,WKS8
ADVANCE 10,2
TRANSFER P$ERR,,WKS8
ASSIGN DATA,0
ASSIGN HOST,0
QUEUE SERVICED
TRANSFER ,WKS8
FREETK7 GATE SNE PKTBUF7,WKS8
FREETK5GATE SNE               PKTBUF5,WKS6
       LEAVE PKTBUF5
       ASSIGN DATA,1
       ASSIGN HOST,5
       TRANSFER               ,WKS6

        GENERATE              10,FN$EXPON
        GATE SNF              PKTBUF5,REFUSE
        ENTER PKTBUF5
        TERMINATE

; 6 станция
WKS6      ADVANCE             (NORMAL(1,5,1))
          TEST E P$DATA,1,FREETK6
          TEST E P$HOST,6,WKS7
          ADVANCE             10,2
          TRANSFER            P$ERR,,WKS7
          ASSIGN DATA,0
          ASSIGN HOST,0
          QUEUE SERVICED
          TRANSFER            ,WKS7
FREETK6GATE SNE               PKTBUF6,WKS7
          LEAVE PKTBUF6
          ASSIGN DATA,1
          ASSIGN HOST,6
          TRANSFER            ,WKS7

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

; 7 станция
WKS7      ADVANCE             (NORMAL(1,5,1))
          TEST E P$DATA,1,FREETK7
          TEST E P$HOST,7,WKS8
          ADVANCE             10,2
          TRANSFER            P$ERR,,WKS8
          ASSIGN DATA,0
          ASSIGN HOST,0
          QUEUE SERVICED
          TRANSFER            ,WKS8
FREETK7GATE SNE               PKTBUF7,WKS8


                                                107