home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 April / 64er_Magazin_92-04_1992_Markt__Technik_de_Side_A.d64 / quickstepper.seq < prev    next >
Text File  |  2022-10-26  |  771b  |  25 lines
  1.    ldx #$00    ;wert fur innenbewegung
  2.    lda track   ;zieltracknummer holen
  3.    sec         ;alter track abziehen
  4.    sbc $22     ;wenn kleiner dann
  5.    bcc in      ;innenbewegung
  6.    ldx #$01    ;wert fur aussenbewegung
  7. in stx l1+1    ;bewegungswert speichern
  8.    asl a       ;2 steps pro track
  9.    tax         ;als zaehler setzen
  10. l1 lda #$00    ;00=innen 01=aussen
  11.    eor $1c00   ;(CIA #1) invertieren
  12.    sec         ;ein bit nach links
  13.    rol a       ;rotieren
  14.    and #$03    ;und bit 0 + 1 isolieren
  15.    eor $1c00   ;wieder invertieren
  16.    sta $1c00   ;und schrittmotorbew.
  17.    lda #$96    ;warteschleife,
  18.    sta $1805   ;bis die mechanik die
  19. l2 lda $1805   ;bewegung ausgefuehrt
  20.    bmi l2      ;hat
  21.    dex         ;
  22.    bne l1      ;naechster step
  23.    rts         ;rueckkehr
  24.  
  25.