ВходНаше всё Теги codebook 无线电组件 Поиск Опросы Закон Четверг
18 июля
8888 Топик полностью
SM (24.03.2004 19:11, просмотров: 1) ответил SM на А он еще не вымер, как мамонты?
Да, а вот CRC16 
ADDCRC16:       I3=^CRCVAL;L3=%CRCVAL;AY1=255;
		AF = AR AND AY1 , SR0=DM(I3,M1);     {CRC16H}
		AR = SR0 XOR AF , SE=DM(I3,M1);	     {-4}
		SR = LSHIFT AR (LO) , AY0=AR;
		AR = SR0 XOR AY0 , SE=DM(I3,M1);     { 4 }
		SR = LSHIFT AR (LO) , AY0=DM(I3,M1); {CRC16L}
		AF = SR0 XOR AY0 , SE=DM(I3,M1);     {-3}
		SR = LSHIFT AR (LO) , SI=AR;
		AR = SR0 XOR AF , SE=DM(I3,M1);      { 5, rollover I3}
		AR = AR AND AY1 , AY0=SI;
		SR = LSHIFT SI (LO) , DM(I3,M1)=AR;  {CRC16H}
		AR = SR0 XOR AY0;AR = AR AND AY1;
		DM(CRC16L)=AR;
		RTS;