ブロックチェックコード計算
このFP命令は、s1_Controlで指定された計算に従ってブロックチェックコード(BCC)を計算します。データは先頭アドレスs2_Startとバイト数n_Bytesで指定されます。BCCは、dで指定された16ビットエリアに格納されます。
入力
計算方法
先頭アドレス
バイト数
出力
ブロックチェックコード
制御コードs2_Controlの指定 s1_Control
0: 加算(SYS_BCC_CALCULATION_METHOD_ADD)
1: 減算(SYS_BCC_CALCULATION_METHOD_SUB)
2: 排他的論理和(SYS_BCC_CALCULATION_METHOD_XOR)
16#A: CRC-16 (SYS_BCC_CALCULATION_METHOD_CRC16)
16#0–16#F
0: バイナリデータ(1バイト)
1: ASCIIデータ(2バイト)
インデックス修飾時にエリアを超えたとき
インデックス修飾時にエリアを超えたとき
POUヘッダには、このプログラムで使用するすべての入力変数と出力変数を宣言します。POUヘッダは全プログラム言語で使用できます。
VAR
bStart: BOOL:=FALSE;
(*activates the function*)
iBCC_Calc_Method: INT:=2;
sASCII_String: STRING[32]:='%01#RCSX0000';
(*specifies the operation:
0: addition
1: subtraction
2:XOR*)
wBCC: WORD:=0;
(*result after a 0->1 leading
edge from start: 10#172*)
END_VAR
bStartがTRUEになると、sASCII_Stringに対するブロックチェック文字の計算が行われます。計算方法は、排他的論理和です。(大量のデータを転送するときにこの方法を使用します。)
排他的論理和演算:
bvar_1 |
bvar_2 |
bvar_3 |
|
0 |
0 |
0 |
|
0 |
1 |
1 |
|
1 |
0 |
1 |
|
1 |
1 |
0 |
8ビットの排他的論理和演算の結果を得るため、最初の2文字のバイナリコードを演算します。この結果を用いて、次の文字のバイナリコードを演算し、最終文字に達するまでこれを繰り返します。排他的論理和の最終結果がブロックチェック文字になります。
排他的論理和演算を使用したBCC演算:
BODY
WORKSPACE
NETWORK_LIST_TYPE := NWTYPELD ;
ACTIVE_NETWORK := 0 ;
END_WORKSPACE
NET_WORK
NETWORK_TYPE := NWTYPELD ;
NETWORK_LABEL := ;
NETWORK_TITLE := ;
NETWORK_HEIGHT := 11 ;
NETWORK_BODY
B(B_CONTACT,,bStart,3,2,5,4,);
B(B_VARIN,,iBCC_Calc_Method,24,3,26,5,);
B(B_F,Adr_Of_VarOffs_I!,,16,5,25,9,,?D@'Var'?DOffs?CAdr);
B(B_VAROUT,,wBCC,33,3,35,5,);
B(B_VARIN,,sASCII_String,11,4,13,6,);
B(B_VARIN,,2,14,7,16,9,);
B(B_F,LEN!,,16,8,21,11,,?DIN?C);
B(B_F,FP_BCC!,,26,1,33,7,,?DEN?Ds1_Control?Ds2_Start?Dn_Bytes?AENO?Cd);
L(16,5,16,7);
L(13,5,16,5);
L(13,5,13,10);
L(13,10,16,10);
L(25,5,25,7);
L(25,5,26,5);
L(26,6,26,10);
L(21,10,26,10);
L(5,3,26,3);
L(1,3,3,3);
L(1,0,1,11);
END_NETWORK_BODY
END_NET_WORK
END_BODY
この例では、文字列のヘッダを補正するため、Adr_Of_VarOffs_Iを使用しての2ワードのオフセットを作成しています。LENを使用することで、データ文字列全体に対するBCCの計算が行われます。
IF bStart then
FP_BCC(s1_Control := iBCC_Calc_Method,
s2_Start := Adr_Of_VarOffs( Var:= sASCII_String, Offs:= 2),
n_Bytes := LEN( sASCII_String),
d => wBCC);
END_IF;