В этом куске считается CRC16 для сообщения или байта (???), нужно понять, по какому алгоритму (полиному) дабы перевести на Си и AVR.
Я в асме не фонтан специалист, да ещё и незнакомая платформа... Помогите вкурить прЫнцЫп :)

[code]
.LOCAL
;------------------------------------------------------------------------------
; Calculate CRC16 for message.
;! Don't use in IRQs because of REG_F1 doesn't save
; Input: S - memory page, X - pointer to begin of buffer REG_F0 - number of calculated bytes
; Change: A,B,X,C, REG_F0,REG_F1
; Output: X -> last+1 byte, B -> CRChi
Calc_CRC16:
LD B,#(CRChi_UART)
LD [B-],#high(CRC_BEGIN_VALUE)
LD [B+],#low(CRC_BEGIN_VALUE)

_Calc_CRC16: ;! entry point for call with custom CRC_BEGIN_VALUE, B->CRChi_UART

$_loop:
LD A,[B-] ; [B]->Lo(CRC)
LD A,[X+]
XOR A,[B]
X A,[B+]

LD REG_F1,#8
$_shifts:
RC
LD A,[B] ; B-> Hi(CRC)
RRC A
X A,[B-]
LD A,[B]
RRC A

IFNC
JP $_no_xor

XOR A,#H'01
X A,[B+]
LD A,#H'A0
XOR A,[B]
X A,[B]

$_next:
DRSZ REG_F1
JP $_shifts

DRSZ REG_F0
JP $_loop
RET

$_no_xor:
X A,[B+]
JP $_next

.LOCAL

;------------------------------------------------------------------------------
; Calculate CRC16 for single byte and Update CRC.
; Input: S - memory page, A=Byte
; Change: A,B,C, REG_F0
; Output: B -> CRChi

Calc_CRC16_Single: ;! Byte in A !!!
LD REG_F0,#8
LD B,#(CRClo_UART)
XOR A,[B]
X A,[B+]
$_shifts:
RC
LD A,[B] ; B-> Hi(CRC)
RRC A
X A,[B-]
LD A,[B]
RRC A
IFNC
JP $_no_xor
XOR A,#H'01
X A,[B+]
LD A,#H'A0
XOR A,[B]
X A,[B]
$_next:
DRSZ REG_F0
JP $_shifts
RET

$_no_xor:
X A,[B+]
JP $_next

[/code]