    Byte aus aktueller Datei holen und auf Dateiende pruefen ($ca35)

    Einsprung von $881F, $A9D7, $A9F5:

    8876: A9 11     LDA #$11         Internen Lesekanal setzen
    8878: 85 52     STA $52

    Einsprung von $98CC:

    887A: 20 F4 92  JSR $92F4        Byte aus aktueller SA holen
    887D: 85 54     STA $54          und merken
    887F: A6 50     LDX $50
    8881: BD 34 02  LDA $0234,X      Kanalstatus testen
    8884: 29 08     AND #$08         B3=0 (EOI) ?
    8886: 85 51     STA $51          (EOI-Flag merken)
    8888: D0 0A     BNE $8894        nein, ==>
    888A: 20 5F 90  JSR $905F        aktuellen Filetyp auf REL-File
    888D: F0 05     BEQ $8894        testen; gleich, ==>
                                    [EOI wird bei jedem Record-Ende gesetzt,
                                     deshalb muss das Flag: 'Record nicht
                                     vorhanden' (b7 im Dateistatus) getestet
                                     werden.]
    888F: A9 80     LDA #$80         b7=1: Fileende-Flag setzen
    8891: 20 D5 9C  JSR $9CD5        Dateistatus setzen

    Einsprung von $8888, $888D:

    8894: 60        RTS

        Previous Page / Next Page