TEIL 4.LISTING 4

FILE INFORMATION

FILENAME(S): TEIL 4.LISTING 4

FILE TYPE(S): PRG

FILE SIZE: 2.4K

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

APPEARS ON: 3 disk(s)

FILE HASH

35b83cf12ba6ebfc63f517c4649cc64244d280c770215e8292f5da16354d6ed5

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10909 SEITE A	TEIL 4.LISTING 4	PRG	C64er	11	8	DOWNLOAD FILE
10909 SEITE A	TEIL 4.LISTING 4	PRG	DuncanTwain	11	8	DOWNLOAD FILE
10909 SEITE A	TEIL 4.LISTING 4	PRG	DuncanTwain	11	8	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 FB 21 D2 00 20 4A  53 52 4D 41 4B 45 53 50  |N..!.. JSRMAKESP|
00000210: 52 3B 53 50 52 49 54 45  53 20 47 45 4E 45 52 49  |R;SPRITES GENERI|
00000220: 45 52 45 4E 00 1D 22 DC  00 20 4C 44 41 23 30 3B  |EREN..".. LDA#0;|
00000230: 52 41 53 54 45 52 2D 49  52 51 20 42 45 49 20 5A  |RASTER-IRQ BEI Z|
00000240: 45 49 4C 45 20 30 00 2C  22 E6 00 20 53 54 41 52  |EILE 0.,".. STAR|
00000250: 41 53 54 45 52 00 3A 22  F0 00 20 4C 44 41 48 49  |ASTER.:".. LDAHI|
00000260: 42 49 54 00 47 22 FA 00  20 41 4E 44 23 31 32 37  |BIT.G".. AND#127|
00000270: 00 55 22 04 01 20 53 54  41 48 49 42 49 54 00 77  |.U".. STAHIBIT.w|
00000280: 22 0E 01 20 4C 44 41 23  31 32 39 3B 52 41 53 54  |".. LDA#129;RAST|
00000290: 45 52 2D 49 52 51 20 4D  41 53 4B 49 45 52 45 4E  |ER-IRQ MASKIEREN|
000002A0: 00 87 22 18 01 20 53 54  41 49 52 51 4D 41 53 4B  |..".. STAIRQMASK|
000002B0: 00 AD 22 22 01 20 4C 44  41 43 49 41 54 49 4D 45  |.."". LDACIATIME|
000002C0: 3B 43 49 41 2D 54 49 4D  45 52 20 41 55 53 53 43  |;CIA-TIMER AUSSC|
000002D0: 48 41 4C 54 45 4E 00 BA  22 2C 01 20 41 4E 44 23  |HALTEN..",. AND#|
000002E0: 32 35 34 00 CA 22 36 01  20 53 54 41 43 49 41 54  |254.."6. STACIAT|
000002F0: 49 4D 45 00 FB 22 40 01  20 4C 44 41 23 3C 28 49  |IME.."@. LDA#<(I|
00000300: 52 51 4E 45 55 29 3B 49  52 51 2D 56 45 4B 54 4F  |RQNEU);IRQ-VEKTO|
00000310: 52 20 41 55 46 20 49 52  51 4E 45 55 20 53 54 45  |R AUF IRQNEU STE|
00000320: 4C 4C 45 4E 00 0E 23 4A  01 20 4C 44 58 23 3E 28  |LLEN..#J. LDX#>(|
00000330: 49 52 51 4E 45 55 29 00  1D 23 54 01 20 53 54 41  |IRQNEU)..#T. STA|
00000340: 49 52 51 56 45 43 00 2E  23 5E 01 20 53 54 58 49  |IRQVEC..#^. STXI|
00000350: 52 51 56 45 43 2B 31 00  52 23 68 01 20 4C 44 41  |RQVEC+1.R#h. LDA|
00000360: 49 52 51 46 4C 41 47 3B  49 52 51 2D 52 45 51 55  |IRQFLAG;IRQ-REQU|
00000370: 45 53 54 52 45 47 49 53  54 45 52 00 6B 23 72 01  |ESTREGISTER.k#r.|
00000380: 20 53 54 41 49 52 51 46  4C 41 47 3B 4C 4F 45 53  | STAIRQFLAG;LOES|
00000390: 43 48 45 4E 00 81 23 7C  01 20 43 4C 49 3B 49 52  |CHEN..#|. CLI;IR|
000003A0: 51 20 5A 55 4C 41 53 53  45 4E 00 99 23 86 01 20  |Q ZULASSEN..#.. |
000003B0: 52 54 53 3B 55 4E 44 20  5A 55 52 55 45 43 4B 2E  |RTS;UND ZURUECK.|
000003C0: 2E 2E 00 9F 23 90 01 3B  00 C8 23 9A 01 4D 41 4B  |....#..;..#..MAK|
000003D0: 45 53 50 52 20 4C 44 41  23 3C 28 32 30 34 38 29  |ESPR LDA#<(2048)|
000003E0: 3B 50 4F 49 4E 54 45 52  20 41 55 46 20 32 30 34  |;POINTER AUF 204|
000003F0: 38 00 D9 23 A4 01 20 4C  44 58 23 3E 28 32 30 34  |8..#.. LDX#>(204|
00000400: 38 29 00 E8 23 AE 01 20  53 54 41 4C 4F 4F 50 2B  |8)..#.. STALOOP+|
00000410: 31 00 F7 23 B8 01 20 53  54 58 4C 4F 4F 50 2B 32  |1..#.. STXLOOP+2|
00000420: 00 15 24 C2 01 20 4C 44  58 23 36 32 3B 36 32 20  |..$.. LDX#62;62 |
00000430: 49 4E 53 20 58 2D 52 45  47 49 53 54 45 52 00 31  |INS X-REGISTER.1|
00000440: 24 CC 01 20 4C 44 59 23  38 3B 38 20 45 49 4E 5A  |$.. LDY#8;8 EINZ|
00000450: 45 4C 2D 53 50 52 49 54  45 53 00 5B 24 D6 01 20  |EL-SPRITES.[$.. |
00000460: 4C 44 41 23 32 35 34 3B  53 50 52 49 54 45 20 31  |LDA#254;SPRITE 1|
00000470: 20 42 49 54 4D 55 53 54  45 52 20 25 31 31 31 31  | BITMUSTER %1111|
00000480: 31 31 31 30 00 86 24 E0  01 4C 4F 4F 50 20 53 54  |1110..$..LOOP ST|
00000490: 41 36 35 35 33 35 2C 58  3B 53 50 52 49 54 45 20  |A65535,X;SPRITE |
000004A0: 58 20 4D 49 54 20 42 49  54 4D 55 53 54 45 52 00  |X MIT BITMUSTER.|
000004B0: 97 24 EA 01 20 44 45 58  3B 42 45 4C 45 47 45 4E  |.$.. DEX;BELEGEN|
000004C0: 00 A4 24 F4 01 20 42 50  4C 4C 4F 4F 50 00 B9 24  |..$.. BPLLOOP..$|
000004D0: FE 01 20 50 48 41 3B 41  4B 4B 55 20 4D 45 52 4B  |.. PHA;AKKU MERK|
000004E0: 45 4E 00 DC 24 08 02 20  43 4C 43 3B 50 4F 49 4E  |EN..$.. CLC;POIN|
000004F0: 54 45 52 20 55 4D 20 36  34 20 41 55 46 41 44 44  |TER UM 64 AUFADD|
00000500: 49 45 52 45 4E 00 EB 24  12 02 20 4C 44 41 4C 4F  |IEREN..$.. LDALO|
00000510: 4F 50 2B 31 00 F7 24 1C  02 20 41 44 43 23 36 34  |OP+1..$.. ADC#64|
00000520: 00 06 25 26 02 20 53 54  41 4C 4F 4F 50 2B 31 00  |..%&. STALOOP+1.|
00000530: 15 25 30 02 20 4C 44 41  4C 4F 4F 50 2B 32 00 20  |.%0. LDALOOP+2. |
00000540: 25 3A 02 20 41 44 43 23  30 00 2F 25 44 02 20 53  |%:. ADC#0./%D. S|
00000550: 54 41 4C 4F 4F 50 2B 32  00 54 25 4E 02 20 4C 44  |TALOOP+2.T%N. LD|
00000560: 58 23 36 32 3B 45 52 4E  45 55 54 20 36 32 20 49  |X#62;ERNEUT 62 I|
00000570: 4E 53 20 58 2D 52 45 47  49 53 54 45 52 00 6F 25  |NS X-REGISTER.o%|
00000580: 58 02 20 50 4C 41 3B 41  4B 4B 55 20 5A 55 52 55  |X. PLA;AKKU ZURU|
00000590: 45 43 4B 48 4F 4C 45 4E  00 85 25 62 02 20 53 45  |ECKHOLEN..%b. SE|
000005A0: 43 3B 43 41 52 52 59 20  53 45 54 5A 45 4E 00 A3  |C;CARRY SETZEN..|
000005B0: 25 6C 02 20 52 4F 4C 3B  55 4E 44 20 27 48 49 4E  |%l. ROL;UND 'HIN|
000005C0: 45 49 4E 52 4F 54 49 45  52 45 4E 27 00 BD 25 76  |EINROTIEREN'..%v|
000005D0: 02 20 44 45 59 3B 59 20  44 45 4B 52 45 4D 45 4E  |. DEY;Y DEKREMEN|
000005E0: 54 49 45 52 45 4E 00 E2  25 80 02 20 42 4E 45 4C  |TIEREN..%.. BNEL|
000005F0: 4F 4F 50 3B 55 4E 47 4C  45 49 43 48 20 30 2C 20  |OOP;UNGLEICH 0, |
00000600: 44 41 4E 4E 20 57 45 49  54 45 52 00 03 26 8A 02  |DANN WEITER..&..|
00000610: 20 4C 44 41 23 33 32 3B  53 4F 4E 53 54 20 53 50  | LDA#32;SONST SP|
00000620: 52 49 54 45 2D 50 4F 49  4E 54 45 52 00 18 26 94  |RITE-POINTER..&.|
00000630: 02 20 53 54 41 32 30 34  30 3B 42 45 4C 45 47 45  |. STA2040;BELEGE|
00000640: 4E 00 34 26 9E 02 20 4C  44 41 23 31 3B 53 50 52  |N.4&.. LDA#1;SPR|
00000650: 49 54 45 20 30 20 3D 20  57 45 49 53 53 00 43 26  |ITE 0 = WEISS.C&|
00000660: A8 02 20 53 54 41 56 49  43 2B 33 39 00 6D 26 B2  |.. STAVIC+39.m&.|
00000670: 02 20 4C 44 41 23 31 30  30 3B 53 50 52 49 54 45  |. LDA#100;SPRITE|
00000680: 20 30 20 4B 4F 4F 52 44  49 4E 41 54 45 4E 20 31  | 0 KOORDINATEN 1|
00000690: 30 30 3A 31 30 30 00 79  26 BC 02 20 53 54 41 56  |00:100.y&.. STAV|
000006A0: 49 43 00 87 26 C6 02 20  53 54 41 56 49 43 2B 31  |IC..&.. STAVIC+1|
000006B0: 00 A7 26 D0 02 20 4C 44  41 23 31 3B 53 50 52 49  |..&.. LDA#1;SPRI|
000006C0: 54 45 20 30 20 45 49 4E  53 43 48 41 4C 54 45 4E  |TE 0 EINSCHALTEN|
000006D0: 00 B6 26 DA 02 20 53 54  41 56 49 43 2B 32 31 00  |..&.. STAVIC+21.|
000006E0: CE 26 E4 02 20 52 54 53  3B 55 4E 44 20 5A 55 52  |.&.. RTS;UND ZUR|
000006F0: 55 45 43 4B 2E 2E 2E 00  01 27 EE 02 49 52 51 4E  |UECK.....'..IRQN|
00000700: 45 55 20 4C 44 41 49 52  51 46 4C 41 47 3B 49 52  |EU LDAIRQFLAG;IR|
00000710: 51 2D 52 45 51 55 45 53  54 52 45 47 49 53 54 45  |Q-REQUESTREGISTE|
00000720: 52 20 4C 4F 45 53 43 48  45 4E 00 11 27 F8 02 20  |R LOESCHEN..'.. |
00000730: 53 54 41 49 52 51 46 4C  41 47 00 39 27 02 03 20  |STAIRQFLAG.9'.. |
00000740: 44 45 43 57 41 52 54 3B  57 41 52 54 45 2D 53 43  |DECWART;WARTE-SC|
00000750: 48 4C 45 49 46 45 20 45  52 4E 49 45 44 52 49 47  |HLEIFE ERNIEDRIG|
00000760: 45 4E 00 65 27 0C 03 20  42 4E 45 49 52 51 52 45  |EN.e'.. BNEIRQRE|
00000770: 54 3B 55 4E 47 4C 45 49  43 48 20 30 2C 20 44 41  |T;UNGLEICH 0, DA|
00000780: 4E 4E 20 49 52 51 20 42  45 45 4E 44 45 4E 00 88  |NN IRQ BEENDEN..|
00000790: 27 16 03 20 4C 44 41 23  35 3B 53 4F 4E 53 54 20  |'.. LDA#5;SONST |
000007A0: 57 41 52 54 45 53 43 48  4C 45 49 46 45 20 4E 45  |WARTESCHLEIFE NE|
000007B0: 55 00 9D 27 20 03 20 53  54 41 57 41 52 54 3B 42  |U..' . STAWART;B|
000007C0: 45 4C 45 47 45 4E 00 C4  27 2A 03 20 4C 44 41 44  |ELEGEN..'*. LDAD|
000007D0: 49 52 45 43 54 3B 57 45  4E 4E 20 5A 41 45 48 4C  |IRECT;WENN ZAEHL|
000007E0: 52 49 43 48 54 55 4E 47  20 3D 20 30 2C 00 DE 27  |RICHTUNG = 0,..'|
000007F0: 34 03 20 42 45 51 55 50  3B 44 41 4E 4E 20 4E 41  |4. BEQUP;DANN NA|
00000800: 43 48 20 27 55 50 27 00  04 28 3E 03 44 4F 57 4E  |CH 'UP'..(>.DOWN|
00000810: 20 44 45 43 32 30 34 30  3B 53 4F 4E 53 54 20 53  | DEC2040;SONST S|
00000820: 50 52 49 54 45 2D 50 4F  49 4E 54 45 52 00 29 28  |PRITE-POINTER.)(|
00000830: 48 03 20 4C 44 41 32 30  34 30 3B 48 45 52 55 4E  |H. LDA2040;HERUN|
00000840: 54 45 52 5A 41 45 48 4C  45 4E 20 55 4E 44 20 4D  |TERZAEHLEN UND M|
00000850: 49 54 00 44 28 52 03 20  43 4D 50 23 33 31 3B 33  |IT.D(R. CMP#31;3|
00000860: 31 20 56 45 52 47 4C 45  49 43 48 45 4E 00 67 28  |1 VERGLEICHEN.g(|
00000870: 5C 03 20 42 4E 45 49 52  51 52 45 54 3B 55 4E 47  |\. BNEIRQRET;UNG|
00000880: 4C 45 49 43 48 2C 20 44  41 4E 4E 20 45 4E 44 45  |LEICH, DANN ENDE|
00000890: 00 8B 28 66 03 20 4C 44  41 23 30 3B 53 4F 4E 53  |..(f. LDA#0;SONS|
000008A0: 54 20 5A 41 45 48 4C 52  49 43 48 54 55 4E 47 20  |T ZAEHLRICHTUNG |
000008B0: 3D 20 55 50 00 9A 28 70  03 20 53 54 41 44 49 52  |= UP..(p. STADIR|
000008C0: 45 43 54 00 C1 28 7A 03  55 50 20 49 4E 43 32 30  |ECT..(z.UP INC20|
000008D0: 34 30 3B 53 50 52 49 54  45 2D 50 4F 49 4E 54 45  |40;SPRITE-POINTE|
000008E0: 52 20 45 52 48 4F 45 48  45 4E 00 E1 28 84 03 20  |R ERHOEHEN..(.. |
000008F0: 4C 44 41 32 30 34 30 3B  4D 49 54 20 34 30 20 56  |LDA2040;MIT 40 V|
00000900: 45 52 47 4C 45 49 43 48  45 4E 00 ED 28 8E 03 20  |ERGLEICHEN..(.. |
00000910: 43 4D 50 23 34 30 00 10  29 98 03 20 42 4E 45 49  |CMP#40..).. BNEI|
00000920: 52 51 52 45 54 3B 55 4E  47 4C 45 49 43 48 2C 20  |RQRET;UNGLEICH, |
00000930: 44 41 4E 4E 20 45 4E 44  45 00 30 29 A2 03 20 4C  |DANN ENDE.0).. L|
00000940: 44 41 23 31 3B 5A 41 45  48 4C 52 49 43 48 54 55  |DA#1;ZAEHLRICHTU|
00000950: 4E 47 20 3D 20 44 4F 57  4E 00 3F 29 AC 03 20 53  |NG = DOWN.?).. S|
00000960: 54 41 44 49 52 45 43 54  00 58 29 B6 03 20 4A 4D  |TADIRECT.X).. JM|
00000970: 50 44 4F 57 4E 3B 4E 41  43 48 20 27 44 4F 57 4E  |PDOWN;NACH 'DOWN|
00000980: 27 00 81 29 C0 03 49 52  51 52 45 54 20 4A 4D 50  |'..)..IRQRET JMP|
00000990: 49 52 51 41 4C 54 3B 49  52 51 2D 52 4F 55 54 49  |IRQALT;IRQ-ROUTI|
000009A0: 4E 45 20 42 45 45 4E 44  45 4E 00 8F 29 CA 03 57  |NE BEENDEN..)..W|
000009B0: 41 52 54 20 2E 42 59 31  00 9F 29 D4 03 44 49 52  |ART .BY1..)..DIR|
000009C0: 45 43 54 20 2E 42 59 30  00 00 00                 |ECT .BY0...     |

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. J
SRMAKESPR;SPRITES GENERIEREN..".. LDA#0;
RASTER-IRQ BEI ZEILE 0.,".. STARASTER.:"
.. LDAHIBIT.G".. AND#127.U".. STAHIBIT.W
".. LDA#129;RASTER-IRQ MASKIEREN..".. ST
AIRQMASK.."". LDACIATIME;CIA-TIMER AUSSC
HALTEN..",. AND#254.J"6. STACIATIME.."@.
 LDA#<(IRQNEU);IRQ-VEKTOR AUF IRQNEU STE
LLEN..#J. LDX#>(IRQNEU)..#T. STAIRQVEC..
#^. STXIRQVEC+1.R#H. LDAIRQFLAG;IRQ-REQU
ESTREGISTER.K#R. STAIRQFLAG;LOESCHEN..#|
. CLI;IRQ ZULASSEN..#.. RTS;UND ZURUECK.
....#..;.H#..MAKESPR LDA#<(2048);POINTER
 AUF 2048.Y#.. LDX#>(2048)..#.. STALOOP+
1..#.. STXLOOP+2..$B. LDX#62;62 INS X-RE
GISTER.1$L. LDY#8;8 EINZEL-SPRITES.[$V. 
LDA#254;SPRITE 1 BITMUSTER %11111110..$.
.LOOP STA65535,X;SPRITE X MIT BITMUSTER.
.$.. DEX;BELEGEN..$.. BPLLOOP..$.. PHA;A
KKU MERKEN..$.. CLC;POINTER UM 64 AUFADD
IEREN..$.. LDALOOP+1..$.. ADC#64..%&. ST
ALOOP+1..%0. LDALOOP+2. %:. ADC#0./%D. S
TALOOP+2.T%N. LDX#62;ERNEUT 62 INS X-REG
ISTER.O%X. PLA;AKKU ZURUECKHOLEN..%B. SE
C;CARRY SETZEN..%L. ROL;UND 'HINEINROTIE
REN'..%V. DEY;Y DEKREMENTIEREN..%.. BNEL
OOP;UNGLEICH 0, DANN WEITER..&.. LDA#32;
SONST SPRITE-POINTER..&.. STA2040;BELEGE
N.4&.. LDA#1;SPRITE 0 = WEISS.C&.. STAVI
C+39.M&.. LDA#100;SPRITE 0 KOORDINATEN 1
00:100.Y&.. STAVIC..&F. STAVIC+1..&P. LD
A#1;SPRITE 0 EINSCHALTEN..&Z. STAVIC+21.
N&.. RTS;UND ZURUECK.....'..IRQNEU LDAIR
QFLAG;IRQ-REQUESTREGISTER LOESCHEN..'.. 
STAIRQFLAG.9'.. DECWART;WARTE-SCHLEIFE E
RNIEDRIGEN.E'.. BNEIRQRET;UNGLEICH 0, DA
NN IRQ BEENDEN..'.. LDA#5;SONST WARTESCH
LEIFE NEU..' . STAWART;BELEGEN.D'*. LDAD
IRECT;WENN ZAEHLRICHTUNG = 0,..'4. BEQUP
;DANN NACH 'UP'..(>.DOWN DEC2040;SONST S
PRITE-POINTER.)(H. LDA2040;HERUNTERZAEHL
EN UND MIT.D(R. CMP#31;31 VERGLEICHEN.G(
\. BNEIRQRET;UNGLEICH, DANN ENDE..(F. LD
A#0;SONST ZAEHLRICHTUNG = UP..(P. STADIR
ECT.A(Z.UP INC2040;SPRITE-POINTER ERHOEH
EN..(.. LDA2040;MIT 40 VERGLEICHEN..(.. 
CMP#40..).. BNEIRQRET;UNGLEICH, DANN END
E.0).. LDA#1;ZAEHLRICHTUNG = DOWN.?).. S
TADIRECT.X).. JMPDOWN;NACH 'DOWN'..)..IR
QRET JMPIRQALT;IRQ-ROUTINE BEENDEN..)J.W
ART .BY1..)T.DIRECT .BY0...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL