home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / protocol / crc.info < prev    next >
Text File  |  2020-01-01  |  3KB  |  115 lines
  1. Andy - Here is the CRC generation function from the version of C-Kermit
  2. I'm working on now (5A).
  3.  
  4. /* CRC generation tables */
  5.  
  6. /* LONG means "unsigned long" */
  7.  
  8. static LONG crcta[16] = { 0L, 010201L, 020402L, 030603L, 041004L,
  9.   051205L, 061406L, 071607L, 0102010L, 0112211L, 0122412L, 0132613L, 0143014L,
  10.   0153215L, 0163416L, 0173617L };
  11.  
  12. static LONG crctb[16] = { 0L, 010611L, 021422L, 031233L, 043044L,
  13.   053655L, 062466L, 072277L, 0106110L, 0116701L, 0127532L, 0137323L, 0145154L,
  14.   0155745L, 0164576L, 0174367L };
  15.  
  16.  
  17. /*  C H K 3  --  Compute a type-3 Kermit block check.  */
  18. /*
  19.  Calculate the 16-bit CRC-CCITT of a null-terminated string using a lookup 
  20.  table.  Assumes the argument string contains no embedded nulls.
  21. */
  22. unsigned int
  23. chk3(pkt) register CHAR *pkt; {
  24.     register LONG c, crc;
  25.     register unsigned int m;
  26.     m = (parity) ? 0177 : 0377;
  27.     for (crc = 0; *pkt != '\0'; pkt++) {
  28.     c = crc ^ (LONG)(*pkt & m);
  29.     crc = (crc >> 8) ^ (crcta[(c & 0xF0) >> 4] ^ crctb[c & 0x0F]);
  30.     }
  31.     return((unsigned int) (crc & 0xFFFF));
  32. }
  33.  
  34. And here is a similar routine from DEC-20 Kermit (circa 1985) that shows
  35. the tables in octal, in case that's any help.
  36.  
  37. ; This routine calculates the CRC for a string, using the
  38. ; CRC-CCITT polynomial x^16+x^12+x^5+1.
  39. ; 
  40. ; The string should be the fields of the packet between but not including
  41. ; the <mark> and the block check, which is treated as a string of bits with
  42. ; the low order bit of the first character first and the high order bit of the
  43. ; last character last -- this is how the bits arrive on the transmission line.
  44. ; The bit string is divided by the polynomial.
  45. ;
  46. ; The initial value of the CRC is 0.  The result is the remainder of this
  47. ; division, used as-is (i.e. not complemented).
  48. ;
  49. ; Call with
  50. ;  t1/ length of string
  51. ;  t2/ 8-bit byte pointer to string
  52. ; Returns +1 always, with t1/ 16-bit CRC, t2 unchanged.
  53. ;
  54. ; AC usage:
  55. ;    t1/ Accumulated CRC
  56. ;    q4/ Remaining length
  57. ;    q3/ Byte pointer to string
  58. ;    q2/ temp
  59. ;    q1/ temp
  60. ;
  61. crcclc:    saveac <q1,q2,q3,q4,t2>    ; Save q1-q4, and t2.
  62.     dmove q3,t1        ; Get arguments.
  63.     setz t1,        ; Initial CRC is 0.
  64.     move t2, parity        ;[136] Get parity.
  65.  
  66. crcc.1:    ildb q1, q4        ; Get a character.
  67.     caie t2, none        ;[136] Parity = NONE?
  68.      andi q1, ^o177        ;[136] No, doing parity, strip parity bit.
  69.     xori q1, (t1)        ; Add in with current CRC.
  70.     ldb q2, [point 4,q1,31]    ; Get high 4 bits.
  71.     andi q1, ^o17        ; And low 4 bits.
  72.     move q1, crctb2(q1)    ; Get low portion of CRC factor.
  73.     xor q1, crctab(q2)    ; Plus high portion.
  74.     lsh t1, -^d8        ; Shift off a byte from previous CRC.
  75.     xor t1, q1        ; Add in new value.
  76.     sojg q3, crcc.1        ; Loop for all characters.
  77.     
  78.     ret            ; Done, return +1 with CRC in t1.
  79.  
  80. ; Data tables for CRC-CCITT generation
  81.  
  82. crctab:    oct    0
  83.     oct    10201
  84.     oct    20402
  85.     oct    30603
  86.     oct    41004
  87.     oct    51205
  88.     oct    61406
  89.     oct    71607
  90.     oct    102010
  91.     oct    112211
  92.     oct    122412
  93.     oct    132613
  94.     oct    143014
  95.     oct    153215
  96.     oct    163416
  97.     oct    173617
  98.  
  99. crctb2:    oct    0
  100.     oct    10611
  101.     oct    21422
  102.     oct    31233
  103.     oct    43044
  104.     oct    53655
  105.     oct    62466
  106.     oct    72277
  107.     oct    106110
  108.     oct    116701
  109.     oct    127532
  110.     oct    137323
  111.     oct    145154
  112.     oct    155745
  113.     oct    164576
  114.     oct    174367
  115.