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

Привет all! Вот чуть подправил процедуру, которую Кирилл предложил, так что бы таблица получалась как у МОА, но что-то не получается у меня ее больше ускорить, хотя чувствую это можно сделать: DI LD HL,CRC_TAB LD C,0 BYTE LD E,0 LD D,C DEC D LD B,8 EX DE,HL NBIT ADD HL,HL JR C,NXOR LD A,L XOR #21 ;Здесь и ниже быстрее ксориться с содержимым ;регистра, однако регистров не хватает :( LD L,A LD A,H XOR #10 LD H,A NXOR DJNZ NBIT EX DE,HL LD (HL),D INC HL LD (HL),E INC HL DEC C JR NZ,BYTE RET CRC_TAB DEFS 512,0 А за одно может и МОАшную процедуру ускорить можно? ;Cyclic Redundancy Check. ;Подсчет контрольной суммы. ;IN : [DE] - START, [BC] - LENGHT ;OUT: [DE] - CRC-SUMM. CRC LD HL,#FFFF PUSH IX PUSH DE POP IX EX DE,HL CRC_1 LD HL,CRC_TAB LD A,(IX) INC IX XOR E ADD A,L LD L,A JR NC,CRC_2 INC H CRC_2 LD A,D XOR (HL) LD E,A INC HL XOR A XOR (HL) LD D,A DEC BC LD A,C OR B JR NZ,CRC_1 POP IX RET Процедуры будут всегда использовать в паре, то есть вначале генериться таблица, а потом тут же расчет CRC. Может быть можно эти де процедуры объединить и ускорить этот общий конгламерат? Hужно будет общитывать всего 508 байт. Stanislav

Hемедленно нажми на RESET, Stanislav! 29 Jul 01 22:25, Stanislav Udin wrote to All: SU> Вот чуть подправил процедуру, которую Кирилл предложил, так что бы SU> таблица получалась как у МОА, но что-то не получается у меня ее больше SU> ускорить, хотя чувствую это можно сделать: Hужно думать об алгоритмической оптимизации, а не о коде. SU> LD H,A SU> NXOR DJNZ NBIT SU> EX DE,HL SU> LD (HL),D SU> INC HL SU> LD (HL),E SU> INC HL SU> - DEC C + INC C + LD A, C + CP 129 SU> JR NZ,BYTE SU> RET SU> CRC_TAB DEFS 512,0 CRC_TAB DEFS 258, 0 SU> CRC_1 LD HL,CRC_TAB SU> LD A,(IX) SU> INC IX SU> XOR E + ADD A, A + JR NC, $+3 + INC H SU> ADD A,L SU> LD L,A ^^^^^^^^^^ Вот ошибка. Из-за неё больше 257 байт в таблице не используется. SU> JR NC,CRC_2 SU> INC H SU> CRC_2 LD A,D