Oeffnen eines Files zum Lesen ($d9a0)

Einsprung von $8867, $983D:

984D: A0 13     LDY #$13
984F: B1 64     LDA ($64),Y      T&S des (Super-)Side-Sektors holen
9851: 8D 70 02  STA $0270
9854: C8        INY
9855: B1 64     LDA ($64),Y
9857: 8D 71 02  STA $0271
985A: C8        INY
985B: B1 64     LDA ($64),Y      Recordlaenge holen
985D: AE 6F 02  LDX $026F
9860: 8D 6F 02  STA $026F        und merken
9863: 8A        TXA              war eine Recordlaenge angegeben ?
9864: F0 0A     BEQ $9870        nein, ==>
9866: CD 6F 02  CMP $026F        Laengen gleich ?
9869: F0 05     BEQ $9870        ja, ==>
986B: A9 50     LDA #$50
986D: 20 7C 80  JSR $807C        50, Record not present ==>

Einsprung von $9864, $9869:

9870: AE 30 02  LDX $0230        aktuelle Filenummer
9873: BD 97 02  LDA $0297,X      T&S des 1. Datenblocks holen
9876: 85 4D     STA $4D          (stehen bereits in der Filetabelle)
9878: BD 9C 02  LDA $029C,X
987B: 85 4E     STA $4E
987D: 20 0D 9B  JSR $9B0D        1.Block (+ Side-Sektor) lesen
9880: A4 50     LDY $50          Kanalnummer und
9882: AE 30 02  LDX $0230        Dateinamen-Nummer holen
9885: B5 E5     LDA $E5,X        Position des Eintrages im Directory fuer
9887: 99 7D 02  STA $027D,Y      aktuellen Kanal merken
988A: B5 EA     LDA $EA,X        und Dir-Block des Eintrages merken
988C: 99 84 02  STA $0284,Y
988F: 60        RTS

    Previous Page / Next Page