Буланкин В.Б / Kalayev_IA_rmvs

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 %/ & / /,

,

327

BM EM, , $ . 9 / % , $

% %, / %

, % &

.

" &$%

% $

%, % & % % .

+ &. 6.3 & %.

" <"> % & ,

% . +

*h, % $

% Vector, Stream Array. 7

MAC % % % -&. z %:

GroupRead *h, (StartIndex TO EndIndex);

G % , *h,,

% , StartIndex #

EndIndex.

z :

328

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.

329

G $%:

Add vector1, vector 2.

G % $ vector1 vector2

vector1.

G

MOVE , ;

: $

. + $ &

, & , $ %

, % % . +

/ % , $

330

% . + $ % ,

% , % . 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".

331

+$ - # ,

# %

&.

G % % :

moveJ , [@]+h";

G % % #

+h".

G % % : moveM , [@]+h";

G % %

# +h".

G % %: ClrSH ;

G % % % .

6.2.4. !

z % / / :

-& ;

-;

-;

-.

G % &. 6.5.

332

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 % :

333

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 { _%};

334

_% ::= & , % &

$ .

.

& % , %

/ :

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,

335

& % , $ & .

/ % , &

/& %, $ % ARGUS v.2.0. G - & $

, " $ ". 6

/ CADR, %

"G ( )". /

$ , $

, % "G

( )". " &$ ARGUS V.2.0

G,.hYG+G*. 6 , %

% G,.hYG+

%, & & / /

, & . "

/ & & & "a, % $%

& & %. Y % ,

.

+/ $ % % %,

& . +-

/ %, % % . 6 $

%/ % - , /

& - .

. / $ &

, # %

, , $%.

G, / % %/ &

% , / % .

%/ % %

% %.

336