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