    Oeffnen eines Files mit Ueberschreiben ($d8f5)

    Einsprung von $9793:

    97A2: A5 F4     LDA $F4          Dateityp des 1. Files holen
    97A4: 29 07     AND #$07         (B0-2: Dateityp)
    97A6: CD 2D 02  CMP $022D        und mit Dateityp des gefundenen Files
    97A9: D0 67     BNE $9812        vergleichen; ungleich ? ja, (Fehler) ==>
    97AB: C9 04     CMP #$04         Ist es eine REL-Datei ?
    97AD: F0 63     BEQ $9812        ja, ==>
    97AF: 20 C3 9B  JSR $9BC3        File zum Schreiben oeffnen
    97B2: A5 50     LDA $50          Kanalnummer merken
    97B4: 8D 8C 02  STA $028C
    97B7: A9 11     LDA #$11         17: SA des internen Lesekanals
    97B9: 85 52     STA $52
    97BB: 20 27 90  JSR $9027        Kanal zum Lesen holen
    97BE: AD 32 02  LDA $0232        Pufferzeiger auf den Dir-Eintrag setzen
    97C1: 20 22 94  JSR $9422
    97C4: A0 00     LDY #$00
    97C6: B1 64     LDA ($64),Y
    97C8: 09 20     ORA #$20         b5=1: Flag 'File wird ersetzt' im Directory
    97CA: 91 64     STA ($64),Y      setzen
    97CC: A0 1A     LDY #$1A
    97CE: A5 4D     LDA $4D          T&S des neuen Files merken
    97D0: 91 64     STA ($64),Y
    97D2: C8        INY
    97D3: A5 4E     LDA $4E
    97D5: 91 64     STA ($64),Y
    97D7: AE 8C 02  LDX $028C        Kanalnummer des Files holen
    97DA: A5 E5     LDA $E5          Direktory-Block
    97DC: 9D 7D 02  STA $027D,X      merken
    97DF: A5 EA     LDA $EA          Position des Fileeintrages im Dir-Block
    97E1: 9D 84 02  STA $0284,X      in Kanaltabelle merken
    97E4: 20 79 9D  JSR $9D79        T&S setzen
    97E7: 20 C1 93  JSR $93C1        Directory-Block schreiben
    97EA: 4C 96 98  JMP $9896        T&S des neuen Files merken ('*')

        Previous Page / Next Page