Einzelnen Beitrag anzeigen

Illuminator-23-5
(Gast)

n/a Beiträge
 
#1

Brauche asm-Hilfe

  Alt 16. Sep 2003, 20:45
hi leute!
ich versuch grad, 'nen Binärzähler zu proggen, der so schnell wie möglich ist... (in einer Konsolenanwendung)
Ich bin so weit gekommen:

Delphi-Quellcode:
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b: string;
  bytes, i: integer;
begin
  a := '';
  b := '';
  readln(bytes);
  for i := 1 to bytes do begin
    a := a + '0';
    b := b + '1';
  end;
  //Ab hier wird die Zeit gestoppt
  writeln(a);
  while a <> b do begin
    i := bytes;
    while a[i] = '1do begin
      a[i] := 0;
      dec(i);
    end;
    a[i] := '1':
  end;
  //Hier wird die Zeitmessung beenden
end.
Es geht relativ schnell, nur immer noch zu langsam, und da hab ich mir gedacht, könnte man einen Teil in assembler umwandeln. Kennt sich da jemand aus und kann/möchte mir Helfen?
  Mit Zitat antworten Zitat