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

h $% ARGUS v.2.0 %

, % , ,

.

6.2.2.$

t % / : var %_ : _ ;

: % % /

&:

Define %_ = $ ;

: % % # /

%. t 1:

define %_ = [ $ ]; t 2:

define %_ = [ $ ,…, $ ];

6 # - ,

& :

-- %, % # %/ %

;

-% & %, % #

%/ % .

G & % % . 6 - , – – , % $ # - % % %

% # .

! "

* & % / % % # %

%

317

. + % ARGUS v.2.0 / &:

. ) &

%.

Y % $ % CHAN. ` $

. : % & % $

% 0 1.

, - & %,

&. 6.1.

+ & % $ . `- & % $ ENDMACROMEMORY, %

& & &

& %. G & %,

% % %

%, /, &.

` -

( - %_ <<%_

). [%_ ; %_ ];

", / %

, % / /:

318

RealMacromemory m00(out alpha0,beta0); Virtual; alpha0<<chan0;

beta0<<chan1;

EndMacroMemory;

+ # & %

.

", /

& %:

VirtualMacroMemory m00(In : alpha0,beta0; out : alpha0,beta0); EndMacroMemory;

alpha0, beta0, alpha0, beta0 –

%.

% # #

% % %

% . Y

% % read read_mod. 9

$ % $ %,

/ $ %. "

%. " / h

%.

% # #

%

/ % . Y

write write_mod. 9 $

% $ %, / $

%. "

. : / h %.

7 8 while

319

% while % %

%, $ &

# % , % % # %. Y

read_while. 9 $ % $

%, / $ %. "

%. :

/ h %. { ,

Z % .

7 8 while

while %

/ %. Y % %

write_while. 9 $ %

$ %, / $ %. " . : / h %. „ %

, Z % .

7 8 =

% - % %

% ,

/ Z1 Z2 %. : % %

- read,

% / extern. 9 $ % $ %,

/ $ %. : / h

%.

7 8 =

- %

/ % ,

/ Z1 Z2 %. : %

320

- write,

% / extern. 9 $ % $ %,

/ $ %. : / h

%.

7 8 = @

% - %

% % , % % %

read. 9 $ %

$ %, / $ %. : % % -

read,

% / extern. ` %

Z1 Z2 %. 9 $ % $

%, / $ %. :

/ h %.

7 8 = @

-

% / %,

% % write. 9

$ % $ %, /

$ %.

: % -

write,

% / extern. ` %

Z1 Z2 %. 9 $

% $ %, / $

%. : / h %.

321

!

G % &

/ / /:

Structure _

in _ B # 8_ _ ; out _B # 8_ _8;

#_@_ _8_": endstructure;

: STRUCTURE

, % , & %

. G& % %

/ :

E_"( _B_ );

+

& % %/ % % $

, % -

. . &, $ & &$

% .

! #

- #

%, $

. G& & % $ ,

/ % % & ,

- . 6 $

, ,

& , % /

, % .

: CADR . +

% $ % . + -

322

, / STOP, $ %

. : %, , &

% % , . ` %

ENDC.

6.2.3. ' #

, %

% / &% . :

% - # % &, /

% # & %. ) %. "

- $ %. : MODULE

% , & % % -% %. t MODULE / :

MODULE J*0[,J*1[,...[,J*i]]];

J*i ::= & %.

{ & / & %.

$ & $ (8÷32)

% . " &

% % & %,

$ , . "

/ % &

% %, % # % . +

$ & -

%. G & %

& . G

% %/ % - .

(

+ %

$ & $ . 9 $/ %

323

% , / %. G %/ : & % % ,

%.

G & % & %

.

+ & /&

% , %/ $

& %

%

.

Cadr Cadr1

DMC[†J* , † )"]#

Read a Step 1 repeat 2;

EndCadr;

DMC – , %/ % $ ; †J* – & % *+,;

† )" – %;

READ – %.

G & % & %

. " % %

. " / %

%/ %/

.

+ &. 6.2 & %.

324

t %

read +Yh [step +h" [repeat "„]], [ ].

{ % % .

% % % . 6 %

, step repeat . Y

% (+Yh). Y

% / % % %

% , . " % & /

.

G c :

write +Yh [step +h" [repeat "„]]; [ ].

` % % .

% % ("„). 6

325

% , step repeat . Y % +Yh.

Y % / % %

% % , +Yh. "

% & / . G % c :

read_mod +Yh [step +h" [repeat "„]]; [ ].

G % . {

% % .

%/ % % . 6 % %

%

% h0, # / %

BASE.

G c :

write_mod +Yh [step +h" [repeat "„]]; [ ].

G % / . `

% % .

% % . 6 % %

% h0,

# / % BASE.

G CONTINUE: continue +h" [repeat "„ ];

G % $

& . 7 % % ( )

.

G % WHILE:

read_while +Yh [step +h"];

G % ,

%/ % . G WHILE:

326