00000000: 20 20 20 4C 44 58 20 23 24 30 30 20 20 20 20 3B | LDX #$00 ;|
00000010: 57 45 52 54 20 46 55 52 20 49 4E 4E 45 4E 42 45 |WERT FUR INNENBE|
00000020: 57 45 47 55 4E 47 0D 20 20 20 4C 44 41 20 54 52 |WEGUNG. LDA TR|
00000030: 41 43 4B 20 20 20 3B 5A 49 45 4C 54 52 41 43 4B |ACK ;ZIELTRACK|
00000040: 4E 55 4D 4D 45 52 20 48 4F 4C 45 4E 0D 20 20 20 |NUMMER HOLEN. |
00000050: 53 45 43 20 20 20 20 20 20 20 20 20 3B 41 4C 54 |SEC ;ALT|
00000060: 45 52 20 54 52 41 43 4B 20 41 42 5A 49 45 48 45 |ER TRACK ABZIEHE|
00000070: 4E 0D 20 20 20 53 42 43 20 24 32 32 20 20 20 20 |N. SBC $22 |
00000080: 20 3B 57 45 4E 4E 20 4B 4C 45 49 4E 45 52 20 44 | ;WENN KLEINER D|
00000090: 41 4E 4E 0D 20 20 20 42 43 43 20 49 4E 20 20 20 |ANN. BCC IN |
000000A0: 20 20 20 3B 49 4E 4E 45 4E 42 45 57 45 47 55 4E | ;INNENBEWEGUN|
000000B0: 47 0D 20 20 20 4C 44 58 20 23 24 30 31 20 20 20 |G. LDX #$01 |
000000C0: 20 3B 57 45 52 54 20 46 55 52 20 41 55 53 53 45 | ;WERT FUR AUSSE|
000000D0: 4E 42 45 57 45 47 55 4E 47 0D 49 4E 20 53 54 58 |NBEWEGUNG.IN STX|
000000E0: 20 4C 31 2B 31 20 20 20 20 3B 42 45 57 45 47 55 | L1+1 ;BEWEGU|
000000F0: 4E 47 53 57 45 52 54 20 53 50 45 49 43 48 45 52 |NGSWERT SPEICHER|
00000100: 4E 0D 20 20 20 41 53 4C 20 41 20 20 20 20 20 20 |N. ASL A |
00000110: 20 3B 32 20 53 54 45 50 53 20 50 52 4F 20 54 52 | ;2 STEPS PRO TR|
00000120: 41 43 4B 0D 20 20 20 54 41 58 20 20 20 20 20 20 |ACK. TAX |
00000130: 20 20 20 3B 41 4C 53 20 5A 41 45 48 4C 45 52 20 | ;ALS ZAEHLER |
00000140: 53 45 54 5A 45 4E 0D 4C 31 20 4C 44 41 20 23 24 |SETZEN.L1 LDA #$|
00000150: 30 30 20 20 20 20 3B 30 30 3D 49 4E 4E 45 4E 20 |00 ;00=INNEN |
00000160: 30 31 3D 41 55 53 53 45 4E 0D 20 20 20 45 4F 52 |01=AUSSEN. EOR|
00000170: 20 24 31 43 30 30 20 20 20 3B 28 C3 C9 C1 20 23 | $1C00 ;(... #|
00000180: 31 29 20 49 4E 56 45 52 54 49 45 52 45 4E 0D 20 |1) INVERTIEREN. |
00000190: 20 20 53 45 43 20 20 20 20 20 20 20 20 20 3B 45 | SEC ;E|
000001A0: 49 4E 20 42 49 54 20 4E 41 43 48 20 4C 49 4E 4B |IN BIT NACH LINK|
000001B0: 53 0D 20 20 20 52 4F 4C 20 41 20 20 20 20 20 20 |S. ROL A |
000001C0: 20 3B 52 4F 54 49 45 52 45 4E 0D 20 20 20 41 4E | ;ROTIEREN. AN|
000001D0: 44 20 23 24 30 33 20 20 20 20 3B 55 4E 44 20 42 |D #$03 ;UND B|
000001E0: 49 54 20 30 20 2B 20 31 20 49 53 4F 4C 49 45 52 |IT 0 + 1 ISOLIER|
000001F0: 45 4E 0D 20 20 20 45 4F 52 20 24 31 43 30 30 20 |EN. EOR $1C00 |
00000200: 20 20 3B 57 49 45 44 45 52 20 49 4E 56 45 52 54 | ;WIEDER INVERT|
00000210: 49 45 52 45 4E 0D 20 20 20 53 54 41 20 24 31 43 |IEREN. STA $1C|
00000220: 30 30 20 20 20 3B 55 4E 44 20 53 43 48 52 49 54 |00 ;UND SCHRIT|
00000230: 54 4D 4F 54 4F 52 42 45 57 2E 0D 20 20 20 4C 44 |TMOTORBEW.. LD|
00000240: 41 20 23 24 39 36 20 20 20 20 3B 57 41 52 54 45 |A #$96 ;WARTE|
00000250: 53 43 48 4C 45 49 46 45 2C 0D 20 20 20 53 54 41 |SCHLEIFE,. STA|
00000260: 20 24 31 38 30 35 20 20 20 3B 42 49 53 20 44 49 | $1805 ;BIS DI|
00000270: 45 20 4D 45 43 48 41 4E 49 4B 20 44 49 45 0D 4C |E MECHANIK DIE.L|
00000280: 32 20 4C 44 41 20 24 31 38 30 35 20 20 20 3B 42 |2 LDA $1805 ;B|
00000290: 45 57 45 47 55 4E 47 20 41 55 53 47 45 46 55 45 |EWEGUNG AUSGEFUE|
000002A0: 48 52 54 0D 20 20 20 42 4D 49 20 4C 32 20 20 20 |HRT. BMI L2 |
000002B0: 20 20 20 3B 48 41 54 0D 20 20 20 44 45 58 20 20 | ;HAT. DEX |
000002C0: 20 20 20 20 20 20 20 3B 0D 20 20 20 42 4E 45 20 | ;. BNE |
000002D0: 4C 31 20 20 20 20 20 20 3B 4E 41 45 43 48 53 54 |L1 ;NAECHST|
000002E0: 45 52 20 53 54 45 50 0D 20 20 20 52 54 53 20 20 |ER STEP. RTS |
000002F0: 20 20 20 20 20 20 20 3B 52 55 45 43 4B 4B 45 48 | ;RUECKKEH|
00000300: 52 0D 0D |R.. |
LDX #$00 ;WERT FUR INNENBEWEGUNG.
LDA TRACK ;ZIELTRACKNUMMER HOLEN.
SEC ;ALTER TRACK ABZIEHEN. SBC
$22 ;WENN KLEINER DANN. BCC IN
;INNENBEWEGUNG. LDX #$01 ;WERT F
UR AUSSENBEWEGUNG.IN STX L1+1 ;BEWEGU
NGSWERT SPEICHERN. ASL A ;2 STEP
S PRO TRACK. TAX ;ALS ZAEHLER
SETZEN.L1 LDA #$00 ;00=INNEN 01=AUSSE
N. EOR $1C00 ;(CIA #1) INVERTIEREN.
SEC ;EIN BIT NACH LINKS. ROL
A ;ROTIEREN. AND #$03 ;UND B
IT 0 + 1 ISOLIEREN. EOR $1C00 ;WIEDE
R INVERTIEREN. STA $1C00 ;UND SCHRIT
TMOTORBEW.. LDA #$96 ;WARTESCHLEIFE
,. STA $1805 ;BIS DIE MECHANIK DIE.L
2 LDA $1805 ;BEWEGUNG AUSGEFUEHRT. B
MI L2 ;HAT. DEX ;. BNE
L1 ;NAECHSTER STEP. RTS ;
RUECKKEHR..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL