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