TEIL 4.LISTING 6
FILE INFORMATION
FILENAME(S): TEIL 4.LISTING 6
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-11-30 01:13:10
APPEARS ON: 3 disk(s)
FILE HASH
90ef559d33dfc8c560eede8064c578b86845590dd99fc2b303204fb339cf6d2d
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10909 SEITE A | TEIL 4.LISTING 6 | PRG | C64er | 25 | 4 | DOWNLOAD FILE |
| 10909 SEITE A | TEIL 4.LISTING 6 | PRG | DuncanTwain | 25 | 4 | DOWNLOAD FILE |
| 10909 SEITE A | TEIL 4.LISTING 6 | PRG | earthshaker | 25 | 4 | 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 B5 20 32 00 2E 47 4C 20 49 52 51 |TINE.. 2..GL IRQ|
000000C0: 45 4E 44 20 3D 20 24 46 45 42 43 20 20 20 20 20 |END = $FEBC |
000000D0: 20 20 3B 49 52 51 20 42 45 45 4E 44 45 4E 00 E9 | ;IRQ BEENDEN..|
000000E0: 20 3C 00 2E 47 4C 20 52 41 53 54 45 52 20 3D 20 | <..GL RASTER = |
000000F0: 56 49 43 2B 31 38 20 20 20 20 20 20 3B 52 41 53 |VIC+18 ;RAS|
00000100: 54 45 52 5A 45 49 4C 45 4E 2D 52 45 47 49 53 54 |TERZEILEN-REGIST|
00000110: 45 52 00 1A 21 46 00 2E 47 4C 20 49 52 51 4D 41 |ER..!F..GL IRQMA|
00000120: 53 4B 3D 20 56 49 43 2B 32 36 20 20 20 20 20 20 |SK= VIC+26 |
00000130: 3B 49 52 51 2D 4D 41 53 4B 45 4E 52 45 47 49 53 |;IRQ-MASKENREGIS|
00000140: 54 45 52 00 4C 21 50 00 2E 47 4C 20 49 52 51 46 |TER.L!P..GL IRQF|
00000150: 4C 41 47 3D 20 56 49 43 2B 32 35 20 20 20 20 20 |LAG= VIC+25 |
00000160: 20 3B 49 52 51 2D 52 45 51 55 45 53 54 52 45 47 | ;IRQ-REQUESTREG|
00000170: 49 53 54 45 52 00 84 21 5A 00 2E 47 4C 20 48 49 |ISTER..!Z..GL HI|
00000180: 42 49 54 20 20 3D 20 56 49 43 2B 31 37 20 20 20 |BIT = VIC+17 |
00000190: 20 20 20 3B 48 49 2D 42 49 54 20 56 4F 4D 20 52 | ;HI-BIT VOM R|
000001A0: 41 53 54 45 52 52 45 47 49 53 54 45 52 00 BB 21 |ASTERREGISTER..!|
000001B0: 64 00 2E 47 4C 20 43 49 41 54 49 4D 45 3D 20 24 |d..GL CIATIME= $|
000001C0: 44 43 30 45 20 20 20 20 20 20 20 3B 43 49 41 2D |DC0E ;CIA-|
000001D0: 54 49 4D 45 52 2D 53 54 45 55 45 52 52 45 47 49 |TIMER-STEUERREGI|
000001E0: 53 54 45 52 00 EB 21 6E 00 2E 47 4C 20 4F 42 45 |STER..!n..GL OBE|
000001F0: 4E 20 20 20 3D 20 30 20 20 20 20 20 20 20 20 20 |N = 0 |
00000200: 20 20 3B 4F 42 45 52 45 20 52 41 53 54 45 52 5A | ;OBERE RASTERZ|
00000210: 45 49 4C 45 00 1E 22 73 00 2E 47 4C 20 4D 49 54 |EILE.."s..GL MIT|
00000220: 54 45 20 20 3D 20 31 30 30 20 20 20 20 20 20 20 |TE = 100 |
00000230: 20 20 3B 4D 49 54 54 4C 45 52 45 20 52 41 53 54 | ;MITTLERE RAST|
00000240: 45 52 5A 45 49 4C 45 00 4F 22 78 00 2E 47 4C 20 |ERZEILE.O"x..GL |
00000250: 55 4E 54 45 4E 20 20 3D 20 32 30 30 20 20 20 20 |UNTEN = 200 |
00000260: 20 20 20 20 20 3B 55 4E 54 45 52 45 20 52 41 53 | ;UNTERE RAS|
00000270: 54 45 52 5A 45 49 4C 45 00 81 22 82 00 2E 47 4C |TERZEILE.."...GL|
00000280: 20 53 50 52 4B 4F 4C 20 3D 20 56 49 43 2B 33 30 | SPRKOL = VIC+30|
00000290: 20 20 20 20 20 20 3B 53 50 52 49 54 45 2D 53 50 | ;SPRITE-SP|
000002A0: 52 49 54 45 2D 4B 4F 4C 4C 2E 00 B8 22 8C 00 2E |RITE-KOLL..."...|
000002B0: 47 4C 20 53 43 52 4B 4F 4C 20 3D 20 56 49 43 2B |GL SCRKOL = VIC+|
000002C0: 33 31 20 20 20 20 20 20 3B 53 50 52 49 54 45 2D |31 ;SPRITE-|
000002D0: 48 49 4E 54 45 52 47 52 55 4E 44 2D 4B 4F 4C 4C |HINTERGRUND-KOLL|
000002E0: 2E 00 E2 22 96 00 2E 47 4C 20 42 4F 52 44 45 52 |..."...GL BORDER|
000002F0: 20 3D 20 35 33 32 38 30 20 20 20 20 20 20 20 3B | = 53280 ;|
00000300: 52 41 48 4D 45 4E 46 41 52 42 45 00 10 23 A0 00 |RAHMENFARBE..#..|
00000310: 2E 47 4C 20 4A 4F 59 50 4F 52 54 32 20 3D 20 35 |.GL JOYPORT2 = 5|
00000320: 36 33 32 30 20 20 20 20 20 3B 4A 4F 59 53 54 49 |6320 ;JOYSTI|
00000330: 43 4B 20 50 4F 52 54 20 32 00 16 23 E7 03 3B 00 |CK PORT 2..#..;.|
00000340: 3C 23 E8 03 49 4E 49 54 20 4A 53 52 4D 41 4B 45 |<#..INIT JSRMAKE|
00000350: 53 50 52 3B 53 50 52 49 54 45 53 20 45 52 53 54 |SPR;SPRITES ERST|
00000360: 45 4C 4C 45 4E 00 51 23 F2 03 20 53 45 49 3B 49 |ELLEN.Q#.. SEI;I|
00000370: 52 51 20 53 50 45 52 52 45 4E 00 76 23 FC 03 20 |RQ SPERREN.v#.. |
00000380: 4C 44 41 23 4F 42 45 4E 3B 52 41 53 54 45 52 2D |LDA#OBEN;RASTER-|
00000390: 49 52 51 20 42 45 49 20 5A 45 49 4C 45 20 30 00 |IRQ BEI ZEILE 0.|
000003A0: 85 23 06 04 20 53 54 41 52 41 53 54 45 52 00 93 |.#.. STARASTER..|
000003B0: 23 10 04 20 4C 44 41 48 49 42 49 54 00 A0 23 1A |#.. LDAHIBIT..#.|
000003C0: 04 20 41 4E 44 23 31 32 37 00 AE 23 24 04 20 53 |. AND#127..#$. S|
000003D0: 54 41 48 49 42 49 54 00 BB 23 2E 04 20 4C 44 41 |TAHIBIT..#.. LDA|
000003E0: 23 31 32 39 00 E0 23 38 04 20 53 54 41 49 52 51 |#129..#8. STAIRQ|
000003F0: 4D 41 53 4B 3B 52 41 53 54 45 52 2D 49 52 51 20 |MASK;RASTER-IRQ |
00000400: 4D 41 53 4B 49 45 52 45 4E 00 06 24 42 04 20 4C |MASKIEREN..$B. L|
00000410: 44 41 43 49 41 54 49 4D 45 3B 43 49 41 2D 54 49 |DACIATIME;CIA-TI|
00000420: 4D 45 52 20 41 55 53 53 43 48 41 4C 54 45 4E 00 |MER AUSSCHALTEN.|
00000430: 13 24 4C 04 20 41 4E 44 23 32 35 34 00 23 24 56 |.$L. AND#254.#$V|
00000440: 04 20 53 54 41 43 49 41 54 49 4D 45 00 4B 24 60 |. STACIATIME.K$`|
00000450: 04 20 4C 44 41 23 3C 28 49 52 51 4E 45 55 29 3B |. LDA#<(IRQNEU);|
00000460: 49 52 51 2D 56 45 4B 54 4F 52 20 56 45 52 42 49 |IRQ-VEKTOR VERBI|
00000470: 45 47 45 4E 00 5E 24 6A 04 20 4C 44 58 23 3E 28 |EGEN.^$j. LDX#>(|
00000480: 49 52 51 4E 45 55 29 00 6D 24 74 04 20 53 54 41 |IRQNEU).m$t. STA|
00000490: 49 52 51 56 45 43 00 7E 24 7E 04 20 53 54 58 49 |IRQVEC.~$~. STXI|
000004A0: 52 51 56 45 43 2B 31 00 A3 24 88 04 20 4C 44 41 |RQVEC+1..$.. LDA|
000004B0: 23 30 3B 5A 57 49 53 43 48 45 4E 53 50 45 49 43 |#0;ZWISCHENSPEIC|
000004C0: 48 45 52 20 4C 4F 45 53 43 48 45 4E 00 B5 24 92 |HER LOESCHEN..$.|
000004D0: 04 20 53 54 41 53 43 52 4B 4F 4C 4F 4C 44 00 C7 |. STASCRKOLOLD..|
000004E0: 24 9C 04 20 53 54 41 53 50 52 4B 4F 4C 4F 4C 44 |$.. STASPRKOLOLD|
000004F0: 00 E9 24 A6 04 20 4C 44 41 53 50 52 4B 4F 4C 3B |..$.. LDASPRKOL;|
00000500: 4B 4F 4C 4C 49 53 49 4F 4E 53 52 45 47 49 53 54 |KOLLISIONSREGIST|
00000510: 45 52 00 01 25 B0 04 20 4C 44 41 53 43 52 4B 4F |ER..%.. LDASCRKO|
00000520: 4C 3B 4C 4F 45 53 43 48 45 4E 00 25 25 BA 04 20 |L;LOESCHEN.%%.. |
00000530: 4C 44 41 49 52 51 46 4C 41 47 3B 49 52 51 2D 52 |LDAIRQFLAG;IRQ-R|
00000540: 45 51 55 45 53 54 52 45 47 49 53 54 45 52 00 3E |EQUESTREGISTER.>|
00000550: 25 C4 04 20 53 54 41 49 52 51 46 4C 41 47 3B 4C |%.. STAIRQFLAG;L|
00000560: 4F 45 53 43 48 45 4E 00 54 25 CE 04 20 43 4C 49 |OESCHEN.T%.. CLI|
00000570: 3B 49 52 51 20 5A 55 4C 41 53 53 45 4E 00 6C 25 |;IRQ ZULASSEN.l%|
00000580: D8 04 20 52 54 53 3B 55 4E 44 20 5A 55 52 55 45 |.. RTS;UND ZURUE|
00000590: 43 4B 2E 2E 2E 00 72 25 DD 04 3B 00 9C 25 E2 04 |CK....r%..;..%..|
000005A0: 4D 41 4B 45 53 50 52 20 4C 44 58 23 36 32 3B 53 |MAKESPR LDX#62;S|
000005B0: 50 52 49 54 45 42 4C 4F 43 4B 20 33 32 20 4D 49 |PRITEBLOCK 32 MI|
000005C0: 54 20 32 35 35 00 B7 25 EC 04 20 4C 44 41 23 32 |T 255..%.. LDA#2|
000005D0: 35 35 3B 56 4F 4C 4C 53 43 48 52 45 49 42 45 4E |55;VOLLSCHREIBEN|
000005E0: 00 CA 25 F6 04 4C 4F 4F 50 20 53 54 41 32 30 34 |..%..LOOP STA204|
000005F0: 38 2C 58 00 D3 25 00 05 20 44 45 58 00 E0 25 0A |8,X..%.. DEX..%.|
00000600: 05 20 42 50 4C 4C 4F 4F 50 00 FA 25 14 05 20 4C |. BPLLOOP..%.. L|
00000610: 44 41 23 33 32 3B 42 4C 4F 43 4B 20 33 32 20 46 |DA#32;BLOCK 32 F|
00000620: 55 45 52 00 21 26 1E 05 20 53 54 41 32 30 34 30 |UER.!&.. STA2040|
00000630: 3B 53 50 52 49 54 45 20 30 20 55 4E 44 20 31 20 |;SPRITE 0 UND 1 |
00000640: 45 49 4E 53 54 45 4C 4C 45 4E 00 2E 26 28 05 20 |EINSTELLEN..&(. |
00000650: 53 54 41 32 30 34 31 00 4A 26 32 05 20 4C 44 41 |STA2041.J&2. LDA|
00000660: 23 31 3B 53 50 52 49 54 45 20 30 20 3D 20 57 45 |#1;SPRITE 0 = WE|
00000670: 49 53 53 00 59 26 3C 05 20 53 54 41 56 49 43 2B |ISS.Y&<. STAVIC+|
00000680: 33 39 00 77 26 46 05 20 4C 44 41 23 31 31 3B 53 |39.w&F. LDA#11;S|
00000690: 50 52 49 54 45 20 31 20 3D 20 47 52 41 55 20 31 |PRITE 1 = GRAU 1|
000006A0: 00 86 26 50 05 20 53 54 41 56 49 43 2B 34 30 00 |..&P. STAVIC+40.|
000006B0: A8 26 5A 05 20 4C 44 41 23 31 30 30 3B 53 50 52 |.&Z. LDA#100;SPR|
000006C0: 49 54 45 20 31 20 42 45 49 20 58 20 3D 20 31 30 |ITE 1 BEI X = 10|
000006D0: 30 00 D0 26 64 05 20 53 54 41 56 49 43 2B 32 3B |0..&d. STAVIC+2;|
000006E0: 55 4E 44 20 59 20 3D 20 31 30 30 20 50 4F 53 49 |UND Y = 100 POSI|
000006F0: 54 49 4F 4E 49 45 52 45 4E 00 DE 26 6E 05 20 53 |TIONIEREN..&n. S|
00000700: 54 41 56 49 43 2B 33 00 FE 26 78 05 20 4C 44 41 |TAVIC+3..&x. LDA|
00000710: 23 32 34 3B 53 50 52 49 54 45 20 30 20 42 45 49 |#24;SPRITE 0 BEI|
00000720: 20 58 20 3D 20 32 34 00 0A 27 82 05 20 53 54 41 | X = 24..'.. STA|
00000730: 56 49 43 00 2F 27 8C 05 20 4C 44 41 23 35 30 3B |VIC./'.. LDA#50;|
00000740: 55 4E 44 20 59 20 3D 20 35 30 20 50 4F 53 49 54 |UND Y = 50 POSIT|
00000750: 49 4F 4E 49 45 52 45 4E 00 3D 27 96 05 20 53 54 |IONIEREN.='.. ST|
00000760: 41 56 49 43 2B 31 00 5E 27 A0 05 20 4C 44 41 23 |AVIC+1.^'.. LDA#|
00000770: 30 3B 48 49 4C 46 53 42 49 54 53 20 44 45 52 20 |0;HILFSBITS DER |
00000780: 58 2D 4B 4F 4F 52 2D 00 7E 27 AA 05 20 53 54 41 |X-KOOR-.~'.. STA|
00000790: 56 49 43 2B 31 36 3B 44 49 4E 41 54 45 4E 20 4C |VIC+16;DINATEN L|
000007A0: 4F 45 53 43 48 45 4E 00 A4 27 B4 05 20 4C 44 41 |OESCHEN..'.. LDA|
000007B0: 23 33 3B 53 50 52 49 54 45 20 30 20 55 4E 44 20 |#3;SPRITE 0 UND |
000007C0: 31 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 B3 27 |1 EINSCHALTEN..'|
000007D0: BE 05 20 53 54 41 56 49 43 2B 32 31 00 CB 27 C8 |.. STAVIC+21..'.|
000007E0: 05 20 52 54 53 3B 55 4E 44 20 5A 55 52 55 45 43 |. RTS;UND ZURUEC|
000007F0: 4B 2E 2E 2E 00 D1 27 D2 05 3B 00 FB 27 DC 05 49 |K.....'..;..'..I|
00000800: 52 51 4E 45 55 20 4C 44 41 49 52 51 46 4C 41 47 |RQNEU LDAIRQFLAG|
00000810: 3B 49 52 51 2D 52 45 51 55 45 53 54 52 45 47 49 |;IRQ-REQUESTREGI|
00000820: 53 54 45 52 00 14 28 E6 05 20 53 54 41 49 52 51 |STER..(.. STAIRQ|
00000830: 46 4C 41 47 3B 4C 4F 45 53 43 48 45 4E 00 3C 28 |FLAG;LOESCHEN.<(|
00000840: F0 05 20 4C 44 41 52 41 53 54 45 52 3B 41 4B 54 |.. LDARASTER;AKT|
00000850: 55 45 4C 4C 45 20 52 41 53 54 45 52 5A 45 49 4C |UELLE RASTERZEIL|
00000860: 45 20 4D 49 54 00 5B 28 FA 05 20 43 4D 50 23 4D |E MIT.[(.. CMP#M|
00000870: 49 54 54 45 3B 31 30 30 20 56 45 52 47 4C 45 49 |ITTE;100 VERGLEI|
00000880: 43 48 45 4E 00 85 28 04 06 20 42 43 53 53 50 4C |CHEN..(.. BCSSPL|
00000890: 49 54 3B 47 52 4F 45 53 53 45 52 2F 47 4C 45 49 |IT;GROESSER/GLEI|
000008A0: 43 48 2C 20 44 41 4E 4E 20 53 50 4C 49 54 00 AD |CH, DANN SPLIT..|
000008B0: 28 0E 06 20 4A 53 52 54 45 53 54 4A 4F 59 3B 53 |(.. JSRTESTJOY;S|
000008C0: 4F 4E 53 54 20 4A 4F 59 53 54 49 43 4B 20 41 42 |ONST JOYSTICK AB|
000008D0: 54 45 53 54 45 4E 00 D0 28 18 06 20 4A 53 52 4D |TESTEN..(.. JSRM|
000008E0: 4F 56 45 53 50 52 3B 55 4E 44 20 53 50 52 49 54 |OVESPR;UND SPRIT|
000008F0: 45 20 42 45 57 45 47 45 4E 00 F4 28 22 06 20 4C |E BEWEGEN..(". L|
00000900: 44 41 23 4D 49 54 54 45 3B 4E 41 45 43 48 53 54 |DA#MITTE;NAECHST|
00000910: 45 52 20 52 41 53 54 45 52 2D 49 52 51 00 11 29 |ER RASTER-IRQ..)|
00000920: 2C 06 20 53 54 41 52 41 53 54 45 52 3B 42 45 49 |,. STARASTER;BEI|
00000930: 20 5A 45 49 4C 45 20 31 30 30 00 35 29 36 06 20 | ZEILE 100.5)6. |
00000940: 4A 4D 50 53 43 52 49 52 51 3B 4B 4F 4C 4C 49 53 |JMPSCRIRQ;KOLLIS|
00000950: 49 4F 4E 45 4E 20 41 42 54 45 53 54 45 4E 00 3B |IONEN ABTESTEN.;|
00000960: 29 3B 06 3B 00 64 29 40 06 53 50 4C 49 54 20 43 |);.;.d)@.SPLIT C|
00000970: 4D 50 23 55 4E 54 45 4E 3B 52 41 53 54 45 52 5A |MP#UNTEN;RASTERZ|
00000980: 45 49 4C 45 20 3E 3D 20 32 30 30 20 3F 00 83 29 |EILE >= 200 ?..)|
00000990: 4A 06 20 42 43 53 53 50 4C 49 54 32 3B 4A 41 2C |J. BCSSPLIT2;JA,|
000009A0: 20 44 41 4E 4E 20 53 50 4C 49 54 32 00 A9 29 54 | DANN SPLIT2..)T|
000009B0: 06 20 4C 44 41 42 4F 52 44 45 52 3B 53 4F 4E 53 |. LDABORDER;SONS|
000009C0: 54 20 41 4C 54 45 20 52 41 48 4D 45 4E 46 41 52 |T ALTE RAHMENFAR|
000009D0: 42 45 00 CC 29 5E 06 20 53 54 41 4F 4C 44 43 4F |BE..)^. STAOLDCO|
000009E0: 4C 4F 52 3B 5A 57 49 53 43 48 45 4E 53 50 45 49 |LOR;ZWISCHENSPEI|
000009F0: 43 48 45 52 4E 00 F1 29 68 06 20 4C 44 41 23 31 |CHERN..)h. LDA#1|
00000A00: 35 3B 55 4E 44 20 41 55 46 20 4E 45 55 45 20 52 |5;UND AUF NEUE R|
00000A10: 41 48 4D 45 4E 46 41 52 42 45 00 0B 2A 72 06 20 |AHMENFARBE..*r. |
00000A20: 53 54 41 42 4F 52 44 45 52 3B 55 4D 53 43 48 41 |STABORDER;UMSCHA|
00000A30: 4C 54 45 4E 00 2F 2A 7C 06 20 4C 44 41 23 55 4E |LTEN./*|. LDA#UN|
00000A40: 54 45 4E 3B 4E 41 45 43 48 53 54 45 52 20 52 41 |TEN;NAECHSTER RA|
00000A50: 53 54 45 52 2D 49 52 51 00 4C 2A 86 06 20 53 54 |STER-IRQ.L*.. ST|
00000A60: 41 52 41 53 54 45 52 3B 42 45 49 20 5A 45 49 4C |ARASTER;BEI ZEIL|
00000A70: 45 20 32 30 30 00 67 2A 90 06 20 4A 4D 50 49 52 |E 200.g*.. JMPIR|
00000A80: 51 45 4E 44 3B 49 52 51 20 42 45 45 4E 44 45 4E |QEND;IRQ BEENDEN|
00000A90: 00 8F 2A 9A 06 53 50 4C 49 54 32 20 4C 44 41 4F |..*..SPLIT2 LDAO|
00000AA0: 4C 44 43 4F 4C 4F 52 3B 41 4C 54 45 20 52 41 48 |LDCOLOR;ALTE RAH|
00000AB0: 4D 45 4E 46 41 52 42 45 00 A9 2A A4 06 20 53 54 |MENFARBE..*.. ST|
00000AC0: 41 42 4F 52 44 45 52 3B 45 49 4E 53 54 45 4C 4C |ABORDER;EINSTELL|
00000AD0: 45 4E 00 CC 2A AE 06 20 4C 44 41 23 4F 42 45 4E |EN..*.. LDA#OBEN|
00000AE0: 3B 4E 41 45 43 48 53 54 45 52 20 52 41 53 54 45 |;NAECHSTER RASTE|
00000AF0: 52 2D 49 52 51 00 E7 2A B8 06 20 53 54 41 52 41 |R-IRQ..*.. STARA|
00000B00: 53 54 45 52 3B 42 45 49 20 5A 45 49 4C 45 20 30 |STER;BEI ZEILE 0|
00000B10: 00 02 2B C2 06 20 4A 4D 50 49 52 51 45 4E 44 3B |..+.. JMPIRQEND;|
00000B20: 49 52 51 20 42 45 45 4E 44 45 4E 00 08 2B CC 06 |IRQ BEENDEN..+..|
00000B30: 3B 00 37 2B D6 06 53 43 52 49 52 51 20 4C 44 41 |;.7+..SCRIRQ LDA|
00000B40: 53 43 52 4B 4F 4C 3B 48 49 4E 54 45 52 47 52 55 |SCRKOL;HINTERGRU|
00000B50: 4E 44 2D 4B 4F 4C 4C 2E 52 45 47 49 53 54 45 52 |ND-KOLL.REGISTER|
00000B60: 00 60 2B E0 06 20 53 54 41 4B 4F 4C 42 55 46 46 |.`+.. STAKOLBUFF|
00000B70: 45 52 3B 41 55 53 4C 45 53 45 4E 20 55 4E 44 20 |ER;AUSLESEN UND |
00000B80: 53 50 45 49 43 48 45 52 4E 00 8F 2B EA 06 20 45 |SPEICHERN..+.. E|
00000B90: 4F 52 53 43 52 4B 4F 4C 4F 4C 44 3B 4D 49 54 20 |ORSCRKOLOLD;MIT |
00000BA0: 41 4C 54 45 4D 20 49 4E 48 41 4C 54 20 56 45 52 |ALTEM INHALT VER|
00000BB0: 4B 4E 55 45 50 46 45 4E 00 BC 2B F4 06 20 42 45 |KNUEPFEN..+.. BE|
00000BC0: 51 53 50 52 49 52 51 3B 4B 45 49 4E 20 42 49 54 |QSPRIRQ;KEIN BIT|
00000BD0: 20 47 45 53 45 54 5A 54 2C 20 44 41 4E 4E 20 57 | GESETZT, DANN W|
00000BE0: 45 49 54 45 52 00 E2 2B FE 06 20 53 54 41 4B 4F |EITER..+.. STAKO|
00000BF0: 4C 42 55 46 46 45 52 32 3B 45 52 47 45 42 4E 49 |LBUFFER2;ERGEBNI|
00000C00: 53 20 53 50 45 49 43 48 45 52 4E 00 0E 2C 08 07 |S SPEICHERN..,..|
00000C10: 20 4C 44 41 4B 4F 4C 42 55 46 46 45 52 3B 4E 45 | LDAKOLBUFFER;NE|
00000C20: 55 45 4E 20 57 45 52 54 20 46 55 45 52 20 4E 41 |UEN WERT FUER NA|
00000C30: 45 43 48 53 54 45 4E 00 36 2C 12 07 20 53 54 41 |ECHSTEN.6,.. STA|
00000C40: 53 43 52 4B 4F 4C 4F 4C 44 3B 49 52 51 20 5A 57 |SCRKOLOLD;IRQ ZW|
00000C50: 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 4E 00 |ISCHENSPEICHERN.|
00000C60: 66 2C 1C 07 20 41 4E 44 4B 4F 4C 42 55 46 46 45 |f,.. ANDKOLBUFFE|
00000C70: 52 32 3B 55 4E 44 20 4D 49 54 20 45 52 47 45 42 |R2;UND MIT ERGEB|
00000C80: 4E 49 53 20 56 45 52 4B 4E 55 45 50 46 45 4E 00 |NIS VERKNUEPFEN.|
00000C90: 84 2C 26 07 20 42 45 51 53 50 52 49 52 51 3B 30 |.,&. BEQSPRIRQ;0|
00000CA0: 2C 20 44 41 4E 4E 20 57 45 49 54 45 52 00 A0 2C |, DANN WEITER..,|
00000CB0: 30 07 20 49 4E 43 31 30 32 34 3B 53 4F 4E 53 54 |0. INC1024;SONST|
00000CC0: 20 52 45 41 4B 54 49 4F 4E 00 A6 2C 3A 07 3B 00 | REAKTION..,:.;.|
00000CD0: D0 2C 44 07 53 50 52 49 52 51 20 4C 44 41 53 50 |.,D.SPRIRQ LDASP|
00000CE0: 52 4B 4F 4C 3B 41 42 54 45 53 54 45 4E 20 44 45 |RKOL;ABTESTEN DE|
00000CF0: 52 20 53 50 52 49 54 45 2D 00 F3 2C 4E 07 20 53 |R SPRITE-..,N. S|
00000D00: 54 41 4B 4F 4C 42 55 46 46 45 52 3B 53 50 52 49 |TAKOLBUFFER;SPRI|
00000D10: 54 45 2D 4B 4F 4C 4C 49 53 49 4F 4E 00 1D 2D 58 |TE-KOLLISION..-X|
00000D20: 07 20 45 4F 52 53 50 52 4B 4F 4C 4F 4C 44 3B 28 |. EORSPRKOLOLD;(|
00000D30: 57 49 45 20 42 45 49 20 53 50 52 49 54 45 2D 48 |WIE BEI SPRITE-H|
00000D40: 49 4E 54 45 52 2D 00 34 2D 62 07 20 42 45 51 53 |INTER-.4-b. BEQS|
00000D50: 50 52 45 4E 44 3B 20 47 52 55 4E 44 29 00 47 2D |PREND; GRUND).G-|
00000D60: 6C 07 20 53 54 41 4B 4F 4C 42 55 46 46 45 52 32 |l. STAKOLBUFFER2|
00000D70: 00 59 2D 76 07 20 4C 44 41 4B 4F 4C 42 55 46 46 |.Y-v. LDAKOLBUFF|
00000D80: 45 52 00 6B 2D 80 07 20 53 54 41 53 50 52 4B 4F |ER.k-.. STASPRKO|
00000D90: 4C 4F 4C 44 00 7E 2D 8A 07 20 41 4E 44 4B 4F 4C |LOLD.~-.. ANDKOL|
00000DA0: 42 55 46 46 45 52 32 00 8D 2D 94 07 20 42 45 51 |BUFFER2..-.. BEQ|
00000DB0: 53 50 52 45 4E 44 00 9A 2D 9E 07 20 49 4E 43 31 |SPREND..-.. INC1|
00000DC0: 30 32 35 00 C5 2D A8 07 53 50 52 45 4E 44 20 4A |025..-..SPREND J|
00000DD0: 4D 50 49 52 51 41 4C 54 3B 5A 55 52 20 41 4C 54 |MPIRQALT;ZUR ALT|
00000DE0: 45 4E 20 49 52 51 2D 52 4F 55 54 49 4E 45 00 CB |EN IRQ-ROUTINE..|
00000DF0: 2D B2 07 3B 00 F9 2D BC 07 54 45 53 54 4A 4F 59 |-..;..-..TESTJOY|
00000E00: 20 4C 44 41 4A 4F 59 50 4F 52 54 32 3B 4A 4F 59 | LDAJOYPORT2;JOY|
00000E10: 53 54 49 43 4B 20 50 4F 52 54 20 32 20 4C 41 44 |STICK PORT 2 LAD|
00000E20: 45 4E 00 1E 2E C6 07 20 41 4E 44 23 31 35 3B 55 |EN..... AND#15;U|
00000E30: 4E 54 45 52 45 53 20 4E 59 42 42 4C 45 20 41 42 |NTERES NYBBLE AB|
00000E40: 54 52 45 4E 4E 45 4E 00 43 2E D0 07 20 54 41 58 |TRENNEN.C... TAX|
00000E50: 3B 55 4E 44 20 49 4E 53 20 58 2D 52 45 47 49 53 |;UND INS X-REGIS|
00000E60: 54 45 52 20 53 43 48 49 45 42 45 4E 00 6F 2E DA |TER SCHIEBEN.o..|
00000E70: 07 20 4C 44 41 58 54 41 42 2C 58 3B 58 2D 42 45 |. LDAXTAB,X;X-BE|
00000E80: 57 45 47 55 4E 47 20 41 55 53 20 54 41 42 45 4C |WEGUNG AUS TABEL|
00000E90: 4C 45 20 48 4F 4C 45 4E 00 99 2E E4 07 20 53 54 |LE HOLEN..... ST|
00000EA0: 41 4D 4F 56 45 58 3B 55 4E 44 20 4D 4F 56 45 2D |AMOVEX;UND MOVE-|
00000EB0: 52 4F 55 54 49 4E 45 20 55 45 42 45 52 47 45 42 |ROUTINE UEBERGEB|
00000EC0: 45 4E 00 C5 2E EE 07 20 4C 44 41 59 54 41 42 2C |EN..... LDAYTAB,|
00000ED0: 58 3B 59 2D 42 45 57 45 47 55 4E 47 20 41 55 53 |X;Y-BEWEGUNG AUS|
00000EE0: 20 54 41 42 45 4C 4C 45 20 48 4F 4C 45 4E 00 EF | TABELLE HOLEN..|
00000EF0: 2E F8 07 20 53 54 41 4D 4F 56 45 59 3B 55 4E 44 |... STAMOVEY;UND|
00000F00: 20 4D 4F 56 45 2D 52 4F 55 54 49 4E 45 20 55 45 | MOVE-ROUTINE UE|
00000F10: 42 45 52 47 45 42 45 4E 00 04 2F 02 08 20 52 54 |BERGEBEN../.. RT|
00000F20: 53 3B 55 4E 44 20 5A 55 52 55 45 43 4B 00 0A 2F |S;UND ZURUECK../|
00000F30: 0C 08 3B 00 2A 2F 16 08 4D 4F 56 45 53 50 52 20 |..;.*/..MOVESPR |
00000F40: 4C 44 41 4D 4F 56 45 58 3B 58 2D 52 49 43 48 54 |LDAMOVEX;X-RICHT|
00000F50: 55 4E 47 00 54 2F 20 08 20 42 4D 49 4E 4F 54 58 |UNG.T/ . BMINOTX|
00000F60: 3B 3E 3D 31 32 38 2C 20 44 41 4E 4E 20 4B 45 49 |;>=128, DANN KEI|
00000F70: 4E 45 20 58 2D 42 45 57 45 47 55 4E 47 00 78 2F |NE X-BEWEGUNG.x/|
00000F80: 2A 08 20 42 4E 45 4C 45 46 54 3B 3C 3E 30 20 20 |*. BNELEFT;<>0 |
00000F90: 2C 20 44 41 4E 4E 20 4E 41 43 48 20 4C 49 4E 4B |, DANN NACH LINK|
00000FA0: 53 00 9E 2F 34 08 52 49 47 48 54 20 4C 44 41 56 |S../4.RIGHT LDAV|
00000FB0: 49 43 3B 58 2D 4B 4F 4F 52 44 49 4E 41 54 45 20 |IC;X-KOORDINATE |
00000FC0: 3E 20 33 32 30 20 3F 00 AA 2F 3E 08 20 43 4D 50 |> 320 ?../>. CMP|
00000FD0: 23 36 35 00 D1 2F 48 08 20 42 43 43 52 49 47 48 |#65../H. BCCRIGH|
00000FE0: 54 4F 4B 3B 4E 45 49 4E 2C 20 44 41 4E 4E 20 41 |TOK;NEIN, DANN A|
00000FF0: 55 46 41 44 44 49 45 52 45 4E 00 E0 2F 52 08 20 |UFADDIEREN../R. |
00001000: 4C 44 41 56 49 43 2B 31 36 00 EB 2F 5C 08 20 41 |LDAVIC+16../\. A|
00001010: 4E 44 23 31 00 14 30 66 08 20 42 4E 45 4E 4F 54 |ND#1..0f. BNENOT|
00001020: 58 3B 4A 41 20 20 2C 20 44 41 4E 4E 20 4B 45 49 |X;JA , DANN KEI|
00001030: 4E 45 20 58 2D 42 45 57 45 47 55 4E 47 00 42 30 |NE X-BEWEGUNG.B0|
00001040: 70 08 52 49 47 48 54 4F 4B 20 4C 44 41 56 49 43 |p.RIGHTOK LDAVIC|
00001050: 2B 31 36 3B 48 49 4C 46 53 42 49 54 20 49 4E 53 |+16;HILFSBIT INS|
00001060: 20 58 2D 52 45 47 49 53 54 45 52 00 4D 30 7A 08 | X-REGISTER.M0z.|
00001070: 20 41 4E 44 23 31 00 56 30 84 08 20 54 41 58 00 | AND#1.V0.. TAX.|
00001080: 78 30 8E 08 20 43 4C 43 3B 58 2D 4B 4F 4F 52 44 |x0.. CLC;X-KOORD|
00001090: 49 4E 41 54 45 20 41 55 46 41 44 44 49 45 52 45 |INATE AUFADDIERE|
000010A0: 4E 00 84 30 98 08 20 4C 44 41 56 49 43 00 91 30 |N..0.. LDAVIC..0|
000010B0: A2 08 20 41 44 43 53 54 45 50 00 9D 30 AC 08 20 |.. ADCSTEP..0.. |
000010C0: 53 54 41 56 49 43 00 BF 30 B6 08 20 54 58 41 3B |STAVIC..0.. TXA;|
000010D0: 48 49 2D 42 59 54 45 20 42 45 52 55 45 43 4B 53 |HI-BYTE BERUECKS|
000010E0: 49 43 48 54 49 47 45 4E 00 CA 30 C0 08 20 41 44 |ICHTIGEN..0.. AD|
000010F0: 43 23 30 00 F1 30 CA 08 20 4A 53 52 53 54 4F 48 |C#0..0.. JSRSTOH|
00001100: 49 3B 48 49 20 42 59 54 45 20 5A 55 52 55 45 43 |I;HI BYTE ZURUEC|
00001110: 4B 53 43 48 52 45 49 42 45 4E 00 14 31 D4 08 20 |KSCHREIBEN..1.. |
00001120: 4A 4D 50 4E 4F 54 58 3B 57 45 49 54 45 52 20 4D |JMPNOTX;WEITER M|
00001130: 49 54 20 59 2D 42 45 57 45 47 55 4E 47 00 38 31 |IT Y-BEWEGUNG.81|
00001140: DE 08 4C 45 46 54 20 4C 44 41 56 49 43 3B 58 2D |..LEFT LDAVIC;X-|
00001150: 4B 4F 4F 52 44 49 4E 41 54 45 20 3C 20 32 34 20 |KOORDINATE < 24 |
00001160: 3F 00 44 31 E8 08 20 43 4D 50 23 32 34 00 6B 31 |?.D1.. CMP#24.k1|
00001170: F2 08 20 42 43 53 4C 45 46 54 4F 4B 3B 4E 45 49 |.. BCSLEFTOK;NEI|
00001180: 4E 2C 20 44 41 4E 4E 20 53 55 42 54 52 41 48 49 |N, DANN SUBTRAHI|
00001190: 45 52 45 4E 00 7A 31 FC 08 20 4C 44 41 56 49 43 |EREN.z1.. LDAVIC|
000011A0: 2B 31 36 00 85 31 06 09 20 41 4E 44 23 31 00 AE |+16..1.. AND#1..|
000011B0: 31 10 09 20 42 45 51 4E 4F 54 58 3B 4A 41 2C 20 |1.. BEQNOTX;JA, |
000011C0: 20 20 44 41 4E 4E 20 4B 45 49 4E 45 20 58 2D 42 | DANN KEINE X-B|
000011D0: 45 57 45 47 55 4E 47 00 DB 31 1A 09 4C 45 46 54 |EWEGUNG..1..LEFT|
000011E0: 4F 4B 20 4C 44 41 56 49 43 2B 31 36 3B 48 49 4C |OK LDAVIC+16;HIL|
000011F0: 46 53 42 49 54 20 49 4E 53 20 58 2D 52 45 47 49 |FSBIT INS X-REGI|
00001200: 53 54 45 52 00 E6 31 24 09 20 41 4E 44 23 31 00 |STER..1$. AND#1.|
00001210: EF 31 2E 09 20 54 41 58 00 12 32 38 09 20 53 45 |.1.. TAX..28. SE|
00001220: 43 3B 58 2D 4B 4F 4F 52 44 49 4E 41 54 45 20 53 |C;X-KOORDINATE S|
00001230: 55 42 54 52 41 48 49 45 52 45 4E 00 1E 32 42 09 |UBTRAHIEREN..2B.|
00001240: 20 4C 44 41 56 49 43 00 2B 32 4C 09 20 53 42 43 | LDAVIC.+2L. SBC|
00001250: 53 54 45 50 00 37 32 56 09 20 53 54 41 56 49 43 |STEP.72V. STAVIC|
00001260: 00 59 32 60 09 20 54 58 41 3B 48 49 2D 42 59 54 |.Y2`. TXA;HI-BYT|
00001270: 45 20 42 45 52 55 45 43 4B 53 49 43 48 54 49 47 |E BERUECKSICHTIG|
00001280: 45 4E 00 64 32 6A 09 20 53 42 43 23 30 00 8B 32 |EN.d2j. SBC#0..2|
00001290: 74 09 20 4A 53 52 53 54 4F 48 49 3B 48 49 2D 42 |t. JSRSTOHI;HI-B|
000012A0: 59 54 45 20 5A 55 52 55 45 43 4B 53 43 48 52 45 |YTE ZURUECKSCHRE|
000012B0: 49 42 45 4E 00 A8 32 7E 09 4E 4F 54 58 20 4C 44 |IBEN..2~.NOTX LD|
000012C0: 41 4D 4F 56 45 59 3B 59 2D 42 45 57 45 47 55 4E |AMOVEY;Y-BEWEGUN|
000012D0: 47 00 D2 32 88 09 20 42 4D 49 4E 4F 54 59 3B 3E |G..2.. BMINOTY;>|
000012E0: 3D 31 32 38 2C 20 44 41 4E 4E 20 4B 45 49 4E 45 |=128, DANN KEINE|
000012F0: 20 59 2D 42 45 57 45 47 55 4E 47 00 F1 32 92 09 | Y-BEWEGUNG..2..|
00001300: 20 42 4E 45 55 50 3B 3C 3E 30 2C 20 44 41 4E 4E | BNEUP;<>0, DANN|
00001310: 20 4E 41 43 48 20 4F 42 45 4E 00 18 33 9C 09 44 | NACH OBEN..3..D|
00001320: 4F 57 4E 20 4C 44 41 56 49 43 2B 31 3B 59 2D 4B |OWN LDAVIC+1;Y-K|
00001330: 4F 4F 52 44 49 4E 41 54 45 20 3E 20 32 32 39 20 |OORDINATE > 229 |
00001340: 3F 00 25 33 A6 09 20 43 4D 50 23 32 33 30 00 4C |?.%3.. CMP#230.L|
00001350: 33 B0 09 20 42 43 53 4E 4F 54 59 3B 4A 41 2C 20 |3.. BCSNOTY;JA, |
00001360: 44 41 4E 4E 20 4B 45 49 4E 45 20 59 2D 42 45 57 |DANN KEINE Y-BEW|
00001370: 45 47 55 4E 47 00 6C 33 BA 09 20 43 4C 43 3B 4E |EGUNG.l3.. CLC;N|
00001380: 45 49 4E 2C 20 44 41 4E 4E 20 41 55 46 41 44 44 |EIN, DANN AUFADD|
00001390: 49 45 52 45 4E 00 7A 33 C4 09 20 4C 44 41 56 49 |IEREN.z3.. LDAVI|
000013A0: 43 2B 31 00 87 33 CE 09 20 41 44 43 53 54 45 50 |C+1..3.. ADCSTEP|
000013B0: 00 95 33 D8 09 20 53 54 41 56 49 43 2B 31 00 B5 |..3.. STAVIC+1..|
000013C0: 33 E2 09 20 4A 4D 50 4E 4F 54 59 3B 53 55 42 52 |3.. JMPNOTY;SUBR|
000013D0: 4F 55 54 49 4E 45 20 42 45 45 4E 44 45 4E 00 D9 |OUTINE BEENDEN..|
000013E0: 33 EC 09 55 50 20 4C 44 41 56 49 43 2B 31 3B 59 |3..UP LDAVIC+1;Y|
000013F0: 2D 4B 4F 4F 52 44 49 4E 41 54 45 20 3C 20 35 30 |-KOORDINATE < 50|
00001400: 20 3F 00 E5 33 F6 09 20 43 4D 50 23 35 30 00 0E | ?..3.. CMP#50..|
00001410: 34 00 0A 20 42 43 43 4E 4F 54 59 3B 4A 41 2C 20 |4.. BCCNOTY;JA, |
00001420: 44 41 4E 4E 20 53 55 42 52 4F 55 54 49 4E 45 20 |DANN SUBROUTINE |
00001430: 42 45 45 4E 44 45 4E 00 2F 34 0A 0A 20 53 45 43 |BEENDEN./4.. SEC|
00001440: 3B 4E 45 49 4E 2C 20 44 41 4E 4E 20 53 55 42 54 |;NEIN, DANN SUBT|
00001450: 52 41 48 49 45 52 45 4E 00 3D 34 14 0A 20 4C 44 |RAHIEREN.=4.. LD|
00001460: 41 56 49 43 2B 31 00 4A 34 1E 0A 20 53 42 43 53 |AVIC+1.J4.. SBCS|
00001470: 54 45 50 00 58 34 28 0A 20 53 54 41 56 49 43 2B |TEP.X4(. STAVIC+|
00001480: 31 00 74 34 32 0A 4E 4F 54 59 20 52 54 53 3B 55 |1.t42.NOTY RTS;U|
00001490: 4E 44 20 5A 55 52 55 45 43 4B 2E 2E 2E 00 7A 34 |ND ZURUECK....z4|
000014A0: 3C 0A 3B 00 97 34 46 0A 53 54 4F 48 49 20 50 48 |<.;..4F.STOHI PH|
000014B0: 41 3B 48 49 2D 42 59 54 45 20 4D 45 52 4B 45 4E |A;HI-BYTE MERKEN|
000014C0: 00 BF 34 50 0A 20 4C 44 41 56 49 43 2B 31 36 3B |..4P. LDAVIC+16;|
000014D0: 42 49 54 20 30 20 49 4D 20 52 45 47 49 53 54 45 |BIT 0 IM REGISTE|
000014E0: 52 20 56 49 43 2B 31 36 00 D5 34 5A 0A 20 41 4E |R VIC+16..4Z. AN|
000014F0: 44 23 32 35 34 3B 4C 4F 45 53 43 48 45 4E 00 E4 |D#254;LOESCHEN..|
00001500: 34 64 0A 20 53 54 41 56 49 43 2B 31 36 00 02 35 |4d. STAVIC+16..5|
00001510: 6E 0A 20 50 4C 41 3B 48 49 2D 42 59 54 45 20 4D |n. PLA;HI-BYTE M|
00001520: 49 54 20 52 45 47 49 53 54 45 52 00 1E 35 78 0A |IT REGISTER..5x.|
00001530: 20 4F 52 41 56 49 43 2B 31 36 3B 56 45 52 4B 4E | ORAVIC+16;VERKN|
00001540: 55 45 50 46 45 4E 2C 00 37 35 82 0A 20 53 54 41 |UEPFEN,.75.. STA|
00001550: 56 49 43 2B 31 36 3B 53 50 45 49 43 48 45 52 4E |VIC+16;SPEICHERN|
00001560: 00 4C 35 8C 0A 20 52 54 53 3B 55 4E 44 20 5A 55 |.L5.. RTS;UND ZU|
00001570: 52 55 45 43 4B 00 6F 35 96 0A 4F 4C 44 43 4F 4C |RUECK.o5..OLDCOL|
00001580: 4F 52 20 2E 42 59 30 3B 41 4C 54 45 20 52 41 48 |OR .BY0;ALTE RAH|
00001590: 4D 45 4E 46 41 52 42 45 00 95 35 A0 0A 4B 4F 4C |MENFARBE..5..KOL|
000015A0: 42 55 46 46 45 52 20 2E 42 59 30 3B 5A 57 49 53 |BUFFER .BY0;ZWIS|
000015B0: 43 48 45 4E 53 50 45 49 43 48 45 52 20 31 00 BC |CHENSPEICHER 1..|
000015C0: 35 AA 0A 4B 4F 4C 42 55 46 46 45 52 32 20 2E 42 |5..KOLBUFFER2 .B|
000015D0: 59 30 3B 5A 57 49 53 43 48 45 4E 53 50 45 49 43 |Y0;ZWISCHENSPEIC|
000015E0: 48 45 52 20 32 00 EF 35 B4 0A 53 43 52 4B 4F 4C |HER 2..5..SCRKOL|
000015F0: 4F 4C 44 20 2E 42 59 30 3B 41 4C 54 45 52 20 57 |OLD .BY0;ALTER W|
00001600: 45 52 54 20 44 45 53 20 53 43 52 4B 4F 4C 2D 52 |ERT DES SCRKOL-R|
00001610: 45 47 49 53 54 45 52 53 00 22 36 BE 0A 53 50 52 |EGISTERS."6..SPR|
00001620: 4B 4F 4C 4F 4C 44 20 2E 42 59 30 3B 41 4C 54 45 |KOLOLD .BY0;ALTE|
00001630: 52 20 57 45 52 54 20 44 45 53 20 53 50 52 4B 4F |R WERT DES SPRKO|
00001640: 4C 2D 52 45 47 49 53 54 45 52 53 00 48 36 C8 0A |L-REGISTERS.H6..|
00001650: 58 54 41 42 20 2E 42 59 31 32 38 2C 31 32 38 2C |XTAB .BY128,128,|
00001660: 31 32 38 2C 31 32 38 2C 31 32 38 2C 30 2C 30 2C |128,128,128,0,0,|
00001670: 30 00 6A 36 D2 0A 20 2E 42 59 31 32 38 2C 31 2C |0.j6.. .BY128,1,|
00001680: 31 2C 31 2C 31 32 38 2C 31 32 38 2C 31 32 38 2C |1,1,128,128,128,|
00001690: 31 32 38 00 92 36 DC 0A 59 54 41 42 20 2E 42 59 |128..6..YTAB .BY|
000016A0: 31 32 38 2C 31 32 38 2C 31 32 38 2C 31 32 38 2C |128,128,128,128,|
000016B0: 31 32 38 2C 30 2C 31 2C 31 32 38 00 B2 36 E6 0A |128,0,1,128..6..|
000016C0: 20 2E 42 59 31 32 38 2C 30 2C 31 2C 31 32 38 2C | .BY128,0,1,128,|
000016D0: 31 32 38 2C 30 2C 31 2C 31 32 38 00 CC 36 F0 0A |128,0,1,128..6..|
000016E0: 4D 4F 56 45 58 20 2E 42 59 30 3B 58 2D 42 45 57 |MOVEX .BY0;X-BEW|
000016F0: 45 47 55 4E 47 00 E6 36 FA 0A 4D 4F 56 45 59 20 |EGUNG..6..MOVEY |
00001700: 2E 42 59 30 3B 59 2D 42 45 57 45 47 55 4E 47 00 |.BY0;Y-BEWEGUNG.|
00001710: 0F 37 04 0B 53 54 45 50 20 2E 42 59 31 3B 53 43 |.7..STEP .BY1;SC|
00001720: 48 52 49 54 54 57 45 49 54 45 20 46 55 45 52 20 |HRITTWEITE FUER |
00001730: 42 45 57 45 47 55 4E 47 00 00 00 |BEWEGUNG... |
X.. ...BA 49152 ;START =
49152.3 ...GL VIC = $D000 ;VIC-
BASISADRESSE.\ ...GL IRQVEC = $0314
;IRQ-VEKTOR.. (..GL IRQALT = $EA31
;ALTE IRQ-ROUTINE.. 2..GL IRQEND = $F
EBC ;IRQ BEENDEN.. <..GL RASTER =
VIC+18 ;RASTERZEILEN-REGISTER..!F..
GL IRQMASK= VIC+26 ;IRQ-MASKENREGIS
TER.L!P..GL IRQFLAG= VIC+25 ;IRQ-RE
QUESTREGISTER..!Z..GL HIBIT = VIC+17
;HI-BIT VOM RASTERREGISTER..!D..GL CI
ATIME= $DC0E ;CIA-TIMER-STEUERREGI
STER..!N..GL OBEN = 0 ;OBERE
RASTERZEILE.."S..GL MITTE = 100
;MITTLERE RASTERZEILE.O"X..GL UNTEN =
200 ;UNTERE RASTERZEILE.."...GL
SPRKOL = VIC+30 ;SPRITE-SPRITE-KOL
L..."...GL SCRKOL = VIC+31 ;SPRITE-
HINTERGRUND-KOLL..."...GL BORDER = 53280
;RAHMENFARBE..# ..GL JOYPORT2 = 5
6320 ;JOYSTICK PORT 2..#..;.<#..INIT
JSRMAKESPR;SPRITES ERSTELLEN.Q#.. SEI;I
RQ SPERREN.V#.. LDA#OBEN;RASTER-IRQ BEI
ZEILE 0..#.. STARASTER..#.. LDAHIBIT. #.
. AND#127..#$. STAHIBIT..#.. LDA#129..#8
. STAIRQMASK;RASTER-IRQ MASKIEREN..$B. L
DACIATIME;CIA-TIMER AUSSCHALTEN..$L. AND
#254.#$V. STACIATIME.K$`. LDA#<(IRQNEU);
IRQ-VEKTOR VERBIEGEN.^$J. LDX#>(IRQNEU).
M$T. STAIRQVEC.~$~. STXIRQVEC+1..$.. LDA
#0;ZWISCHENSPEICHER LOESCHEN..$.. STASCR
KOLOLD.G$.. STASPRKOLOLD..$.. LDASPRKOL;
KOLLISIONSREGISTER..%.. LDASCRKOL;LOESCH
EN.%%.. LDAIRQFLAG;IRQ-REQUESTREGISTER.>
%D. STAIRQFLAG;LOESCHEN.T%N. CLI;IRQ ZUL
ASSEN.L%X. RTS;UND ZURUECK....R%..;..%..
MAKESPR LDX#62;SPRITEBLOCK 32 MIT 255..%
.. LDA#255;VOLLSCHREIBEN.J%..LOOP STA204
8,X.S%.. DEX..%.. BPLLOOP..%.. LDA#32;BL
OCK 32 FUER.!&.. STA2040;SPRITE 0 UND 1
EINSTELLEN..&(. STA2041.J&2. LDA#1;SPRIT
E 0 = WEISS.Y&<. STAVIC+39.W&F. LDA#11;S
PRITE 1 = GRAU 1..&P. STAVIC+40..&Z. LDA
#100;SPRITE 1 BEI X = 100.P&D. STAVIC+2;
UND Y = 100 POSITIONIEREN..&N. STAVIC+3.
.&X. LDA#24;SPRITE 0 BEI X = 24..'.. STA
VIC./'.. LDA#50;UND Y = 50 POSITIONIEREN
.='.. STAVIC+1.^' . LDA#0;HILFSBITS DER
X-KOOR-.~'.. STAVIC+16;DINATEN LOESCHEN.
.'.. LDA#3;SPRITE 0 UND 1 EINSCHALTEN..'
.. STAVIC+21.K'H. RTS;UND ZURUECK....Q'R
.;..'..IRQNEU LDAIRQFLAG;IRQ-REQUESTREGI
STER..(.. STAIRQFLAG;LOESCHEN.<(.. LDARA
STER;AKTUELLE RASTERZEILE MIT.[(.. CMP#M
ITTE;100 VERGLEICHEN..(.. BCSSPLIT;GROES
SER/GLEICH, DANN SPLIT..(.. JSRTESTJOY;S
ONST JOYSTICK ABTESTEN.P(.. JSRMOVESPR;U
ND SPRITE BEWEGEN..(". LDA#MITTE;NAECHST
ER RASTER-IRQ..),. STARASTER;BEI ZEILE 1
00.5)6. JMPSCRIRQ;KOLLISIONEN ABTESTEN.;
);.;.D)@.SPLIT CMP#UNTEN;RASTERZEILE >=
200 ?..)J. BCSSPLIT2;JA, DANN SPLIT2..)T
. LDABORDER;SONST ALTE RAHMENFARBE.L)^.
STAOLDCOLOR;ZWISCHENSPEICHERN..)H. LDA#1
5;UND AUF NEUE RAHMENFARBE..*R. STABORDE
R;UMSCHALTEN./*|. LDA#UNTEN;NAECHSTER RA
STER-IRQ.L*.. STARASTER;BEI ZEILE 200.G*
.. JMPIRQEND;IRQ BEENDEN..*..SPLIT2 LDAO
LDCOLOR;ALTE RAHMENFARBE..*.. STABORDER;
EINSTELLEN.L*.. LDA#OBEN;NAECHSTER RASTE
R-IRQ..*.. STARASTER;BEI ZEILE 0..+B. JM
PIRQEND;IRQ BEENDEN..+L.;.7+V.SCRIRQ LDA
SCRKOL;HINTERGRUND-KOLL.REGISTER.`+.. ST
AKOLBUFFER;AUSLESEN UND SPEICHERN..+.. E
ORSCRKOLOLD;MIT ALTEM INHALT VERKNUEPFEN
..+.. BEQSPRIRQ;KEIN BIT GESETZT, DANN W
EITER..+.. STAKOLBUFFER2;ERGEBNIS SPEICH
ERN..,.. LDAKOLBUFFER;NEUEN WERT FUER NA
ECHSTEN.6,.. STASCRKOLOLD;IRQ ZWISCHENSP
EICHERN.F,.. ANDKOLBUFFER2;UND MIT ERGEB
NIS VERKNUEPFEN..,&. BEQSPRIRQ;0, DANN W
EITER. ,0. INC1024;SONST REAKTION..,:.;.
P,D.SPRIRQ LDASPRKOL;ABTESTEN DER SPRITE
-..,N. STAKOLBUFFER;SPRITE-KOLLISION..-X
. EORSPRKOLOLD;(WIE BEI SPRITE-HINTER-.4
-B. BEQSPREND; GRUND).G-L. STAKOLBUFFER2
.Y-V. LDAKOLBUFFER.K-.. STASPRKOLOLD.~-.
. ANDKOLBUFFER2..-.. BEQSPREND..-.. INC1
025.E-..SPREND JMPIRQALT;ZUR ALTEN IRQ-R
OUTINE.K-..;..-..TESTJOY LDAJOYPORT2;JOY
STICK PORT 2 LADEN...F. AND#15;UNTERES N
YBBLE ABTRENNEN.C.P. TAX;UND INS X-REGIS
TER SCHIEBEN.O.Z. LDAXTAB,X;X-BEWEGUNG A
US TABELLE HOLEN..... STAMOVEX;UND MOVE-
ROUTINE UEBERGEBEN.E... LDAYTAB,X;Y-BEWE
GUNG AUS TABELLE HOLEN..... STAMOVEY;UND
MOVE-ROUTINE UEBERGEBEN../.. RTS;UND ZU
RUECK../..;.*/..MOVESPR LDAMOVEX;X-RICHT
UNG.T/ . BMINOTX;>=128, DANN KEINE X-BEW
EGUNG.X/*. BNELEFT;<>0 , DANN NACH LINK
S../4.RIGHT LDAVIC;X-KOORDINATE > 320 ?.
./>. CMP#65.Q/H. BCCRIGHTOK;NEIN, DANN A
UFADDIEREN../R. LDAVIC+16../\. AND#1..0F
. BNENOTX;JA , DANN KEINE X-BEWEGUNG.B0
P.RIGHTOK LDAVIC+16;HILFSBIT INS X-REGIS
TER.M0Z. AND#1.V0.. TAX.X0.. CLC;X-KOORD
INATE AUFADDIEREN..0.. LDAVIC..0.. ADCST
EP..0.. STAVIC..0.. TXA;HI-BYTE BERUECKS
ICHTIGEN.J0.. ADC#0..0J. JSRSTOHI;HI BYT
E ZURUECKSCHREIBEN..1T. JMPNOTX;WEITER M
IT Y-BEWEGUNG.81..LEFT LDAVIC;X-KOORDINA
TE < 24 ?.D1.. CMP#24.K1.. BCSLEFTOK;NEI
N, DANN SUBTRAHIEREN.Z1.. LDAVIC+16..1..
AND#1..1.. BEQNOTX;JA, DANN KEINE X-B
EWEGUNG..1..LEFTOK LDAVIC+16;HILFSBIT IN
S X-REGISTER..1$. AND#1..1.. TAX..28. SE
C;X-KOORDINATE SUBTRAHIEREN..2B. LDAVIC.
+2L. SBCSTEP.72V. STAVIC.Y2`. TXA;HI-BYT
E BERUECKSICHTIGEN.D2J. SBC#0..2T. JSRST
OHI;HI-BYTE ZURUECKSCHREIBEN..2~.NOTX LD
AMOVEY;Y-BEWEGUNG.R2.. BMINOTY;>=128, DA
NN KEINE Y-BEWEGUNG..2.. BNEUP;<>0, DANN
NACH OBEN..3..DOWN LDAVIC+1;Y-KOORDINAT
E > 229 ?.%3.. CMP#230.L3.. BCSNOTY;JA,
DANN KEINE Y-BEWEGUNG.L3.. CLC;NEIN, DAN
N AUFADDIEREN.Z3D. LDAVIC+1..3N. ADCSTEP
..3X. STAVIC+1..3.. JMPNOTY;SUBROUTINE B
EENDEN.Y3..UP LDAVIC+1;Y-KOORDINATE < 50
?..3.. CMP#50..4.. BCCNOTY;JA, DANN SUB
ROUTINE BEENDEN./4.. SEC;NEIN, DANN SUBT
RAHIEREN.=4.. LDAVIC+1.J4.. SBCSTEP.X4(.
STAVIC+1.T42.NOTY RTS;UND ZURUECK....Z4
<.;..4F.STOHI PHA;HI-BYTE MERKEN..4P. LD
AVIC+16;BIT 0 IM REGISTER VIC+16.U4Z. AN
D#254;LOESCHEN..4D. STAVIC+16..5N. PLA;H
I-BYTE MIT REGISTER..5X. ORAVIC+16;VERKN
UEPFEN,.75.. STAVIC+16;SPEICHERN.L5.. RT
S;UND ZURUECK.O5..OLDCOLOR .BY0;ALTE RAH
MENFARBE..5 .KOLBUFFER .BY0;ZWISCHENSPEI
CHER 1..5..KOLBUFFER2 .BY0;ZWISCHENSPEIC
HER 2..5..SCRKOLOLD .BY0;ALTER WERT DES
SCRKOL-REGISTERS."6..SPRKOLOLD .BY0;ALTE
R WERT DES SPRKOL-REGISTERS.H6H.XTAB .BY
128,128,128,128,128,0,0,0.J6R. .BY128,1,
1,1,128,128,128,128..6..YTAB .BY128,128,
128,128,128,0,1,128..6.. .BY128,0,1,128,
128,0,1,128.L6..MOVEX .BY0;X-BEWEGUNG..6
..MOVEY .BY0;Y-BEWEGUNG..7..STEP .BY1;SC
HRITTWEITE FUER BEWEGUNG...
> CLICK IMAGE PREVIEW FOR FULL MODAL