Sposta i dati all'interno e comprimi
Questa istruzione FP sposta all'interno i dati nell'indirizzo più basso della tabella dati specificata e comprime i dati nella tabella verso l'indirizzo più significativo.
Ingresso
Dato da spostare all'interno
Uscita
Indirizzo iniziale dell'area compressa in cui viene spostato il dato da s
Indirizzo finale dell'area in cui viene compresso il dato
I dati nella tabella specificati da d1_Start e d2_End vengono ridisposti come segue:
Il dato specificato da s viene spostato all'interno nell'area specificata da d1_Start (indirizzo iniziale).
I dati diversi da zero vengono spostati (compressi) in ordine sequenziale, nella direzione dell'indirizzo più significativo nell'intervallo specificato.
L'area iniziale d1_Start e l'area finale d2_End devono presentare lo stesso tipo di operando.
d1_Start deve essere £d2_End
Se il contenuto di s è "0", viene eseguito solo uno spostamento compresso.
se l'area specificata utilizzando il registro indice eccede il limite.
se l'indirizzo della variabile all'ingresso s1_Start > s2_End.
se s1_Start e s2_End appartengono ad aree dati diverse
se l'area specificata utilizzando il registro indice eccede il limite.
se l'indirizzo della variabile all'ingresso s1_Start > s2_End.
se s1_Start e s2_End appartengono ad aree dati diverse
Istruzioni F corrispondenti: F99_CMPW Istruzione ridondante
Tutte le variabili di ingresso e uscita utilizzate per programmare questa funzione sono state dichiarate nell'intestazione del POU.La stessa intestazione del POU è utilizzata per tutti i linguaggi di programmazione.
VAR
bStart: BOOL:=FALSE;
aiDataField: ARRAY [0..5] OF INT:=[555,444,0,11,0,10];
iShiftinData: INT:=32;
END_VAR
Quando la variabile bStart è impostata su TRUE, la funzione viene eseguita.
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 7 ;
NETWORK_BODY
B(B_F,FP_DATA_WRITE_COMPRESS!,,9,1,23,6,,?DEN?D@'s'?AENO?Cd1_Start?Cd2_End);
B(B_CONTACT,,bStart,5,2,7,4,);
B(B_VARIN,,iShiftinData,7,3,9,5,);
B(B_VAROUT,,aiDataField[0],23,3,25,5,);
B(B_VAROUT,,aiDataField[5],23,4,25,6,);
L(1,3,5,3);
L(7,3,9,3);
L(1,0,1,7);
END_NETWORK_BODY
END_NET_WORK
END_BODY
If (bStart) then
FP_DATA_WRITE_COMPRESS(s := iShiftinData,
d1_Start => aiDataField[0],
d2_End => aiDataField[5]);
End_if;