    REL-File zum Kopieren vorbereiten ($ca53)

    Laenge der Quell-Datei ermitteln

    Einsprung von $8812:

    8895: 20 5C A1  JSR $A15C        Ende der Rel-Datei suchen
    8898: 20 6E A5  JSR $A56E        Super-Side-Sektor verwenden ?
    889B: D0 04     BNE $88A1        nein, ==>
    889D: AD 00 01  LDA $0100        Gruppennummer des Records merken
    88A0: 48        PHA

    Einsprung von $889B:

    88A1: A5 6A     LDA $6A          Position der T&S im Side-Sektor und
    88A3: 48        PHA
    88A4: A5 69     LDA $69          Side-Sektor-Nummer merken
    88A6: 48        PHA

    Zieldatei um die erforderliche Laenge erweitern

    88A7: A9 12     LDA #$12         Zieldatei oeffnen
    88A9: 85 52     STA $52
    88AB: 20 42 90  JSR $9042        Kanal zum Schreiben holen
    88AE: 20 38 A4  JSR $A438        Parameter des letzten Records merken
    88B1: 85 6B     STA $6B          a=0: Position des Records loeschen
    88B3: 68        PLA              Side-Sektornummer zurueckholen
    88B4: 85 69     STA $69
    88B6: 68        PLA              Position der T&S im Side-Sektor zurueckholen
    88B7: 85 6A     STA $6A
    88B9: 20 6E A5  JSR $A56E        Super-Side-Sektor verwenden ?
    88BC: D0 04     BNE $88C2        nein, ==>
    88BE: 68        PLA
    88BF: 8D 00 01  STA $0100        Gruppennummer zurueckholen

    Einsprung von $88BC:

    88C2: 4C DC A2  JMP $A2DC        Datensaetze an REL-File anhaengen

    DOS 2

        Previous Page / Next Page