F113_WBSL

Bereich-BCD-Linksschieben

Der Speicherbereich mit der Anfangsadresse d1 und der Endadresse d2 wird um 1 Digit nach höheren Adressen hin (nach links) verschoben, wenn der EN-Eingang auf TRUE gesetzt ist.

Parameter

Ausgang

d1_Start (WORD, INT, UINT): 16-Bit-Anfangsadresse
d2_End (WORD, INT, UINT): 16-Bit-Endadresse

Anmerkungen

Wenn ein hexadezimales Digit nach links verschoben wird,
- wird das durch d2 angegebene hexadezimale Digit mit der höchsten Adresse (Bit-Position 12 bis 15) herausgeschoben.
- wird das durch d1 angegebene hexadezimale Digit mit der niedrigsten Adresse (Bit-Position 0 bis 3) gleich Null.
d1 and d2 müssen:
- durch gleiche Operanden spezifiziert werden.
- d1 £ d2
Die Variablen d1 und d2 müssen vom gleichen Datentyp sein.

(1) Angegebener Datenbereich
(2) Das hexadezimale Digit mit der höchsten Adresse (Bit-Position 12 bis 15) wird herausgeschoben.
(3) Das hexadezimale Digit mit der niedrigsten Adresse (Bit-Position 0 bis 3) wird gleich Null.

Verwandte Themen

Beispiel

POE-Kopf

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*)
		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

POE-Rumpf

Wenn die Variable start von FALSE auf TRUE gesetzt wird, wird die Funktion ausgeführt.

KOP-Rumpf

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

ST-Rumpf

IF DF(start) then
    F112_WBSR( d1_Start=> source_array[1],
         d2_End=> source_array[3]);
END_IF;

AWL-Rumpf

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 *)