Каляев И.А. Реконфигурируемые мультиконвейерные вычислительные структуры
Подождите немного. Документ загружается.
357
EndCadr;
…………..
Cadr CadrN
………….
EndCadr;
Mcadr : MasCadr [Cadr1, Cadr2,….., CadrN];
// "% &&
For I := 0 to 5 Step 2 do
MasCadr[I];
// "% &&
Cadr Cadr0
For J := 0 to 5 Step 1 do
MasCadr[J];
EndCadr;
; % %
-
% # /&
&&. 7 % % ,
% .
; $ & -
% &
& )*+,.
89 COLAMO
.% % % COLAMO % & ARGUS /%
: - %
ARGUS, , %/
, host--.
+ % %%
%
358
-&. " %
: , , %/.
+ - %%
&M ,
/ - / % &
ARGUS. , &/ /
. " )+,
. a%/ %%% ,
% & %/ (exe-) &
)+, host-
-, $ -% . h%
& % .6.11.
, -
-
. " $% %
%, % , &$%
. h , % %
( ), $ & % %
% . 6 %
% COLAMO /% ,
%/% %
(vector), # % )+,
. , ,
&
, $ % &
. h
.6.12.
359
. 6.11. K8 8 8 COLAMO
. 6.12. N "
360
" &% #
. 6.13.
VAR a,b,c,d,e,g : Array [2 : Vector 10 :
Stream] Mem;
VAR Z : Integer Com;
Cadr Cadr1
For I := 0 to 1 do
For J := 0 to 9 do
Begin
A[I,J] := B[I,J] + B[I,J + 3];
D[I,J] := C[I,J] + (B[I,J] * G[I,J]);
End;
EndCadr;
B[I,J]
C[I,J]
A[I,J]
3
B[I,J +3]
G[I,J]
3
3
*
+
+
. 6.13. H U B-
` - $ / -
, % % %/. +- ,
& $, %%/% -
%, # . +- ,
& %, / $
.
" - &
$ / ,
/ , $ &
% % )+,.
h . 6.14.
" % /%
- $
% &&.
361
. 6.14. N "
Y / %
.
VAR a,b,c,d,e,g : Array [2 : Vector,
10 : Stream] Mem;
VAR Z : Integer Com;
Cadr Cadr1
For I := 0 to 1 do
For J := 0 to 6 do
Begin
A[I,J] := B[I,J] + B[I,J + 3];
D[I,J] := C[I,J] + (B[I,J] *
G[I,J]);
End;
EndCadr;
Var A,B,C,D,G : Array [2 : Vector 10 : Stream]
Mem;
Cadr Cadr1
DMC[0.B1] Read B[0] Step 1 repeat 12;
DMC[0.C1] Read C[0] Step 1 repeat 12;
DMC[0.G1] Read G[0] Step 1 repeat 12;
DMC[0.A1] Write A[0] Step 1 repeat 12;
DMC[0.D1] Write D[0] Step 1 repeat 12;
DMC[0.B2] Read B[1] Step 1 repeat 12;
DMC[0.C2] Read C[1] Step 1 repeat 12;
DMC[0.G2] Read G[1] Step 1 repeat 12;
DMC[0.A2] Write A[1] Step 1 repeat 12;
DMC[0.D2] Write D[1] Step 1 repeat 12;
EndCadr;
362
G Read &
% / /, Write %
.
" % %
% . + % & ARGUS
% %% / $%
. " %
/ %// % %%
$ % COLAMO.
h . 6.15.
. 6.15. N " "
Y / %
.
VAR a,b,c,d,e,g : Array [2 : Vector
10 : Stream] Mem;
VAR Z : Integer Com;
For I:= 0 to 5 Do
Begin
Cadr Cadr1
A[0,0] := B[0,0] + B[0,3];
D[0,0] := C[0,0] + (B[0,0] *
G[0,0]);
Program Promer;
Var A,B,C, D : ParamAddress MEM;
Var N, K, M : Number;
Define N = 5; Define K = 6; Define M = 1;
Label M0, M1;
M0 : CADR Cadr1
<" >
EndCadr;
CADR CadrIF
363
EndCadr;
If A > 0 then
Cadr Cadr2
A[0,0] := B[0,0] + B[0,3];
D[0,0] := C[0,0] + (B[0,0] *
G[0,0]);
EndCadr;
End;
If Mem Goto M1;
Goto M2;
EndCadr;
M1 : CADR Cadr2
<" >
EndCadr;
CADR CadrFOR
M2: Loop 4 Goto M0;
EndCadr;
" CadrIf (IF).
" CadrFor - .
a%/ % &
% % 9+*, Pascal.
) % %/
%%% %% .
h % % COLAMO %/
/% % ,
% % % Pascal.
" % %
%/ .
Y / %
%// %//.
Program Primer;
Var A,B,C,D:array [N : Stream, K :
Stream]: Mem;
ReadFile (A, FF_STR, "C:\Input.txt“);
Cadr Cadr1
For I := 0 to N-1 do
For J := 1 to K-1 do
Program 1;
Uses SysUtils;
TempLongword : PLongWord;
Data64 : PInt64; InputFile : File; OutputFile :
File; Str : String;
Begin
LoadFile(D:\"\,_%_%
\Result\OutFile.out);
{`
364
D[I, J] := (A[I,J] + A[I,J-1]) + 5;
EndCadr;
WriteFile (D, FF_STR, "C:\Output.txt“);
End_Program.
/ %}
// ` )"
RunAllDMC(0, 16);
// G&&
Repeat
ReadCOReg(0, 2, TempLongword);
bit5 := Integer(TempLongword^) and 32;
until Bit5 = 32;
{+
%
}
End;
6.4. # -
, & «Argus IDE» % &
% - [50].
&% $ / /
, /% (.6.16).
%% ,
% ,
- $ , %%
# % &.
. 6.16. I " b “!”
365
# % % & %%
& &, &M% , &
&M $ &. 7% %
& &, % -
% «Argus» (.6.17).
. 6.17. = 8
+ % - #
% % &M
& &$%
, % % &
(. 6.18).
7 &$ & %
% , %%%
. ; -
% «Argus» % %
% % $ # & ,
-
, % &
(.6.19).
366
8
9
10
11
12
13
14
15
0
1
2
3
4
5
6
7
4
1
2
3
8
0
5
9
106
7
11
15
14
1
3
12
8
. 6.18. LI B" B =
B 8 # #
"
:% % % -
)*+, & % .
. 6.19. e 8 “f”
, & «Easyo IDE» % &
- % . ;
- % % # %
, % %
- % %%%