, pascal crc - 16, bidragyder: swag støttegruppe, {, > jeg ' m efter kode til at beregne crc32 af en række personer,   ... medmindre du ' er crcing et meget stort beløb af data, crc-16,    rutine bør gøre. bemærk: denne rutine,    enten kræver tp6 eller tp7 udarbejde.} {tilbage en 16 - bit crc - tal for binære data.}, funktion crc16 (var - data wo_size: ord): ord; assembler, asm,    skubbe ds,    xor dx, brugte,    lds si, data,    mov bx, wo_size, @ l1:,    xor ah, ah,    lodsb,    mov cx, 8,    sømhaj shb økse, cl,    xor dx, økse,    mov cx 8, @ l2:,    sømhaj shb dx 1,    jnc @ l3,    xor dx - 1021, @ l3:,    loop @ l2,    dec. bx,    jnz @ l1,    pop ds,    mov økse, brugte,; (crc16.},,,