procedure  _FillChar( var  Dest; count: Integer; Value: Char);
 asm                     
        CMP   EDX,  32 
        MOV   CH, CL        
        JL    @@Small              // Переход по условию на код, который "выровнен" 
        MOV   [EAX  ], CX  
        MOV   [EAX+ 2 ], CX
        MOV   [EAX+ 4 ], CX
        MOV   [EAX+ 6 ], CX
        SUB   EDX,  16 
        FLD   QWORD PTR [EAX]
        FST   QWORD PTR [EAX+EDX]  
        FST   QWORD PTR [EAX+EDX+ 8 ]
        MOV   ECX, EAX
         AND    ECX,  7    
        SUB   ECX,  8 
        SUB   EAX, ECX
        ADD   EDX, ECX
        ADD   EAX, EDX
        NEG   EDX
@@Loop:
        FST   QWORD PTR [EAX+EDX]   
        FST   QWORD PTR [EAX+EDX+ 8 ]
        ADD   EDX,  16 
        JL    @@Loop
        FFREE ST( 0 )
        FINCSTP
        RET
        NOP  // Зачем? 
        NOP  // Зачем? 
        NOP  // Зачем? 
@@Small:
        //....