★ APPLICATIONS ★ PROGRAMMATION ★ LABEL-BASIC (CPC AMSTRAD INTERNATIONAL)|CPC Amstrad International) ★ |
| Label-Basic (CPC Amstrad International) | Applications Programmation |
Ein berühmter Quizmaster könnte Ihnen folgende Frage stellen: »Was fällt Ihnen alles ein, wenn Sie an das Wort Programmbibliothek denken? Sie haben 15 Sekunden Zeit — Dalli Dalli!« Die Uhr läuft — fangen wir also an: Strukturierte Programme — Programmierung von Modulen - beliebiges und müheloses »Linken« der Programmteile — und? Und?! Das Zauberwort, das jeder CPC-Besitzer bisher beschämt verschweigen mußte (und das den Aufbau einer Programmbibliothek erst wirklich sinnvoll macht), heißt »Symbolische Adressierung in BASIC«. Bisher konnte diese Programmierungstechnik, die neben einer höheren Übersichtlichkeit der Programme auch deren — von Zeilennummern unabhängige — Abarbeitung ermöglicht, auf dem CPC nicht realisiert werden — versuchen Sie doch einmal »GOSUB Daten.lesen«... (Zu Deutsch: Wer Sprungmarken sät, wird »Syntax error« ernten.) Bisher war das Zusammenfügen der Programmteile eine ebenso mühsame wie zeitraubende Angelegenheit; so mancher BASIC-Programmierer wird nach durchtippter Nacht (wie passe ich bloß die Zeilennummern an??) auf dem Zahnfleisch zur Arbeit gegangen sein... Bisher?! Bisher!! Denn nun gehört dieses Ärgernis — zumindest für alle 464-Besitzer - der Vergangenheit an. Keine Angst, dies ist kein neuer BASIC-Interpreter, keine RSX-Erweiterung und schon gar nicht ein speicherplatzmordendes Monstrum, sondern klein, aber oho! Auch der Befürchtung, daß bei der Anwendung des hier vorgestellten Programms alle anderen Programme unter großen Mühen angepaßt werden müßten, sei hier mit aller Deutlichkeit widersprochen. Alles, was Sie benötigen, ist der Basiclader und ein bißchen Zeit zum Abtippen... es lohnt sich! Der Basiclader Was von diesem Programm nach der Installierung übrig bleibt, sind einzig und allein ganze 186 Bytes Maschinencode, die Sie fast überall im freien RAM unterbringen können — der BL macht das für Sie. Er nimmt auch die Anpassung der Sprungadressen und die Verlegung der alten Patches in die MC-Routine vor, was das Nebeneinander von z.B. X-BASIC und LABEL-BASIC gewährleistet. Sie sollten jedoch folgendes beachten: SAVEn Sie den Basiclader, bevor Sie ihn starten, da er sich anschließend selbst löscht. Dies ist notwendig, da die MC-Routine bei einem versehentlichen zweiten Start ihre eigene Aufrufadresse als Rücksprungadresse rettet und der CPC so in eine Endlos-Schleife hineingerät, in der nur noch der berühmte »Dreifingergriff« einen Ausweg bietet... Die Frage »Soll MEMORY gesetzt werden?« darf nur dann mit »n« beantwortet werden, wenn der Maschinencode in einen bereits geschützten Speicherbereich geladen wird (also oberhalb HIMEM oder in den Soundpuffer oder...). Andernfalls wird das Programm durch den NEW-Befehl auf Nimmerwiedersehen beseitigt! Durch den UNT-Befehl ist der BASIC-Lader in der Lage, sowohl dezimale als auch hexadezimale Adressen zu verarbeiten. Zwei Fallen für den Syntax error! Dies ähnelt auf jeden Fall der in der Serie »Der gläserne CPC« (Heft 5/86 und 6/86) vorgestellten Programmierungstechnik von X-BASIC. Der wohl wichtigste Unterschied zu X-BASIC ist der, daß hier keine neuen Befehls-Token verwendet werden, sondern solche, die der CPC ohnehin schon verwendet, nämlich die Funktions-Token. Diese lösen, wenn sie ohne vorangehenden Befehl angetroffen werden, ebenfalls einen »Syntax error« aus, der dann entsprechend bearbeitet werden kann. (&AC07, Patch für Befehl ausführen). Über diesen User-Vektor werden die Befehle »USING TO« und »TO < Label > realisiert, die die Vorarbeit für die eigentlichen Sprungbefehle, nämlich die Initialisierung der Sprungmarken leisten. Der Vorteil der »schon vorhandenen« Befehle liegt klar auf der Hand: der BASIC-Interpreter muß gar nicht erst korrigiert werden, um die »neuen« Befehle LISTen zu können! Die zweite Falle wird dem »Syntax error« dann bei der Ausführung der »stinknormalen« BASIC-Sprungbefehle gestellt, wenn statt der erwarteten Zeilennummer oder -adresse eine Variable, d.h. ein Label angetroffen wird. (&AC04, Patch für Error-Einsprung). Dieser Vektor macht es uns auf relativ einfache Weise möglich, die Sprungbefehle so zu verbiegen, daß sie künftig auch Labels akzeptieren! Hierzu ist (da der CPC nur über Umwege verrät, welchen Befehl er gerade ausführen wollte) eine Schleife notwendig, die feststellt, in welcher seiner Routinen ein CALL erfolgte, der mit einem Error quittiert werden mußte (!). Hier hilft dann nur noch hartnäckiges Blättern und Vergleichen im ROM-Listing weiter, um die Rücksprungadressen der richtigen Routinen ausfindig zu machen... Dabei stellt man schncll fest, daß es zwar 10 Sprungbefehle gibt, die Anzahl der Rücksprungadressen aber durch die Mehrfachbenutzung einiger Unterprogramme bereits auf 7 zusammenschmilzt (es hätten ruhig noch weniger sein können). Diese 7 CALLs verteilen sich nun auf ganze zwei Arbeitsprogramme, in denen der Fehler auftreten kann: &CEE1 - &CEF8: Zeilennummer nach > DE< holen &E767 - &E799: Zeilenadresse holen Die Aufgabenstellung der Routinen bringt es mit sich, daß auch bei der Bearbeitung der Sprungmarken Unterschiede gemacht werden müssen. Dies ist aber wesentlich einfacher und tausendmal sinnvoller, als das Rad völlig neu zu erfinden! Auf diese Weise ist es lediglich nötig, sich einige Gedanken über die Programmierung der Labels zu machen. Grundsätzliches zu den Labels Das Wichtigste gleich zum Anfang: Labels sind zwar vom Typ her den Variablen zuzuordnen; sie müssen jedoch immer wie Konstanten behandelt werden. Das heißt im Klartext: Versuchen Sie nie, den Wert eines Labels zu verändern, da dies wegen der besonderen Bearbeitung durch LABEL-BASIC zum Absturz Ihres Programms führen kann! Der Grund hierfür liegt einfach darin, daß in den Labels nicht etwa eine Zeilennummer, sondern die tatsächliche Adresse der BASIC-Zeile gespeichert wird. Bei der Ausführung der Sprungbefehle wird dieser Wert dann um 1 erniedrigt, damit der BASIC-Interpreter an der richtigen Stelle w'eiterlesen kann. Die Speicherung der Zeilenadressen hat eine Erhöhung der Arbeitsgeschwindigkeit zur Folge, da das zeitraubende Suchen nach der entsprechenden Zeilennummer entfällt. Symbolische Adressierung oder: Wie programmiert man Labels? Nichts einfacher als das! Sie können ihre Programme ganz normal in BASIC mit Zeilennummern erstellen; letztere werden auch weiterhin akzeptiert. Dadurch ergibt sich schon von selbst, daß Sie Sprünge über kurze Distanzen, also innerhalb Beachten Sie bitte die folgenden Erläuterungen zu den LABEL-BASIC-Befehlen und den erweiterten BASIC-Sprungbefehlen: USING TO Führt die Wertzuweisung an die Labels durch. Dieser Befehl sollte immer am Anfang des Hauptprogramms bzw. der Initialisierung gegeben werden; er muß jedoch nach Typvereinbarungen (DEFINT, DEFREAL, DEFSTR) erfolgen, weil die davon betroffenen Labels auf Null gesetzt werden. Dies gilt auch für »ERASE« und »CLEAR«! Und so wirkt »USING TO«: Das gesamte Programm wird nach Labels durchsucht, die direkt nach der Zeilennummer mit »TO« vereinbart werden müssen. Durch einen kleinen Programmiertrick wird ein auftretender Fehler in genau der Zeile angezeigt, in der er verursacht wurde. Labels, die nicht am Anfang der Zeile vereinbart werden, gelten als »unbekannt« und führen bei einem Sprungbefehl zum Abbruch mit »Line does not exist in ...« Wichtig: Die »verlabelten« Sprungbefehle: GOTO Schreibweise (Syntax): oder: < Sprungbefehl > < Label > Hinweise: Achtung!! Achtung!! Das Zusammen-Linken von Programmteilen... ist mit LABEL-BASIC nur noch wenig arbeitsintensiv. Alles, was Sie hierbei beachten sollten, ist, daß alle Ihre Programm-Module mit sehr hohen Zeilennummem (ab 60000) und voneinander verschiedenen Labels ausgerüstet sind. Natürlich müssen Sie sich eine Liste der Unterprogramme gemacht haben, die Sie zusammen»linken« wollen. Ein Tip zur einfacheren Handhabung: Programmname = Labelname! Und so gehen Sie vor: Wenn alle Unterprogramme symbolisch adressiert sind und Sprünge mit Zeilennummern nur noch innerhalb der Programmteile Vorkommen, können Sie diese mit der Befehlsfolge MERGE < programmname > ohne weitere Eingaben beliebig(!) aneinanderreihen. Das so entstandene Programm SAVEn Sie erst einmal ab. Jetzt müssen Sie nur noch den Basiclader so verändern, daß er als Vorprogramm zu Ihrem neuen Programm läuft. Achten Sie darauf, daß die Anweisung »MEMORY« ausgefiihrt wird, und geben Sie dann in Zeile 430 den Befehl »RUN < programmname > «. Alles weitere wird dann von LABEL-BASIC erledigt...
|
