Список проголосовавших за комментарий "Вполне себе используется и сейчас. Другое дело, насколько это оправдано по соотношению затраты времени — выхлоп...<br/> <br/> Маленький фрагментик из актуального:<br/> <br/> function TValueDistributionByPrice.AddByPrice(NewPrice: Double): Longint; assembler;<br/> asm<br/> .NOFRAME<br/> push rbx<br/> push rsi<br/> mov rsi,rcx<br/> movq rbx,xmm1<br/> <br/> xorpd xmm2,xmm2<br/> call TValueDistributionByPrice.FindByPrice<br/> test eax,eax<br/> jns @ExitProc<br/> not eax<br/> mov rcx,rsi<br/> mov edx,eax<br/> mov esi,eax<br/> call TValueDistributionByPrice.InsertNode<br/> mov [rax].TValueDistributionByPriceRec.Price,rbx<br/> mov QWord ptr [rax].TValueDistributionByPriceRec.Value,0<br/> mov eax,esi<br/> .align 16<br/> @ExitProc:<br/> pop rsi<br/> pop rbx<br/> end;<br/> <br/> <br/> <a class="imgpreview" href="/uploads/images/03/18/74/2019/07/26/5df5e1.png"><img src="/uploads/images/03/18/74/2019/07/26/b0c183.png"/></a><br/> "