    CLOSE-Routine: aktuelle Sekundaeradresse schliessen ($dac0)
    E: $50: SA der zu schliessenden Datei
    [Diese Routine wird aufgerufen, wenn ueber den BUS ein Close-Kommando kommt.
     Geschlossen werden:
     - 'normale' Dateien
     - REL-Dateien
     - Direktzugriffe
     - Directory
     Wenn die SA 15 angegeben wird, werden alle Dateien geschlossen.
     Veraenderte Puffer werden auf die Diskette geschrieben und die Directory-
     Eintraege ggf. aktualisiert.]

    Einsprung von $AC51:

    995C: A5 52     LDA $52          Ist die aktuelle SA = 0 ?
    995E: D0 0B     BNE $996B        nein, ==>
    9960: A9 00     LDA #$00         Flag: 'Directory wird ausgegeben' loeschen
    9962: 8D 6E 02  STA $026E
    9965: 20 9E 91  JSR $919E        SA schliessen

    Einsprung von $9976:

    9968: 4C 34 94  JMP $9434        interne Kanaele freigeben ==>

    Einsprung von $995E:

    996B: C9 0F     CMP #$0F         SA=15 (Kommandokanal) ?
    996D: F0 17     BEQ $9986        ja, (alle Dateien schliessen) ==>
    996F: 20 9F 99  JSR $999F        Datei schliessen
    9972: A5 52     LDA $52          SA < 2 ?
    9974: C9 02     CMP #$02
    9976: 90 F0     BCC $9968        ja, ==>
    9978: AD AB 02  LDA $02AB        Ist ein Fehler aufgetreten ?
    997B: D0 06     BNE $9983        ja, ==>
    997D: 20 15 B5  JSR $B515        BAM abspeichern
    9980: 4C 4C 80  JMP $804C

    Einsprung von $997B:

    9983: 4C 67 80  JMP $8067        Fehlermeldung ausgeben

        Previous Page / Next Page