Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

CRC16 algorithm in SCL

Created by: AutoGen_250137 at: 10/2/2013 10:21 AM (6 Replies)

Rating (2)

Thanks 3

7 Entries

10/2/2013 10:21 AM	Rate (0)
AutoGen_250137 Posts: 4 Rating: (0)	Hi, someone realized a CRC16 algorithm in SCL language in Tia portal? Can help me?
AutoGen_250137 Posts: 4 Rating: (0)	Last edited by: O_Moderator at: 10/4/2013 11:08 AM new subject after splitting from /tf/WW/en/Posts/1889#top Last edited by: AutoGen_250137 at: 10/2/2013 10:22 AM
Suggestion To thank Quote Answer

10/2/2013 3:36 PM	Rate (2)
smiffy Platinum Expert Joined: 1/17/2007 Last visit: 12/5/2024 Posts: 1548 Rating: (538)	The following code makes a FB that calculates a Modbus CRC-16 from data in a DB. It might not be exactly what you want, but it is a good starting point I think. [code] FUNCTION_BLOCK CRC_CALC TITLE = 'CRC_CALC' AUTHOR : Smiffy VAR_INPUT CRCSTART : ANY; CRCEND : ANY; END_VAR VAR_OUTPUT CRC : WORD; END_VAR VAR CRCLoTable1 : ARRAY [0..127] OF BYTE := 0, 192, 193, 1, 195, 3, 2, 194, 198, 6, 7, 199, 5, 197, 196, 4, 204, 12, 13, 205, 15, 207, 206, 14, 10, 202, 203, 11, 201, 9, 8, 200, 216, 24, 25, 217, 27, 219, 218, 26, 30, 222, 223, 31, 221, 29, 28, 220, 20, 212, 213, 21, 215, 23, 22, 214, 210, 18, 19, 211, 17, 209, 208, 16, 240, 48, 49, 241, 51, 243, 242, 50, 54, 246, 247, 55, 245, 53, 52, 244, 60, 252, 253, 61, 255, 63, 62, 254, 250, 58, 59, 251, 57, 249, 248, 56, 40, 232, 233, 41, 235, 43, 42, 234, 238, 46, 47, 239, 45, 237, 236, 44, 228, 36, 37, 229, 39, 231, 230, 38, 34, 226, 227, 35, 225, 33, 32, 224; CRCLoTable2 : ARRAY [0..127] OF BYTE := 160, 96, 97, 161, 99, 163, 162, 98, 102, 166, 167, 103, 165, 101, 100, 164, 108, 172, 173, 109, 175, 111, 110, 174, 170, 106, 107, 171, 105, 169, 168, 104, 120, 184, 185, 121, 187, 123, 122, 186, 190, 126, 127, 191, 125, 189, 188, 124, 180, 116, 117, 181, 119, 183, 182, 118, 114, 178, 179, 115, 177, 113, 112, 176, 80, 144, 145, 81, 147, 83, 82, 146, 150, 86, 87, 151, 85, 149, 148, 84, 156, 92, 93, 157, 95, 159, 158, 94, 90, 154, 155, 91, 153, 89, 88, 152, 136, 72, 73, 137, 75, 139, 138, 74, 78, 142, 143, 79, 141, 77, 76, 140, 68, 132, 133, 69, 135, 71, 70, 134, 130, 66, 67, 131, 65, 129, 128, 64; CRCHiTable1 : ARRAY [0..127] OF BYTE := 0, 193, 129, 64, 1, 192, 128, 65, 1, 192, 128, 65, 0, 193, 129, 64, 1, 192, 128, 65, 0, 193, 129, 64, 0, 193, 129, 64, 1, 192, 128, 65, 1, 192, 128, 65, 0, 193, 129, 64, 0, 193, 129, 64, 1, 192, 128, 65, 0, 193, 129, 64, 1, 192, 128, 65, 1, 192, 128, 65, 0, 193, 129, 64, 1, 192, 128, 65, 0, 193, 129, 64, 0, 193, 129, 64, 1, 192, 128, 65, 0, 193, 129, 64, 1, 192, 128, 65, 1, 192, 128, 65, 0, 193, 129, 64, 0, 193, 129, 64, 1, 192, 128, 65, 1, 192, 128, 65, 0, 193, 129, 64, 1, 192, 128, 65, 0, 193, 129, 64, 0, 193, 129, 64, 1, 192, 128, 65; CRCHiTable2 : ARRAY [0..127] OF BYTE := 1, 192, 128, 65, 0, 193, 129, 64, 0, 193, 129, 64, 1, 192, 128, 65, 0, 193, 129, 64, 1, 192, 128, 65, 1, 192, 128, 65, 0, 193, 129, 64, 0, 193, 129, 64, 1, 192, 128, 65, 1, 192, 128, 65, 0, 193, 129, 64, 1, 192, 128, 65, 0, 193, 129, 64, 0, 193, 129, 64, 1, 192, 128, 65, 0, 193, 129, 64, 1, 192, 128, 65, 1, 192, 128, 65, 0, 193, 129, 64, 1, 192, 128, 65, 0, 193, 129, 64, 0, 193, 129, 64, 1, 192, 128, 65, 1, 192, 128, 65, 0, 193, 129, 64, 0, 193, 129, 64, 1, 192, 128, 65, 0, 193, 129, 64, 1, 192, 128, 65, 1, 192, 128, 65, 0, 193, 129, 64; EndAddr : DWORD; END_VAR VAR_TEMP pDB : ANY; // Pointer for DB data DBAny AT pDB : STRUCT S7Code : BYTE; // Code for S7 = 0x10 DataType : BYTE; // Code for data type = 0x02 = byte Length : INT; // Repetition factor = Send/receive length DBNumber : INT; // Data block Number MemoryArea : BYTE; // Specified memory area = 0x84 = data block ByteAddressMSB : BYTE; // Byte address most significant bits ByteAddressLSB : WORD; // Byte address least significant bits END_STRUCT; u1Addr : DWORD; // Union pointer for calculation of byte offset address u1 AT u1Addr: STRUCT // This is equivalent to a union in 'c'. A dword goes in and word / byte LSB / byte MSB come out ByteAddrLSBPad : BYTE; // Not Used ByteAddrMSB : BYTE; // Byte address most significant bits WordAddr : WORD; // Byte address least significant bits END_STRUCT; CRCData : BYTE; CRCIndex : INT; CRCHi : BYTE; CRCLo : BYTE; RetVal : INT; END_VAR pDB := CRCEND; DBAny.DataType := B#16#02; u1.ByteAddrLSBPad := 0; u1.ByteAddrMSB := DBAny.ByteAddressMSB; u1.WordAddr := DBAny.ByteAddressLSB; EndAddr := u1addr; pDB := CRCSTART; DBAny.DataType := B#16#02; u1.ByteAddrLSBPad := 0; u1.ByteAddrMSB := DBAny.ByteAddressMSB; u1.WordAddr := DBAny.ByteAddressLSB; CRCHi := 16#FF; CRCLo := 16#FF; WHILE (DWORD_TO_DINT(u1addr) < DWORD_TO_DINT(EndAddr)) DO DBAny.ByteAddressMSB := u1.ByteAddrMSB; DBAny.ByteAddressLSB := u1.WordAddr; RetVal := BLKMOV(SRCBLK := pDB, DSTBLK := CRCData); CRCIndex := BYTE_TO_INT(CRCHi XOR CRCData); // Calulate the lookup table index IF CRCIndex <= 127 THEN CRCHi := CRCLo XOR CRCHiTable1[CRCIndex]; // Get actual CRC MSB from lookup table CRCLo := CRCLoTable1[CRCIndex]; // Get actual CRC LSB from lookup table ELSE CRCHi := CRCLo XOR CRCHiTable2[CRCIndex - 128]; // Get actual CRC MSB from lookup table CRCLo := CRCLoTable2[CRCIndex - 128]; // Get actual CRC LSB from lookup table END_IF; u1addr := DINT_TO_DWORD(DWORD_TO_DINT(u1addr) + 8); END_WHILE; CRC := SHL(IN := BYTE_TO_WORD(CRCHi), N := 8) OR CRCLo; END_FUNCTION_BLOCK [/code]
	Programming today is the race between software engineers building bigger and better idiot proof programs, and the universe producing bigger and better idiots. So far, the universe is winning...
Suggestion To thank Quote Answer
This contribution was helpful to 3 thankful Users Artem C A.Remon MarcoSartori

9/12/2017 4:57 PM	Rate (0)
A.Remon Posts: 53 Rating: (0)	Hi Smiffy, I want to implement this code in my project, but, its highly complex, for me. Can you help me? Whats is ANY and why can't I find this type of data? Have you this code in a project? thank you very much n advance
A.Remon Posts: 53 Rating: (0)
Suggestion To thank Quote Answer

9/12/2017 5:49 PM	Rate (0)
Piotr.M Platinum Expert Joined: 6/24/2013 Last visit: 1/15/2025 Posts: 1669 Rating: (429)	ANY is a data type in s7-300/400 which specifies data position and length

Suggestion To thank Quote Answer

9/13/2017 10:41 AM	Rate (0)
A.Remon Posts: 53 Rating: (0)	Thank you, Any is the same that variant?
A.Remon Posts: 53 Rating: (0)
Suggestion To thank Quote Answer

9/13/2017 6:18 PM	Rate (0)
A.Remon Posts: 53 Rating: (0)	Hi guys You have the same programm without the tables only with the polynom? Many thanks in advance
A.Remon Posts: 53 Rating: (0)
Suggestion To thank Quote Answer

9/22/2017 9:46 AM	Rate (0)
Elonen Bronze Member Joined: 4/11/2012 Last visit: 10/29/2024 Posts: 181 Rating: (34)	A.Remon Hi guys You have the same programm without the tables only with the polynom? Many thanks in advance Check the topic https://support.industry.siemens.com/tf/ww/en/posts/crc-16-in-scl-language/42284/?page=0&pageSize=10 Don't stop at the Delphi code, I just commented there that I could not get it to work, but the project I attached to the thread has a working CRC code with the polynom.

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on