Разработка, производство и продажа радиоэлектронной аппаратуры
|
Требуется программист в Зеленограде - обработка данных с датчиков; ColdFire; 40 тыс.
e-mail: jobsmp@pochta.ru
|
Кто разбирается в асме для COP8? Есть вопрос по коду...
Отправлено
Dikoy 07 апреля 2008 г. 11:59
В этом куске считается 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]
Составить ответ | Вернуться на конференцию
Ответы