    Schrittmotor ansteuern

    Einsprung von $CE09:

    CE71: A4 26     LDY $26          Drivemodus holen

    Einsprung von $CE51, $CE55, $CE60, $CE64:

    CE73: 98        TYA              soll der Kopf bewegt werden ?
    CE74: 29 40     AND #$40
    CE76: F0 F5     BEQ $CE6D        nein, (Ende) ==>
    CE78: A5 88     LDA $88          Solltrack
    CE7A: C5 27     CMP $27          = Isttrack ?
    CE7C: F0 18     BEQ $CE96        Ja, (Schrittmotor-Flag loeschen) ==>
    CE7E: 8D 03 60  STA $6003        Solltrack uebergeben
    CE81: A5 27     LDA $27
    CE83: 8D 01 60  STA $6001        Isttrack uebergeben
    CE86: AD DB 01  LDA $01DB        Controller-Befehl: SEEK
    CE89: 20 F4 CB  JSR $CBF4        in Controller schreiben
    CE8C: 20 EC CB  JSR $CBEC        und Ausfuehrung abwarten  [leider ...]
    CE8F: A5 88     LDA $88          Kopf steht jetzt auf Solltrack
    CE91: 85 27     STA $27          (= Isttrack)
    CE93: 8D 01 60  STA $6001        Isttrack an Controller uebergeben

    Einsprung von $CE7C:

    CE96: A5 26     LDA $26          b6=0: Schrittmotor ist inaktiv
    CE98: 29 BF     AND #$BF         im Drivestatus eintragen
    CE9A: 85 26     STA $26
    CE9C: A4 98     LDY $98          Kopfberuhigungszeit abwarten
    CE9E: 20 D5 CB  JSR $CBD5        (18 ms)
    CEA1: 4C 6D CE  JMP $CE6D        Ende ==>

        Previous Page / Next Page