Каляев И.А. Реконфигурируемые мультиконвейерные вычислительные структуры
Подождите немного. Документ загружается.
327
write_while +Yh [step +h"];
G % ,
%/ % .
G % - :
Read Extern [repeat "„];
G % , -- -
.
G - :
Write Extern [repeat "„];
G % , -- -
.
G % - :
Read +Yh Step Extern [repeat "„];
G % ,
-- - .
G - :
Write +Yh Step Extern [repeat "„];
G % ,
-- - .
G % :
Read_String BHA [size N];
G , % ,
N. 9 %/ & / /,
(
BM EM), % , $ .
G :
Write_String BHA [size N],
G , % ,
N. 9 %/ & / /,
,
328
BM EM, , $ .
9 /% , $
# . , &&/% /
-, .
" , %
% %, /%
, % &
.
" &$%
% $
%, % & %% .
+ &. 6.3 &%.
6" 6.3
*- t :
GROUPREAD
GroupRead MAC
[<">];
{
GROUPWRITE
GroupWrite MAC
[<">];
`
" <"> % & ,
% . +
*h, % $
% Vector, Stream Array. 7
MAC %%% -&.
z %:
GroupRead *h, (StartIndex TO EndIndex);
G % , *h,,
% , StartIndex #
EndIndex.
z :
329
GroupWrite *h, (StartIndex TO EndIndex);
G % , *h,,
% , StartIndex #
EndIndex.
!
+ % & : & (BASE),
(RETURN_REG), %% (STATUS),
(OPER_SEG), (PARAM_SEG),
(DATA_SEG), (MOD_REG)
(MACRO_SEG). :% % $ # %
& % .
t % :
move_reg [@]BHA, %_;
G $
, $%
(+Yh). :% # $ /
/.
t :
move_reg %_,[@]BHA;
G , %% ,
$% +Yh, / . :% #
$ / /.
!
G &. 6.4.
6" 6.4
t :
,$
add vector1, vector 2;
" (vector1). "
( ).
330
HI . 6.4
t :
"
Move vector1, vector2;
Move vector1,@ vector2;
"
"
,$
AddoSH , +h";
AddoS , +h";
AddoJ , +h";
AddoM , +h";
* % % SH
* % % S
* % % J
* % % M
`
MoveSH , +h";
MoveS , +h";
MoveJ , +h";
MoveM , +h";
` % SH
` % S
` % J
` % M
G
ClrSH ;
ClrS ;
ClrJ ;
ClrM ;
G % SH
G % S
G % J
G % M
G $%:
Add vector1, vector 2.
G % $ vector1 vector2
vector1.
G
MOVE , ;
: $
. + $ &
, & , $ %
, %% . +
/% , $
331
% . + $ % ,
% , % .
G $% % %:
addoSH , +h";
G % $ / % %
# +h".
G $% % :
addoS , +h";
G % $ / %
# +h".
+ $ - # ,
# +h" % &.
G $% % :
addoJ , +h";
G % $ / %
# +h".
G $% % :
addoM , +h";
G % $ / %
# +h".
G % % %:
moveSH , [@]+h";
G % % %
# +h".
G % % :
moveS , [@]+h";
G % % #
+h".
332
+ $ - # ,
# %
&.
G % % :
moveJ , [@]+h";
G % % #
+h".
G % % :
moveM , [@]+h";
G % %
# +h".
G % %:
ClrSH ;
G % % % .
6.2.4. !
z % / / :
- & ;
- ;
- ;
- .
G % &. 6.5.
6" 6.5
Y t :
G &
:
G :
G :
a :
Goto J;
Pause N;
Loop S [goto J];
If A goto J;
If @A goto J;
J J
`$ %
N
G
" / % h
" / % h
333
G & :
Goto J;
" & %%
, J. { % goto
%%/% call return.
t call:
call J;
: % J %
. : % % .
t return:
return;
: %
. : % %
.
G :
Pause N;
: # /% , %% $
% N .
G :
Loop S [goto J];
a :
If A goto J;
: /% ,
$ % % h. 6 $
, J, %% /
.
+ /:
If @A goto J;
` @ , % % %.
t % :
334
acommutation <7%_ >;
chan0 (<Y J_0>, …<Y J_15>);
chan1 (<Y J_0>, …<Y J_15>);
endacom;
:% % %
LOADACOM %
LOADBCOM. t LOADACOM /:
LOADACOM <7%_ >.
% $ & . `$% %
% % %
& .
t LOADBCOM /:
LOADBCOM <7%_">.
G LOADBCOM % / $ -
-, / %.
:% & % &,
/ / :
RESETACOM.
+ % % & .
G & $ %
% % %.
6.2.5. (+ #
+ &. 6.6 - %.
G% & # ,
% .
+
%% , / / :
input +Yh [step +h"] [channels ++K][repeat „] data {_%};
335
_% ::= & , % &
$.
6" 6.6
t :
G:
input +Yh [step +h"] [channels ++] [repeat „]
data {_%};
input +Yh [step +h"] [channels ++] [repeat „]
file "%_";
-
output +Yh [step +h"] [channels ++] [repeat „]
file "%_";
+
+ -
+ (
&)
.
&% , %
/ :
input +Yh [step +h"] [channels ++] [repeat „] file "%_";
%_ ::= _.
G OUT % $ % .
t :
output +Yh [step +h"] [channels ++] [repeat „] file "%_";
+ % ARGUS v.2.0 / /:
- .
G, /% %/ &
% , /% =. +-
% "` "
&.
+- %% -
% . G - %/ /
/ % %. :
& , . ` $
, . 9 %
& . { % : &
, & - . t,
336
& % , $ & .
/% , &
/& %, $ % ARGUS
v.2.0. G - & $
, "$ ". 6
/ CADR, %
"G ()". /
$ , $
, % "G
()". " &$ ARGUS V.2.0
G,.hYG+G*.
6 , %
% G,.hYG+
%, && / /
, & . "
/ & & & "a, % $%
& & %. Y % ,
.
+/ $ %% %,
& . +-
/%, %% . 6 $
%/% - , /
& -.
. / $ &
, # %
, , $%.
G, /% %/ &
% , /% .
%/ % %
% %.