aktuelles File oeffnen ($c9fa)

Einsprung von $87C6, $8803:

8841: AE 30 02  LDX $0230        Nummer des Files holen
8844: AD 2B 02  LDA $022B        Directory-Track als aktuellen Track setzen
8847: 85 4D     STA $4D
8849: B5 E5     LDA $E5,X        Dir-Block mit Fileeintrag holen
884B: 85 4E     STA $4E
884D: 20 CF 93  JSR $93CF        SA 17 oeffnen und Dir-Block lesen
8850: AE 30 02  LDX $0230
8853: B5 EA     LDA $EA,X        Zeiger auf den Eintrag holen
8855: 20 22 94  JSR $9422        Pufferzeiger setzen
8858: AE 30 02  LDX $0230
885B: B5 F4     LDA $F4,X        Dateityp holen und
885D: 29 07     AND #$07
885F: 8D 2D 02  STA $022D        als aktuellen Dateitypen merken
8862: A9 00     LDA #$00
8864: 8D 6F 02  STA $026F        Aktuelle Recordlaenge = 0
8867: 20 4D 98  JSR $984D        File oeffnen und 1. Block lesen
886A: A0 01     LDY #$01         Pufferzeiger =1
886C: 20 5F 90  JSR $905F        Dateityp auf REL-Datei testen
886F: F0 01     BEQ $8872        gleich, (Pufferzeiger =1) ==>
8871: C8        INY              Zeiger =2

Einsprung von $886F:

8872: 98        TYA
8873: 4C 22 94  JMP $9422        Pufferzeiger setzen
    Previous Page / Next Page