                         TURBO Pascal 3.0 Projekte

    -------------------------------------------------------------------

                       Die fehlende Prozedur APPEND
                      (TURBO PASCAL 3.x fr CP/M 80)

    Fr das Arbeiten mit Dateien stellt TURBO PASCAL 3.0 drei
    Prozeduren fr die Initialisierung zur Verfgung:
     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 gltig fr MS-DOS und
    nicht fr CP/M. Warum dies so ist, ist nicht klar, denn auch fr
    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 geffnet sein. Wird
    die Datei nicht gefunden, so erhlt die Variable IORESULT den Wert
    01.
    (Siehe I/O Fehlermeldungen im Handbuch)
    Falls die Datei leer ist, so wird 02 zurckgegeben. Damit obliegt
    es dem Programmierer, die Fehlermeldung zu verarbeiten.

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

       * Assembler-Routine: Prozedur Append
       * Pascal-Routine: Prozedur Append
       * Pascal-Programm: Test fr Append

    -------------------------------------------------------------------

    Abgedruckt in Klubzeitung Nr. 56    Autor: Werner Cirsovius
                                                                    [Image]
