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