Zugriffsart feststellen und File zum Lesen oeffnen ($d940)
Einsprung von $975B:
97ED: AD 97 02 LDA $0297 Tracknummer des 1. Blocks holen
97F0: D0 05 BNE $97F7 > 0 (File gefunden) ? ja, ==>
97F2: A9 62 LDA #$62 62, File not found
97F4: 4C 7C 80 JMP $807C
Einsprung von $97F0:
97F7: AD A7 02 LDA $02A7 Ist die Zugriffsart = 'M' (Modify) ?
97FA: C9 03 CMP #$03
97FC: F0 0B BEQ $9809 ja, ==>
97FE: A9 20 LDA #$20 b5=1: ist die Datei offen ?
9800: 24 F4 BIT $F4
9802: F0 05 BEQ $9809 nein, ==>
9804: A9 60 LDA #$60 60, Write File open
9806: 4C 7C 80 JMP $807C
Einsprung von $97FC, $9802:
9809: A5 F4 LDA $F4 Typ der Datei
980B: 29 07 AND #$07
980D: CD 2D 02 CMP $022D = gesuchter Typ ?
9810: F0 05 BEQ $9817 ja, ==>
Einsprung von $9825, $97A9, $97AD:
9812: A9 64 LDA #$64 64, File type mismatch
9814: 4C 7C 80 JMP $807C
Einsprung von $9810:
9817: A0 00 LDY #$00 Anzahl der Dateinamen = 1
9819: 8C 30 02 STY $0230
981C: AE A7 02 LDX $02A7 Zugriffsart holen
981F: E0 02 CPX #$02 = Append ?
9821: D0 1A BNE $983D nein, ==>
9823: C9 04 CMP #$04 Filetyp = REL ?
9825: F0 EB BEQ $9812 ja, (Fehler) ==>
9827: B1 64 LDA ($64),Y b7=0: Flag 'File offen' im Directory setzen
9829: 29 4F AND #$4F
982B: 91 64 STA ($64),Y
982D: A5 52 LDA $52 aktuelle SA merken
982F: 48 PHA
9830: A9 11 LDA #$11 internen Lesekanal aktivieren
9832: 85 52 STA $52
9834: 20 79 9D JSR $9D79 T&S der aktuellen Datei holen
9837: 20 C1 93 JSR $93C1 Puffer schreiben
983A: 68 PLA
983B: 85 52 STA $52 SA zurueckholen
Einsprung von $9821:
983D: 20 4D 98 JSR $984D File zum Lesen oeffnen
9840: AD A7 02 LDA $02A7 Zugriffsart
9843: C9 02 CMP #$02 = Append ?
9845: D0 4F BNE $9896 nein, ==>
9847: 20 CC 98 JSR $98CC Append-Befehl aufrufen
984A: 4C 4C 80 JMP $804C
Previous Page / Next Page