REMPLISSAGE FORMATÉ D'UN SHORTSTRING

Function UseCarASM(const Chaine:shortstring; const Taille:Byte; const Remplir:Char):shortstring;
ASM
   push    edi
   push    esi

   mov     esi,eax       // is in eax
   mov     edi,@Result
   mov     al,Remplir    // is in ecx
   xor     ecx,ecx
   mov     cl,Taille     // is in edx
   mov     [edi],cl
   inc     edi

   cmp     [esi],cl
   jb      @@FillIt
   ja      @@RepMov
   mov     cl,[esi]
@@RepMov:
   inc     esi
   rep     movsb
   jmp     @@Finish

@@FillIt:
   mov     dl,Taille
   sub     dl,[esi]   // Taille-Length(Chaine)
   mov     cl,[esi]
   inc     esi
   rep     movsb
   mov     cl,dl
   rep     stosb

@@Finish:
   pop     esi
   pop     edi
End;