TURBO Pascal 3.0 Projekte


Die fehlende Prozedur APPEND
(TURBO PASCAL 3.x für CP/M 80)

Für das Arbeiten mit Dateien stellt TURBO PASCAL 3.0 drei Prozeduren für die Initialisierung zur Verfügung:
1 RESET(FILE) Öffnen einer vorhandenen Datei zum Lesen
2 REWRITE(FILE) Öffnen einer vorhandenen Datei zum Schreiben
3 APPEND(FILE) Öffnen einer vorhandenen Datei zum Lesen oder Schreiben
Die Prozedur APPEND(FILE) ist allerdings nur gültig für MS-DOS und nicht für CP/M. Warum dies so ist, ist nicht klar, denn auch für CP/M ist diese Prozedur relativ einfach zu programmieren.
Im folgenden soll kurz auf diese Prozedur eingegangen werden, deren Aufruf folgende Gestalt haben muß:

APPEND(TEXT_Datei);

Die Datei TEXT_datei vom Typ TEXT muß nicht geöffnet sein. Wird die Datei nicht gefunden, so erhält die Variable IORESULT den Wert 01.
(Siehe I/O Fehlermeldungen im Handbuch)
Falls die Datei leer ist, so wird 02 zurückgegeben. Damit obliegt es dem Programmierer, die Fehlermeldung zu verarbeiten.

Zur Verfügung stehen die Quellen der in Z80-Assembler geschriebenen Prozedur Append, dem Inline-Code, der direkt mit z.B. {$i append.inl } in ein Programm eingefügt werden kann, sowie einem TURBO PASCAL Programm, das die Prozedur testet:



Abgedruckt in Klubzeitung Nr. 56    Autor: Werner Cirsovius