（１）設置ＣＲＣ寄存器，并給其賦初值ＦＦＦＦＨＥＸ。

（２）將全部數據的第一個８ｂｉｔ數據與１６位ＣＲＣ寄存器的低８位進行異或，并把結果存入ＣＲＣ寄存器。

（３）ＣＲＣ寄存器整體向右移一位，ＭＳＢ補零，移出并檢查ＬＳＢ。

（４）如果ＬＳＢ為０，重復第三步；若ＬＳＢ為１，ＣＲＣ寄存器與多項式碼相異或。

（５）重復第（３）與第（４）步直到８次移位全部完成。此時一個８ｂｉｔ數據處理完畢。

（６）重復第（２）至第（５）步直到所有數據全部處理完畢。

（７）最終ＣＲＣ寄存器的內容即為ＣＲＣ值。

Ｄｅｌｐｈｉ６．０環(huán)境下ＣＲＣ－１６實現的函數如下：

ｆｕｎｃｔｉｏｎ ＣＲＣ１６ＣＲＣ＿Ｄａｔａａｒｒａｙ ｏｆ ＢｙｔｅＤＡＴＡ＿Ｌｅｎｉｎｔｅｇｅｒ ｗｏｒｄ

ｖａｒ

ＣＲＣ１６ＬｏＣＲＣ１６Ｈｉｂｙｔｅ ／／ＣＲＣ 寄存器

ＳａｖｅＬｏＳａｖｅＨｉｂｙｔｅ ／／ＣＲＣ 中間寄存器

ＧＬｏＧＨｉｂｙｔｅ ／／生成多項式

ｉｉｎｔｅｇｅｒ ／／需校驗數據的字節(jié)數

Ｆｌａｇｉｎｔｅｇｅｒ ／／移位的次數（８次）

ｂｅｇｉｎ

ＣＲＣ１６Ｌｏ＝ｂｙｔｅ＄ｆｆ

ＣＲＣ１６Ｈｉ＝ｂｙｔｅ＄ｆｆ ／／給ＣＲＣ寄存器賦初值

＄ｆｆｆｆ（ＨＥＸ）

ＧＬｏ＝ｂｙｔｅ＄０１

ＧＨｉ＝ｂｙｔｅ＄ａ０ ／／多項式碼＄ａ００１（ＨＥＸ）

ｆｏｒ ｉ＝０ ｔｏ ＤＡＴＡ＿Ｌｅｎ－１ ｄｏ ／／各字節(jié)數據

ｂｅｇｉｎ

ＣＲＣ１６Ｌｏ＝ＣＲＣ１６Ｌｏ ｘｏｒ ＣＲＣ＿Ｄａｔａｉ ／／各字節(jié)數據

與ＣＲＣ寄存器進行異或

ｆｏｒ Ｆｌａｇ＝０ ｔｏ ７ ｄｏ

ｂｅｇｉｎ

ＳａｖｅＬｏ＝ＣＲＣ１６Ｌｏ

ＳａｖｅＨｉ＝ＣＲＣ１６Ｈｉ

ＣＲＣ１６Ｈｉ＝ＣＲＣ１６Ｈｉ ｓｈｒ １ ／／高字節(jié)右移一位

ＣＲＣ１６Ｌｏ＝ＣＲＣ１６Ｌｏ ｓｈｒ １ ／／低字節(jié)右移一位

ｉｆ ＳａｖｅＨｉ ａｎｄ ｂｙｔｅ＄０１＝ｂｙｔｅ＄０１ ｔｈｅｎ

／／若高字節(jié)ＬＳＢ為１，則低字節(jié)ＭＳＢ置１

ＣＲＣ１６Ｌｏ＝ＣＲＣ１６Ｌｏ ｏｒ ｂｙｔｅ＄８０

ｉｆ ＳａｖｅＬｏ ａｎｄ ｂｙｔｅ＄０１＝ｂｙｔｅ＄０１ ｔｈｅｎ

／／若低字節(jié)ＬＳＢ為１，則與多項式碼進行異或

ｂｅｇｉｎ

ＣＲＣ１６Ｈｉ＝ＣＲＣ１６Ｈｉ ｘｏｒ ＧＨｉ

ＣＲＣ１６Ｌｏ＝ＣＲＣ１６Ｌｏ ｘｏｒ ＧＬｏ

ｅｎｄ

ｅｎｄ

ｅｎｄ

ＣＲＣ１６＝ＣＲＣ１６Ｌｏ２５６＋ＣＲＣ１６Ｈｉ ／／ＣＲＣ低字節(jié)在

前，高字節(jié)在后

ｅｎｄ

用雙微機松耦合實現了勵磁控制微機與通信控制微機之間的數據交換，并通過通信控制微機完成與上位機之間的通信，將勵磁調節(jié)器的任務進行分散，增強了裝置的功能和可靠性。該系統(tǒng)已在國內多個中、小型水電站投入運行，運行穩(wěn)定，得到用戶的好評。