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