ZXNet эхоконференция «code.zx»

Hello, Andrey!

Однажды, Пят Авг 13 1999 00:23, Andrey Chervinsky писал к All о [CRC.BG93]:


AC> Извините за навязчивость, но не могли бы вы подсказать,
AC> как считает контрольный код всеми любимая микросхема ВГ93.

─ CODE.ZX (500:812/1.25) ───────────────────────────────────────────── CODE.ZX
Msg : 485 of 1193 Rcv From : Alexander Ageev
2:5030/675.10 Пон 18 Янв 99 12:53 To : Dmitry Lomov
Чет 24 Июн 99 00:03 Subj : Re: Mazdaй
───────────────────────────────────────────────────────────────────────────────
*** Answering a msg posted in area HARDWARE.ZX (HARDWARE.ZX).

Hello Dmitry!

Thursday January 14 1999 00:16, Dmitry Lomov wrote to Kirill Frolov:
KF>> А может ты знаешь как 1818ВГ93 считает CRC ? Расскажи !

DL> так же, как МАС написал :) детально не ковырял, не знаю.
DL> кто-нибудь этим занимался? дядя DARK, у тебя ведь было что-то
DL> такое? АУ.

=== Beginning of crc.txt ===
ORG #6000
LD HL,TESTHD
LD DE,#B230
LD C,4

CALL CRC
LD HL,TESTHD
LD DE,#E295
LD C,0
CALL CRC RET
DW 0

; IN :HL=DATA; DE=INIT CRC; C=SIZE
;OUT :DE=CRC ^^ #B230=HEADER #E295=DATA

CRC LD A,D:XOR (HL):LD D,A:INC HL
LD B,8
CRC2 SLA E:RL D:JR NC,CRC3
LD A,D:XOR #10:LD D,A
LD A,E:XOR #21:LD E,A
CRC3 DJNZ CRC2
DEC C:JR NZ,CRC RET
;---------------------------------------
TESTHD DB 0,0,1,1
TESTDT DS 256
=== End of crc.txt ===
Stinger.



───────────────────────вырезать─здесь─────(file: crc)───────────


Всего хорошего.
Дмитрий.

Пусть враги твои, Andrey, умрут без сыновей!

Fri 13 Aug 1999 at 00:23, Andrey Chervinsky ═> All:

AC> Извините за навязчивость, но не могли бы вы подсказать,
AC> как считает контрольный код всеми любимая микросхема ВГ93.

────[ Здесь начинается файл Vg_Crc .C ]───────────────────────

ORG #8000
LD HL,BUFF0,C,#04
XOR A:CALL CRC

LD HL,BUFF1,C,#00
LD A,#01:CALL CRC

RET

BUFF0 DB #00,#00,#01,#01
BUFF1 DS #0100

;***************************************
;IN: [HL] =ADDR
; [C] =LENGTH
; [A] =TYPE; 0=HEADER, 1=DATA
;
;OUT: [DE] =CRC
;
CRC LD DE,#B230:OR A:JR Z,$+#05
LD DE,#E295

CRC1 LD A,D:XOR (HL):LD D,A
INC HL

LD B,#08

CRC2 SLA E:RL D:JR NC,CRC3

LD A,D:XOR #10:LD D,A
LD A,E:XOR #21:LD E,A

CRC3 DJNZ CRC2

DEC C:JR NZ,CRC1
RET

────[ Здесь кончается файл Vg_Crc .C ]────────────────────────

[ WBR, Oleg. ]
[ 05:28 14 August XXXIV A.S. ]



75

Как-то раз 13-08-99 в 00:23:00, увидел я интересное письмецо, там Andrey
Chervinsky
писал к All.Тема письма была CRC.BG93...
... И вот я тоже решил помять свою клаву.

├┤e└└o, уважаемый Andrey!


AC> Hi,All!

AC> Извините за навязчивость, но не могли бы вы подсказать,
AC> как считает контрольный код всеми любимая микросхема ВГ93.

Да на здоровье...
Лекция: Самой высокой помехоустойчивостью обладают цикличес-
кие контрольные коды, построенные на основе полиномов.Причем,
чем выше степен полинома, тем надежнее CRC.Проверочная область
блоков фиксированной длины и кадров должна содержатЬ
инвертированный остаток от деления по модулю два на образующий
полином совокупности бит служебной и информационной областей,
умноженной на X^K, где K - размер проверочной области в битах.
Так как при записи на гибких магнитных дисках используется
полином 16-й степени с минимальным кодовым расстоянием равным
┌──────────────┐
│X^16+X12+X^5+1│
└──────────────┘
(в соответствии с ГОСТ 17422-82).При этом длина блока должна
быть не более 2^15 бит.Та же самая идея применяется и в
накопителях на жестких магнитных дисках, и даже в любимом на PC
архиваторе RAR.Теперь ближе к делу...Привожи программы
демонстрирующую метод посчета crc контроллером ВГ-93 и не
только им...
....
LD IX,АДРЕС МАССИВА
LD DE,ДЛИHА МАССИВА
CALL CRC16
....
CRC16
LD HL,0 ;HАЧАЛЬHЫЕ УСЛОВИЯ
LD B,(IX+00)
LD C,8
M1 LD A,B
XOR H
SLA B
SLA L
JR C,M2
SLA H
JR M3
M2 SLA H
INC H
M3 BIT 7,A
JR Z,M4
INC L
JR M5
M4 LD A,20
XOR L
LD L,A
LD A,10
XOR H
LD H,A
M5 DEC C
JR NZ,M1
INC IX
LD B,(IX+00)
LD C,8
DEC DE
LD A,D
OR E
JR NZ,M1
RET


CRC будет находиться по выходу в HL!Сразу предупрежу, дла
работы программы надо время.Ведь контроллеры флопов делают это
дело аппаратно!!!Так что если будут тормоза - уменьшай степень
полинома...

┌═─═─═─═─═─═─═─═─═─═─═─═─═─═─═─═─═┐
║With the be$t wi$he$ and regards,║
│ Искренне ваш, Юрий. │
╚─═─═─═─═─═─═─═─═─═─═─═─═─═─═─═─═─╝




(500:812/28.22)