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
|