home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
92xx
/
9204a.d64
/
quickstepper.seq
< prev
next >
Wrap
Text File
|
1995-03-30
|
771b
|
25 lines
LDX #$00 ;WERT FUR INNENBEWEGUNG
LDA TRACK ;ZIELTRACKNUMMER HOLEN
SEC ;ALTER TRACK ABZIEHEN
SBC $22 ;WENN KLEINER DANN
BCC IN ;INNENBEWEGUNG
LDX #$01 ;WERT FUR AUSSENBEWEGUNG
IN STX L1+1 ;BEWEGUNGSWERT SPEICHERN
ASL A ;2 STEPS PRO TRACK
TAX ;ALS ZAEHLER SETZEN
L1 LDA #$00 ;00=INNEN 01=AUSSEN
EOR $1C00 ;(├╔┴ #1) INVERTIEREN
SEC ;EIN BIT NACH LINKS
ROL A ;ROTIEREN
AND #$03 ;UND BIT 0 + 1 ISOLIEREN
EOR $1C00 ;WIEDER INVERTIEREN
STA $1C00 ;UND SCHRITTMOTORBEW.
LDA #$96 ;WARTESCHLEIFE,
STA $1805 ;BIS DIE MECHANIK DIE
L2 LDA $1805 ;BEWEGUNG AUSGEFUEHRT
BMI L2 ;HAT
DEX ;
BNE L1 ;NAECHSTER STEP
RTS ;RUECKKEHR