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