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

Hello, Orionsoft

Ori> кто подскажет процедуру которая считает сабж , но не ограничена 256
Ori> байтами как в извесном исходнике ...

Для X-modem;
┌─-; code ───

crc=0;
for (i=0; i if (ptr >= sizeof(buff)) {
debug0("buffer overflow!
");
send_break("buffer overflow!");
return 0;
}
while (1) {
CHECK_TIMEOUT;
if (kbhit()) {
buff[ptr+i] = c = getch();
crc^=((unsigned)c<<8)&0xff00;
b=8;
do {
if (crc&0x8000) crc<<=1, crc^=0x1021;
else crc<<=1;
} while (--b!=0);
break;
}
}
}

└── code ───
А вообще в своё время в CODE.ZX этот вопрос был рассмотрен, приведено
всяческих процедур, и по-моему даже объяснено, что та табличка строится просто
через безтабличный алгоритм и может запросто генерироваться динамически, когда
нужна скорость и компактность. И даже в моей zxlib есть такой алгоритм:

Только вставить мне его не получилось. Сообщение понимаешь-ли длинное. И
мучаться в окошке размером в 1/16 монитора тоже удовольствия мало. Поэтому не
буду я тут больше ничего осмысленного писать. Только бредить и абастряться.
Спрашивай в fido7.zx.spectrum.

Hello, All

кто подскажет процедуру которая считает сабж , но не ограничена 256 байтами как
в извесном исходнике ...

Hello, Orionsoft

о нашел и проверил , она правильно расчитывает в формате cciit


CRC16;
;Borrowed; from http://zilog.sh.cvut.cz/~base/misc/z80bits.html
; and moddified to be a loop
;The arrow comments show what lines I added or commented out from the original.
;Inputs; de->data; bc=number of bytes
;Outputs; hl=CRC16;
push bc ;<---<<<
push de ;<---<<<
push af ;<---<<<
ld hl,$FFFF
push bc ;<---<<<
CRC16_Read;
ld; a,(de)
inc de
xor h
ld h,a
ld b,8
CRC16_CrcByte;
add; hl,hl
jr nc,CRC16_Next
ld a,h
xor $10
ld h,a
ld a,l
xor $21
ld l,a
CRC16_Next;
djnz; CRC16_CrcByte
; dec c ;>>>--->
pop bc ;<---<<<
dec bc ;<---<<<
push bc ;<---<<<
ld a,b ;<---<<<
or c ;<---<<<
jr nz,CRC16_Read
pop bc ;<---<<<
pop af ;<---<<<
pop de ;<---<<<
pop bc ;<---<<<
ret

Hello, Orionsoft

Ori> кто подскажет процедуру которая считает сабж , но не ограничена 256
Ori> байтами как в извесном исходнике ...

исходник hrust2.x

Hello, fk0

Вот от fk0.

Файл: zxlib_crc_fk0.zip http://zx.pk.ru/attachment.php?attachmentid=4300