Neues aus Turbanien

Gemäß der Verbreitung und der Beliebtheit von Turbo-Pascal will der Strom der Hinweise zu diesem Compiler einfach nicht versiegen - soll er ja auch nicht, im Gegenteil. Schier endlos sind die Möglichkeiten, sich sein Turbo-Pascal nach individuellen Wünschen zurechtzupatchen. Wie immer stellen wir nach einer Zeit des Sammelns die interessantesten Tips zusammen.

Alle hier vorgestellten Patches lassen sich mit jedem Debugger, wie DDT, DDTZ oder SID, vornehmen. Nachdem man sich den Compiler in den Speicher geladen und an den angegebenen Stellen geändert hat, sollte man ihn unter einem anderen Namen auf die Diskette zurückschreiben. Dies kann auch mit dem SAVE-Kommando geschehen. Nach Verlassen des Debuggers mit Ctrl-C befehle man SAVE 119 TURBAN.COM beziehungsweise SAVE 121 TURBAN.COM für die um rund 300 Byte längere 3.0-Version.

Keine Backup-Files

Bei kleinen Disketten-Kapazitäten wird eine an sich sinnvolle Einrichtung Turbo-Pascals bald zum Alptraum. Immer wenn der Source-Text eines Programms abgespeichert wird, beläßt der Compiler die letzte Version des Programms als Backup-File auf der Diskette. Reicht der Platz nicht zum Speichern der aktuellen Version, steigt der Rechner mit der lakonischen Meldung 'Disk or Directory full' aus. Nach dem Patch wird die alte Programmversion nicht umbenannt, sondern von der neuen überschrieben.

Fehlerdatei nicht einlesen
Begrüßungsmeldung überspringen

Diese Modifikationen sind leicht möglich, da die Aufrufe der Ausgaberoutine und die Texte im Compiler direkt hintereinander stehen. Dadurch ist für die Ausgaberoutine die Rücksprungadresse auf dem Stack ein Pointer auf den Text-String. Nach dessen Ausgabe verzweigt sie zur Adresse hinter dem Text-String. Der Verzicht auf die Fehlerdatei bringt zusätzlichen Speicherplatz von etwa 1 K Byte, das Überspringen der Eröffnungsnachricht spart Zeit beim Starten des Compilers, und der Textbereich kann für kleine Assembler-Programme genutzt werden. Natürlich lassen sich die Texte im Compiler auch leicht durch andere ersetzen. Text-Strings müssen mit einem 00h-Byte abgeschlossen werden.

Andere Extensions

Benutzt man den Turbo-Editor zum Schreiben von Texten oder FORTRAN-Programmen, ist man gezwungen, die passende Extension explizit anzugeben, da sonst der Compiler den File-Namen automatisch mit '.PAS' ergänzt. Durch Ändern dreier Speicherplätze ist es möglich, die automatisch angefügte Extension an spezielle Anwendungen anzupassen.

UpCase auch für Umlaute

Die Funktion UpCase(ch) wandelt alle Kleinbuchstaben im Bereich von a...z in die entsprechenden Großbuchstaben um. Nach Ändern eines Bytes ersetzt UpCase auch ä, ö und ü durch Ä, Ö und Ü. In der Zeitschrift 'Computer Persönlich' wurde bereits der Patch für Turbo 2.0 gezeigt. Jetzt liegt er auch für die aktuelle Compiler-Version vor.

Vorzeichen der MOD-Funktion

Ist im Ausdruck A mod B das erste Argument negativ, ist sich Turbo nicht so recht über das Vorzeichen des Ergebnisses im klaren. So ist -3 mod 5 = 3, aber -7 mod 5 = -2. Der Patch schafft insofern Klarheit, als er dem Ergebnis generell das Vorzeichen von A verleiht und somit immer

A = B * (A div B) + (A mod B)

gilt. Nachdem in der mc 8/85 der Patch für Turbo 2.0 bekanntgegeben wurde, gibt es ihn jetzt auch für Turbo 3.0.

Hex-Ausgabe nur mit {$U-}
Heap-Speicherzuweisung

Die inoffizielle Hex-Ausgabe mit Inline($cd/$48d); (V 2.0) beziehungsweise Inline($cd/$492); (V 3.0) ist mit Vorsicht zu genießen. Ist die Benutzerunterbrechung mit dem Compiler-Befehl {U+} aktiviert, fügt Turbo nach jedem compilierten Statement einen RST38 ein, über den eine Routine zur Abfrage des Keyboard-Status angesprungen wird. Und die überschreibt leider das HL-Register, in dem die Ausgabe-Routine den Hex-Wert erwartet.

Alle Speicherzuweisungen auf dem Heap werden in Vielfachen von vier Bytes vorgenommen! Falls man auf Speicherplatz angewiesen ist, lohnt es sich schon, dieses Verhalten zu berücksichtigen. Einen Record von acht auf fünf Bytes zu verkleinern, spart kein einziges Byte auf dem Heap - es werden in beiden Fällen acht Bytes reserviert. Die Funktion SizeOf arbeitet natürlich richtig und gibt die wahre Größe eines Elements an.

Schnelle Integer-Arithmetik

Auch in einer Hochsprache läßt es sich 'assemblerisch' programmieren. Besonders bestimmte Integer-Rechenoperationen können mit den richtigen Anweisungen erheblich beschleunigt werden. Statt

i:=i+1;       i:=i-1;

empfehlen sich

i:=succ(i);   i:=pred(i);

Dann benutzt der Compiler die besonders schnellen Increment-und Decrement-Befehle der CPU. Ebenfalls sollte man

i:=2*i;       i:= i div 2;

besser durch

i:= i shl 1;  i:= i shr 1;

ersetzen, was ebenfalls zu kürzerem und schnellerem Objectcode führt. Auch Multiplikationen und Divisionen mit anderen Zweier-Potenzen lassen sich durch Schiebeoperationen ersetzen. Einer Multiplikation mit 32 entspricht fünfmaliges Linksschieben (shl 5).