SPRITE-CONN.SRC

FILE INFORMATION

FILENAME(S): SPRITE-CONN.SRC

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 01:13:10

APPEARS ON: 3 disk(s)

FILE HASH

b6aecae7758c60b71de0c1513140491dd50a077c1dbc3284db36eabd4366a4b5

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10909 SEITE A	SPRITE-CONN.SRC	PRG	C64er	11	6	DOWNLOAD FILE
10909 SEITE A	SPRITE-CONN.SRC	PRG	DuncanTwain	11	6	DOWNLOAD FILE
10909 SEITE A	SPRITE-CONN.SRC	PRG	DuncanTwain	11	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F 04 20 0A 00 2E 42  41 20 34 39 31 35 32 20  |... ...BA 49152 |
00000010: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |               ;|
00000020: 53 54 41 52 54 20 3D 20  34 39 31 35 32 00 33 20  |START = 49152.3 |
00000030: 14 00 2E 47 4C 20 56 49  43 20 20 20 20 3D 20 24  |...GL VIC    = $|
00000040: 44 30 30 30 20 20 20 20  20 20 20 3B 56 49 43 2D  |D000       ;VIC-|
00000050: 42 41 53 49 53 41 44 52  45 53 53 45 00 5C 20 1E  |BASISADRESSE.\ .|
00000060: 00 2E 47 4C 20 49 52 51  56 45 43 20 3D 20 24 30  |..GL IRQVEC = $0|
00000070: 33 31 34 20 20 20 20 20  20 20 3B 49 52 51 2D 56  |314       ;IRQ-V|
00000080: 45 4B 54 4F 52 00 8B 20  28 00 2E 47 4C 20 49 52  |EKTOR.. (..GL IR|
00000090: 51 41 4C 54 20 3D 20 24  45 41 33 31 20 20 20 20  |QALT = $EA31    |
000000A0: 20 20 20 3B 41 4C 54 45  20 49 52 51 2D 52 4F 55  |   ;ALTE IRQ-ROU|
000000B0: 54 49 4E 45 00 BF 20 32  00 2E 47 4C 20 52 41 53  |TINE.. 2..GL RAS|
000000C0: 54 45 52 20 3D 20 56 49  43 2B 31 38 20 20 20 20  |TER = VIC+18    |
000000D0: 20 20 3B 52 41 53 54 45  52 5A 45 49 4C 45 4E 2D  |  ;RASTERZEILEN-|
000000E0: 52 45 47 49 53 54 45 52  00 F0 20 3C 00 2E 47 4C  |REGISTER.. <..GL|
000000F0: 20 49 52 51 4D 41 53 4B  3D 20 56 49 43 2B 32 36  | IRQMASK= VIC+26|
00000100: 20 20 20 20 20 20 3B 49  52 51 2D 4D 41 53 4B 45  |      ;IRQ-MASKE|
00000110: 4E 52 45 47 49 53 54 45  52 00 22 21 46 00 2E 47  |NREGISTER."!F..G|
00000120: 4C 20 49 52 51 46 4C 41  47 3D 20 56 49 43 2B 32  |L IRQFLAG= VIC+2|
00000130: 35 20 20 20 20 20 20 3B  49 52 51 2D 52 45 51 55  |5      ;IRQ-REQU|
00000140: 45 53 54 52 45 47 49 53  54 45 52 00 5A 21 50 00  |ESTREGISTER.Z!P.|
00000150: 2E 47 4C 20 48 49 42 49  54 20 20 3D 20 56 49 43  |.GL HIBIT  = VIC|
00000160: 2B 31 37 20 20 20 20 20  20 3B 48 49 2D 42 49 54  |+17      ;HI-BIT|
00000170: 20 56 4F 4D 20 52 41 53  54 45 52 52 45 47 49 53  | VOM RASTERREGIS|
00000180: 54 45 52 00 91 21 5A 00  2E 47 4C 20 43 49 41 54  |TER..!Z..GL CIAT|
00000190: 49 4D 45 3D 20 24 44 43  30 45 20 20 20 20 20 20  |IME= $DC0E      |
000001A0: 20 3B 43 49 41 2D 54 49  4D 45 52 2D 53 54 45 55  | ;CIA-TIMER-STEU|
000001B0: 45 52 52 45 47 49 53 54  45 52 00 BF 21 64 00 2E  |ERREGISTER..!d..|
000001C0: 47 4C 20 4A 4F 59 53 54  49 43 4B 3D 35 36 33 32  |GL JOYSTICK=5632|
000001D0: 30 20 20 20 20 20 20 20  3B 4A 4F 59 53 54 49 43  |0       ;JOYSTIC|
000001E0: 4B 20 50 4F 52 54 20 32  00 D8 21 C8 00 49 4E 49  |K PORT 2..!..INI|
000001F0: 54 20 53 45 49 3B 49 52  51 20 53 50 45 52 52 45  |T SEI;IRQ SPERRE|
00000200: 4E 00 FA 21 D2 00 20 4C  44 41 23 30 3B 52 41 53  |N..!.. LDA#0;RAS|
00000210: 54 45 52 2D 49 52 51 20  42 45 49 20 5A 45 49 4C  |TER-IRQ BEI ZEIL|
00000220: 45 20 30 00 09 22 DC 00  20 53 54 41 52 41 53 54  |E 0..".. STARAST|
00000230: 45 52 00 17 22 E6 00 20  4C 44 41 48 49 42 49 54  |ER..".. LDAHIBIT|
00000240: 00 24 22 F0 00 20 41 4E  44 23 31 32 37 00 32 22  |.$".. AND#127.2"|
00000250: FA 00 20 53 54 41 48 49  42 49 54 00 54 22 04 01  |.. STAHIBIT.T"..|
00000260: 20 4C 44 41 23 31 32 39  3B 52 41 53 54 45 52 2D  | LDA#129;RASTER-|
00000270: 49 52 51 20 4D 41 53 4B  49 45 52 45 4E 00 64 22  |IRQ MASKIEREN.d"|
00000280: 0E 01 20 53 54 41 49 52  51 4D 41 53 4B 00 8A 22  |.. STAIRQMASK.."|
00000290: 18 01 20 4C 44 41 43 49  41 54 49 4D 45 3B 43 49  |.. LDACIATIME;CI|
000002A0: 41 2D 54 49 4D 45 52 20  41 55 53 53 43 48 41 4C  |A-TIMER AUSSCHAL|
000002B0: 54 45 4E 00 97 22 22 01  20 41 4E 44 23 32 35 34  |TEN.."". AND#254|
000002C0: 00 A7 22 2C 01 20 53 54  41 43 49 41 54 49 4D 45  |..",. STACIATIME|
000002D0: 00 D8 22 36 01 20 4C 44  41 23 3C 28 49 52 51 4E  |.."6. LDA#<(IRQN|
000002E0: 45 55 29 3B 49 52 51 2D  56 45 4B 54 4F 52 20 41  |EU);IRQ-VEKTOR A|
000002F0: 55 46 20 49 52 51 4E 45  55 20 53 54 45 4C 4C 45  |UF IRQNEU STELLE|
00000300: 4E 00 EB 22 40 01 20 4C  44 58 23 3E 28 49 52 51  |N.."@. LDX#>(IRQ|
00000310: 4E 45 55 29 00 FA 22 4A  01 20 53 54 41 49 52 51  |NEU).."J. STAIRQ|
00000320: 56 45 43 00 0B 23 54 01  20 53 54 58 49 52 51 56  |VEC..#T. STXIRQV|
00000330: 45 43 2B 31 00 2F 23 5E  01 20 4C 44 41 49 52 51  |EC+1./#^. LDAIRQ|
00000340: 46 4C 41 47 3B 49 52 51  2D 52 45 51 55 45 53 54  |FLAG;IRQ-REQUEST|
00000350: 52 45 47 49 53 54 45 52  00 48 23 68 01 20 53 54  |REGISTER.H#h. ST|
00000360: 41 49 52 51 46 4C 41 47  3B 4C 4F 45 53 43 48 45  |AIRQFLAG;LOESCHE|
00000370: 4E 00 5E 23 72 01 20 43  4C 49 3B 49 52 51 20 5A  |N.^#r. CLI;IRQ Z|
00000380: 55 4C 41 53 53 45 4E 00  76 23 7C 01 20 52 54 53  |ULASSEN.v#|. RTS|
00000390: 3B 55 4E 44 20 5A 55 52  55 45 43 4B 2E 2E 2E 00  |;UND ZURUECK....|
000003A0: 7C 23 86 01 3B 00 A6 23  90 01 49 52 51 4E 45 55  ||#..;..#..IRQNEU|
000003B0: 20 4C 44 41 49 52 51 46  4C 41 47 3B 49 52 51 2D  | LDAIRQFLAG;IRQ-|
000003C0: 52 45 51 55 45 53 54 52  45 47 49 53 54 45 52 00  |REQUESTREGISTER.|
000003D0: BF 23 9A 01 20 53 54 41  49 52 51 46 4C 41 47 3B  |.#.. STAIRQFLAG;|
000003E0: 4C 4F 45 53 43 48 45 4E  00 E7 23 A4 01 20 4C 44  |LOESCHEN..#.. LD|
000003F0: 41 4A 4F 59 53 54 49 43  4B 3B 4A 4F 59 53 54 49  |AJOYSTICK;JOYSTI|
00000400: 43 4B 52 45 47 49 53 54  45 52 20 4C 41 44 45 4E  |CKREGISTER LADEN|
00000410: 00 0B 24 AE 01 20 41 4E  44 23 31 35 3B 55 4E 54  |..$.. AND#15;UNT|
00000420: 45 52 45 4E 20 34 20 42  49 54 20 41 42 54 52 45  |EREN 4 BIT ABTRE|
00000430: 4E 4E 45 4E 00 23 24 B8  01 20 54 41 58 3B 49 4E  |NNEN.#$.. TAX;IN|
00000440: 53 20 58 2D 52 45 47 49  53 54 45 52 00 4E 24 C2  |S X-REGISTER.N$.|
00000450: 01 20 4C 44 41 4A 4F 59  58 54 41 42 2C 58 3B 45  |. LDAJOYXTAB,X;E|
00000460: 4E 54 53 50 52 45 43 48  45 4E 44 45 20 58 2D 42  |NTSPRECHENDE X-B|
00000470: 45 57 45 47 55 4E 47 00  66 24 CC 01 20 53 54 41  |EWEGUNG.f$.. STA|
00000480: 58 4D 4F 56 45 3B 46 45  53 54 4C 45 47 45 4E 00  |XMOVE;FESTLEGEN.|
00000490: 91 24 D6 01 20 4C 44 41  4A 4F 59 59 54 41 42 2C  |.$.. LDAJOYYTAB,|
000004A0: 58 3B 45 4E 54 53 50 52  45 43 48 45 4E 44 45 20  |X;ENTSPRECHENDE |
000004B0: 59 2D 42 45 57 45 47 55  4E 47 00 A9 24 E0 01 20  |Y-BEWEGUNG..$.. |
000004C0: 53 54 41 59 4D 4F 56 45  3B 46 45 53 54 4C 45 47  |STAYMOVE;FESTLEG|
000004D0: 45 4E 00 AF 24 EA 01 3B  00 C8 24 F4 01 20 4C 44  |EN..$..;..$.. LD|
000004E0: 41 58 4D 4F 56 45 3B 58  2D 42 45 57 45 47 55 4E  |AXMOVE;X-BEWEGUN|
000004F0: 47 00 F0 24 FE 01 20 42  4D 49 4E 4F 54 58 3B 42  |G..$.. BMINOTX;B|
00000500: 49 54 20 37 20 47 45 53  45 54 5A 54 2C 20 44 41  |IT 7 GESETZT, DA|
00000510: 4E 4E 20 57 45 49 54 45  52 00 16 25 08 02 20 42  |NN WEITER..%.. B|
00000520: 4E 45 41 44 44 58 3B 3C  3E 20 30 2C 20 44 41 4E  |NEADDX;<> 0, DAN|
00000530: 4E 20 58 20 41 55 46 41  44 44 49 45 52 45 4E 00  |N X AUFADDIEREN.|
00000540: 3B 25 12 02 53 55 42 58  20 4C 44 41 56 49 43 3B  |;%..SUBX LDAVIC;|
00000550: 53 4F 4E 53 54 20 58 20  53 55 42 54 52 41 48 49  |SONST X SUBTRAHI|
00000560: 45 52 45 4E 00 5F 25 1C  02 20 43 4D 50 23 32 35  |EREN._%.. CMP#25|
00000570: 3B 47 52 45 4E 5A 45 20  55 45 42 45 52 53 43 48  |;GRENZE UEBERSCH|
00000580: 52 49 54 54 45 4E 20 3F  00 6E 25 26 02 20 42 43  |RITTEN ?.n%&. BC|
00000590: 53 53 55 42 58 4F 4B 00  7D 25 30 02 20 4C 44 41  |SSUBXOK.}%0. LDA|
000005A0: 56 49 43 2B 31 36 00 88  25 3A 02 20 41 4E 44 23  |VIC+16..%:. AND#|
000005B0: 31 00 95 25 44 02 20 42  45 51 4E 4F 54 58 00 C2  |1..%D. BEQNOTX..|
000005C0: 25 4E 02 53 55 42 58 4F  4B 20 4C 44 41 56 49 43  |%N.SUBXOK LDAVIC|
000005D0: 2B 31 36 3B 4E 45 49 4E  2C 20 44 41 4E 4E 20 53  |+16;NEIN, DANN S|
000005E0: 55 42 54 52 41 48 49 45  52 45 4E 00 CD 25 58 02  |UBTRAHIEREN..%X.|
000005F0: 20 41 4E 44 23 31 00 D6  25 62 02 20 54 41 58 00  | AND#1..%b. TAX.|
00000600: DF 25 6C 02 20 53 45 43  00 EB 25 76 02 20 4C 44  |.%l. SEC..%v. LD|
00000610: 41 56 49 43 00 F8 25 80  02 20 53 42 43 53 54 45  |AVIC..%.. SBCSTE|
00000620: 50 00 04 26 8A 02 20 53  54 41 56 49 43 00 0D 26  |P..&.. STAVIC..&|
00000630: 94 02 20 54 58 41 00 18  26 9E 02 20 53 42 43 23  |.. TXA..&.. SBC#|
00000640: 30 00 26 26 A8 02 20 4A  53 52 53 45 54 48 49 00  |0.&&.. JSRSETHI.|
00000650: 33 26 B2 02 20 4A 4D 50  4E 4F 54 58 00 5B 26 BC  |3&.. JMPNOTX.[&.|
00000660: 02 41 44 44 58 20 4C 44  41 56 49 43 3B 47 52 45  |.ADDX LDAVIC;GRE|
00000670: 4E 5A 45 20 55 45 42 45  52 53 43 48 52 49 54 54  |NZE UEBERSCHRITT|
00000680: 45 4E 20 3F 00 67 26 C6  02 20 43 4D 50 23 36 35  |EN ?.g&.. CMP#65|
00000690: 00 76 26 D0 02 20 42 43  43 41 44 44 58 4F 4B 00  |.v&.. BCCADDXOK.|
000006A0: 85 26 DA 02 20 4C 44 41  56 49 43 2B 31 36 00 90  |.&.. LDAVIC+16..|
000006B0: 26 E4 02 20 41 4E 44 23  31 00 9D 26 EE 02 20 42  |&.. AND#1..&.. B|
000006C0: 4E 45 4E 4F 54 58 00 C9  26 F8 02 41 44 44 58 4F  |NENOTX..&..ADDXO|
000006D0: 4B 20 4C 44 41 56 49 43  2B 31 36 3B 4E 45 49 4E  |K LDAVIC+16;NEIN|
000006E0: 2C 20 44 41 4E 4E 20 41  55 46 41 44 44 49 45 52  |, DANN AUFADDIER|
000006F0: 45 4E 00 D4 26 02 03 20  41 4E 44 23 31 00 DD 26  |EN..&.. AND#1..&|
00000700: 0C 03 20 54 41 58 00 E6  26 16 03 20 43 4C 43 00  |.. TAX..&.. CLC.|
00000710: F2 26 20 03 20 4C 44 41  56 49 43 00 FF 26 2A 03  |.& . LDAVIC..&*.|
00000720: 20 41 44 43 53 54 45 50  00 0B 27 34 03 20 53 54  | ADCSTEP..'4. ST|
00000730: 41 56 49 43 00 14 27 3E  03 20 54 58 41 00 1F 27  |AVIC..'>. TXA..'|
00000740: 48 03 20 41 44 43 23 30  00 2D 27 52 03 20 4A 53  |H. ADC#0.-'R. JS|
00000750: 52 53 45 54 48 49 00 33  27 5C 03 3B 00 50 27 66  |RSETHI.3'\.;.P'f|
00000760: 03 4E 4F 54 58 20 4C 44  41 59 4D 4F 56 45 3B 59  |.NOTX LDAYMOVE;Y|
00000770: 2D 42 45 57 45 47 55 4E  47 00 78 27 70 03 20 42  |-BEWEGUNG.x'p. B|
00000780: 4D 49 4E 4F 54 59 3B 42  49 54 20 37 20 47 45 53  |MINOTY;BIT 7 GES|
00000790: 45 54 5A 54 2C 20 44 41  4E 4E 20 57 45 49 54 45  |ETZT, DANN WEITE|
000007A0: 52 00 9E 27 7A 03 20 42  4E 45 41 44 44 59 3B 3C  |R..'z. BNEADDY;<|
000007B0: 3E 20 30 2C 20 44 41 4E  4E 20 59 20 41 55 46 41  |> 0, DANN Y AUFA|
000007C0: 44 44 49 45 52 45 4E 00  BF 27 84 03 20 4C 44 41  |DDIEREN..'.. LDA|
000007D0: 56 49 43 2B 31 3B 53 4F  4E 53 54 20 53 55 42 54  |VIC+1;SONST SUBT|
000007E0: 52 41 48 49 45 52 45 4E  00 E3 27 8E 03 20 43 4D  |RAHIEREN..'.. CM|
000007F0: 50 23 35 30 3B 47 52 45  4E 5A 45 20 55 45 42 45  |P#50;GRENZE UEBE|
00000800: 52 53 43 48 52 49 54 54  45 4E 20 3F 00 F0 27 98  |RSCHRITTEN ?..'.|
00000810: 03 20 42 43 43 4E 4F 54  59 00 15 28 A2 03 20 53  |. BCCNOTY..(.. S|
00000820: 42 43 53 54 45 50 3B 4E  45 49 4E 2C 20 44 41 4E  |BCSTEP;NEIN, DAN|
00000830: 4E 20 53 55 42 54 52 41  48 49 45 52 45 4E 00 23  |N SUBTRAHIEREN.#|
00000840: 28 AC 03 20 53 54 41 56  49 43 2B 31 00 30 28 B6  |(.. STAVIC+1.0(.|
00000850: 03 20 4A 4D 50 4E 4F 54  59 00 5A 28 C0 03 41 44  |. JMPNOTY.Z(..AD|
00000860: 44 59 20 4C 44 41 56 49  43 2B 31 3B 47 52 45 4E  |DY LDAVIC+1;GREN|
00000870: 5A 45 20 55 45 42 45 52  53 43 48 52 49 54 54 45  |ZE UEBERSCHRITTE|
00000880: 4E 20 3F 00 67 28 CA 03  20 43 4D 50 23 32 33 30  |N ?.g(.. CMP#230|
00000890: 00 74 28 D4 03 20 42 43  53 4E 4F 54 59 00 98 28  |.t(.. BCSNOTY..(|
000008A0: DE 03 20 41 44 43 53 54  45 50 3B 4E 45 49 4E 2C  |.. ADCSTEP;NEIN,|
000008B0: 20 44 41 4E 4E 20 41 55  46 41 44 44 49 45 52 45  | DANN AUFADDIERE|
000008C0: 4E 00 A6 28 E8 03 20 53  54 41 56 49 43 2B 31 00  |N..(.. STAVIC+1.|
000008D0: CF 28 F2 03 4E 4F 54 59  20 4A 4D 50 49 52 51 41  |.(..NOTY JMPIRQA|
000008E0: 4C 54 3B 5A 55 52 20 41  4C 54 45 4E 20 49 52 51  |LT;ZUR ALTEN IRQ|
000008F0: 2D 52 4F 55 54 49 4E 45  00 EF 28 FC 03 53 45 54  |-ROUTINE..(..SET|
00000900: 48 49 20 50 48 41 3B 48  49 2D 42 49 54 20 20 53  |HI PHA;HI-BIT  S|
00000910: 50 45 49 43 48 45 52 4E  00 0F 29 06 04 20 4C 44  |PEICHERN..).. LD|
00000920: 41 56 49 43 2B 31 36 3B  4F 48 4E 45 20 41 4E 44  |AVIC+16;OHNE AND|
00000930: 45 52 45 20 42 49 54 53  00 2C 29 10 04 20 41 4E  |ERE BITS.,).. AN|
00000940: 44 23 32 35 34 3B 5A 55  20 42 45 45 49 4E 46 4C  |D#254;ZU BEEINFL|
00000950: 55 53 53 45 4E 00 3B 29  1A 04 20 53 54 41 56 49  |USSEN.;).. STAVI|
00000960: 43 2B 31 36 00 44 29 24  04 20 50 4C 41 00 53 29  |C+16.D)$. PLA.S)|
00000970: 2E 04 20 4F 52 41 56 49  43 2B 31 36 00 62 29 38  |.. ORAVIC+16.b)8|
00000980: 04 20 53 54 41 56 49 43  2B 31 36 00 6B 29 42 04  |. STAVIC+16.k)B.|
00000990: 20 52 54 53 00 94 29 4C  04 4A 4F 59 58 54 41 42  | RTS..)L.JOYXTAB|
000009A0: 20 2E 42 59 31 32 38 2C  31 32 38 2C 31 32 38 2C  | .BY128,128,128,|
000009B0: 31 32 38 2C 31 32 38 2C  31 2C 31 2C 31 00 B6 29  |128,128,1,1,1..)|
000009C0: 56 04 20 2E 42 59 31 32  38 2C 30 2C 30 2C 30 2C  |V. .BY128,0,0,0,|
000009D0: 31 32 38 2C 31 32 38 2C  31 32 38 2C 31 32 38 00  |128,128,128,128.|
000009E0: E1 29 60 04 4A 4F 59 59  54 41 42 20 2E 42 59 31  |.)`.JOYYTAB .BY1|
000009F0: 32 38 2C 31 32 38 2C 31  32 38 2C 31 32 38 2C 31  |28,128,128,128,1|
00000A00: 32 38 2C 31 2C 30 2C 31  32 38 00 01 2A 6A 04 20  |28,1,0,128..*j. |
00000A10: 2E 42 59 31 32 38 2C 31  2C 30 2C 31 32 38 2C 31  |.BY128,1,0,128,1|
00000A20: 32 38 2C 31 2C 30 2C 31  32 38 00 10 2A 74 04 58  |28,1,0,128..*t.X|
00000A30: 4D 4F 56 45 20 2E 42 59  30 00 1F 2A 7E 04 59 4D  |MOVE .BY0..*~.YM|
00000A40: 4F 56 45 20 2E 42 59 30  00 3A 2A 88 04 53 54 45  |OVE .BY0.:*..STE|
00000A50: 50 20 2E 42 59 34 3B 53  43 48 52 49 54 54 57 45  |P .BY4;SCHRITTWE|
00000A60: 49 54 45 00 00 00                                 |ITE...          |

X.. ...BA 49152                ;START = 
49152.3 ...GL VIC    = $D000       ;VIC-
BASISADRESSE.\ ...GL IRQVEC = $0314     
  ;IRQ-VEKTOR.. (..GL IRQALT = $EA31    
   ;ALTE IRQ-ROUTINE.. 2..GL RASTER = VI
C+18      ;RASTERZEILEN-REGISTER.. <..GL
 IRQMASK= VIC+26      ;IRQ-MASKENREGISTE
R."!F..GL IRQFLAG= VIC+25      ;IRQ-REQU
ESTREGISTER.Z!P..GL HIBIT  = VIC+17     
 ;HI-BIT VOM RASTERREGISTER..!Z..GL CIAT
IME= $DC0E       ;CIA-TIMER-STEUERREGIST
ER..!D..GL JOYSTICK=56320       ;JOYSTIC
K PORT 2.X!H.INIT SEI;IRQ SPERREN..!R. L
DA#0;RASTER-IRQ BEI ZEILE 0..".. STARAST
ER..".. LDAHIBIT.$".. AND#127.2".. STAHI
BIT.T".. LDA#129;RASTER-IRQ MASKIEREN.D"
.. STAIRQMASK..".. LDACIATIME;CIA-TIMER 
AUSSCHALTEN.."". AND#254..",. STACIATIME
.X"6. LDA#<(IRQNEU);IRQ-VEKTOR AUF IRQNE
U STELLEN.."@. LDX#>(IRQNEU).."J. STAIRQ
VEC..#T. STXIRQVEC+1./#^. LDAIRQFLAG;IRQ
-REQUESTREGISTER.H#H. STAIRQFLAG;LOESCHE
N.^#R. CLI;IRQ ZULASSEN.V#|. RTS;UND ZUR
UECK....|#..;..#..IRQNEU LDAIRQFLAG;IRQ-
REQUESTREGISTER..#.. STAIRQFLAG;LOESCHEN
..#.. LDAJOYSTICK;JOYSTICKREGISTER LADEN
..$.. AND#15;UNTEREN 4 BIT ABTRENNEN.#$.
. TAX;INS X-REGISTER.N$B. LDAJOYXTAB,X;E
NTSPRECHENDE X-BEWEGUNG.F$L. STAXMOVE;FE
STLEGEN..$V. LDAJOYYTAB,X;ENTSPRECHENDE 
Y-BEWEGUNG..$.. STAYMOVE;FESTLEGEN..$..;
.H$.. LDAXMOVE;X-BEWEGUNG..$.. BMINOTX;B
IT 7 GESETZT, DANN WEITER..%.. BNEADDX;<
> 0, DANN X AUFADDIEREN.;%..SUBX LDAVIC;
SONST X SUBTRAHIEREN._%.. CMP#25;GRENZE 
UEBERSCHRITTEN ?.N%&. BCSSUBXOK.}%0. LDA
VIC+16..%:. AND#1..%D. BEQNOTX.B%N.SUBXO
K LDAVIC+16;NEIN, DANN SUBTRAHIEREN.M%X.
 AND#1.V%B. TAX..%L. SEC..%V. LDAVIC..%.
. SBCSTEP..&.. STAVIC..&.. TXA..&.. SBC#
0.&&.. JSRSETHI.3&.. JMPNOTX.[&..ADDX LD
AVIC;GRENZE UEBERSCHRITTEN ?.G&F. CMP#65
.V&P. BCCADDXOK..&Z. LDAVIC+16..&.. AND#
1..&.. BNENOTX.I&..ADDXOK LDAVIC+16;NEIN
, DANN AUFADDIEREN.T&.. AND#1..&.. TAX..
&.. CLC..& . LDAVIC..&*. ADCSTEP..'4. ST
AVIC..'>. TXA..'H. ADC#0.-'R. JSRSETHI.3
'\.;.P'F.NOTX LDAYMOVE;Y-BEWEGUNG.X'P. B
MINOTY;BIT 7 GESETZT, DANN WEITER..'Z. B
NEADDY;<> 0, DANN Y AUFADDIEREN..'.. LDA
VIC+1;SONST SUBTRAHIEREN..'.. CMP#50;GRE
NZE UEBERSCHRITTEN ?..'.. BCCNOTY..(.. S
BCSTEP;NEIN, DANN SUBTRAHIEREN.#(.. STAV
IC+1.0(.. JMPNOTY.Z(..ADDY LDAVIC+1;GREN
ZE UEBERSCHRITTEN ?.G(J. CMP#230.T(T. BC
SNOTY..(.. ADCSTEP;NEIN, DANN AUFADDIERE
N..(.. STAVIC+1.O(..NOTY JMPIRQALT;ZUR A
LTEN IRQ-ROUTINE..(..SETHI PHA;HI-BIT  S
PEICHERN..).. LDAVIC+16;OHNE ANDERE BITS
.,).. AND#254;ZU BEEINFLUSSEN.;).. STAVI
C+16.D)$. PLA.S).. ORAVIC+16.B)8. STAVIC
+16.K)B. RTS..)L.JOYXTAB .BY128,128,128,
128,128,1,1,1..)V. .BY128,0,0,0,128,128,
128,128..)`.JOYYTAB .BY128,128,128,128,1
28,1,0,128..*J. .BY128,1,0,128,128,1,0,1
28..*T.XMOVE .BY0..*~.YMOVE .BY0.:*..STE
P .BY4;SCHRITTWEITE...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL