Desplazamiento a la izquierda de un dígito hexadecimal (4 bits) en un bloque datos de 16 bits
Desplaza a la izquierda (hacia la dirección superior) un dígito hexadecimal (4 bits) del rango de datos especificado por d1 (dirección inicial) y d2 (dirección final) cuando la entrada de trigger EN está a TRUE.
Salida
Área de inicio de 16 bits
Área final de 16 bits
Cuando se desplaza un dígito hexadecimal (4 bits) a la izquierda,
se pierde el dígito hexadecimal de mayor peso (bits de 12 al 15) del dato especificado por d2.
se pone a 0 el dígito hexadecimal de minor peso (bits de 0 al 3) del dato especificado por d1.
d1 y d2 deben ser:
del mismo tipo
d1 £ d2
Las variables d1 y d2 tienen que ser del mismo tipo de datos.
Todas las variables de entrada y de salida utilizadas para la programación de esta función han sido declaradas en la Cabecera de la POU. Se utiliza la misma cabecera de la POU para todos los lenguajes de programación.
VAR
start: BOOL:=FALSE;
(*activates the function*)
source_array: ARRAY [0..3] OF WORD:=[16#3456,16#9012,16#5678,16#1234];
(*result after a 0->1 leading edge
from start: [16#3456,16#0120,
16#6789,16#2345]*)
END_VAR
Cuando la variable start pasa de FALSE a TRUE, se ejecuta la función.
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_VAROUT,,source_array[1],13,3,15,5,);
B(B_VAROUT,,source_array[3],13,4,15,6,);
B(B_CONTACT,,start,2,2,4,4,R);
B(B_F,F112_WBSR!,Instance,6,1,13,6,,?DEN?AENO?Cd1_Start?Cd2_End);
L(1,3,2,3);
L(4,3,6,3);
L(1,0,1,7);
END_NETWORK_BODY
END_NET_WORK
END_BODY
IF DF(start) then
F112_WBSR( d1_Start=> source_array[1],
d2_End=> source_array[3]);
END_IF;
LD |
start |
(* EN = start; Starting signal for the F113_WBSL function. *) |
F113_WBSL |
source_array[1], |
(* d1 = source_array[1] (destination1) *) |
source_array[3] |
(* d2 = source_array[3] (destination2) *) |
|
ST |
out |
(* option *) |