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

（２）將全部數(shù)據(jù)的第一個(gè)８ｂｉｔ數(shù)據(jù)與１６位ＣＲＣ寄存器的低８位進(jìn)行異或，并把結(jié)果存入ＣＲＣ寄存器。

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

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

（５）重復(fù)第（３）與第（４）步直到８次移位全部完成。此時(shí)一個(gè)８ｂｉｔ數(shù)據(jù)處理完畢。

（６）重復(fù)第（２）至第（５）步直到所有數(shù)據(jù)全部處理完畢。

（７）最終ＣＲＣ寄存器的內(nèi)容即為ＣＲＣ值。

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

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

ｖａｒ

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

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

ＧＬｏＧＨｉｂｙｔｅ ／／生成多項(xiàng)式

ｉｉｎｔｅｇｅｒ ／／需校驗(yàn)數(shù)據(jù)的字節(jié)數(shù)

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

ｂｅｇｉｎ

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

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

＄ｆｆｆｆ（ＨＥＸ）

ＧＬｏ＝ｂｙｔｅ＄０１

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

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

ｂｅｇｉｎ

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

與ＣＲＣ寄存器進(jìn)行異或

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

ｂｅｇｉｎ

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

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

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

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

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

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

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

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

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

ｂｅｇｉｎ

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

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

ｅｎｄ

ｅｎｄ

ｅｎｄ

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

前，高字節(jié)在后

ｅｎｄ

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