已验证

FUNCTION FC1 : VOID
TITLE =
//column=k*2-2
//row=(j-1)*6
//adress=row+column
//
VERSION : 0.1


VAR_INPUT
index_1 : INT ;
index_2 : INT ;
source_db : BLOCK_DB ;
dest_db : BLOCK_DB ;
END_VAR
VAR_TEMP
adress : INT ;
row : INT ;
column : INT ;
numb : INT ;
source : DWORD ;
dest : DWORD ;
END_VAR
BEGIN
NETWORK
TITLE =

L #index_1;
L 1;
-I ;
L 6;
*I ;
T #row;

L #index_1;
L 2;
*I ;
L 2;
-I ;
T #column;

L #row;
+I ;
T #adress;

L 0;
LAR2 ;
L 9;
loop: T #numb;
L #adress;
SLD 3;

LAR1 ;
OPN #source_db;
L DBW [AR1,P#0.0];
OPN #dest_db;
T DBW [AR2,P#0.0];

O( ;
L #adress;
L 12;
==I ;
) ;
O ;
O( ;
L #adress;
L 14;
==I ;
) ;
JCN m001;
L #adress;
L 10;
-I ;
T #adress;
+AR2 P#2.0;
JU lop1;

m001: L #adress;
L 16;
==I ;
JCN m002;
L 0;
T #adress;
+AR2 P#2.0;
JU lop1;

m002: L #adress;
L 6;
+I ;
T #adress;
+AR2 P#2.0;

lop1: NOP 0;
L #numb;
LOOP loop;

END_FUNCTION