Sprungtabelle

Bastler · 9. Dezember 2010

Weis jemand zufällig, wie man eine Sprungtabelle in Turbo Pascal erstellen kann? Ich habe also eine Prozedur-Sammlung die ich per Sprungtabelle aufrufen möchte.

Bastler · 9. Dezember 2010

Habe jetzt eine Routine entworfen. Diese funktioniert auch. Nur, wenn der der Tokenwert 0 ist, schmiert der CPC ab. Warum, weiss ich noch nicht

Code

Procedure Proc0
Begin
...
End;


Procedure Proc2
Begin
...
End;


Procedure Proc3
Begin
...
End;


Procedure CallToken(Token : Byte);
Begin
  Inline($21/Token/           {LD      HL,Token}
         $6E/                 {LD      L,(HL)}
         $26/$00/             {LD      H,0}
         $44/                 {LD      B,H}
         $4D/                 {LD      C,L}
         $29/                 {ADD     HL,HL}
         $09/                 {ADD     HL,BC}
         $01/*+3/             {LD      BC,$+3}
         $09/                 {ADD     HL,BC}
         $E9);                {JP      (HL)}
  Inline($C3/Proc0);
  Inline($C3/Proc1);
  Inline($C3/Proc2);
  Inline($C3/Proc3);
  ...
End;

Alles anzeigen

srs · 19. Januar 2011

Hallo Bastler,

TurboPascal ist ewig her, daher weiss ich nicht, ob es bei der Version schon case gabe ? Dann brauchst Du kein inline-mc

Code

case Token of
        0 : Proc0;
        1 : Proc1;
        .....
end;

Bastler · 20. Januar 2011

Richtig. Aber es wird dann der Token mit jedem Wert verglichen und das dauert .... Bei meiner Routine dauert jeder Tokenwert gleich lange.

Habe die Routine inzwischen noch etwas verbessert und jetzt geht auch Tokenwert 0. Werde diese in Kürze einstellen.