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