    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