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

UptoLike

92
Рисунок 12.3 - Исследуемый фрагмент СПД
Текст исходной программы приведен далее, где CPUJ — обозначение j-
го центрального процессора,
DCHL — обозначение L-го дискретного канала
связи.
SIMULATE
0001 EXPON FUNCTION RN1,C24
0,0/.100,.104/.200,.222/.300,.355/.400,.509/.500,.690/.600,.915/.700,1.200
.750,1.380/.800,1.600/.840,1.830/.880,2.120/.900,2.300/.920,2.520/.940,2.810/.950,.
990/.960,3.200/.970,3.500/.980,3.900/.990,4.600/.995,5.300/.998,6.200/.999,7/1,8
0008 BUF1 STORAGE 20
0009 BUF2 STORAGE 20
0010 BUF3 STORAGE 20
0011 BUF4 STORAGE 20
0008 TAB1 TABLE M1,25,25,15
0009 MET1 ENTER BUF4,1
0010 SEIZE CPU1
0015 ADVANCE 2
0020 LEAVE BUF4,1
0025 RELEASE CPU1
0030 ENTER BUF1,1
0035 TEST E P2,1,MET4
0040 TEST E P1,20,COP1
0045 SPLIT 1,NEX1
0046 MARK
0050 COP1 MATCH COP1
0055 LEAVE BUF1,1
0060 ASSEMBLE 2
0065 TABULATE TAB1
0070 TERMINATE
0075 MET4 SEIZE DCH1
0080 LEAVE BUF1,1
0085 TRANSFER ,DEX1
0090 NEX1 SEIZE DCH1
0095 DEX1 ADVANCE P1
0100 RELEASE DCH1
0105 ASSIGN 1,1
0110 МЕТ2 ENTER BUF2,1
                     Рисунок 12.3 - Исследуемый фрагмент СПД
      Текст исходной программы приведен далее, где CPUJ — обозначение j-
го центрального процессора, DCHL — обозначение L-го дискретного канала
связи.
SIMULATE
0001 EXPON            FUNCTION          RN1,C24
0,0/.100,.104/.200,.222/.300,.355/.400,.509/.500,.690/.600,.915/.700,1.200
.750,1.380/.800,1.600/.840,1.830/.880,2.120/.900,2.300/.920,2.520/.940,2.810/.950,.
990/.960,3.200/.970,3.500/.980,3.900/.990,4.600/.995,5.300/.998,6.200/.999,7/1,8
0008 BUF1 STORAGE                       20
0009 BUF2             STORAGE           20
0010 BUF3             STORAGE           20
0011 BUF4             STORAGE           20
0008 TAB1 TABLE M1,25,25,15
0009 MET1             ENTER             BUF4,1
0010       SEIZE      CPU1
0015       ADVANCE                      2
0020       LEAVE BUF4,1
0025       RELEASE                      CPU1
0030       ENTER BUF1,1
0035       TEST E P2,1,MET4
0040       TEST E P1,20,COP1
0045       SPLIT      1,NEX1
0046       MARK
0050 COP1            MATCH              COP1
0055       LEAVE BUF1,1
0060       ASSEMBLE                     2
0065       TABULATE                     TAB1
0070       TERMINATE
0075 MET4             SEIZE             DCH1
0080       LEAVE BUF1,1
0085       TRANSFER                     ,DEX1
0090 NEX1             SEIZE             DCH1
0095 DEX1            ADVANCE            P1
0100       RELEASE                      DCH1
0105       ASSIGN 1,1
0110 МЕТ2             ENTER             BUF2,1




                                                                                92