F18_BXCH16-Bit-Blockaustausch
Die Funktion tauscht einen 16-Bit-Datenblock mit einem anderen aus. Der Anfang des ersten Datenblocks wird am Ausgang d1_Start und das Ende am Ausgang d2_End ausgegeben. Der Ausgang d3_Start gibt den Anfang des zweiten Datenblocks aus.
Ausgang
Anfangsadresse des 16-Bit-Bereichs des Datenblocks 1
Zieladresse des 16-Bit-Bereichs des Datenblocks 1
Anfangsadresse des 16-Bit-Bereichs des Datenblocks 2
wenn die Adresse der Variablen an den Ausgängen von d1_Start > d2_End ist.
wenn der auszutauschende Datenblock größer als der Zielbereich ist
wenn die Adresse der Variablen an den Ausgängen von d1_Start > d2_End ist.
wenn der auszutauschende Datenblock größer als der Zielbereich ist
Im POE-Kopf werden alle Ein- und Ausgangsvariablen deklariert, die für die Programmierung dieser Funktion verwendet werden. Für alle Programmiersprachen wird der gleiche POE-Kopf verwendet.
VAR
start: BOOL:=FALSE;
(*activates the function*)
d1: ARRAY [0..5] OF INT:=[1,2,3,4,5,6];
(*result after a 0->1 leading
edge from start:
[1,2,8,9,10,6]*)
d2: ARRAY [0..5] OF INT:=[7,8,9,10,11,12];
(*result after a 0->1 leading
edge from start:
[7,3,4,5,11,12]*)
END_VARWenn die Variable start auf TRUE gesetzt wird, wird die Funktion ausgeführt.
Sie tauscht die Daten des ARRAY data_field_1 (vom 2. bis zum 5. Element) mit den Daten des ARRAY data_field_2 (ab dem 3. Element) aus.
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 13 ;
NETWORK_BODY
B(B_VARIN,,output,5,1,7,3,);
B(B_VAROUT,,data_field_1[2],15,2,17,4,);
B(B_VAROUT,,data_field_1[5],15,3,17,5,);
B(B_VAROUT,,data_field_2[3],15,4,17,6,);
B(B_F,F18_BXCH,,7,0,15,6,,?DEN?AENO?Cd1?Cd2?Cd3);
B(B_COMMENT,,data_field_1[2] <----> data_field_2[3]ø^data_field_1[3] <----> data_field_2[4]ø^data_field_1[4] <----> data_field_2[5]ø^data_field_1[5] <----> data_field_2[6],24,4,41,8,);
B(B_COMMENT,,data_field_1[6] data_field_2[7]ø^data_field_1[7]ø^data_field_1[8]ø^data_field_1[9],24,8,41,12,);
B(B_COMMENT,, data_field_2[0]ø^data_field_1[0] data_field_2[1]ø^data_field_1[1] data_field_2[2],24,1,41,4,);
L(1,0,1,13);
END_NETWORK_BODY
END_NET_WORK
END_BODYIF start then
F18_BXCH(
d1_Start=> d1[2], d2_End=> d1[4], d3_Start=> d2[1]);
END_IF;