    JOB $b8: SEEKPHD_DV

    CAE4: 20 A6 CF  JSR $CFA6        Blockheader lesen und analysieren
    CAE7: A5 27     LDA $27          ist aktuelle Spur
    CAE9: C5 88     CMP $88          = Sollspur ?
    CAEB: D0 19     BNE $CB06        nein, (zur Hauptsteuerroutine) ==>
    CAED: A0 3C     LDY #$3C         60 Versuche, den gesuchten Block
    CAEF: 84 39     STY $39          auf dieser Spur zu finden

    Einsprung von $CAFF:

    CAF1: 20 A6 CF  JSR $CFA6        Blockheader lesen und Spurdaten merken
    CAF4: A4 99     LDY $99          Job-Index fuer 2-Byte Tabellen
    CAF6: B9 BD 01  LDA $01BD,Y      gesuchte Blocknummer mit der gefundenen
    CAF9: C5 21     CMP $21          Blocknummer vergleichen
    CAFB: F0 0C     BEQ $CB09        gleich, ==>
    CAFD: C6 39     DEC $39          ansonsten naechsten Versuch
    CAFF: D0 F0     BNE $CAF1
    CB01: A9 02     LDA #$02         MISHD_DV_ER: Blockheader nicht gefunden
    CB03: 4C CC CD  JMP $CDCC        Jobauftrag beenden

    Einsprung von $CAEB:

    CB06: 4C 00 CE  JMP $CE00        Hauptsteuerroutine aufrufen

    JOB $b0: SEEKHD_DV

    Einsprung von $CAFB:

    CB09: 20 A6 CF  JSR $CFA6        Blockheader lesen und analysieren
    CB0C: 4C 8B C3  JMP $C38B        Ok. Ende

        Previous Page / Next Page