SPRITEDEMO.ASC
FILE INFORMATION
FILENAME(S): SPRITEDEMO.ASC
FILE TYPE(S): SEQ
FILE SIZE: 22.5K
FIRST SEEN: 2025-11-30 01:13:16
APPEARS ON: 1 disk(s)
FILE HASH
80b94671e21d31c0ba4e5139979bd634b1ccbba7d1059ebe9ad753bdc603d8a1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10403 SEITE B | SPRITEDEMO.ASC | SEQ | C64er | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000020: 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 20 20 20 20 20 20 |--------.; | 00000030: 20 20 20 20 20 20 20 53 50 52 49 54 45 20 4D 4F | SPRITE MO| 00000040: 56 45 52 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |VER.;-----------| 00000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 20 28 |------------.; (| 00000070: 57 29 20 49 4E 20 31 39 39 31 20 42 59 20 49 4E |W) IN 1991 BY IN| 00000080: 47 4F 20 4B 55 53 43 48 0D 3B 20 20 20 20 20 20 |GO KUSCH.; | 00000090: 20 20 20 20 20 20 20 20 20 20 53 49 4D 4F 4E 53 | SIMONS| 000000A0: 54 52 2E 39 0D 3B 20 20 20 20 20 20 20 20 20 20 |TR.9.; | 000000B0: 20 20 20 20 20 20 34 37 30 30 20 48 41 4D 4D 20 | 4700 HAMM | 000000C0: 33 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 54 |3.; T| 000000D0: 45 4C 3A 30 32 33 38 31 2F 34 36 34 36 31 39 0D |EL:02381/464619.| 000000E0: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000100: 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 20 42 45 52 45 49 |--------.; BEREI| 00000110: 43 48 20 20 3A 20 20 20 20 2D 58 2D 20 3A 20 34 |CH : -X- : 4| 00000120: 35 36 2D 34 38 30 0D 3B 20 2D 2D 2D 2D 2D 2D 2D |56-480.; -------| 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 28 34 38 30 | (480| 00000140: 2D 34 35 36 29 20 43 4C 52 20 20 21 21 21 21 0D |-456) CLR !!!!.| 00000150: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000160: 2D 59 2D 20 3A 20 34 30 2D 32 34 30 0D 3B 2D 2D |-Y- : 40-240.;--| 00000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000190: 2D 2D 2D 2D 2D 0D 3B 41 42 4B 55 45 52 5A 55 4E |-----.;ABKUERZUN| 000001A0: 47 45 4E 3A 0D 3B 20 27 53 52 27 20 2D 20 53 50 |GEN:.; 'SR' - SP| 000001B0: 52 49 54 45 20 52 4F 55 54 49 4E 45 0D 3B 20 20 |RITE ROUTINE.; | 000001C0: 20 20 20 20 20 28 4D 4F 56 45 2D 50 52 4F 47 52 | (MOVE-PROGR| 000001D0: 41 4D 4D 29 0D 3B 20 27 53 44 27 20 2D 20 53 50 |AMM).; 'SD' - SP| 000001E0: 52 49 54 45 20 44 41 52 53 54 45 4C 4C 55 4E 47 |RITE DARSTELLUNG| 000001F0: 0D 3B 20 20 20 20 20 20 20 28 53 49 43 48 54 42 |.; (SICHTB| 00000200: 41 52 4D 41 43 48 45 4E 20 44 45 52 20 42 45 45 |ARMACHEN DER BEE| 00000210: 52 45 43 48 4E 45 54 45 4E 0D 3B 20 20 20 20 20 |RECHNETEN.; | 00000220: 20 20 20 53 50 52 49 54 45 53 20 4D 49 54 20 46 | SPRITES MIT F| 00000230: 49 52 53 54 20 26 20 4E 45 58 54 29 0D 3B 20 5A |IRST & NEXT).; Z| 00000240: 57 2E 53 50 2E 20 2D 20 5A 57 49 53 43 48 45 4E |W.SP. - ZWISCHEN| 00000250: 20 53 50 45 49 43 48 45 52 0D 3B 20 53 2E 4F 2E | SPEICHER.; S.O.| 00000260: 20 2D 20 53 49 45 48 45 20 4F 42 45 4E 0D 3B 20 | - SIEHE OBEN.; | 00000270: 53 2E 55 2E 20 2D 20 53 49 45 48 45 20 55 4E 54 |S.U. - SIEHE UNT| 00000280: 45 4E 0D 3B 20 43 4C 52 20 20 2D 20 43 4C 45 41 |EN.; CLR - CLEA| 00000290: 52 20 3D 20 4C 4F 45 53 43 48 45 4E 0D 3B 20 53 |R = LOESCHEN.; S| 000002A0: 50 52 20 20 2D 20 53 50 52 49 54 45 0D 3B 20 41 |PR - SPRITE.; A| 000002B0: 44 52 20 20 2D 20 41 44 52 45 53 53 45 0D 3B 20 |DR - ADRESSE.; | 000002C0: 54 41 42 20 20 2D 20 54 41 42 45 4C 4C 45 0D 3B |TAB - TABELLE.;| 000002D0: 20 54 52 4B 20 20 2D 20 54 52 41 43 4B 0D 3B 20 | TRK - TRACK.; | 000002E0: 4E 52 20 20 20 2D 20 4E 55 4D 4D 45 52 0D 3B 20 |NR - NUMMER.; | 000002F0: 20 3F 20 20 20 2D 20 42 45 44 49 4E 47 55 4E 47 | ? - BEDINGUNG| 00000300: 45 4E 2F 41 42 46 52 41 47 45 4E 0D 3B 20 20 21 |EN/ABFRAGEN.; !| 00000310: 20 20 20 2D 20 42 45 46 45 48 4C 45 2F 41 4E 57 | - BEFEHLE/ANW| 00000320: 45 49 53 55 4E 47 45 4E 0D 3B 2D 2D 2D 2D 2D 2D |EISUNGEN.;------| 00000330: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000340: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000350: 2D 0D 0D 3B 2D 2D 2D 20 53 50 52 49 54 45 20 54 |-..;--- SPRITE T| 00000360: 41 42 45 4C 4C 45 4E 0D 0D 42 41 53 45 20 20 20 |ABELLEN..BASE | 00000370: 20 20 3D 20 24 34 30 30 30 0D 49 4E 49 54 54 42 | = $4000.INITTB| 00000380: 20 20 20 3D 20 42 41 53 45 0D 58 50 4F 53 20 20 | = BASE.XPOS | 00000390: 20 20 20 3D 20 42 41 53 45 2B 33 30 20 20 20 20 | = BASE+30 | 000003A0: 20 20 20 3B 50 4F 53 49 54 49 4F 4E 20 58 0D 59 | ;POSITION X.Y| 000003B0: 50 4F 53 20 20 20 20 20 3D 20 42 41 53 45 2B 36 |POS = BASE+6| 000003C0: 30 20 20 20 20 20 20 20 3B 20 20 20 22 20 20 20 |0 ; " | 000003D0: 20 20 59 0D 42 4C 4F 43 4B 20 20 20 20 3D 20 42 | Y.BLOCK = B| 000003E0: 41 53 45 2B 39 30 20 20 20 20 20 20 20 3B 42 4C |ASE+90 ;BL| 000003F0: 4F 43 4B 20 4E 52 0D 43 4F 4E 54 52 4F 4C 20 20 |OCK NR.CONTROL | 00000400: 3D 20 42 41 53 45 2B 31 32 30 20 20 20 20 20 20 |= BASE+120 | 00000410: 3B 4F 4E 2F 4D 53 42 2F 43 4F 4C 4F 52 0D 44 45 |;ON/MSB/COLOR.DE| 00000420: 4C 54 41 58 20 20 20 3D 20 42 41 53 45 2B 31 35 |LTAX = BASE+15| 00000430: 30 20 20 20 20 20 20 3B 42 45 57 45 47 55 4E 47 |0 ;BEWEGUNG| 00000440: 20 2D 58 2D 0D 44 45 4C 54 41 59 20 20 20 3D 20 | -X-.DELTAY = | 00000450: 42 41 53 45 2B 31 38 30 20 20 20 20 20 20 3B 20 |BASE+180 ; | 00000460: 20 20 22 20 20 20 20 20 2D 59 2D 0D 44 45 4C 41 | " -Y-.DELA| 00000470: 59 20 20 20 20 3D 20 42 41 53 45 2B 32 31 30 20 |Y = BASE+210 | 00000480: 20 20 20 20 20 3B 43 4F 55 4E 54 44 4F 57 4E 0D | ;COUNTDOWN.| 00000490: 53 49 4E 58 48 49 20 20 20 3D 20 42 41 53 45 2B |SINXHI = BASE+| 000004A0: 32 34 30 20 20 20 20 20 20 3B 53 49 4E 55 53 20 |240 ;SINUS | 000004B0: 2D 58 2D 0D 53 49 4E 58 4C 4F 20 20 20 3D 20 42 |-X-.SINXLO = B| 000004C0: 41 53 45 2B 32 37 30 0D 53 49 4E 58 31 20 20 20 |ASE+270.SINX1 | 000004D0: 20 3D 20 42 41 53 45 2B 33 30 30 0D 53 49 4E 58 | = BASE+300.SINX| 000004E0: 32 20 20 20 20 3D 20 42 41 53 45 2B 33 33 30 0D |2 = BASE+330.| 000004F0: 53 49 4E 58 33 20 20 20 20 3D 20 42 41 53 45 2B |SINX3 = BASE+| 00000500: 33 36 30 0D 53 49 4E 59 48 49 20 20 20 3D 20 42 |360.SINYHI = B| 00000510: 41 53 45 2B 33 39 30 20 20 20 20 20 20 3B 53 49 |ASE+390 ;SI| 00000520: 4E 55 53 20 2D 59 2D 0D 53 49 4E 59 4C 4F 20 20 |NUS -Y-.SINYLO | 00000530: 20 3D 20 42 41 53 45 2B 34 32 30 0D 53 49 4E 59 | = BASE+420.SINY| 00000540: 31 20 20 20 20 3D 20 42 41 53 45 2B 34 35 30 0D |1 = BASE+450.| 00000550: 53 49 4E 59 32 20 20 20 20 3D 20 42 41 53 45 2B |SINY2 = BASE+| 00000560: 34 38 30 0D 53 49 4E 59 33 20 20 20 20 3D 20 42 |480.SINY3 = B| 00000570: 41 53 45 2B 35 32 30 0D 41 4E 49 54 42 20 20 20 |ASE+520.ANITB | 00000580: 20 3D 20 42 41 53 45 2B 35 37 30 20 20 20 20 20 | = BASE+570 | 00000590: 20 3B 41 4E 49 4D 41 54 49 4F 4E 0D 41 4E 49 43 | ;ANIMATION.ANIC| 000005A0: 4F 20 20 20 20 3D 20 42 41 53 45 2B 36 30 30 0D |O = BASE+600.| 000005B0: 41 4E 49 54 43 4F 20 20 20 3D 20 42 41 53 45 2B |ANITCO = BASE+| 000005C0: 36 33 30 0D 53 50 45 43 4C 4F 20 20 20 3D 20 42 |630.SPECLO = B| 000005D0: 41 53 45 2B 36 36 30 20 20 20 20 20 20 3B 53 50 |ASE+660 ;SP| 000005E0: 45 43 49 41 4C 2D 50 52 47 53 0D 53 50 45 43 48 |ECIAL-PRGS.SPECH| 000005F0: 49 20 20 20 3D 20 42 41 53 45 2B 36 39 30 0D 54 |I = BASE+690.T| 00000600: 52 4B 4C 4F 20 20 20 20 3D 20 42 41 53 45 2B 37 |RKLO = BASE+7| 00000610: 32 30 20 20 20 20 20 20 3B 54 52 41 43 4B 20 43 |20 ;TRACK C| 00000620: 4F 55 4E 54 0D 54 52 4B 48 49 20 20 20 20 3D 20 |OUNT.TRKHI = | 00000630: 42 41 53 45 2B 37 35 30 0D 54 52 4B 50 4F 20 20 |BASE+750.TRKPO | 00000640: 20 20 3D 20 42 41 53 45 2B 37 38 30 0D 41 43 43 | = BASE+780.ACC| 00000650: 54 58 20 20 20 20 3D 20 42 41 53 45 2B 38 31 30 |TX = BASE+810| 00000660: 20 20 20 3B 42 45 53 43 48 4C 45 55 4E 49 47 55 | ;BESCHLEUNIGU| 00000670: 4E 47 2D 58 2D 0D 41 43 43 54 59 20 20 20 20 3D |NG-X-.ACCTY =| 00000680: 20 42 41 53 45 2B 38 34 30 20 20 20 3B 20 20 20 | BASE+840 ; | 00000690: 20 20 20 20 22 20 20 20 20 20 20 2D 59 2D 0D 41 | " -Y-.A| 000006A0: 43 43 54 31 20 20 20 20 3D 20 42 41 53 45 2B 38 |CCT1 = BASE+8| 000006B0: 37 30 20 20 20 3B 20 22 20 2D 5A 45 49 54 20 2D |70 ; " -ZEIT -| 000006C0: 58 2D 0D 41 43 43 54 32 20 20 20 20 3D 20 42 41 |X-.ACCT2 = BA| 000006D0: 53 45 2B 39 30 30 20 20 20 3B 20 22 20 20 20 22 |SE+900 ; " "| 000006E0: 20 20 20 2D 59 2D 0D 5A 57 49 53 43 48 20 20 20 | -Y-.ZWISCH | 000006F0: 3D 20 42 41 53 45 2B 39 33 30 20 20 20 20 20 20 |= BASE+930 | 00000700: 3B 42 45 45 4C 49 45 42 49 47 0D 5A 57 49 53 43 |;BEELIEBIG.ZWISC| 00000710: 48 32 20 20 3D 20 42 41 53 45 2B 39 36 30 20 20 |H2 = BASE+960 | 00000720: 20 20 20 20 3B 4E 55 54 5A 42 41 52 0D 5A 57 49 | ;NUTZBAR.ZWI| 00000730: 53 43 48 33 20 20 3D 20 42 41 53 45 2B 39 39 30 |SCH3 = BASE+990| 00000740: 20 20 20 20 20 20 3B 20 20 20 22 0D 5A 57 49 53 | ; ".ZWIS| 00000750: 43 48 34 20 20 3D 20 42 41 53 45 2B 31 30 32 30 |CH4 = BASE+1020| 00000760: 20 20 20 20 20 3B 20 20 20 22 0D 0D 58 50 4F 53 | ; "..XPOS| 00000770: 32 20 20 20 20 3D 20 42 41 53 45 2B 31 30 35 30 |2 = BASE+1050| 00000780: 20 20 20 20 20 3B 46 55 45 52 20 27 53 44 27 0D | ;FUER 'SD'.| 00000790: 59 50 4F 53 32 20 20 20 20 3D 20 42 41 53 45 2B |YPOS2 = BASE+| 000007A0: 31 30 38 30 20 20 20 20 20 3B 4E 4F 54 57 45 4E |1080 ;NOTWEN| 000007B0: 44 49 47 45 0D 43 4F 4E 54 52 4F 4C 32 20 3D 20 |DIGE.CONTROL2 = | 000007C0: 42 41 53 45 2B 31 31 31 30 20 20 20 20 20 3B 5A |BASE+1110 ;Z| 000007D0: 57 49 53 43 48 45 4E 20 54 41 42 53 0D 42 4C 4F |WISCHEN TABS.BLO| 000007E0: 43 4B 32 20 20 20 3D 20 42 41 53 45 2B 31 31 34 |CK2 = BASE+114| 000007F0: 30 0D 0D 59 54 41 42 20 20 20 20 20 3D 20 42 41 |0..YTAB = BA| 00000800: 53 45 2B 24 30 35 30 30 20 20 20 20 3B 53 4F 52 |SE+$0500 ;SOR| 00000810: 54 49 45 52 20 54 41 42 20 31 0D 53 52 54 41 42 |TIER TAB 1.SRTAB| 00000820: 20 20 20 20 3D 20 59 54 41 42 2B 31 30 30 20 20 | = YTAB+100 | 00000830: 20 20 20 20 3B 20 20 20 22 20 20 20 20 20 22 20 | ; " " | 00000840: 20 32 0D 53 52 54 41 42 32 20 20 20 3D 20 59 54 | 2.SRTAB2 = YT| 00000850: 41 42 2B 31 33 30 20 20 20 20 20 20 3B 20 5A 57 |AB+130 ; ZW| 00000860: 2E 53 50 2E 20 27 53 44 27 0D 53 50 46 52 45 45 |.SP. 'SD'.SPFREE| 00000870: 20 20 20 3D 20 59 54 41 42 2B 31 36 30 20 20 20 | = YTAB+160 | 00000880: 20 20 20 3B 53 4F 52 54 49 45 52 20 54 41 42 20 | ;SORTIER TAB | 00000890: 33 0D 0D 0D 0D 3B 2D 2D 2D 20 5A 45 52 4F 50 41 |3....;--- ZEROPA| 000008A0: 47 45 20 41 44 52 45 53 53 45 4E 0D 0D 41 44 52 |GE ADRESSEN..ADR| 000008B0: 20 20 20 20 20 20 3D 20 24 30 32 0D 4D 41 44 52 | = $02.MADR| 000008C0: 20 20 20 20 20 3D 20 24 30 34 0D 4D 52 45 20 20 | = $04.MRE | 000008D0: 20 20 20 20 3D 20 24 30 36 0D 0D 58 57 45 52 54 | = $06..XWERT| 000008E0: 20 20 20 20 3D 20 24 30 38 0D 59 57 45 52 54 20 | = $08.YWERT | 000008F0: 20 20 20 3D 20 24 30 39 0D 43 4E 54 52 20 20 20 | = $09.CNTR | 00000900: 20 20 3D 20 24 30 41 0D 49 52 45 47 20 20 20 20 | = $0A.IREG | 00000910: 20 3D 20 24 30 42 0D 46 53 50 52 20 20 20 20 20 | = $0B.FSPR | 00000920: 3D 20 24 30 43 0D 53 50 52 20 20 20 20 20 20 3D |= $0C.SPR =| 00000930: 20 24 30 44 0D 53 50 52 32 20 20 20 20 20 3D 20 | $0D.SPR2 = | 00000940: 24 30 45 0D 53 50 52 33 20 20 20 20 20 3D 20 24 |$0E.SPR3 = $| 00000950: 30 46 0D 5A 57 52 20 20 20 20 20 20 3D 20 24 31 |0F.ZWR = $1| 00000960: 30 0D 5A 57 52 32 20 20 20 20 20 3D 20 24 31 31 |0.ZWR2 = $11| 00000970: 0D 4D 5A 57 52 20 20 20 20 20 3D 20 24 31 32 0D |.MZWR = $12.| 00000980: 4D 5A 57 52 32 20 20 20 20 3D 20 24 31 33 0D 42 |MZWR2 = $13.B| 00000990: 59 20 20 20 20 20 20 20 3D 20 24 31 34 0D 4D 59 |Y = $14.MY| 000009A0: 20 20 20 20 20 20 20 3D 20 24 31 35 0D 53 59 20 | = $15.SY | 000009B0: 20 20 20 20 20 20 3D 20 24 31 36 0D 54 49 4D 45 | = $16.TIME| 000009C0: 20 20 20 20 20 3D 20 24 31 37 20 20 20 20 20 20 | = $17 | 000009D0: 20 20 20 20 20 3B 27 55 48 52 27 0D 0D 53 50 52 | ;'UHR'..SPR| 000009E0: 32 31 20 20 20 20 3D 20 24 31 41 0D 53 50 52 33 |21 = $1A.SPR3| 000009F0: 31 20 20 20 20 3D 20 24 31 42 0D 0D 0D 0D 3B 2D |1 = $1B....;-| 00000A00: 2D 2D 20 4D 41 4B 52 4F 53 0D 0D 53 45 54 49 52 |-- MAKROS..SETIR| 00000A10: 51 20 20 20 2E 4D 41 43 52 4F 20 20 20 20 20 20 |Q .MACRO | 00000A20: 20 20 20 20 3B 53 45 54 5A 54 20 49 52 51 0D 20 | ;SETZT IRQ. | 00000A30: 20 20 20 20 20 20 20 20 4C 44 41 20 23 3C 5C 31 | LDA #<\1| 00000A40: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 46 |. STA $F| 00000A50: 46 46 45 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |FFE. LDA| 00000A60: 20 23 3E 5C 31 0D 20 20 20 20 20 20 20 20 20 53 | #>\1. S| 00000A70: 54 41 20 24 46 46 46 46 0D 20 20 20 20 20 20 20 |TA $FFFF. | 00000A80: 20 20 2E 45 4E 44 4D 0D 0D 46 52 45 45 20 20 20 | .ENDM..FREE | 00000A90: 20 20 2E 4D 41 43 52 4F 20 20 20 20 20 20 20 20 | .MACRO | 00000AA0: 20 20 3B 47 49 42 54 20 49 52 51 20 46 52 45 49 | ;GIBT IRQ FREI| 00000AB0: 0D 20 20 20 20 20 20 20 20 20 41 53 4C 20 24 44 |. ASL $D| 00000AC0: 30 31 39 0D 20 20 20 20 20 20 20 20 20 43 4C 49 |019. CLI| 00000AD0: 0D 20 20 20 20 20 20 20 20 20 2E 45 4E 44 4D 0D |. .ENDM.| 00000AE0: 0D 0D 3B 2D 2D 2D 20 4D 41 49 4E 20 50 41 52 54 |..;--- MAIN PART| 00000AF0: 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 2A 3D 20 |.... *= | 00000B00: 24 30 38 31 30 0D 0D 20 20 20 20 20 20 20 20 20 |$0810.. | 00000B10: 4A 4D 50 20 49 4E 49 54 20 20 20 20 20 20 20 20 |JMP INIT | 00000B20: 3B 53 2E 55 2E 0D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D |;S.U....;-------| 00000B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B50: 0D 3B 2A 20 41 43 48 54 55 4E 47 20 21 20 44 49 |.;* ACHTUNG ! DI| 00000B60: 45 20 46 4F 4C 47 45 4E 44 45 20 52 4F 55 54 49 |E FOLGENDE ROUTI| 00000B70: 4E 45 20 57 49 52 44 0D 3B 20 20 56 4F 4E 20 44 |NE WIRD.; VON D| 00000B80: 45 4E 20 49 52 51 2D 50 52 4F 47 52 41 4D 4D 45 |EN IRQ-PROGRAMME| 00000B90: 4E 20 46 49 52 53 54 20 26 20 4E 45 58 54 0D 3B |N FIRST & NEXT.;| 00000BA0: 20 20 41 4E 47 45 53 50 52 55 4E 47 45 4E 20 21 | ANGESPRUNGEN !| 00000BB0: 20 53 49 45 20 53 54 45 48 54 20 48 49 45 52 20 | SIE STEHT HIER | 00000BC0: 56 4F 52 4E 2C 0D 3B 20 20 44 41 4D 49 54 20 53 |VORN,.; DAMIT S| 00000BD0: 49 45 20 45 49 4E 49 47 45 20 54 41 4B 54 5A 59 |IE EINIGE TAKTZY| 00000BE0: 4B 4C 45 4E 20 53 43 48 4E 45 4C 4C 45 52 0D 3B |KLEN SCHNELLER.;| 00000BF0: 20 20 28 42 52 41 4E 43 48 45 53 20 4E 55 52 20 | (BRANCHES NUR | 00000C00: 49 4E 20 47 4C 45 49 43 48 45 20 50 41 47 45 20 |IN GLEICHE PAGE | 00000C10: 55 53 57 2E 2E 2E 29 0D 3B 2D 2D 2D 2D 2D 2D 2D |USW...).;-------| 00000C20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000C40: 0D 0D 53 45 54 20 20 20 20 20 20 44 45 43 20 53 |..SET DEC S| 00000C50: 50 52 32 31 20 20 20 20 20 20 20 3B 42 52 49 4E |PR21 ;BRIN| 00000C60: 47 54 20 44 49 45 0D 20 20 20 20 20 20 20 20 20 |GT DIE. | 00000C70: 42 4D 49 20 53 54 33 20 20 20 20 20 20 20 20 20 |BMI ST3 | 00000C80: 3B 53 50 52 53 20 41 55 46 0D 20 20 20 20 20 20 |;SPRS AUF. | 00000C90: 20 20 20 4C 44 58 20 53 50 52 32 31 20 20 20 20 | LDX SPR21 | 00000CA0: 20 20 20 3B 44 45 4E 20 53 43 52 45 45 4E 20 2E | ;DEN SCREEN .| 00000CB0: 2E 2E 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 |... LDY | 00000CC0: 53 52 54 41 42 32 2C 58 0D 20 20 20 20 20 20 20 |SRTAB2,X. | 00000CD0: 20 20 4C 44 41 20 43 4F 4E 54 52 4F 4C 32 2C 59 | LDA CONTROL2,Y| 00000CE0: 20 20 3B 46 41 52 42 45 0D 20 20 20 20 20 20 20 | ;FARBE. | 00000CF0: 20 20 42 50 4C 20 53 45 54 20 20 20 20 20 20 20 | BPL SET | 00000D00: 20 20 3B 4E 4F 43 48 20 41 4E 20 3F 21 3F 21 0D | ;NOCH AN ?!?!.| 00000D10: 20 20 20 20 20 20 20 20 20 4C 44 58 20 53 50 52 | LDX SPR| 00000D20: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 00000D30: 30 32 37 2C 58 0D 20 20 20 20 20 20 20 20 20 41 |027,X. A| 00000D40: 53 4C 20 41 20 20 20 20 20 20 20 20 20 20 20 3B |SL A ;| 00000D50: 4D 53 42 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 |MSB HOLEN. | 00000D60: 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 | ASL A. | 00000D70: 20 20 4C 44 41 20 24 44 30 31 30 0D 20 20 20 20 | LDA $D010. | 00000D80: 20 20 20 20 20 41 4E 44 20 54 41 42 42 2C 58 0D | AND TABB,X.| 00000D90: 20 20 20 20 20 20 20 20 20 42 43 43 20 53 54 31 | BCC ST1| 00000DA0: 30 20 20 20 20 20 20 20 20 3B 4D 53 42 20 2D 20 |0 ;MSB - | 00000DB0: 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 |SETZEN. | 00000DC0: 4F 52 41 20 54 41 42 43 2C 58 0D 53 54 31 30 20 |ORA TABC,X.ST10 | 00000DD0: 20 20 20 20 53 54 41 20 24 44 30 31 30 0D 0D 20 | STA $D010.. | 00000DE0: 20 20 20 20 20 20 20 20 4C 44 41 20 42 4C 4F 43 | LDA BLOC| 00000DF0: 4B 32 2C 59 20 20 20 20 3B 42 4C 4F 43 4B 2D 4E |K2,Y ;BLOCK-N| 00000E00: 55 4D 4D 45 52 0D 53 54 34 20 20 20 20 20 20 53 |UMMER.ST4 S| 00000E10: 54 41 20 24 30 37 46 38 2C 58 0D 20 20 20 20 20 |TA $07F8,X. | 00000E20: 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 | TXA. | 00000E30: 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ASL A. | 00000E40: 54 41 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |TAX. LDA| 00000E50: 20 58 50 4F 53 32 2C 59 20 20 20 20 20 3B 58 2D | XPOS2,Y ;X-| 00000E60: 50 4F 53 49 54 49 4F 4E 0D 20 20 20 20 20 20 20 |POSITION. | 00000E70: 20 20 53 54 41 20 24 44 30 30 30 2C 58 0D 20 20 | STA $D000,X. | 00000E80: 20 20 20 20 20 20 20 4C 44 41 20 59 50 4F 53 32 | LDA YPOS2| 00000E90: 2C 59 20 20 20 20 20 3B 59 2D 50 4F 53 49 54 49 |,Y ;Y-POSITI| 00000EA0: 4F 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |ON. STA | 00000EB0: 24 44 30 30 31 2C 58 0D 0D 20 20 20 20 20 20 20 |$D001,X.. | 00000EC0: 20 20 4C 44 41 20 53 50 52 20 20 20 20 20 20 20 | LDA SPR | 00000ED0: 20 20 3B 4E 45 58 54 20 53 50 52 0D 20 20 20 20 | ;NEXT SPR. | 00000EE0: 20 20 20 20 20 41 44 43 20 23 24 30 31 0D 20 20 | ADC #$01. | 00000EF0: 20 20 20 20 20 20 20 41 4E 44 20 23 24 30 37 0D | AND #$07.| 00000F00: 20 20 20 20 20 20 20 20 20 53 54 41 20 53 50 52 | STA SPR| 00000F10: 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 54 |. RTS..T| 00000F20: 41 42 42 20 20 20 20 20 2E 42 59 54 45 20 24 46 |ABB .BYTE $F| 00000F30: 45 2C 24 46 44 2C 24 46 42 2C 24 46 37 0D 20 20 |E,$FD,$FB,$F7. | 00000F40: 20 20 20 20 20 20 20 2E 42 59 54 45 20 24 45 46 | .BYTE $EF| 00000F50: 2C 24 44 46 2C 24 42 46 2C 24 37 46 0D 54 41 42 |,$DF,$BF,$7F.TAB| 00000F60: 43 20 20 20 20 20 2E 42 59 54 45 20 24 30 31 2C |C .BYTE $01,| 00000F70: 24 30 32 2C 24 30 34 2C 24 30 38 0D 20 20 20 20 |$02,$04,$08. | 00000F80: 20 20 20 20 20 2E 42 59 54 45 20 24 31 30 2C 24 | .BYTE $10,$| 00000F90: 32 30 2C 24 34 30 2C 24 38 30 0D 0D 53 54 33 20 |20,$40,$80..ST3 | 00000FA0: 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 | PLA | 00000FB0: 20 20 20 20 20 3B 4B 45 49 4E 45 20 53 50 52 53 | ;KEINE SPRS| 00000FC0: 0D 20 20 20 20 20 20 20 20 20 50 4C 41 20 20 20 |. PLA | 00000FD0: 20 20 20 20 20 20 20 20 20 20 3B 4D 45 48 52 0D | ;MEHR.| 00000FE0: 20 20 20 20 20 20 20 20 20 23 53 45 54 49 52 51 | #SETIRQ| 00000FF0: 20 28 46 49 52 53 54 29 20 3B 49 52 51 20 41 4E | (FIRST) ;IRQ AN| 00001000: 20 44 45 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 | DEN. LD| 00001010: 41 20 24 44 30 31 31 20 20 20 20 20 20 20 3B 20 |A $D011 ; | 00001020: 41 4E 46 41 4E 47 0D 20 20 20 20 20 20 20 20 20 |ANFANG. | 00001030: 41 4E 44 20 23 24 37 46 20 20 20 20 20 20 20 20 |AND #$7F | 00001040: 3B 52 41 53 54 45 52 0D 20 20 20 20 20 20 20 20 |;RASTER. | 00001050: 20 53 54 41 20 24 44 30 31 31 20 20 20 20 20 20 | STA $D011 | 00001060: 20 3B 20 52 45 46 52 45 53 48 0D 20 20 20 20 20 | ; REFRESH. | 00001070: 20 20 20 20 4C 44 41 20 23 31 30 0D 20 20 20 20 | LDA #10. | 00001080: 20 20 20 20 20 53 54 41 20 24 44 30 31 32 0D 20 | STA $D012. | 00001090: 20 20 20 20 20 20 20 20 4C 44 41 20 53 50 52 33 | LDA SPR3| 000010A0: 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |1. CMP #| 000010B0: 24 30 38 20 20 20 20 20 20 20 20 3B 5A 55 52 55 |$08 ;ZURU| 000010C0: 45 43 4B 20 4E 41 43 48 3A 0D 20 20 20 20 20 20 |ECK NACH:. | 000010D0: 20 20 20 42 43 53 20 53 54 33 31 0D 20 20 20 20 | BCS ST31. | 000010E0: 20 20 20 20 20 4A 4D 50 20 46 33 20 20 20 20 20 | JMP F3 | 000010F0: 20 20 20 20 20 3B 46 49 52 53 54 20 3F 21 3F 0D | ;FIRST ?!?.| 00001100: 53 54 33 31 20 20 20 20 20 4A 4D 50 20 4E 33 20 |ST31 JMP N3 | 00001110: 20 20 20 20 20 20 20 20 20 3B 4F 44 45 52 20 4E | ;ODER N| 00001120: 45 58 54 20 3F 3F 0D 0D 0D 0D 0D 3B 2D 2D 2D 2D |EXT ??.....;----| 00001130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001150: 2D 2D 2D 0D 3B 2A 20 45 49 47 45 4E 54 4C 49 43 |---.;* EIGENTLIC| 00001160: 48 45 52 20 50 52 4F 47 52 41 4D 4D 20 42 45 47 |HER PROGRAMM BEG| 00001170: 49 4E 4E 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |INN.;-----------| 00001180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 49 4E |------------..IN| 000011A0: 49 54 20 20 20 20 20 53 45 49 0D 20 20 20 20 20 |IT SEI. | 000011B0: 20 20 20 20 4C 44 41 20 23 24 30 35 20 20 20 20 | LDA #$05 | 000011C0: 20 20 20 20 20 20 3B 52 4F 4D 20 41 55 53 0D 20 | ;ROM AUS. | 000011D0: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 31 0D | STA $01.| 000011E0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 | LDA #$0| 000011F0: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |0. STA $| 00001200: 44 30 32 30 20 20 20 20 20 20 20 20 20 3B 42 41 |D020 ;BA| 00001210: 43 4B 47 52 4F 55 4E 44 0D 20 20 20 20 20 20 20 |CKGROUND. | 00001220: 20 20 53 54 41 20 24 44 30 32 31 20 20 20 20 20 | STA $D021 | 00001230: 20 20 20 20 3B 20 43 4F 4C 4F 52 53 0D 20 20 20 | ; COLORS. | 00001240: 20 20 20 20 20 20 53 54 41 20 24 44 43 30 45 20 | STA $DC0E | 00001250: 20 20 20 20 20 20 20 20 3B 5A 45 49 54 20 49 52 | ;ZEIT IR| 00001260: 51 53 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |QS. STA | 00001270: 24 44 43 30 44 20 20 20 20 20 20 20 20 20 3B 53 |$DC0D ;S| 00001280: 50 45 52 52 45 4E 0D 0D 20 20 20 20 20 20 20 20 |PERREN.. | 00001290: 20 54 41 58 0D 49 49 31 20 20 20 20 20 20 4C 44 | TAX.II1 LD| 000012A0: 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 |A #$00. | 000012B0: 53 54 41 20 42 41 53 45 2C 58 20 20 20 20 20 20 |STA BASE,X | 000012C0: 20 20 3B 52 45 47 49 53 54 45 52 0D 20 20 20 20 | ;REGISTER. | 000012D0: 20 20 20 20 20 53 54 41 20 42 41 53 45 2B 24 30 | STA BASE+$0| 000012E0: 31 30 30 2C 58 20 20 3B 5A 55 52 55 45 43 4B 2D |100,X ;ZURUECK-| 000012F0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 42 41 |. STA BA| 00001300: 53 45 2B 24 30 32 30 30 2C 58 20 20 3B 20 53 45 |SE+$0200,X ; SE| 00001310: 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 |TZEN. ST| 00001320: 41 20 42 41 53 45 2B 24 30 33 30 30 2C 58 0D 20 |A BASE+$0300,X. | 00001330: 20 20 20 20 20 20 20 20 53 54 41 20 42 41 53 45 | STA BASE| 00001340: 2B 24 30 34 30 30 2C 58 0D 20 20 20 20 20 20 20 |+$0400,X. | 00001350: 20 20 53 54 41 20 42 41 53 45 2B 24 30 35 30 30 | STA BASE+$0500| 00001360: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 00001370: 23 24 32 30 0D 20 20 20 20 20 20 20 20 20 53 54 |#$20. ST| 00001380: 41 20 24 30 34 30 30 2C 58 20 20 20 20 20 20 20 |A $0400,X | 00001390: 3B 42 49 4C 44 53 43 48 49 52 4D 0D 20 20 20 20 |;BILDSCHIRM. | 000013A0: 20 20 20 20 20 53 54 41 20 24 30 35 30 30 2C 58 | STA $0500,X| 000013B0: 20 20 20 20 20 20 20 3B 43 4C 52 20 21 0D 20 20 | ;CLR !. | 000013C0: 20 20 20 20 20 20 20 53 54 41 20 24 30 36 30 30 | STA $0600| 000013D0: 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |,X. STA | 000013E0: 24 30 37 30 30 2C 58 0D 20 20 20 20 20 20 20 20 |$0700,X. | 000013F0: 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 42 4E | DEX. BN| 00001400: 45 20 49 49 31 0D 0D 20 20 20 20 20 20 20 20 20 |E II1.. | 00001410: 4C 44 58 20 23 33 30 20 20 20 20 20 20 20 20 20 |LDX #30 | 00001420: 20 20 3B 44 49 54 4F 0D 20 20 20 20 20 20 20 20 | ;DITO. | 00001430: 20 4C 44 41 20 23 24 30 30 0D 49 49 32 20 20 20 | LDA #$00.II2 | 00001440: 20 20 20 53 54 41 20 24 30 32 2C 58 20 20 20 20 | STA $02,X | 00001450: 20 20 20 20 20 3B 5A 45 52 4F 50 41 47 45 0D 20 | ;ZEROPAGE. | 00001460: 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 | DEX. | 00001470: 20 20 20 20 20 42 50 4C 20 49 49 32 0D 0D 20 20 | BPL II2.. | 00001480: 20 20 20 20 20 20 20 4C 44 41 20 23 24 46 46 20 | LDA #$FF | 00001490: 20 20 20 20 20 20 20 20 20 3B 4D 55 4C 54 49 43 | ;MULTIC| 000014A0: 4F 4C 4F 52 0D 20 20 20 20 20 20 20 20 20 53 54 |OLOR. ST| 000014B0: 41 20 24 44 30 31 43 20 20 20 20 20 20 20 20 20 |A $D01C | 000014C0: 3B 4F 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |;ON. LDA| 000014D0: 20 23 24 30 36 20 20 20 20 20 20 20 20 20 20 3B | #$06 ;| 000014E0: 53 50 52 0D 20 20 20 20 20 20 20 20 20 53 54 41 |SPR. STA| 000014F0: 20 24 44 30 32 35 20 20 20 20 20 20 20 20 20 3B | $D025 ;| 00001500: 20 46 41 52 42 45 4E 0D 20 20 20 20 20 20 20 20 | FARBEN. | 00001510: 20 4C 44 41 20 23 24 30 31 20 20 20 20 20 20 20 | LDA #$01 | 00001520: 20 20 20 3B 53 45 54 5A 45 4E 0D 20 20 20 20 20 | ;SETZEN. | 00001530: 20 20 20 20 53 54 41 20 24 44 30 32 36 0D 0D 53 | STA $D026..S| 00001540: 54 41 52 54 20 20 20 20 4C 44 41 20 23 3C 4E 4D |TART LDA #<NM| 00001550: 49 20 20 20 20 20 20 20 20 20 3B 4E 4D 49 53 0D |I ;NMIS.| 00001560: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 3E 4E | LDX #>N| 00001570: 4D 49 20 20 20 20 20 20 20 20 20 3B 41 55 46 46 |MI ;AUFF| 00001580: 41 4E 47 45 4E 0D 20 20 20 20 20 20 20 20 20 53 |ANGEN. S| 00001590: 54 41 20 24 46 46 46 41 0D 20 20 20 20 20 20 20 |TA $FFFA. | 000015A0: 20 20 53 54 58 20 24 46 46 46 42 0D 20 20 20 20 | STX $FFFB. | 000015B0: 20 20 20 20 20 23 53 45 54 49 52 51 20 28 46 49 | #SETIRQ (FI| 000015C0: 52 53 54 29 20 20 20 3B 52 41 53 54 45 52 2D 49 |RST) ;RASTER-I| 000015D0: 52 51 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |RQ. LDA | 000015E0: 24 44 30 31 31 20 20 20 20 20 20 20 20 20 3B 20 |$D011 ; | 000015F0: 20 49 4E 49 54 2E 2E 2E 0D 20 20 20 20 20 20 20 | INIT.... | 00001600: 20 20 41 4E 44 20 23 24 37 46 20 20 20 20 20 20 | AND #$7F | 00001610: 20 20 20 20 3B 52 41 53 54 45 52 20 4D 53 42 0D | ;RASTER MSB.| 00001620: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00001630: 31 31 20 20 20 20 20 20 20 20 20 3B 43 4C 52 0D |11 ;CLR.| 00001640: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 32 30 | LDA #20| 00001650: 20 20 20 20 20 20 20 20 20 20 20 3B 52 41 53 54 | ;RAST| 00001660: 45 52 5A 45 49 4C 45 0D 20 20 20 20 20 20 20 20 |ERZEILE. | 00001670: 20 53 54 41 20 24 44 30 31 32 20 20 20 20 20 20 | STA $D012 | 00001680: 20 20 20 3B 53 45 54 5A 45 4E 0D 20 20 20 20 20 | ;SETZEN. | 00001690: 20 20 20 20 4C 44 41 20 23 24 38 31 20 20 20 20 | LDA #$81 | 000016A0: 20 20 20 20 20 20 3B 52 41 53 54 45 52 49 52 51 | ;RASTERIRQ| 000016B0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 |. STA $D| 000016C0: 30 31 41 20 20 20 20 20 20 20 20 20 3B 20 4D 41 |01A ; MA| 000016D0: 53 4B 49 45 52 45 4E 0D 20 20 20 20 20 20 20 20 |SKIEREN. | 000016E0: 20 43 4C 49 20 20 20 20 20 20 20 20 20 20 20 20 | CLI | 000016F0: 20 20 20 3B 46 52 45 49 47 41 42 45 0D 0D 57 41 | ;FREIGABE..WA| 00001700: 49 54 20 20 20 20 20 4A 53 52 20 4D 49 4E 49 54 |IT JSR MINIT| 00001710: 20 20 20 20 3B 53 50 52 20 49 4E 49 54 0D 20 20 | ;SPR INIT. | 00001720: 20 20 20 20 20 20 20 4A 53 52 20 54 49 4D 45 52 | JSR TIMER| 00001730: 20 20 20 20 3B 48 49 45 52 20 50 4C 41 54 5A 20 | ;HIER PLATZ | 00001740: 46 55 45 52 0D 20 20 20 20 20 20 20 20 20 4A 4D |FUER. JM| 00001750: 50 20 57 41 49 54 20 20 20 20 20 3B 43 48 45 43 |P WAIT ;CHEC| 00001760: 4B 2D 52 4F 55 54 49 4E 45 4E 0D 20 20 20 20 20 |K-ROUTINEN. | 00001770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001780: 20 3B 54 49 4D 45 52 2D 52 4F 55 54 49 4E 45 4E | ;TIMER-ROUTINEN| 00001790: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000017A0: 20 20 20 20 20 20 20 3B 55 53 57 2E 20 41 55 53 | ;USW. AUS| 000017B0: 53 45 52 48 41 4C 42 0D 20 20 20 20 20 20 20 20 |SERHALB. | 000017C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 44 | ;D| 000017D0: 45 53 20 49 52 51 20 21 0D 0D 0D 0D 3B 2D 2D 2D |ES IRQ !....;---| 000017E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000017F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001800: 2D 2D 2D 2D 0D 3B 2A 20 53 54 45 4C 4C 54 20 44 |----.;* STELLT D| 00001810: 49 45 20 45 52 53 54 45 4E 20 41 43 48 54 20 53 |IE ERSTEN ACHT S| 00001820: 50 52 49 54 45 53 20 44 41 52 0D 3B 2D 2D 2D 2D |PRITES DAR.;----| 00001830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001850: 2D 2D 2D 0D 0D 46 49 52 53 54 20 20 20 20 53 54 |---..FIRST ST| 00001860: 41 20 41 31 2B 31 20 20 20 20 20 3B 52 45 47 49 |A A1+1 ;REGI| 00001870: 53 54 45 52 0D 20 20 20 20 20 20 20 20 20 53 54 |STER. ST| 00001880: 58 20 58 31 2B 31 20 20 20 20 20 3B 20 52 45 54 |X X1+1 ; RET| 00001890: 54 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 59 |TEN. STY| 000018A0: 20 59 31 2B 31 0D 0D 20 20 20 20 20 20 20 20 20 | Y1+1.. | 000018B0: 49 4E 43 20 42 59 20 20 20 20 20 20 20 3B 5A 45 |INC BY ;ZE| 000018C0: 49 54 54 41 4B 54 0D 20 20 20 20 20 20 20 20 20 |ITTAKT. | 000018D0: 4C 44 41 20 42 59 0D 20 20 20 20 20 20 20 20 20 |LDA BY. | 000018E0: 41 4E 44 20 23 24 33 46 20 20 20 20 20 3B 43 49 |AND #$3F ;CI| 000018F0: 52 43 41 20 4A 45 44 45 4E 0D 20 20 20 20 20 20 |RCA JEDEN. | 00001900: 20 20 20 42 4E 45 20 49 31 20 20 20 20 20 20 20 | BNE I1 | 00001910: 3B 20 36 34 2E 20 53 43 52 45 45 4E 0D 20 20 20 |; 64. SCREEN. | 00001920: 20 20 20 20 20 20 4C 44 41 20 54 49 4D 45 20 20 | LDA TIME | 00001930: 20 20 20 3B 20 45 49 4E 4D 41 4C 0D 20 20 20 20 | ; EINMAL. | 00001940: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 00001950: 20 20 3B 20 54 49 4D 45 2D 43 4F 55 4E 54 45 52 | ; TIME-COUNTER| 00001960: 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 31 |. ADC #1| 00001970: 20 20 20 20 20 20 20 3B 20 45 52 48 4F 45 48 45 | ; ERHOEHE| 00001980: 4E 20 21 0D 20 20 20 20 20 20 20 20 20 53 54 41 |N !. STA| 00001990: 20 54 49 4D 45 0D 20 20 20 20 20 20 20 20 20 42 | TIME. B| 000019A0: 43 43 20 49 31 0D 20 20 20 20 20 20 20 20 20 49 |CC I1. I| 000019B0: 4E 43 20 54 49 4D 45 2B 31 0D 49 31 0D 20 20 20 |NC TIME+1.I1. | 000019C0: 20 20 20 20 20 20 4C 44 41 20 53 50 52 32 20 20 | LDA SPR2 | 000019D0: 20 20 20 20 20 3B 48 49 45 52 20 57 45 52 44 45 | ;HIER WERDE| 000019E0: 4E 20 44 49 45 0D 20 20 20 20 20 20 20 20 20 53 |N DIE. S| 000019F0: 54 41 20 53 50 52 32 31 20 20 20 20 20 20 3B 56 |TA SPR21 ;V| 00001A00: 4F 4E 20 44 45 52 20 27 53 52 27 0D 20 20 20 20 |ON DER 'SR'. | 00001A10: 20 20 20 20 20 4C 44 41 20 53 50 52 33 20 20 20 | LDA SPR3 | 00001A20: 20 20 20 20 3B 42 45 41 52 42 45 49 54 45 54 45 | ;BEARBEITETE| 00001A30: 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 53 |N. STA S| 00001A40: 50 52 33 31 20 20 20 20 20 20 3B 52 45 47 49 53 |PR31 ;REGIS| 00001A50: 54 45 52 20 49 4E 0D 20 20 20 20 20 20 20 20 20 |TER IN. | 00001A60: 4C 44 58 20 23 33 30 20 20 20 20 20 20 20 20 3B |LDX #30 ;| 00001A70: 44 49 45 20 46 55 45 52 20 27 53 44 27 0D 49 4E |DIE FUER 'SD'.IN| 00001A80: 32 20 20 20 20 20 20 4C 44 41 20 58 50 4F 53 2C |2 LDA XPOS,| 00001A90: 58 20 20 20 20 20 3B 4E 4F 54 57 45 4E 44 49 47 |X ;NOTWENDIG| 00001AA0: 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |EN. STA | 00001AB0: 58 50 4F 53 32 2C 58 20 20 20 20 3B 43 4F 50 49 |XPOS2,X ;COPI| 00001AC0: 45 52 54 2E 0D 20 20 20 20 20 20 20 20 20 4C 44 |ERT.. LD| 00001AD0: 41 20 59 50 4F 53 2C 58 0D 20 20 20 20 20 20 20 |A YPOS,X. | 00001AE0: 20 20 53 54 41 20 59 50 4F 53 32 2C 58 20 20 20 | STA YPOS2,X | 00001AF0: 20 3B 44 41 44 55 52 43 48 20 4B 41 4E 4E 0D 20 | ;DADURCH KANN. | 00001B00: 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4E 54 | LDA CONT| 00001B10: 52 4F 4C 2C 58 20 20 3B 44 49 45 20 42 45 52 45 |ROL,X ;DIE BERE| 00001B20: 43 48 4E 55 4E 47 0D 20 20 20 20 20 20 20 20 20 |CHNUNG. | 00001B30: 53 54 41 20 43 4F 4E 54 52 4F 4C 32 2C 58 20 3B |STA CONTROL2,X ;| 00001B40: 27 53 52 27 20 28 46 55 45 52 20 44 45 4E 0D 20 |'SR' (FUER DEN. | 00001B50: 20 20 20 20 20 20 20 20 4C 44 41 20 42 4C 4F 43 | LDA BLOC| 00001B60: 4B 2C 58 20 20 20 20 3B 4E 41 45 43 48 53 54 45 |K,X ;NAECHSTE| 00001B70: 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 42 |N. STA B| 00001B80: 4C 4F 43 4B 32 2C 58 20 20 20 3B 44 55 52 43 48 |LOCK2,X ;DURCH| 00001B90: 4C 41 55 46 29 0D 20 20 20 20 20 20 20 20 20 4C |LAUF). L| 00001BA0: 44 41 20 53 52 54 41 42 2C 58 20 20 20 20 3B 50 |DA SRTAB,X ;P| 00001BB0: 41 52 41 4C 4C 45 4C 20 4D 49 54 0D 20 20 20 20 |ARALLEL MIT. | 00001BC0: 20 20 20 20 20 53 54 41 20 53 52 54 41 42 32 2C | STA SRTAB2,| 00001BD0: 58 20 20 20 3B 27 53 44 27 20 41 42 4C 41 55 46 |X ;'SD' ABLAUF| 00001BE0: 45 4E 2C 0D 20 20 20 20 20 20 20 20 20 44 45 58 |EN,. DEX| 00001BF0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 4F 48 4E | ;OHN| 00001C00: 45 20 44 41 53 53 20 42 45 49 44 45 0D 20 20 20 |E DASS BEIDE. | 00001C10: 20 20 20 20 20 20 42 50 4C 20 49 4E 32 20 20 20 | BPL IN2 | 00001C20: 20 20 20 20 20 3B 53 49 43 48 20 53 54 4F 45 52 | ;SICH STOER| 00001C30: 45 4E 20 21 0D 0D 20 20 20 20 20 20 20 20 20 4C |EN !.. L| 00001C40: 44 41 20 23 24 30 30 20 20 20 20 20 20 20 3B 53 |DA #$00 ;S| 00001C50: 50 52 20 45 49 4E 21 0D 20 20 20 20 20 20 20 20 |PR EIN!. | 00001C60: 20 53 54 41 20 53 50 52 0D 20 20 20 20 20 20 20 | STA SPR. | 00001C70: 20 20 4C 44 58 20 53 50 52 33 31 0D 46 35 20 20 | LDX SPR31.F5 | 00001C80: 20 20 20 20 20 43 50 58 20 23 24 30 39 20 20 20 | CPX #$09 | 00001C90: 20 20 20 20 3B 4D 45 48 52 20 41 4C 53 20 38 20 | ;MEHR ALS 8 | 00001CA0: 3F 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 46 |?. BCC F| 00001CB0: 34 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |4. LDX #| 00001CC0: 24 30 38 20 20 20 20 20 20 20 3B 44 41 4E 4E 3A |$08 ;DANN:| 00001CD0: 20 41 4C 4C 45 20 41 4E 21 0D 46 34 20 20 20 20 | ALLE AN!.F4 | 00001CE0: 20 20 20 4C 44 41 20 54 41 42 44 2C 58 20 20 20 | LDA TABD,X | 00001CF0: 20 20 3B 53 4F 4E 53 54 3A 20 45 56 54 4C 2E 0D | ;SONST: EVTL..| 00001D00: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 44 30 | STA $D0| 00001D10: 31 35 20 20 20 20 20 20 3B 20 20 57 45 4E 49 47 |15 ; WENIG| 00001D20: 45 52 21 0D 0D 20 20 20 20 20 20 20 20 20 4A 53 |ER!.. JS| 00001D30: 52 20 53 45 54 20 20 20 20 20 20 20 20 3B 44 49 |R SET ;DI| 00001D40: 45 20 4F 42 45 52 53 54 45 4E 20 38 0D 20 20 20 |E OBERSTEN 8. | 00001D50: 20 20 20 20 20 20 4A 53 52 20 53 45 54 20 20 20 | JSR SET | 00001D60: 20 20 20 20 20 3B 53 50 52 20 44 41 52 53 54 45 | ;SPR DARSTE| 00001D70: 4C 4C 45 4E 21 0D 20 20 20 20 20 20 20 20 20 4A |LLEN!. J| 00001D80: 53 52 20 53 45 54 0D 20 20 20 20 20 20 20 20 20 |SR SET. | 00001D90: 4A 53 52 20 53 45 54 0D 20 20 20 20 20 20 20 20 |JSR SET. | 00001DA0: 20 4A 53 52 20 53 45 54 0D 20 20 20 20 20 20 20 | JSR SET. | 00001DB0: 20 20 4A 53 52 20 53 45 54 0D 20 20 20 20 20 20 | JSR SET. | 00001DC0: 20 20 20 4A 53 52 20 53 45 54 0D 20 20 20 20 20 | JSR SET. | 00001DD0: 20 20 20 20 4A 53 52 20 53 45 54 0D 0D 20 20 20 | JSR SET.. | 00001DE0: 20 20 20 20 20 20 4C 44 41 20 24 44 30 30 31 20 | LDA $D001 | 00001DF0: 20 20 20 20 20 3B 55 4E 54 45 52 45 20 4B 41 4E | ;UNTERE KAN| 00001E00: 54 45 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |TE. ADC | 00001E10: 23 32 31 20 20 20 20 20 20 20 20 3B 44 45 53 20 |#21 ;DES | 00001E20: 4E 41 45 43 48 53 54 45 4E 0D 20 20 20 20 20 20 |NAECHSTEN. | 00001E30: 20 20 20 53 54 41 20 24 44 30 31 32 20 20 20 20 | STA $D012 | 00001E40: 20 20 3B 53 50 52 53 20 4E 45 55 45 52 0D 20 20 | ;SPRS NEUER. | 00001E50: 20 20 20 20 20 20 20 23 53 45 54 49 52 51 20 28 | #SETIRQ (| 00001E60: 4E 45 58 54 29 20 3B 52 41 53 54 45 52 2D 49 4E |NEXT) ;RASTER-IN| 00001E70: 49 54 20 21 0D 0D 46 33 20 20 20 20 20 20 20 23 |IT !..F3 #| 00001E80: 46 52 45 45 20 20 20 20 20 20 20 20 20 20 3B 49 |FREE ;I| 00001E90: 52 51 20 46 52 45 49 0D 0D 20 20 20 20 20 20 20 |RQ FREI.. | 00001EA0: 20 20 4A 53 52 20 4D 4F 56 45 20 20 20 20 20 20 | JSR MOVE | 00001EB0: 20 3B 27 53 52 27 0D 20 20 20 20 20 20 20 20 20 | ;'SR'. | 00001EC0: 4C 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 20 |LDA #$00. | 00001ED0: 20 20 53 54 41 20 24 44 30 32 30 0D 0D 41 31 20 | STA $D020..A1 | 00001EE0: 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 20 | LDA #$00 | 00001EF0: 20 20 20 20 20 3B 52 45 47 49 53 54 45 52 0D 58 | ;REGISTER.X| 00001F00: 31 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 30 |1 LDX #$00| 00001F10: 20 20 20 20 20 20 20 3B 20 52 45 54 54 45 4E 0D | ; RETTEN.| 00001F20: 59 31 20 20 20 20 20 20 20 4C 44 59 20 23 24 30 |Y1 LDY #$0| 00001F30: 30 0D 4E 4D 49 20 20 20 20 20 20 52 54 49 0D 0D |0.NMI RTI..| 00001F40: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00001F50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001F60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 2A 20 53 54 45 |---------.;* STE| 00001F70: 4C 4C 54 20 44 49 45 20 57 45 49 54 45 52 45 4E |LLT DIE WEITEREN| 00001F80: 20 53 50 52 49 54 45 53 20 44 41 52 20 21 0D 3B | SPRITES DAR !.;| 00001F90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001FB0: 2D 2D 2D 2D 2D 2D 2D 0D 0D 4E 45 58 54 20 20 20 |-------..NEXT | 00001FC0: 20 20 53 54 41 20 41 32 2B 31 20 20 20 20 20 20 | STA A2+1 | 00001FD0: 20 3B 53 2E 4F 2E 0D 20 20 20 20 20 20 20 20 20 | ;S.O.. | 00001FE0: 53 54 58 20 58 32 2B 31 0D 20 20 20 20 20 20 20 |STX X2+1. | 00001FF0: 20 20 53 54 59 20 59 32 2B 31 0D 0D 4E 32 20 20 | STY Y2+1..N2 | 00002000: 20 20 20 20 20 4A 53 52 20 53 45 54 20 20 20 20 | JSR SET | 00002010: 20 20 20 20 3B 27 53 44 27 0D 20 20 20 20 20 20 | ;'SD'. | 00002020: 20 20 20 41 53 4C 20 41 20 20 20 20 20 20 20 20 | ASL A | 00002030: 20 20 3B 4E 4F 43 48 20 47 45 4E 55 47 20 52 41 | ;NOCH GENUG RA| 00002040: 53 2D 0D 20 20 20 20 20 20 20 20 20 54 41 58 20 |S-. TAX | 00002050: 20 20 20 20 20 20 20 20 20 20 20 3B 54 45 52 20 | ;TER | 00002060: 5A 45 49 54 20 42 49 53 0D 20 20 20 20 20 20 20 |ZEIT BIS. | 00002070: 20 20 4C 44 41 20 24 44 30 30 31 2C 58 20 20 20 | LDA $D001,X | 00002080: 20 3B 5A 55 4D 20 4E 41 45 43 48 53 54 45 4E 0D | ;ZUM NAECHSTEN.| 00002090: 20 20 20 20 20 20 20 20 20 41 44 43 20 23 32 31 | ADC #21| 000020A0: 20 20 20 20 20 20 20 20 3B 53 50 52 2C 20 55 4D | ;SPR, UM| 000020B0: 20 4E 4F 43 48 0D 20 20 20 20 20 20 20 20 20 53 | NOCH. S| 000020C0: 54 41 20 5A 57 52 20 20 20 20 20 20 20 20 3B 45 |TA ZWR ;E| 000020D0: 49 4E 45 4E 20 49 52 51 20 41 55 53 2D 0D 20 20 |INEN IRQ AUS-. | 000020E0: 20 20 20 20 20 20 20 4C 44 58 20 24 44 30 31 32 | LDX $D012| 000020F0: 20 20 20 20 20 20 3B 5A 55 4C 4F 45 53 45 4E 20 | ;ZULOESEN | 00002100: 3F 3F 3F 0D 20 20 20 20 20 20 20 20 20 49 4E 58 |???. INX| 00002110: 0D 20 20 20 20 20 20 20 20 20 43 50 58 20 5A 57 |. CPX ZW| 00002120: 52 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 4E |R. BCS N| 00002130: 32 20 20 20 20 20 20 20 20 20 3B 4E 45 49 4E 20 |2 ;NEIN | 00002140: 3A 20 4E 32 0D 0D 20 20 20 20 20 20 20 20 20 53 |: N2.. S| 00002150: 54 41 20 24 44 30 31 32 20 20 20 20 20 20 3B 4A |TA $D012 ;J| 00002160: 41 20 21 0D 4E 33 0D 41 32 20 20 20 20 20 20 20 |A !.N3.A2 | 00002170: 4C 44 41 20 23 24 30 30 20 20 20 20 20 20 20 3B |LDA #$00 ;| 00002180: 53 2E 4F 2E 0D 58 32 20 20 20 20 20 20 20 4C 44 |S.O..X2 LD| 00002190: 58 20 23 24 30 30 0D 59 32 20 20 20 20 20 20 20 |X #$00.Y2 | 000021A0: 4C 44 59 20 23 24 30 30 0D 20 20 20 20 20 20 20 |LDY #$00. | 000021B0: 20 20 23 46 52 45 45 0D 20 20 20 20 20 20 20 20 | #FREE. | 000021C0: 20 52 54 49 0D 0D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D | RTI....;-------| 000021D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000021E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000021F0: 0D 3B 2A 20 45 49 47 45 4E 54 4C 49 43 48 45 20 |.;* EIGENTLICHE | 00002200: 53 50 52 49 54 45 2D 52 4F 55 54 49 4E 45 20 27 |SPRITE-ROUTINE '| 00002210: 53 52 27 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |SR'.;-----------| 00002220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002230: 2D 2D 2D 2D 2D 2D 53 59 4E 54 41 58 0D 3B 5A 55 |------SYNTAX.;ZU| 00002240: 52 20 42 45 57 45 47 55 4E 47 20 26 20 44 41 52 |R BEWEGUNG & DAR| 00002250: 53 54 45 4C 4C 55 4E 47 20 44 45 52 20 53 50 52 |STELLUNG DER SPR| 00002260: 49 54 45 53 21 0D 3B 20 20 20 20 A3 A3 A3 A3 A3 |ITES!.; .....| 00002270: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00002280: A3 0D 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; | 00002290: 20 20 20 20 20 20 20 20 20 20 20 20 B0 C0 C0 C0 | ....| 000022A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 0D 3B 20 20 58 58 |...........; XX| 000022B0: 58 58 20 58 58 58 58 20 20 20 20 20 20 20 20 20 |XX XXXX | 000022C0: 20 20 20 20 20 DD 43 4F 4E 54 52 4F 4C 2D 42 59 | .CONTROL-BY| 000022D0: 54 45 DD 0D 3B 20 20 DD DD DD DD 20 AD C0 C0 C0 |TE..; .... ....| 000022E0: C0 53 50 52 49 54 45 20 46 41 52 42 45 20 AD C0 |.SPRITE FARBE ..| 000022F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 0D 3B 20 20 |.............; | 00002300: DD DD DD AD C0 C0 C0 C0 C0 C0 31 53 54 2F 32 4E |..........1ST/2N| 00002310: 44 20 4E 49 42 42 4C 45 20 28 53 49 4E 55 53 29 |D NIBBLE (SINUS)| 00002320: 0D 3B 20 20 DD DD AD C0 C0 C0 C0 C0 C0 C0 45 58 |.; ..........EX| 00002330: 50 4C 4F 53 49 4F 4E 20 4F 4E 2F 4F 46 46 0D 3B |PLOSION ON/OFF.;| 00002340: 20 20 DD AD C0 C0 C0 C0 C0 C0 C0 C0 4D 53 42 0D | ..........MSB.| 00002350: 3B 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 53 50 52 |; ..........SPR| 00002360: 49 54 45 20 4F 4E 2F 4F 46 46 0D 3B 2D 2D 2D 2D |ITE ON/OFF.;----| 00002370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002390: 2D 2D 2D 0D 0D 4D 4F 56 45 20 20 20 20 20 4C 44 |---..MOVE LD| 000023A0: 41 20 4D 59 20 20 20 20 20 20 20 20 20 20 3B 46 |A MY ;F| 000023B0: 55 45 52 20 58 2F 59 0D 20 20 20 20 20 20 20 20 |UER X/Y. | 000023C0: 20 45 4F 52 20 23 24 38 30 20 20 20 20 20 20 20 | EOR #$80 | 000023D0: 20 3B 42 45 57 45 47 55 4E 47 20 3A 0D 20 20 20 | ;BEWEGUNG :. | 000023E0: 20 20 20 20 20 20 53 54 41 20 4D 59 20 20 20 20 | STA MY | 000023F0: 20 20 20 20 20 20 3B 55 50 2F 44 4F 57 4E 20 48 | ;UP/DOWN H| 00002400: 41 4C 46 0D 20 20 20 20 20 20 20 20 20 20 20 20 |ALF. | 00002410: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 28 53 | ;(S| 00002420: 2E 55 2E 29 0D 20 20 20 20 20 20 20 20 20 4C 44 |.U.). LD| 00002430: 58 20 23 33 30 0D 4D 4F 32 20 20 20 20 20 20 4C |X #30.MO2 L| 00002440: 44 41 20 43 4F 4E 54 52 4F 4C 2C 58 0D 20 20 20 |DA CONTROL,X. | 00002450: 20 20 20 20 20 20 42 50 4C 20 59 52 35 20 20 20 | BPL YR5 | 00002460: 20 20 20 20 20 20 3B 53 50 52 20 41 4E 20 3F 0D | ;SPR AN ?.| 00002470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002480: 20 20 20 20 20 20 20 20 20 3B 4A 41 20 21 0D 20 | ;JA !. | 00002490: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 | LDA #$00| 000024A0: 20 20 20 20 20 20 20 20 3B 5A 57 49 53 43 48 45 | ;ZWISCHE| 000024B0: 4E 57 45 52 54 45 0D 20 20 20 20 20 20 20 20 20 |NWERTE. | 000024C0: 53 54 41 20 58 57 45 52 54 20 20 20 20 20 20 20 |STA XWERT | 000024D0: 3B 4C 4F 53 45 43 48 45 4E 0D 20 20 20 20 20 20 |;LOSECHEN. | 000024E0: 20 20 20 53 54 41 20 59 57 45 52 54 0D 0D 41 4E | STA YWERT..AN| 000024F0: 35 20 20 20 20 20 20 4C 44 41 20 41 4E 49 54 42 |5 LDA ANITB| 00002500: 2C 58 20 20 20 20 20 3B 41 4E 49 4D 41 54 49 4F |,X ;ANIMATIO| 00002510: 4E 20 3F 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |N ?. BNE| 00002520: 20 41 4E 35 31 0D 20 20 20 20 20 20 20 20 20 4A | AN51. J| 00002530: 4D 50 20 58 53 20 20 20 20 20 20 20 20 20 20 3B |MP XS ;| 00002540: 4E 45 49 4E 20 3A 20 53 2E 55 2E 0D 41 4E 35 31 |NEIN : S.U..AN51| 00002550: 20 20 20 20 20 41 53 4C 20 41 20 20 20 20 20 20 | ASL A | 00002560: 20 20 20 20 20 3B 4A 41 3A 41 55 53 46 55 45 48 | ;JA:AUSFUEH| 00002570: 52 45 4E 0D 20 20 20 20 20 20 20 20 20 44 45 43 |REN. DEC| 00002580: 20 41 4E 49 54 43 4F 2C 58 0D 20 20 20 20 20 20 | ANITCO,X. | 00002590: 20 20 20 42 50 4C 20 41 4E 32 31 20 20 20 20 20 | BPL AN21 | 000025A0: 20 20 20 3B 4E 45 58 54 20 53 54 45 50 20 3F 0D | ;NEXT STEP ?.| 000025B0: 20 20 20 20 20 20 20 20 20 54 41 59 20 20 20 20 | TAY | 000025C0: 20 20 20 20 20 20 20 20 20 3B 4A 41 20 21 0D 20 | ;JA !. | 000025D0: 20 20 20 20 20 20 20 20 4C 44 41 20 41 4E 49 54 | LDA ANIT| 000025E0: 41 42 2B 32 2C 59 20 20 3B 57 41 52 54 45 5A 45 |AB+2,Y ;WARTEZE| 000025F0: 49 54 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |IT. STA | 00002600: 41 4E 49 54 43 4F 2C 58 20 20 20 20 3B 20 52 45 |ANITCO,X ; RE| 00002610: 53 54 41 55 52 49 45 52 45 4E 0D 20 20 20 20 20 |STAURIEREN. | 00002620: 20 20 20 20 4C 44 41 20 41 4E 49 54 41 42 2C 59 | LDA ANITAB,Y| 00002630: 20 20 20 20 3B 41 44 52 0D 20 20 20 20 20 20 20 | ;ADR. | 00002640: 20 20 53 54 41 20 41 44 52 20 20 20 20 20 20 20 | STA ADR | 00002650: 20 20 3B 48 4F 4C 45 4E 0D 20 20 20 20 20 20 20 | ;HOLEN. | 00002660: 20 20 4C 44 41 20 41 4E 49 54 41 42 2B 31 2C 59 | LDA ANITAB+1,Y| 00002670: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 41 44 |. STA AD| 00002680: 52 2B 31 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |R+1. LDY| 00002690: 20 41 4E 49 43 4F 2C 58 20 20 20 20 20 3B 53 54 | ANICO,X ;ST| 000026A0: 45 50 4E 55 4D 4D 45 52 0D 41 4E 33 20 20 20 20 |EPNUMMER.AN3 | 000026B0: 20 20 4C 44 41 20 28 41 44 52 29 2C 59 20 20 20 | LDA (ADR),Y | 000026C0: 20 20 3B 42 4C 4F 43 4B 20 48 4F 4C 45 4E 0D 20 | ;BLOCK HOLEN. | 000026D0: 20 20 20 20 20 20 20 20 42 4E 45 20 41 4E 32 20 | BNE AN2 | 000026E0: 20 20 20 20 20 20 20 20 3B 42 4C 4F 43 4B 20 4F | ;BLOCK O| 000026F0: 4B 20 3F 0D 20 20 20 20 20 20 20 20 20 53 54 41 |K ?. STA| 00002700: 20 41 4E 49 43 4F 2C 58 20 20 20 20 20 3B 4E 45 | ANICO,X ;NE| 00002710: 49 4E 3A 0D 20 20 20 20 20 20 20 20 20 54 41 59 |IN:. TAY| 00002720: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 41 4E | ;AN| 00002730: 49 4D 41 54 49 4F 4E 20 56 4F 4E 0D 20 20 20 20 |IMATION VON. | 00002740: 20 20 20 20 20 42 43 43 20 41 4E 33 20 20 20 20 | BCC AN3 | 00002750: 20 20 20 20 20 3B 56 4F 52 4E 45 20 3F 0D 0D 20 | ;VORNE ?.. | 00002760: 20 20 20 20 20 20 20 20 4C 44 41 20 41 4E 49 54 | LDA ANIT| 00002770: 42 2C 58 20 20 20 20 20 3B 4E 49 43 48 54 20 4E |B,X ;NICHT N| 00002780: 4F 43 48 4D 41 4C 21 0D 20 20 20 20 20 20 20 20 |OCHMAL!. | 00002790: 20 41 4E 44 20 23 24 33 46 20 20 20 20 20 20 20 | AND #$3F | 000027A0: 20 3B 45 58 50 4C 4F 53 49 4F 4E 20 3F 0D 20 20 | ;EXPLOSION ?. | 000027B0: 20 20 20 20 20 20 20 42 45 51 20 41 4E 38 20 20 | BEQ AN8 | 000027C0: 20 20 20 20 20 20 20 3B 4A 41 20 3A 20 43 4C 52 | ;JA : CLR| 000027D0: 0D 41 4E 34 31 20 20 20 20 20 49 4E 43 20 49 4E |.AN41 INC IN| 000027E0: 49 54 54 42 2C 58 20 20 20 20 3B 4E 45 49 4E 3A |ITTB,X ;NEIN:| 000027F0: 4E 45 58 54 20 49 4E 49 54 0D 20 20 20 20 20 20 |NEXT INIT. | 00002800: 20 20 20 4C 44 41 20 23 24 30 30 20 20 20 20 20 | LDA #$00 | 00002810: 20 20 20 3B 41 4E 49 4D 2E 20 46 45 52 54 49 47 | ;ANIM. FERTIG| 00002820: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 41 4E |. STA AN| 00002830: 49 54 42 2C 58 0D 0D 41 4E 34 20 20 20 20 20 20 |ITB,X..AN4 | 00002840: 4C 44 41 20 43 4F 4E 54 52 4F 4C 2C 58 0D 20 20 |LDA CONTROL,X. | 00002850: 20 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 20 | ASL A. | 00002860: 20 20 20 20 20 20 42 50 4C 20 41 4E 34 32 20 20 | BPL AN42 | 00002870: 20 20 20 20 20 20 3B 4D 53 42 20 3F 0D 20 20 20 | ;MSB ?. | 00002880: 20 20 20 20 20 20 4C 44 41 20 58 50 4F 53 2C 58 | LDA XPOS,X| 00002890: 20 20 20 20 20 20 3B 4A 41 20 3A 0D 20 20 20 20 | ;JA :. | 000028A0: 20 20 20 20 20 43 4D 50 20 23 31 36 30 20 20 20 | CMP #160 | 000028B0: 20 20 20 20 20 3B 20 53 50 52 20 43 4C 52 20 3F | ; SPR CLR ?| 000028C0: 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 41 4E |. BCC AN| 000028D0: 34 32 20 20 20 20 20 20 20 20 3B 20 4E 45 49 4E |42 ; NEIN| 000028E0: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 32 |. CMP #2| 000028F0: 30 30 0D 20 20 20 20 20 20 20 20 20 42 43 53 20 |00. BCS | 00002900: 41 4E 34 32 20 20 20 20 20 20 20 20 3B 20 4E 45 |AN42 ; NE| 00002910: 49 4E 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 |IN. BCC | 00002920: 41 4E 38 20 20 20 20 20 20 20 20 20 3B 4A 41 21 |AN8 ;JA!| 00002930: 0D 0D 41 4E 34 32 20 20 20 20 20 4C 44 41 20 59 |..AN42 LDA Y| 00002940: 50 4F 53 2C 58 20 20 20 20 20 20 3B 20 53 4F 52 |POS,X ; SOR| 00002950: 54 49 45 52 54 20 53 50 52 2E 0D 20 20 20 20 20 |TIERT SPR.. | 00002960: 20 20 20 20 4C 53 52 20 41 20 20 20 20 20 20 20 | LSR A | 00002970: 20 20 20 20 3B 20 49 4E 20 59 54 41 42 20 45 49 | ; IN YTAB EI| 00002980: 4E 0D 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 |N. LSR A| 00002990: 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 31 |. CMP #1| 000029A0: 30 20 20 20 20 20 20 20 20 20 3B 53 50 52 20 43 |0 ;SPR C| 000029B0: 4C 52 20 3F 0D 20 20 20 20 20 20 20 20 20 42 43 |LR ?. BC| 000029C0: 43 20 41 4E 38 20 20 20 20 20 20 20 20 20 3B 20 |C AN8 ; | 000029D0: 4A 41 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |JA. CMP | 000029E0: 23 36 30 0D 20 20 20 20 20 20 20 20 20 42 43 53 |#60. BCS| 000029F0: 20 41 4E 38 20 20 20 20 20 20 20 20 20 3B 20 4A | AN8 ; J| 00002A00: 41 0D 20 20 20 20 20 20 20 20 20 54 41 59 20 20 |A. TAY | 00002A10: 20 20 20 20 20 20 20 20 20 20 20 3B 4E 45 49 4E | ;NEIN| 00002A20: 0D 59 52 34 20 20 20 20 20 20 4C 44 41 20 59 54 |.YR4 LDA YT| 00002A30: 41 42 2C 59 0D 20 20 20 20 20 20 20 20 20 42 45 |AB,Y. BE| 00002A40: 51 20 59 52 33 20 20 20 20 20 20 20 20 20 3B 50 |Q YR3 ;P| 00002A50: 4C 41 54 5A 20 42 45 53 45 54 5A 54 3F 0D 20 20 |LATZ BESETZT?. | 00002A60: 20 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 | INY | 00002A70: 20 20 20 20 20 20 20 3B 20 4A 41 3A 4E 45 58 54 | ; JA:NEXT| 00002A80: 20 50 4C 41 43 45 0D 20 20 20 20 20 20 20 20 20 | PLACE. | 00002A90: 43 50 59 20 23 36 30 0D 20 20 20 20 20 20 20 20 |CPY #60. | 00002AA0: 20 42 43 43 20 59 52 34 20 20 20 20 20 20 20 20 | BCC YR4 | 00002AB0: 20 3B 20 45 4E 44 20 4F 46 20 54 41 42 3F 0D 20 | ; END OF TAB?. | 00002AC0: 20 20 20 20 20 20 20 20 42 43 53 20 59 52 35 20 | BCS YR5 | 00002AD0: 20 20 20 20 20 20 20 20 3B 20 4A 41 3A 20 4E 45 | ; JA: NE| 00002AE0: 58 54 20 53 50 52 0D 59 52 33 20 20 20 20 20 20 |XT SPR.YR3 | 00002AF0: 54 58 41 0D 20 20 20 20 20 20 20 20 20 53 54 41 |TXA. STA| 00002B00: 20 59 54 41 42 2C 59 20 20 20 20 20 20 3B 20 45 | YTAB,Y ; E| 00002B10: 49 4E 53 4F 52 54 49 45 52 45 4E 0D 20 20 20 20 |INSORTIEREN. | 00002B20: 20 20 20 20 20 42 4E 45 20 59 52 35 0D 0D 41 4E | BNE YR5..AN| 00002B30: 38 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 |8 LDA #$00 | 00002B40: 20 20 20 20 20 20 20 3B 20 53 50 52 20 43 4C 52 | ; SPR CLR| 00002B50: 21 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 43 |!. STA C| 00002B60: 4F 4E 54 52 4F 4C 2C 58 0D 59 52 35 20 20 20 20 |ONTROL,X.YR5 | 00002B70: 20 20 44 45 58 20 20 20 20 20 20 20 20 20 20 20 | DEX | 00002B80: 20 20 3B 20 4E 45 58 54 20 53 50 52 0D 20 20 20 | ; NEXT SPR. | 00002B90: 20 20 20 20 20 20 42 45 51 20 59 52 35 31 20 20 | BEQ YR51 | 00002BA0: 20 20 20 20 20 20 3B 20 41 4C 4C 20 52 45 41 44 | ; ALL READ| 00002BB0: 59 20 3F 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |Y ?. JMP| 00002BC0: 20 4D 4F 32 20 20 20 20 20 20 20 20 20 3B 20 4E | MO2 ; N| 00002BD0: 4F 0D 59 52 35 31 20 20 20 20 20 4A 4D 50 20 53 |O.YR51 JMP S| 00002BE0: 4F 52 54 20 20 20 20 20 20 20 20 3B 20 41 4C 4C |ORT ; ALL| 00002BF0: 20 52 45 41 44 59 20 21 21 0D 0D 41 4E 32 20 20 | READY !!..AN2 | 00002C00: 20 20 20 20 53 54 41 20 42 4C 4F 43 4B 2C 58 20 | STA BLOCK,X | 00002C10: 20 20 20 20 3B 20 4E 45 57 20 42 4C 4F 43 4B 0D | ; NEW BLOCK.| 00002C20: 20 20 20 20 20 20 20 20 20 49 4E 43 20 41 4E 49 | INC ANI| 00002C30: 43 4F 2C 58 20 20 20 20 20 3B 20 53 54 45 50 20 |CO,X ; STEP | 00002C40: 46 4F 52 57 41 52 44 0D 41 4E 32 31 20 20 20 20 |FORWARD.AN21 | 00002C50: 20 42 43 43 20 58 53 20 20 20 20 20 20 20 20 20 | BCC XS | 00002C60: 20 3B 20 45 58 50 4C 4F 53 49 4F 4E 20 3F 0D 20 | ; EXPLOSION ?. | 00002C70: 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 20 20 | LDY #0 | 00002C80: 20 20 20 20 20 20 20 20 3B 20 56 49 45 4C 4C 45 | ; VIELLE| 00002C90: 49 43 48 54 0D 20 20 20 20 20 20 20 20 20 4C 44 |ICHT. LD| 00002CA0: 41 20 41 4E 49 54 42 2C 58 0D 20 20 20 20 20 20 |A ANITB,X. | 00002CB0: 20 20 20 41 4E 44 20 23 24 33 46 0D 20 20 20 20 | AND #$3F. | 00002CC0: 20 20 20 20 20 42 4E 45 20 58 53 20 20 20 20 20 | BNE XS | 00002CD0: 20 20 20 20 20 3B 20 45 58 50 4C 4F 53 49 4F 4E | ; EXPLOSION| 00002CE0: 20 3F 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 | ?. JMP | 00002CF0: 53 45 54 58 59 20 20 20 20 20 20 20 3B 20 4A 41 |SETXY ; JA| 00002D00: 21 0D 0D 58 53 20 20 20 20 20 20 20 4C 44 41 20 |!..XS LDA | 00002D10: 43 4F 4E 54 52 4F 4C 2C 58 20 20 20 3B 20 57 45 |CONTROL,X ; WE| 00002D20: 49 54 45 52 20 3A 0D 20 20 20 20 20 20 20 20 20 |ITER :. | 00002D30: 45 4F 52 20 23 24 31 30 20 20 20 20 20 20 20 20 |EOR #$10 | 00002D40: 3B 20 46 49 52 53 54 2F 53 45 43 2E 0D 20 20 20 |; FIRST/SEC.. | 00002D50: 20 20 20 20 20 20 53 54 41 20 43 4F 4E 54 52 4F | STA CONTRO| 00002D60: 4C 2C 58 20 20 20 3B 20 48 41 4C 46 42 59 54 45 |L,X ; HALFBYTE| 00002D70: 0D 20 20 20 20 20 20 20 20 20 41 53 4C 20 41 0D |. ASL A.| 00002D80: 20 20 20 20 20 20 20 20 20 41 53 4C 20 41 0D 20 | ASL A. | 00002D90: 20 20 20 20 20 20 20 20 41 53 4C 20 41 0D 20 20 | ASL A. | 00002DA0: 20 20 20 20 20 20 20 53 54 41 20 53 59 20 20 20 | STA SY | 00002DB0: 20 20 20 20 20 20 20 3B 20 53 49 43 48 45 52 4E | ; SICHERN| 00002DC0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 49 |. LDA SI| 00002DD0: 4E 58 48 49 2C 58 20 20 20 20 3B 20 53 49 4E 55 |NXHI,X ; SINU| 00002DE0: 53 20 49 4E 0D 20 20 20 20 20 20 20 20 20 42 45 |S IN. BE| 00002DF0: 51 20 59 53 20 20 20 20 20 20 20 20 20 20 3B 20 |Q YS ; | 00002E00: 58 2D 52 49 43 48 54 55 4E 47 20 3F 0D 20 20 20 |X-RICHTUNG ?. | 00002E10: 20 20 20 20 20 20 53 54 41 20 41 44 52 2B 31 20 | STA ADR+1 | 00002E20: 20 20 20 20 20 20 3B 20 4A 41 3A 41 44 52 0D 20 | ; JA:ADR. | 00002E30: 20 20 20 20 20 20 20 20 4C 44 41 20 53 49 4E 58 | LDA SINX| 00002E40: 4C 4F 2C 58 20 20 20 20 3B 20 48 4F 4C 45 4E 0D |LO,X ; HOLEN.| 00002E50: 20 20 20 20 20 20 20 20 20 53 54 41 20 41 44 52 | STA ADR| 00002E60: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 53 49 |. LDY SI| 00002E70: 4E 58 31 2C 58 0D 20 20 20 20 20 20 20 20 20 4C |NX1,X. L| 00002E80: 44 41 20 28 41 44 52 29 2C 59 20 20 20 20 20 3B |DA (ADR),Y ;| 00002E90: 20 57 45 52 54 20 48 4F 4C 45 4E 0D 20 20 20 20 | WERT HOLEN. | 00002EA0: 20 20 20 20 20 42 49 54 20 53 59 20 20 20 20 20 | BIT SY | 00002EB0: 20 20 20 20 20 3B 20 31 53 54 2F 32 4E 44 0D 20 | ; 1ST/2ND. | 00002EC0: 20 20 20 20 20 20 20 20 42 4D 49 20 58 53 32 20 | BMI XS2 | 00002ED0: 20 20 20 20 20 20 20 20 3B 20 48 41 4C 46 42 59 | ; HALFBY| 00002EE0: 54 45 20 3F 0D 20 20 20 20 20 20 20 20 20 4C 53 |TE ?. LS| 00002EF0: 52 20 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 |R A ; | 00002F00: 46 49 52 53 54 0D 20 20 20 20 20 20 20 20 20 4C |FIRST. L| 00002F10: 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 |SR A. LS| 00002F20: 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 52 |R A. LSR| 00002F30: 20 41 0D 58 53 32 20 20 20 20 20 20 41 4E 44 20 | A.XS2 AND | 00002F40: 23 24 30 46 20 20 20 20 20 20 20 20 3B 20 53 45 |#$0F ; SE| 00002F50: 43 4F 4E 44 0D 20 20 20 20 20 20 20 20 20 54 41 |COND. TA| 00002F60: 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 44 |Y. LDA D| 00002F70: 45 4C 54 42 2C 59 20 20 20 20 20 3B 20 41 55 53 |ELTB,Y ; AUS| 00002F80: 20 54 41 42 20 48 4F 4C 45 4E 0D 20 20 20 20 20 | TAB HOLEN. | 00002F90: 20 20 20 20 53 54 41 20 58 57 45 52 54 20 20 20 | STA XWERT | 00002FA0: 20 20 20 20 3B 20 41 42 4C 45 47 45 4E 0D 20 20 | ; ABLEGEN. | 00002FB0: 20 20 20 20 20 20 20 42 49 54 20 53 59 20 20 20 | BIT SY | 00002FC0: 20 20 20 20 20 20 20 3B 20 42 45 52 45 49 54 53 | ; BEREITS| 00002FD0: 20 4E 45 58 54 0D 20 20 20 20 20 20 20 20 20 42 | NEXT. B| 00002FE0: 50 4C 20 59 53 20 20 20 20 20 20 20 20 20 20 3B |PL YS ;| 00002FF0: 20 20 42 59 54 45 20 3F 3F 3F 0D 20 20 20 20 20 | BYTE ???. | 00003000: 20 20 20 20 4C 44 41 20 53 49 4E 58 31 2C 58 20 | LDA SINX1,X | 00003010: 20 20 20 20 3B 20 4A 41 21 0D 20 20 20 20 20 20 | ; JA!. | 00003020: 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 20 20 | CLC | 00003030: 20 20 20 3B 20 53 54 45 50 20 46 4F 52 57 41 52 | ; STEP FORWAR| 00003040: 44 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 23 |D. ADC #| 00003050: 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 53 |1. CMP S| 00003060: 49 4E 58 32 2C 58 0D 20 20 20 20 20 20 20 20 20 |INX2,X. | 00003070: 42 43 43 20 58 53 31 20 20 20 20 20 20 20 20 20 |BCC XS1 | 00003080: 3B 45 4E 44 45 20 45 52 52 45 49 43 48 54 3F 0D |;ENDE ERREICHT?.| 00003090: 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 49 4E | LDA SIN| 000030A0: 58 33 2C 58 20 20 20 20 20 3B 20 4A 41 3A 52 45 |X3,X ; JA:RE| 000030B0: 53 54 41 52 54 0D 58 53 31 20 20 20 20 20 20 53 |START.XS1 S| 000030C0: 54 41 20 53 49 4E 58 31 2C 58 20 20 20 20 20 3B |TA SINX1,X ;| 000030D0: 20 4E 45 49 4E 3A 53 54 4F 52 45 0D 0D 59 53 20 | NEIN:STORE..YS | 000030E0: 20 20 20 20 20 20 4C 44 41 20 53 49 4E 59 48 49 | LDA SINYHI| 000030F0: 2C 58 20 20 20 20 3B 20 53 49 4E 55 53 20 49 4E |,X ; SINUS IN| 00003100: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 44 45 |. BEQ DE| 00003110: 4C 20 20 20 20 20 20 20 20 20 3B 20 59 2D 52 49 |L ; Y-RI| 00003120: 43 48 54 55 4E 47 20 3F 0D 20 20 20 20 20 20 20 |CHTUNG ?. | 00003130: 20 20 53 54 41 20 41 44 52 2B 31 20 20 20 20 20 | STA ADR+1 | 00003140: 20 20 3B 20 4A 41 20 3A 41 44 52 0D 20 20 20 20 | ; JA :ADR. | 00003150: 20 20 20 20 20 4C 44 41 20 53 49 4E 59 4C 4F 2C | LDA SINYLO,| 00003160: 58 20 20 20 20 3B 20 48 4F 4C 45 4E 0D 20 20 20 |X ; HOLEN. | 00003170: 20 20 20 20 20 20 53 54 41 20 41 44 52 0D 20 20 | STA ADR. | 00003180: 20 20 20 20 20 20 20 4C 44 59 20 53 49 4E 59 31 | LDY SINY1| 00003190: 2C 58 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |,X. LDA | 000031A0: 28 41 44 52 29 2C 59 20 20 20 20 20 3B 20 44 49 |(ADR),Y ; DI| 000031B0: 54 4F 0D 20 20 20 20 20 20 20 20 20 42 49 54 20 |TO. BIT | 000031C0: 53 59 20 20 20 20 20 20 20 20 20 20 3B 20 41 4C |SY ; AL| 000031D0: 4C 45 53 20 41 4E 41 4C 4F 47 0D 20 20 20 20 20 |LES ANALOG. | 000031E0: 20 20 20 20 42 4D 49 20 59 53 32 20 20 20 20 20 | BMI YS2 | 000031F0: 20 20 20 20 3B 20 5A 55 20 2D 58 53 2D 0D 20 20 | ; ZU -XS-. | 00003200: 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 | LSR A. | 00003210: 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 | LSR A. | 00003220: 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 | LSR A. | 00003230: 20 20 20 20 4C 53 52 20 41 0D 59 53 32 20 20 20 | LSR A.YS2 | 00003240: 20 20 20 41 4E 44 20 23 24 30 46 0D 20 20 20 20 | AND #$0F. | 00003250: 20 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 | TAY. | 00003260: 20 20 4C 44 41 20 44 45 4C 54 42 2C 59 0D 20 20 | LDA DELTB,Y. | 00003270: 20 20 20 20 20 20 20 53 54 41 20 59 57 45 52 54 | STA YWERT| 00003280: 0D 20 20 20 20 20 20 20 20 20 42 49 54 20 53 59 |. BIT SY| 00003290: 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 44 45 |. BPL DE| 000032A0: 4C 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 |L. LDA S| 000032B0: 49 4E 59 31 2C 58 0D 20 20 20 20 20 20 20 20 20 |INY1,X. | 000032C0: 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 |CLC. ADC| 000032D0: 20 23 31 0D 20 20 20 20 20 20 20 20 20 43 4D 50 | #1. CMP| 000032E0: 20 53 49 4E 59 32 2C 58 0D 20 20 20 20 20 20 20 | SINY2,X. | 000032F0: 20 20 42 43 43 20 59 53 31 0D 20 20 20 20 20 20 | BCC YS1. | 00003300: 20 20 20 4C 44 41 20 53 49 4E 59 33 2C 58 0D 59 | LDA SINY3,X.Y| 00003310: 53 31 20 20 20 20 20 20 53 54 41 20 53 49 4E 59 |S1 STA SINY| 00003320: 31 2C 58 0D 0D 44 45 4C 20 20 20 20 20 20 4C 44 |1,X..DEL LD| 00003330: 41 20 44 45 4C 41 59 2C 58 20 20 20 20 20 3B 20 |A DELAY,X ; | 00003340: 43 4F 55 4E 54 44 4F 57 4E 20 3F 0D 20 20 20 20 |COUNTDOWN ?. | 00003350: 20 20 20 20 20 42 45 51 20 41 43 58 0D 20 20 20 | BEQ ACX. | 00003360: 20 20 20 20 20 20 44 45 43 20 44 45 4C 41 59 2C | DEC DELAY,| 00003370: 58 20 20 20 20 20 3B 20 4A 41 3A 41 55 53 46 55 |X ; JA:AUSFU| 00003380: 45 48 52 45 4E 0D 20 20 20 20 20 20 20 20 20 42 |EHREN. B| 00003390: 4E 45 20 41 43 58 20 20 20 20 20 20 20 20 20 3B |NE ACX ;| 000033A0: 20 4E 55 4C 4C 20 3F 0D 20 20 20 20 20 20 20 20 | NULL ?. | 000033B0: 20 49 4E 43 20 49 4E 49 54 54 42 2C 58 20 20 20 | INC INITTB,X | 000033C0: 20 3B 20 4A 41 3A 4E 45 58 54 20 49 4E 49 54 0D | ; JA:NEXT INIT.| 000033D0: 0D 41 43 58 20 20 20 20 20 20 4C 44 41 20 41 43 |.ACX LDA AC| 000033E0: 43 54 58 2C 58 20 20 3B 42 45 53 43 48 4C 45 55 |CTX,X ;BESCHLEU| 000033F0: 4E 49 47 55 4E 47 20 58 3F 0D 20 20 20 20 20 20 |NIGUNG X?. | 00003400: 20 20 20 42 45 51 20 44 58 0D 20 20 20 20 20 20 | BEQ DX. | 00003410: 20 20 20 44 45 43 20 41 43 43 54 31 2C 58 20 20 | DEC ACCT1,X | 00003420: 20 20 20 3B 4A 41 3A 57 45 52 54 20 53 43 48 4F | ;JA:WERT SCHO| 00003430: 4E 0D 20 20 20 20 20 20 20 20 20 42 50 4C 20 41 |N. BPL A| 00003440: 43 31 20 20 20 20 20 20 20 20 20 3B 20 20 41 45 |C1 ; AE| 00003450: 4E 44 45 52 4E 20 3F 0D 0D 20 20 20 20 20 20 20 |NDERN ?.. | 00003460: 20 20 4C 44 41 20 41 43 43 54 58 2C 58 20 20 20 | LDA ACCTX,X | 00003470: 20 20 3B 4A 41 3A 20 5A 45 49 54 0D 20 20 20 20 | ;JA: ZEIT. | 00003480: 20 20 20 20 20 53 54 41 20 41 43 43 54 31 2C 58 | STA ACCT1,X| 00003490: 20 20 20 20 20 3B 20 52 45 53 54 41 55 52 49 45 | ; RESTAURIE| 000034A0: 52 45 4E 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |REN.. LD| 000034B0: 41 20 44 45 4C 54 41 58 2C 58 20 20 20 20 3B 54 |A DELTAX,X ;T| 000034C0: 41 42 2D 57 45 52 54 20 48 4F 4C 45 4E 0D 20 20 |AB-WERT HOLEN. | 000034D0: 20 20 20 20 20 20 20 41 4E 44 20 23 24 46 30 0D | AND #$F0.| 000034E0: 20 20 20 20 20 20 20 20 20 53 54 41 20 5A 57 52 | STA ZWR| 000034F0: 32 20 20 20 20 20 20 20 20 3B 5A 49 45 4C 20 52 |2 ;ZIEL R| 00003500: 45 54 54 45 4E 0D 20 20 20 20 20 20 20 20 20 4C |ETTEN. L| 00003510: 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 |SR A. LS| 00003520: 52 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 52 |R A. LSR| 00003530: 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 52 20 | A. LSR | 00003540: 41 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 5A |A. STA Z| 00003550: 57 52 20 20 20 20 20 20 20 20 20 3B 5A 49 45 4C |WR ;ZIEL| 00003560: 20 57 45 52 54 0D 20 20 20 20 20 20 20 20 20 4C | WERT. L| 00003570: 44 41 20 44 45 4C 54 41 58 2C 58 0D 20 20 20 20 |DA DELTAX,X. | 00003580: 20 20 20 20 20 41 4E 44 20 23 24 30 46 20 20 20 | AND #$0F | 00003590: 20 20 20 20 20 3B 4D 4F 4D 45 4E 54 20 57 45 52 | ;MOMENT WER| 000035A0: 54 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 5A |T. CMP Z| 000035B0: 57 52 20 20 20 20 20 20 20 20 20 3B 5A 49 45 4C |WR ;ZIEL| 000035C0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 41 43 |. BNE AC| 000035D0: 35 20 20 20 20 20 20 20 20 20 3B 20 45 52 52 45 |5 ; ERRE| 000035E0: 49 43 48 54 3F 0D 20 20 20 20 20 20 20 20 20 4C |ICHT?. L| 000035F0: 44 41 20 23 24 30 30 20 20 20 20 20 20 20 20 3B |DA #$00 ;| 00003600: 20 4A 41 20 3A 20 41 43 43 2D 0D 20 20 20 20 20 | JA : ACC-. | 00003610: 20 20 20 20 53 54 41 20 41 43 43 54 58 2C 58 20 | STA ACCTX,X | 00003620: 20 20 20 20 3B 20 45 4E 44 45 20 21 0D 20 20 20 | ; ENDE !. | 00003630: 20 20 20 20 20 20 42 45 51 20 41 43 59 0D 0D 41 | BEQ ACY..A| 00003640: 43 35 20 20 20 20 20 20 42 43 43 20 41 43 33 20 |C5 BCC AC3 | 00003650: 20 20 20 20 20 20 20 20 3B 5A 49 45 4C 20 41 4E | ;ZIEL AN| 00003660: 4E 41 45 48 52 45 4E 0D 20 20 20 20 20 20 20 20 |NAEHREN. | 00003670: 20 53 42 43 20 23 31 0D 20 20 20 20 20 20 20 20 | SBC #1. | 00003680: 20 42 50 4C 20 41 43 34 0D 41 43 33 20 20 20 20 | BPL AC4.AC3 | 00003690: 20 20 41 44 43 20 23 31 0D 41 43 34 20 20 20 20 | ADC #1.AC4 | 000036A0: 20 20 4F 52 41 20 5A 57 52 32 20 20 20 20 20 20 | ORA ZWR2 | 000036B0: 20 20 3B 54 41 42 20 57 45 52 54 0D 20 20 20 20 | ;TAB WERT. | 000036C0: 20 20 20 20 20 53 54 41 20 44 45 4C 54 41 58 2C | STA DELTAX,| 000036D0: 58 20 20 20 20 3B 20 5A 55 52 55 45 43 4B 20 21 |X ; ZURUECK !| 000036E0: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 44 58 |. BNE DX| 000036F0: 31 0D 0D 41 43 31 20 20 20 20 20 20 4C 44 41 20 |1..AC1 LDA | 00003700: 44 45 4C 54 41 58 2C 58 20 20 20 20 3B 42 45 57 |DELTAX,X ;BEW| 00003710: 45 47 55 4E 47 20 41 55 53 2D 0D 20 20 20 20 20 |EGUNG AUS-. | 00003720: 20 20 20 20 42 4E 45 20 44 58 31 20 20 20 20 20 | BNE DX1 | 00003730: 20 20 20 20 3B 20 20 46 55 45 48 52 45 4E 20 21 | ; FUEHREN !| 00003740: 0D 0D 44 58 20 20 20 20 20 20 20 4C 44 41 20 44 |..DX LDA D| 00003750: 45 4C 54 41 58 2C 58 20 20 20 20 3B 20 58 20 2D |ELTAX,X ; X -| 00003760: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 44 59 |. BEQ DY| 00003770: 20 20 20 20 20 20 20 20 20 20 3B 20 20 42 45 57 | ; BEW| 00003780: 45 47 55 4E 47 20 3F 3F 0D 20 20 20 20 20 20 20 |EGUNG ??. | 00003790: 20 20 42 49 54 20 4D 59 20 20 20 20 20 20 20 20 | BIT MY | 000037A0: 20 20 3B 20 4A 41 0D 20 20 20 20 20 20 20 20 20 | ; JA. | 000037B0: 42 50 4C 20 44 58 31 20 20 20 20 20 20 20 20 20 |BPL DX1 | 000037C0: 3B 20 31 53 54 2F 32 4E 44 20 48 41 4C 46 3F 0D |; 1ST/2ND HALF?.| 000037D0: 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 20 20 | LSR A | 000037E0: 20 20 20 20 20 20 20 20 20 3B 31 53 54 0D 20 20 | ;1ST. | 000037F0: 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 | LSR A. | 00003800: 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 | LSR A. | 00003810: 20 20 20 20 20 4C 53 52 20 41 0D 44 58 31 20 20 | LSR A.DX1 | 00003820: 20 20 20 20 41 4E 44 20 23 24 30 46 20 20 20 20 | AND #$0F | 00003830: 20 20 20 20 3B 32 4E 44 0D 20 20 20 20 20 20 20 | ;2ND. | 00003840: 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 4C | TAY. L| 00003850: 44 41 20 44 45 4C 54 42 2C 59 20 20 20 20 20 3B |DA DELTB,Y ;| 00003860: 20 53 2E 4F 2E 0D 20 20 20 20 20 20 20 20 20 43 | S.O.. C| 00003870: 4C 43 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |LC. ADC | 00003880: 58 57 45 52 54 20 20 20 20 20 20 20 3B 41 42 4C |XWERT ;ABL| 00003890: 45 47 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 |EGEN. ST| 000038A0: 41 20 58 57 45 52 54 0D 0D 41 43 59 20 20 20 20 |A XWERT..ACY | 000038B0: 20 20 4C 44 41 20 41 43 43 54 59 2C 58 20 20 3B | LDA ACCTY,X ;| 000038C0: 42 45 53 43 48 4C 45 55 4E 49 47 55 4E 47 20 59 |BESCHLEUNIGUNG Y| 000038D0: 3F 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 44 |?. BEQ D| 000038E0: 59 0D 20 20 20 20 20 20 20 20 20 44 45 43 20 41 |Y. DEC A| 000038F0: 43 43 54 32 2C 58 20 20 20 20 20 3B 4A 41 3A 20 |CCT2,X ;JA: | 00003900: 57 45 49 54 45 52 0D 20 20 20 20 20 20 20 20 20 |WEITER. | 00003910: 42 50 4C 20 41 43 31 31 20 20 20 20 20 20 20 20 |BPL AC11 | 00003920: 3B 41 4E 41 4C 4F 47 20 2D 41 43 58 2D 0D 0D 20 |;ANALOG -ACX-.. | 00003930: 20 20 20 20 20 20 20 20 4C 44 41 20 41 43 43 54 | LDA ACCT| 00003940: 59 2C 58 0D 20 20 20 20 20 20 20 20 20 53 54 41 |Y,X. STA| 00003950: 20 41 43 43 54 32 2C 58 0D 0D 20 20 20 20 20 20 | ACCT2,X.. | 00003960: 20 20 20 4C 44 41 20 44 45 4C 54 41 59 2C 58 0D | LDA DELTAY,X.| 00003970: 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 24 46 | AND #$F| 00003980: 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 5A |0. STA Z| 00003990: 57 52 32 0D 20 20 20 20 20 20 20 20 20 4C 53 52 |WR2. LSR| 000039A0: 20 41 0D 20 20 20 20 20 20 20 20 20 4C 53 52 20 | A. LSR | 000039B0: 41 0D 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 |A. LSR A| 000039C0: 0D 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D |. LSR A.| 000039D0: 20 20 20 20 20 20 20 20 20 53 54 41 20 5A 57 52 | STA ZWR| 000039E0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 44 45 |. LDA DE| 000039F0: 4C 54 41 59 2C 58 0D 20 20 20 20 20 20 20 20 20 |LTAY,X. | 00003A00: 41 4E 44 20 23 24 30 46 0D 20 20 20 20 20 20 20 |AND #$0F. | 00003A10: 20 20 43 4D 50 20 5A 57 52 0D 20 20 20 20 20 20 | CMP ZWR. | 00003A20: 20 20 20 42 4E 45 20 41 43 36 0D 20 20 20 20 20 | BNE AC6. | 00003A30: 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 | LDA #$00. | 00003A40: 20 20 20 20 20 20 53 54 41 20 41 43 43 54 59 2C | STA ACCTY,| 00003A50: 58 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 53 |X. BEQ S| 00003A60: 50 43 0D 0D 41 43 36 20 20 20 20 20 20 42 43 43 |PC..AC6 BCC| 00003A70: 20 41 43 37 0D 20 20 20 20 20 20 20 20 20 53 42 | AC7. SB| 00003A80: 43 20 23 31 0D 20 20 20 20 20 20 20 20 20 42 50 |C #1. BP| 00003A90: 4C 20 41 43 38 0D 41 43 37 20 20 20 20 20 20 41 |L AC8.AC7 A| 00003AA0: 44 43 20 23 31 0D 41 43 38 20 20 20 20 20 20 4F |DC #1.AC8 O| 00003AB0: 52 41 20 5A 57 52 32 0D 20 20 20 20 20 20 20 20 |RA ZWR2. | 00003AC0: 20 53 54 41 20 44 45 4C 54 41 59 2C 58 0D 20 20 | STA DELTAY,X. | 00003AD0: 20 20 20 20 20 20 20 42 4E 45 20 44 59 31 0D 0D | BNE DY1..| 00003AE0: 41 43 31 31 20 20 20 20 20 4C 44 41 20 44 45 4C |AC11 LDA DEL| 00003AF0: 54 41 59 2C 58 0D 20 20 20 20 20 20 20 20 20 42 |TAY,X. B| 00003B00: 4E 45 20 44 59 31 0D 0D 44 59 20 20 20 20 20 20 |NE DY1..DY | 00003B10: 20 4C 44 41 20 44 45 4C 54 41 59 2C 58 20 20 20 | LDA DELTAY,X | 00003B20: 20 3B 20 59 20 42 45 57 45 47 55 4E 47 20 3F 0D | ; Y BEWEGUNG ?.| 00003B30: 20 20 20 20 20 20 20 20 20 42 45 51 20 53 50 43 | BEQ SPC| 00003B40: 0D 20 20 20 20 20 20 20 20 20 42 49 54 20 4D 59 |. BIT MY| 00003B50: 20 20 20 20 20 20 20 20 20 20 3B 20 41 4E 41 4C | ; ANAL| 00003B60: 4F 47 20 2D 44 58 2D 20 21 0D 20 20 20 20 20 20 |OG -DX- !. | 00003B70: 20 20 20 42 50 4C 20 44 59 31 0D 20 20 20 20 20 | BPL DY1. | 00003B80: 20 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 | LSR A. | 00003B90: 20 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 | LSR A. | 00003BA0: 20 20 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 | LSR A. | 00003BB0: 20 4C 53 52 20 41 0D 44 59 31 20 20 20 20 20 20 | LSR A.DY1 | 00003BC0: 41 4E 44 20 23 24 30 46 0D 20 20 20 20 20 20 20 |AND #$0F. | 00003BD0: 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 4C | TAY. L| 00003BE0: 44 41 20 44 45 4C 54 42 2C 59 0D 20 20 20 20 20 |DA DELTB,Y. | 00003BF0: 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 | CLC. | 00003C00: 20 41 44 43 20 59 57 45 52 54 0D 20 20 20 20 20 | ADC YWERT. | 00003C10: 20 20 20 20 53 54 41 20 59 57 45 52 54 0D 0D 53 | STA YWERT..S| 00003C20: 50 43 20 20 20 20 20 20 4C 44 41 20 53 50 45 43 |PC LDA SPEC| 00003C30: 48 49 2C 58 20 20 20 20 3B 53 50 45 43 49 41 4C |HI,X ;SPECIAL| 00003C40: 20 50 52 47 20 3F 21 0D 20 20 20 20 20 20 20 20 | PRG ?!. | 00003C50: 20 42 45 51 20 53 45 54 58 59 0D 20 20 20 20 20 | BEQ SETXY. | 00003C60: 20 20 20 20 53 54 41 20 53 50 31 2B 32 20 20 20 | STA SP1+2 | 00003C70: 20 20 20 20 3B 4A 41 21 20 41 44 52 0D 20 20 20 | ;JA! ADR. | 00003C80: 20 20 20 20 20 20 4C 44 41 20 53 50 45 43 4C 4F | LDA SPECLO| 00003C90: 2C 58 20 20 20 20 3B 20 48 4F 4C 45 4E 0D 20 20 |,X ; HOLEN. | 00003CA0: 20 20 20 20 20 20 20 53 54 41 20 53 50 31 2B 31 | STA SP1+1| 00003CB0: 0D 20 20 20 20 20 20 20 20 20 53 54 58 20 53 50 |. STX SP| 00003CC0: 31 2B 34 20 20 20 20 20 20 20 3B 53 50 52 2D 4E |1+4 ;SPR-N| 00003CD0: 52 20 52 45 54 54 45 4E 0D 53 50 31 20 20 20 20 |R RETTEN.SP1 | 00003CE0: 20 20 4A 53 52 20 24 46 46 46 46 20 20 20 20 20 | JSR $FFFF | 00003CF0: 20 20 3B 49 4E 53 20 5A 55 53 41 54 5A 2D 50 52 | ;INS ZUSATZ-PR| 00003D00: 47 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |G. LDX #| 00003D10: 30 20 20 20 20 20 20 20 20 20 20 3B 53 50 52 2D |0 ;SPR-| 00003D20: 4E 52 20 52 45 54 54 45 4E 0D 0D 53 45 54 58 59 |NR RETTEN..SETXY| 00003D30: 20 20 20 20 4C 44 41 20 58 57 45 52 54 20 20 20 | LDA XWERT | 00003D40: 20 20 20 20 3B 4E 45 55 45 20 53 50 52 2D 50 4F | ;NEUE SPR-PO| 00003D50: 53 2E 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |S.. BEQ | 00003D60: 53 58 35 20 20 20 20 20 20 20 20 20 3B 42 45 52 |SX5 ;BER| 00003D70: 45 43 48 4E 45 4E 20 21 0D 20 20 20 20 20 20 20 |ECHNEN !. | 00003D80: 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 41 | CLC. A| 00003D90: 44 43 20 58 50 4F 53 2C 58 20 20 20 20 20 20 3B |DC XPOS,X ;| 00003DA0: 58 2D 50 4F 53 0D 20 20 20 20 20 20 20 20 20 53 |X-POS. S| 00003DB0: 54 41 20 58 50 4F 53 2C 58 0D 20 20 20 20 20 20 |TA XPOS,X. | 00003DC0: 20 20 20 42 49 54 20 58 57 45 52 54 0D 20 20 20 | BIT XWERT. | 00003DD0: 20 20 20 20 20 20 42 50 4C 20 53 58 33 20 20 20 | BPL SX3 | 00003DE0: 20 20 20 20 20 20 3B 58 57 45 52 54 20 4E 45 47 | ;XWERT NEG| 00003DF0: 3F 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 53 |?. BCC S| 00003E00: 58 33 2B 32 20 20 20 20 20 20 20 3B 41 44 44 2E |X3+2 ;ADD.| 00003E10: 55 45 42 45 52 4C 41 55 46 3F 0D 20 20 20 20 20 |UEBERLAUF?. | 00003E20: 20 20 20 20 42 43 53 20 53 58 35 20 20 20 20 20 | BCS SX5 | 00003E30: 20 20 20 20 3B 4A 41 2F 4E 45 49 4E 3F 0D 53 58 | ;JA/NEIN?.SX| 00003E40: 33 20 20 20 20 20 20 42 43 43 20 53 58 35 0D 20 |3 BCC SX5. | 00003E50: 20 20 20 20 20 20 20 20 4C 44 41 20 43 4F 4E 54 | LDA CONT| 00003E60: 52 4F 4C 2C 58 20 20 20 3B 4D 49 54 20 4D 53 42 |ROL,X ;MIT MSB| 00003E70: 20 21 0D 20 20 20 20 20 20 20 20 20 45 4F 52 20 | !. EOR | 00003E80: 23 24 34 30 0D 20 20 20 20 20 20 20 20 20 53 54 |#$40. ST| 00003E90: 41 20 43 4F 4E 54 52 4F 4C 2C 58 0D 53 58 35 20 |A CONTROL,X.SX5 | 00003EA0: 20 20 20 20 20 4C 44 41 20 59 57 45 52 54 0D 20 | LDA YWERT. | 00003EB0: 20 20 20 20 20 20 20 20 42 45 51 20 53 58 34 0D | BEQ SX4.| 00003EC0: 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 | CLC. | 00003ED0: 20 20 20 20 20 20 41 44 43 20 59 50 4F 53 2C 58 | ADC YPOS,X| 00003EE0: 20 20 20 20 20 20 3B 59 2D 50 4F 53 0D 20 20 20 | ;Y-POS. | 00003EF0: 20 20 20 20 20 20 53 54 41 20 59 50 4F 53 2C 58 | STA YPOS,X| 00003F00: 20 20 20 20 20 20 3B 20 55 4E 44 20 46 45 52 54 | ; UND FERT| 00003F10: 49 47 21 0D 0D 53 58 34 20 20 20 20 20 20 4A 4D |IG!..SX4 JM| 00003F20: 50 20 41 4E 34 20 20 20 20 20 20 20 20 20 3B 45 |P AN4 ;E| 00003F30: 49 4E 53 4F 52 54 49 45 52 45 4E 20 21 0D 0D 0D |INSORTIEREN !...| 00003F40: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00003F50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003F60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 2A 20 41 42 53 |---------.;* ABS| 00003F70: 43 48 4C 49 45 53 53 45 4E 44 45 52 20 53 4F 52 |CHLIESSENDER SOR| 00003F80: 54 49 45 52 20 2D 20 41 4C 47 4F 52 49 54 48 4D |TIER - ALGORITHM| 00003F90: 55 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |US.;------------| 00003FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003FB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 53 4F 52 |-----------..SOR| 00003FC0: 54 20 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 |T LDY #0. | 00003FD0: 20 20 20 20 20 20 4C 44 58 20 23 36 30 0D 41 4E | LDX #60.AN| 00003FE0: 37 20 20 20 20 20 20 4C 44 41 20 59 54 41 42 2C |7 LDA YTAB,| 00003FF0: 58 20 20 20 20 20 20 3B 54 41 42 20 53 45 41 52 |X ;TAB SEAR| 00004000: 43 48 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |CH. BEQ | 00004010: 41 4E 36 20 20 20 20 20 20 20 20 20 3B 53 50 52 |AN6 ;SPR| 00004020: 20 47 45 46 55 4E 44 45 4E 3F 0D 20 20 20 20 20 | GEFUNDEN?. | 00004030: 20 20 20 20 53 54 41 20 53 52 54 41 42 2C 59 20 | STA SRTAB,Y | 00004040: 20 20 3B 4A 41 3A 45 49 4E 53 4F 52 54 49 45 52 | ;JA:EINSORTIER| 00004050: 45 4E 21 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |EN!. LDA| 00004060: 20 23 30 0D 20 20 20 20 20 20 20 20 20 53 54 41 | #0. STA| 00004070: 20 59 54 41 42 2C 58 20 20 20 20 20 20 3B 57 45 | YTAB,X ;WE| 00004080: 52 54 20 43 4C 52 21 0D 20 20 20 20 20 20 20 20 |RT CLR!. | 00004090: 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 | INY | 000040A0: 20 3B 4E 45 58 54 0D 41 4E 36 20 20 20 20 20 20 | ;NEXT.AN6 | 000040B0: 44 45 58 20 20 20 20 20 20 20 20 20 20 20 20 20 |DEX | 000040C0: 3B 47 41 4E 5A 45 4E 20 42 45 52 45 49 43 48 0D |;GANZEN BEREICH.| 000040D0: 20 20 20 20 20 20 20 20 20 43 50 58 20 23 31 30 | CPX #10| 000040E0: 20 20 20 20 20 20 20 20 20 3B 44 55 52 43 48 53 | ;DURCHS| 000040F0: 55 43 48 45 4E 21 0D 20 20 20 20 20 20 20 20 20 |UCHEN!. | 00004100: 42 43 53 20 41 4E 37 0D 20 20 20 20 20 20 20 20 |BCS AN7. | 00004110: 20 4C 44 41 20 23 24 46 46 20 20 20 20 20 20 20 | LDA #$FF | 00004120: 20 3B 45 4E 44 45 20 44 45 52 20 54 41 42 0D 20 | ;ENDE DER TAB. | 00004130: 20 20 20 20 20 20 20 20 53 54 41 20 53 52 54 41 | STA SRTA| 00004140: 42 2C 59 20 20 20 20 20 3B 4D 41 52 4B 49 45 52 |B,Y ;MARKIER| 00004150: 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 |EN. STY | 00004160: 53 50 52 32 20 20 20 20 20 20 20 20 3B 53 50 52 |SPR2 ;SPR| 00004170: 2D 41 4E 5A 41 48 4C 0D 20 20 20 20 20 20 20 20 |-ANZAHL. | 00004180: 20 53 54 59 20 53 50 52 33 20 20 20 20 20 20 20 | STY SPR3 | 00004190: 20 3B 52 45 54 54 45 4E 0D 0D 46 53 37 20 20 20 | ;RETTEN..FS7 | 000041A0: 20 20 20 44 45 59 20 20 20 20 20 20 20 20 20 20 | DEY | 000041B0: 20 20 20 3B 55 45 42 45 52 50 52 55 45 46 54 0D | ;UEBERPRUEFT.| 000041C0: 20 20 20 20 20 20 20 20 20 42 45 51 20 54 52 59 | BEQ TRY| 000041D0: 20 20 20 20 20 20 20 20 20 3B 4E 4F 43 48 4D 41 | ;NOCHMA| 000041E0: 4C 53 20 44 49 45 0D 20 20 20 20 20 20 20 20 20 |LS DIE. | 000041F0: 4C 44 58 20 53 52 54 41 42 2C 59 20 20 20 20 20 |LDX SRTAB,Y | 00004200: 3B 52 45 49 48 45 4E 46 4F 4C 47 45 0D 20 20 20 |;REIHENFOLGE. | 00004210: 20 20 20 20 20 20 4C 44 41 20 59 50 4F 53 2C 58 | LDA YPOS,X| 00004220: 20 20 20 20 20 20 3B 44 45 52 20 53 50 52 49 54 | ;DER SPRIT| 00004230: 45 53 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 |ES. LDX | 00004240: 53 52 54 41 42 2D 31 2C 59 20 20 20 3B 4D 49 54 |SRTAB-1,Y ;MIT| 00004250: 54 45 4C 53 20 44 45 52 0D 20 20 20 20 20 20 20 |TELS DER. | 00004260: 20 20 43 4D 50 20 59 50 4F 53 2C 58 20 20 20 20 | CMP YPOS,X | 00004270: 20 20 3B 4A 45 57 45 49 4C 49 47 45 4E 0D 20 20 | ;JEWEILIGEN. | 00004280: 20 20 20 20 20 20 20 42 43 43 20 46 53 37 20 20 | BCC FS7 | 00004290: 20 20 20 20 20 20 20 3B 28 45 43 48 54 45 4E 29 | ;(ECHTEN)| 000042A0: 20 59 50 4F 53 0D 20 20 20 20 20 20 20 20 20 4C | YPOS. L| 000042B0: 44 41 20 53 52 54 41 42 2C 59 20 20 20 20 20 3B |DA SRTAB,Y ;| 000042C0: 26 20 53 4F 52 54 49 45 52 54 20 55 4D 0D 20 20 |& SORTIERT UM. | 000042D0: 20 20 20 20 20 20 20 53 54 41 20 53 52 54 41 42 | STA SRTAB| 000042E0: 2D 31 2C 59 20 20 20 3B 28 46 41 4C 4C 53 20 4E |-1,Y ;(FALLS N| 000042F0: 4F 45 54 49 47 29 0D 20 20 20 20 20 20 20 20 20 |OETIG). | 00004300: 54 58 41 0D 20 20 20 20 20 20 20 20 20 53 54 41 |TXA. STA| 00004310: 20 53 52 54 41 42 2C 59 0D 20 20 20 20 20 20 20 | SRTAB,Y. | 00004320: 20 20 42 4E 45 20 46 53 37 0D 0D 54 52 59 20 20 | BNE FS7..TRY | 00004330: 20 20 20 20 4C 44 59 20 23 30 20 20 20 20 20 20 | LDY #0 | 00004340: 20 20 20 20 3B 46 45 52 54 49 47 54 20 45 49 4E | ;FERTIGT EIN| 00004350: 45 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |E. LDX #| 00004360: 33 30 20 20 20 20 20 20 20 20 20 3B 54 41 42 45 |30 ;TABE| 00004370: 4C 4C 45 20 44 45 52 0D 46 53 32 20 20 20 20 20 |LLE DER.FS2 | 00004380: 20 4C 44 41 20 43 4F 4E 54 52 4F 4C 2C 58 20 20 | LDA CONTROL,X | 00004390: 20 3B 46 52 45 49 45 4E 20 53 50 52 0D 20 20 20 | ;FREIEN SPR. | 000043A0: 20 20 20 20 20 20 42 4D 49 20 46 53 31 20 20 20 | BMI FS1 | 000043B0: 20 20 20 20 20 20 3B 41 4E 20 2E 2E 2E 0D 20 20 | ;AN .... | 000043C0: 20 20 20 20 20 20 20 4C 44 41 20 49 4E 49 54 54 | LDA INITT| 000043D0: 42 2C 58 0D 20 20 20 20 20 20 20 20 20 42 45 51 |B,X. BEQ| 000043E0: 20 46 53 33 20 20 20 20 20 20 20 20 20 3B 57 49 | FS3 ;WI| 000043F0: 52 44 20 56 4F 4E 0D 20 20 20 20 20 20 20 20 20 |RD VON. | 00004400: 42 50 4C 20 46 53 31 20 20 20 20 20 20 20 20 20 |BPL FS1 | 00004410: 3B 47 45 54 53 50 52 20 47 45 4E 55 54 5A 54 0D |;GETSPR GENUTZT.| 00004420: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 46 | CMP #$F| 00004430: 46 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 46 |F. BNE F| 00004440: 53 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |S1. LDA | 00004450: 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 53 54 |#$00. ST| 00004460: 41 20 49 4E 49 54 54 42 2C 58 0D 20 20 20 20 20 |A INITTB,X. | 00004470: 20 20 20 20 42 45 51 20 46 53 31 0D 46 53 33 20 | BEQ FS1.FS3 | 00004480: 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 | TXA. | 00004490: 20 20 53 54 41 20 53 50 46 52 45 45 2C 59 0D 20 | STA SPFREE,Y. | 000044A0: 20 20 20 20 20 20 20 20 49 4E 59 0D 46 53 31 20 | INY.FS1 | 000044B0: 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 20 | DEX. | 000044C0: 20 20 42 4E 45 20 46 53 32 0D 20 20 20 20 20 20 | BNE FS2. | 000044D0: 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 20 20 | DEY. | 000044E0: 53 54 59 20 46 53 50 52 20 20 20 20 20 20 20 20 |STY FSPR | 000044F0: 3B 45 4E 44 45 20 44 45 53 20 4D 4F 56 45 0D 20 |;ENDE DES MOVE. | 00004500: 20 20 20 20 20 20 20 20 52 54 53 20 20 20 20 20 | RTS | 00004510: 20 20 20 20 20 20 20 20 3B 50 52 4F 47 52 41 4D | ;PROGRAM| 00004520: 4D 53 0D 0D 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |MS....;---------| 00004530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00004540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B |--------------.;| 00004550: 2A 20 49 4E 49 54 49 41 4C 49 53 49 45 52 54 20 |* INITIALISIERT | 00004560: 41 4C 4C 45 20 53 50 52 49 54 45 53 20 4D 49 54 |ALLE SPRITES MIT| 00004570: 54 45 4C 53 0D 3B 20 20 54 52 41 43 4B 2D 54 41 |TELS.; TRACK-TA| 00004580: 42 45 4C 4C 45 20 21 0D 3B 2D 2D 2D 2D 2D 2D 2D |BELLE !.;-------| 00004590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000045A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000045B0: 0D 0D 4D 49 4E 49 54 20 20 20 20 4C 44 58 20 23 |..MINIT LDX #| 000045C0: 33 30 0D 4D 49 31 37 20 20 20 20 20 4C 44 41 20 |30.MI17 LDA | 000045D0: 49 4E 49 54 54 42 2C 58 0D 20 20 20 20 20 20 20 |INITTB,X. | 000045E0: 20 20 42 45 51 20 4D 49 31 20 20 20 20 20 20 20 | BEQ MI1 | 000045F0: 20 20 3B 49 4E 49 54 20 3F 0D 20 20 20 20 20 20 | ;INIT ?. | 00004600: 20 20 20 43 4D 50 20 23 24 46 46 20 20 20 20 20 | CMP #$FF | 00004610: 20 20 20 3B 56 49 45 4C 4C 45 49 43 48 54 20 3F | ;VIELLEICHT ?| 00004620: 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 4D 49 |. BEQ MI| 00004630: 31 0D 20 20 20 20 20 20 20 20 20 42 4D 49 20 4D |1. BMI M| 00004640: 49 31 36 20 20 20 20 20 20 20 20 3B 4A 41 3A 45 |I16 ;JA:E| 00004650: 58 50 4C 4F 53 49 4F 4E 0D 20 20 20 20 20 20 20 |XPLOSION. | 00004660: 20 20 4C 44 59 20 43 4F 4E 54 52 4F 4C 2C 58 20 | LDY CONTROL,X | 00004670: 20 20 3B 4A 41 3A 4E 4F 52 4D 41 4C 0D 20 20 20 | ;JA:NORMAL. | 00004680: 20 20 20 20 20 20 53 54 59 20 43 4E 54 52 0D 20 | STY CNTR. | 00004690: 20 20 20 20 20 20 20 20 42 4D 49 20 4D 49 32 20 | BMI MI2 | 000046A0: 20 20 20 20 20 20 20 20 3B 53 50 52 20 4F 4E 3F | ;SPR ON?| 000046B0: 0D 20 20 20 20 20 20 20 20 20 41 53 4C 20 41 20 |. ASL A | 000046C0: 20 20 20 20 20 20 20 20 20 20 3B 4E 45 49 4E 0D | ;NEIN.| 000046D0: 20 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 | TAY. | 000046E0: 20 20 20 20 20 20 4C 44 41 20 54 52 4B 54 41 42 | LDA TRKTAB| 000046F0: 2C 59 20 20 20 20 3B 54 52 41 43 4B 20 41 44 52 |,Y ;TRACK ADR| 00004700: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 54 52 |. STA TR| 00004710: 4B 4C 4F 2C 58 20 20 20 20 20 3B 20 48 4F 4C 45 |KLO,X ; HOLE| 00004720: 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4D |N. STA M| 00004730: 41 44 52 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |ADR. LDA| 00004740: 20 54 52 4B 54 41 42 2B 31 2C 59 0D 20 20 20 20 | TRKTAB+1,Y. | 00004750: 20 20 20 20 20 53 54 41 20 54 52 4B 48 49 2C 58 | STA TRKHI,X| 00004760: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4D 41 |. STA MA| 00004770: 44 52 2B 31 0D 20 20 20 20 20 20 20 20 20 4A 53 |DR+1. JS| 00004780: 52 20 43 4C 52 20 20 20 20 20 20 20 20 20 3B 41 |R CLR ;A| 00004790: 4C 54 45 20 57 45 52 54 20 43 4C 52 0D 20 20 20 |LTE WERT CLR. | 000047A0: 20 20 20 20 20 20 4C 44 59 20 23 30 0D 20 20 20 | LDY #0. | 000047B0: 20 20 20 20 20 20 4C 44 41 20 28 4D 41 44 52 29 | LDA (MADR)| 000047C0: 2C 59 20 20 20 20 3B 50 4F 53 49 54 49 4F 4E 0D |,Y ;POSITION.| 000047D0: 20 20 20 20 20 20 20 20 20 42 45 51 20 4D 49 31 | BEQ MI1| 000047E0: 35 20 20 20 20 20 20 20 20 3B 20 20 47 45 47 45 |5 ; GEGE| 000047F0: 42 45 4E 20 3F 0D 20 20 20 20 20 20 20 20 20 41 |BEN ?. A| 00004800: 53 4C 20 41 20 20 20 20 20 20 20 20 20 20 20 3B |SL A ;| 00004810: 4A 41 20 21 0D 20 20 20 20 20 20 20 20 20 53 54 |JA !. ST| 00004820: 41 20 58 50 4F 53 2C 58 20 20 20 20 20 20 3B 20 |A XPOS,X ; | 00004830: 58 2D 50 4F 53 20 26 0D 20 20 20 20 20 20 20 20 |X-POS &. | 00004840: 20 52 4F 52 20 41 0D 20 20 20 20 20 20 20 20 20 | ROR A. | 00004850: 4C 53 52 20 41 0D 20 20 20 20 20 20 20 20 20 41 |LSR A. A| 00004860: 4E 44 20 23 24 34 30 0D 20 20 20 20 20 20 20 20 |ND #$40. | 00004870: 20 53 54 41 20 43 4E 54 52 20 20 20 20 20 20 20 | STA CNTR | 00004880: 20 3B 20 4D 53 42 20 48 4F 4C 45 4E 21 0D 20 20 | ; MSB HOLEN!. | 00004890: 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 | INY. | 000048A0: 20 20 20 20 4C 44 41 20 28 4D 41 44 52 29 2C 59 | LDA (MADR),Y| 000048B0: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 59 50 |. STA YP| 000048C0: 4F 53 2C 58 20 20 20 20 20 20 3B 20 59 2D 50 4F |OS,X ; Y-PO| 000048D0: 53 20 48 4F 4C 45 4E 21 0D 4D 49 31 35 20 20 20 |S HOLEN!.MI15 | 000048E0: 20 20 4C 44 59 20 23 32 0D 20 20 20 20 20 20 20 | LDY #2. | 000048F0: 20 20 42 4E 45 20 4D 49 33 32 20 20 20 20 20 20 | BNE MI32 | 00004900: 20 20 3B 20 57 45 49 54 45 52 0D 0D 4D 49 31 36 | ; WEITER..MI16| 00004910: 20 20 20 20 20 4A 53 52 20 45 58 50 4C 32 20 20 | JSR EXPL2 | 00004920: 20 20 20 20 20 3B 45 58 50 4C 2E 2D 49 4E 49 54 | ;EXPL.-INIT| 00004930: 0D 4D 49 31 33 20 20 20 20 20 4C 44 41 20 43 4E |.MI13 LDA CN| 00004940: 54 52 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |TR. STA | 00004950: 43 4F 4E 54 52 4F 4C 2C 58 20 20 20 3B 53 50 52 |CONTROL,X ;SPR| 00004960: 20 45 49 4E 2F 41 55 53 0D 4D 49 31 34 20 20 20 | EIN/AUS.MI14 | 00004970: 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 20 | LDA #0. | 00004980: 20 20 53 54 41 20 49 4E 49 54 54 42 2C 58 20 20 | STA INITTB,X | 00004990: 20 20 3B 49 4E 49 54 20 46 45 52 54 49 47 21 0D | ;INIT FERTIG!.| 000049A0: 4D 49 31 20 20 20 20 20 20 44 45 58 0D 20 20 20 |MI1 DEX. | 000049B0: 20 20 20 20 20 20 42 4E 45 20 4D 49 31 37 20 20 | BNE MI17 | 000049C0: 20 20 20 20 20 20 3B 4E 45 58 54 20 53 50 52 3F | ;NEXT SPR?| 000049D0: 0D 20 20 20 20 20 20 20 20 20 52 54 53 20 20 20 |. RTS | 000049E0: 20 20 20 20 20 20 20 20 20 20 3B 4D 49 4E 49 54 | ;MINIT| 000049F0: 20 45 4E 44 45 20 21 21 21 0D 0D 0D 20 20 20 20 | ENDE !!!... | 00004A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004A10: 20 20 20 20 20 3B 53 50 52 20 57 41 52 20 45 49 | ;SPR WAR EI| 00004A20: 4E 20 21 0D 4D 49 32 20 20 20 20 20 20 54 59 41 |N !.MI2 TYA| 00004A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 43 4F | ;CO| 00004A40: 4E 54 52 4F 4C 2D 52 45 47 21 0D 20 20 20 20 20 |NTROL-REG!. | 00004A50: 20 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 | ASL A. | 00004A60: 20 20 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 | ASL A. | 00004A70: 20 20 42 4D 49 20 4D 49 31 34 20 20 20 20 20 20 | BMI MI14 | 00004A80: 20 20 3B 45 58 50 4C 20 3F 0D 4D 49 31 32 20 20 | ;EXPL ?.MI12 | 00004A90: 20 20 20 4C 44 41 20 54 52 4B 4C 4F 2C 58 20 20 | LDA TRKLO,X | 00004AA0: 20 20 20 3B 4E 4F 3A 20 41 4C 54 45 0D 20 20 20 | ;NO: ALTE. | 00004AB0: 20 20 20 20 20 20 53 54 41 20 4D 41 44 52 20 20 | STA MADR | 00004AC0: 20 20 20 20 20 20 3B 20 41 44 52 20 48 4F 4C 45 | ; ADR HOLE| 00004AD0: 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 54 |N. LDA T| 00004AE0: 52 4B 48 49 2C 58 0D 20 20 20 20 20 20 20 20 20 |RKHI,X. | 00004AF0: 42 45 51 20 4D 49 31 34 0D 20 20 20 20 20 20 20 |BEQ MI14. | 00004B00: 20 20 53 54 41 20 4D 41 44 52 2B 31 0D 20 20 20 | STA MADR+1. | 00004B10: 20 20 20 20 20 20 4C 44 59 20 54 52 4B 50 4F 2C | LDY TRKPO,| 00004B20: 58 20 20 20 20 20 3B 50 4F 49 4E 54 45 52 0D 4D |X ;POINTER.M| 00004B30: 49 33 32 20 20 20 20 20 4C 44 41 20 28 4D 41 44 |I32 LDA (MAD| 00004B40: 52 29 2C 59 0D 20 20 20 20 20 20 20 20 20 42 45 |R),Y. BE| 00004B50: 51 20 4D 49 31 34 20 20 20 20 20 20 20 20 3B 54 |Q MI14 ;T| 00004B60: 52 41 43 4B 20 45 4E 44 45 20 3F 0D 20 20 20 20 |RACK ENDE ?. | 00004B70: 20 20 20 20 20 43 4D 50 20 23 24 46 46 20 20 20 | CMP #$FF | 00004B80: 20 20 20 20 20 3B 4E 4F 3A 0D 20 20 20 20 20 20 | ;NO:. | 00004B90: 20 20 20 42 45 51 20 4D 49 4A 4D 50 20 20 20 20 | BEQ MIJMP | 00004BA0: 20 20 20 3B 4A 55 4D 50 2F 45 49 4E 53 43 48 55 | ;JUMP/EINSCHU| 00004BB0: 42 3F 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |B?. JSR | 00004BC0: 4D 49 33 20 20 20 20 20 20 20 20 20 3B 4E 4F 3A |MI3 ;NO:| 00004BD0: 20 4E 4F 52 4D 2D 49 4E 49 54 21 0D 20 20 20 20 | NORM-INIT!. | 00004BE0: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. | 00004BF0: 20 20 54 59 41 20 20 20 20 20 20 20 20 20 20 20 | TYA | 00004C00: 20 20 3B 4E 45 55 45 4E 0D 20 20 20 20 20 20 20 | ;NEUEN. | 00004C10: 20 20 53 54 41 20 54 52 4B 50 4F 2C 58 20 20 20 | STA TRKPO,X | 00004C20: 20 20 3B 50 4F 49 4E 54 45 52 20 52 45 54 54 45 | ;POINTER RETTE| 00004C30: 4E 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4D |N. JMP M| 00004C40: 49 31 33 20 20 20 20 20 20 20 20 3B 4E 45 58 54 |I13 ;NEXT| 00004C50: 20 53 50 52 20 21 0D 0D 4D 49 4A 4D 50 20 20 20 | SPR !..MIJMP | 00004C60: 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 4C 44 | INY. LD| 00004C70: 41 20 28 4D 41 44 52 29 2C 59 20 20 20 20 3B 54 |A (MADR),Y ;T| 00004C80: 45 53 54 45 4E 20 21 0D 20 20 20 20 20 20 20 20 |ESTEN !. | 00004C90: 20 43 4D 50 20 23 24 46 46 0D 20 20 20 20 20 20 | CMP #$FF. | 00004CA0: 20 20 20 42 45 51 20 4D 49 4A 31 20 20 20 20 20 | BEQ MIJ1 | 00004CB0: 20 20 20 3B 4A 55 4D 50 20 3F 0D 20 20 20 20 20 | ;JUMP ?. | 00004CC0: 20 20 20 20 43 4D 50 20 23 24 46 45 0D 20 20 20 | CMP #$FE. | 00004CD0: 20 20 20 20 20 20 42 45 51 20 4D 49 4A 53 20 20 | BEQ MIJS | 00004CE0: 20 20 20 20 20 20 3B 45 49 4E 53 43 48 55 42 20 | ;EINSCHUB | 00004CF0: 3F 0D 20 20 20 20 20 20 20 20 20 44 45 59 0D 20 |?. DEY. | 00004D00: 20 20 20 20 20 20 20 20 4A 4D 50 20 4D 49 31 33 | JMP MI13| 00004D10: 20 20 20 20 20 20 20 20 3B 57 45 44 45 52 20 4E | ;WEDER N| 00004D20: 4F 43 48 20 21 0D 0D 0D 4D 49 4A 31 20 20 20 20 |OCH !...MIJ1 | 00004D30: 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 | INY | 00004D40: 20 3B 4A 55 4D 50 21 0D 20 20 20 20 20 20 20 20 | ;JUMP!. | 00004D50: 20 4C 44 41 20 28 4D 41 44 52 29 2C 59 20 20 20 | LDA (MADR),Y | 00004D60: 20 3B 20 48 4F 4C 54 20 4E 45 55 45 0D 20 20 20 | ; HOLT NEUE. | 00004D70: 20 20 20 20 20 20 53 54 41 20 54 52 4B 4C 4F 2C | STA TRKLO,| 00004D80: 58 20 20 20 20 20 3B 20 54 52 41 43 4B 20 41 44 |X ; TRACK AD| 00004D90: 52 0D 20 20 20 20 20 20 20 20 20 49 4E 59 20 20 |R. INY | 00004DA0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 26 20 55 | ; & U| 00004DB0: 45 42 45 52 47 49 42 54 21 0D 20 20 20 20 20 20 |EBERGIBT!. | 00004DC0: 20 20 20 4C 44 41 20 28 4D 41 44 52 29 2C 59 20 | LDA (MADR),Y | 00004DD0: 20 20 20 3B 20 41 43 48 54 55 4E 47 20 3A 0D 20 | ; ACHTUNG :. | 00004DE0: 20 20 20 20 20 20 20 20 53 54 41 20 54 52 4B 48 | STA TRKH| 00004DF0: 49 2C 58 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D |I,X ;-------| 00004E00: 2D 2D 2D 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |---. LDA| 00004E10: 20 23 30 20 20 20 20 20 20 20 20 20 20 3B 4D 55 | #0 ;MU| 00004E20: 53 53 20 41 55 46 0D 20 20 20 20 20 20 20 20 20 |SS AUF. | 00004E30: 53 54 41 20 54 52 4B 50 4F 2C 58 20 20 20 20 20 |STA TRKPO,X | 00004E40: 3B 53 54 41 54 55 53 20 42 59 54 45 0D 20 20 20 |;STATUS BYTE. | 00004E50: 20 20 20 20 20 20 42 45 51 20 4D 49 31 32 20 20 | BEQ MI12 | 00004E60: 20 20 20 20 20 20 3B 57 45 49 53 45 4E 20 21 21 | ;WEISEN !!| 00004E70: 21 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 |!... | 00004E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 45 49 | ;EI| 00004E90: 4E 53 43 48 55 42 20 21 0D 4D 49 4A 53 20 20 20 |NSCHUB !.MIJS | 00004EA0: 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 | INY | 00004EB0: 20 20 3B 20 48 4F 4C 54 0D 20 20 20 20 20 20 20 | ; HOLT. | 00004EC0: 20 20 4C 44 41 20 28 4D 41 44 52 29 2C 59 20 20 | LDA (MADR),Y | 00004ED0: 20 20 3B 20 45 49 4E 53 50 52 55 4E 47 0D 20 20 | ; EINSPRUNG. | 00004EE0: 20 20 20 20 20 20 20 53 54 41 20 4D 49 4A 53 32 | STA MIJS2| 00004EF0: 2B 31 20 20 20 20 20 3B 20 44 45 52 20 49 4E 49 |+1 ; DER INI| 00004F00: 54 2D 53 45 51 0D 20 20 20 20 20 20 20 20 20 49 |T-SEQ. I| 00004F10: 4E 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |NY. LDA | 00004F20: 28 4D 41 44 52 29 2C 59 20 20 20 20 3B 41 43 48 |(MADR),Y ;ACH| 00004F30: 54 55 4E 47 3A 0D 20 20 20 20 20 20 20 20 20 53 |TUNG:. S| 00004F40: 54 41 20 4D 41 44 52 2B 31 20 20 20 20 20 20 3B |TA MADR+1 ;| 00004F50: 2D 2D 2D 2D 2D 2D 2D 2D 0D 4D 49 4A 53 32 20 20 |--------.MIJS2 | 00004F60: 20 20 4C 44 41 20 23 24 30 30 20 20 20 20 20 20 | LDA #$00 | 00004F70: 20 20 3B 4D 55 53 53 20 41 55 46 0D 20 20 20 20 | ;MUSS AUF. | 00004F80: 20 20 20 20 20 53 54 41 20 4D 41 44 52 20 20 20 | STA MADR | 00004F90: 20 20 20 20 20 3B 53 54 41 54 55 53 20 42 59 54 | ;STATUS BYT| 00004FA0: 45 0D 20 20 20 20 20 20 20 20 20 49 4E 59 20 20 |E. INY | 00004FB0: 20 20 20 20 20 20 20 20 20 20 20 3B 57 45 49 53 | ;WEIS| 00004FC0: 45 4E 20 21 0D 20 20 20 20 20 20 20 20 20 54 59 |EN !. TY| 00004FD0: 41 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 54 |A. STA T| 00004FE0: 52 4B 50 4F 2C 58 0D 20 20 20 20 20 20 20 20 20 |RKPO,X. | 00004FF0: 4C 44 59 20 23 30 0D 20 20 20 20 20 20 20 20 20 |LDY #0. | 00005000: 4C 44 41 20 28 4D 41 44 52 29 2C 59 20 20 20 20 |LDA (MADR),Y | 00005010: 3B 20 46 55 45 48 52 54 20 53 49 45 0D 20 20 20 |; FUEHRT SIE. | 00005020: 20 20 20 20 20 20 4A 53 52 20 4D 49 33 20 20 20 | JSR MI3 | 00005030: 20 20 20 20 20 20 3B 20 41 55 53 20 26 20 4B 45 | ; AUS & KE| 00005040: 48 52 54 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |HRT. JMP| 00005050: 20 4D 49 31 33 20 20 20 20 20 20 20 20 3B 20 5A | MI13 ; Z| 00005060: 55 52 55 45 43 4B 0D 0D 0D 4D 49 33 20 20 20 20 |URUECK...MI3 | 00005070: 20 20 4C 53 52 20 41 20 20 20 20 20 20 20 20 20 | LSR A | 00005080: 20 20 3B 48 4F 4C 54 20 41 4C 4C 45 0D 20 20 20 | ;HOLT ALLE. | 00005090: 20 20 20 20 20 20 53 54 41 20 49 52 45 47 20 20 | STA IREG | 000050A0: 20 20 20 20 20 20 3B 20 44 41 54 45 4E 20 41 55 | ; DATEN AU| 000050B0: 53 20 44 45 4D 0D 20 20 20 20 20 20 20 20 20 42 |S DEM. B| 000050C0: 43 43 20 4D 49 34 20 20 20 20 20 20 20 20 20 3B |CC MI4 ;| 000050D0: 20 54 52 41 43 4B 20 21 0D 20 20 20 20 20 20 20 | TRACK !. | 000050E0: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 4C | INY. L| 000050F0: 44 41 20 28 4D 41 44 52 29 2C 59 20 20 20 20 3B |DA (MADR),Y ;| 00005100: 53 50 45 43 49 41 4C 20 49 4E 49 54 3F 0D 20 20 |SPECIAL INIT?. | 00005110: 20 20 20 20 20 20 20 53 54 41 20 4D 49 34 2D 36 | STA MI4-6| 00005120: 20 20 20 20 20 20 20 3B 57 45 4E 4E 20 4A 41 3A | ;WENN JA:| 00005130: 0D 20 20 20 20 20 20 20 20 20 49 4E 59 20 20 20 |. INY | 00005140: 20 20 20 20 20 20 20 20 20 20 3B 20 48 4F 4C 54 | ; HOLT| 00005150: 20 45 49 4E 53 52 55 4E 47 0D 20 20 20 20 20 20 | EINSRUNG. | 00005160: 20 20 20 4C 44 41 20 28 4D 41 44 52 29 2C 59 0D | LDA (MADR),Y.| 00005170: 20 20 20 20 20 20 20 20 20 53 54 41 20 4D 49 34 | STA MI4| 00005180: 2D 35 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 |-5. STY | 00005190: 4D 49 34 2D 31 20 20 20 20 20 20 20 3B 52 45 54 |MI4-1 ;RET| 000051A0: 54 45 54 20 58 2C 59 0D 20 20 20 20 20 20 20 20 |TET X,Y. | 000051B0: 20 53 54 58 20 4D 49 34 2D 33 0D 20 20 20 20 20 | STX MI4-3. | 000051C0: 20 20 20 20 4A 53 52 20 24 46 46 46 46 20 20 20 | JSR $FFFF | 000051D0: 20 20 20 20 3B 53 50 52 49 4E 47 54 20 45 49 4E | ;SPRINGT EIN| 000051E0: 21 0D 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 |!. LDX #| 000051F0: 30 20 20 20 20 20 20 20 20 20 20 3B 20 58 2C 59 |0 ; X,Y| 00005200: 20 52 45 54 54 45 4E 0D 20 20 20 20 20 20 20 20 | RETTEN. | 00005210: 20 4C 44 59 20 23 30 0D 0D 4D 49 34 20 20 20 20 | LDY #0..MI4 | 00005220: 20 20 4C 53 52 20 49 52 45 47 20 20 20 20 20 20 | LSR IREG | 00005230: 20 20 3B 42 41 53 49 43 0D 20 20 20 20 20 20 20 | ;BASIC. | 00005240: 20 20 42 43 43 20 4D 49 35 20 20 20 20 20 20 20 | BCC MI5 | 00005250: 20 20 3B 20 52 45 46 52 45 53 48 20 3F 0D 20 20 | ; REFRESH ?. | 00005260: 20 20 20 20 20 20 20 49 4E 59 20 20 20 20 20 20 | INY | 00005270: 20 20 20 20 20 20 20 3B 4A 41 3A 0D 20 20 20 20 | ;JA:. | 00005280: 20 20 20 20 20 4C 44 41 20 28 4D 41 44 52 29 2C | LDA (MADR),| 00005290: 59 20 20 20 20 3B 4A 41 3A 20 48 4F 4C 54 3A 0D |Y ;JA: HOLT:.| 000052A0: 20 20 20 20 20 20 20 20 20 42 45 51 20 4D 49 34 | BEQ MI4| 000052B0: 31 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 42 |1. STA B| 000052C0: 4C 4F 43 4B 2C 58 20 20 20 20 20 3B 20 42 4C 4F |LOCK,X ; BLO| 000052D0: 43 4B 20 26 0D 4D 49 34 31 20 20 20 20 20 4C 44 |CK &.MI41 LD| 000052E0: 41 20 43 4E 54 52 0D 20 20 20 20 20 20 20 20 20 |A CNTR. | 000052F0: 41 4E 44 20 23 24 34 30 0D 20 20 20 20 20 20 20 |AND #$40. | 00005300: 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 4F | INY. O| 00005310: 52 41 20 28 4D 41 44 52 29 2C 59 20 20 20 20 3B |RA (MADR),Y ;| 00005320: 20 46 41 52 42 45 20 21 0D 20 20 20 20 20 20 20 | FARBE !. | 00005330: 20 20 4F 52 41 20 23 24 38 30 20 20 20 20 20 20 | ORA #$80 | 00005340: 20 20 3B 26 20 53 50 52 20 4F 4E 20 21 0D 20 20 | ;& SPR ON !. | 00005350: 20 20 20 20 20 20 20 53 54 41 20 43 4E 54 52 0D | STA CNTR.| 00005360: 0D 4D 49 35 20 20 20 20 20 20 4C 53 52 20 49 52 |.MI5 LSR IR| 00005370: 45 47 20 20 20 20 20 20 20 20 3B 42 45 57 45 47 |EG ;BEWEG| 00005380: 55 4E 47 20 58 2F 59 3F 0D 20 20 20 20 20 20 20 |UNG X/Y?. | 00005390: 20 20 42 43 43 20 4D 49 36 0D 20 20 20 20 20 20 | BCC MI6. | 000053A0: 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 | INY | 000053B0: 20 20 20 3B 4A 41 3A 20 48 4F 4C 54 3A 0D 20 20 | ;JA: HOLT:. | 000053C0: 20 20 20 20 20 20 20 4C 44 41 20 28 4D 41 44 52 | LDA (MADR| 000053D0: 29 2C 59 20 20 20 20 3B 20 44 45 4C 54 41 58 0D |),Y ; DELTAX.| 000053E0: 20 20 20 20 20 20 20 20 20 53 54 41 20 44 45 4C | STA DEL| 000053F0: 54 41 58 2C 58 0D 20 20 20 20 20 20 20 20 20 49 |TAX,X. I| 00005400: 4E 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |NY. LDA | 00005410: 28 4D 41 44 52 29 2C 59 20 20 20 20 3B 20 44 45 |(MADR),Y ; DE| 00005420: 4C 54 41 59 0D 20 20 20 20 20 20 20 20 20 53 54 |LTAY. ST| 00005430: 41 20 44 45 4C 54 41 59 2C 58 0D 0D 4D 49 36 20 |A DELTAY,X..MI6 | 00005440: 20 20 20 20 20 4C 53 52 20 49 52 45 47 20 20 20 | LSR IREG | 00005450: 20 20 20 20 20 3B 43 4F 55 4E 54 20 44 4F 57 4E | ;COUNT DOWN| 00005460: 3F 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 4D |?. BCC M| 00005470: 49 37 0D 20 20 20 20 20 20 20 20 20 49 4E 59 20 |I7. INY | 00005480: 20 20 20 20 20 20 20 20 20 20 20 20 3B 4A 41 3A | ;JA:| 00005490: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 28 4D |. LDA (M| 000054A0: 41 44 52 29 2C 59 20 20 20 20 3B 20 48 4F 4C 54 |ADR),Y ; HOLT| 000054B0: 20 44 45 4C 41 59 0D 20 20 20 20 20 20 20 20 20 | DELAY. | 000054C0: 53 54 41 20 44 45 4C 41 59 2C 58 0D 0D 4D 49 37 |STA DELAY,X..MI7| 000054D0: 20 20 20 20 20 20 4C 53 52 20 49 52 45 47 20 20 | LSR IREG | 000054E0: 20 20 20 20 20 20 3B 42 45 53 43 48 4C 45 55 4E | ;BESCHLEUN| 000054F0: 49 47 55 4E 47 0D 20 20 20 20 20 20 20 20 20 42 |IGUNG. B| 00005500: 43 43 20 4D 49 38 20 20 20 20 20 20 20 20 20 3B |CC MI8 ;| 00005510: 20 58 2F 59 20 3F 0D 20 20 20 20 20 20 20 20 20 | X/Y ?. | 00005520: 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 20 |INY | 00005530: 3B 4A 41 21 0D 20 20 20 20 20 20 20 20 20 53 54 |;JA!. ST| 00005540: 59 20 4D 49 37 31 2B 31 20 20 20 20 20 20 3B 59 |Y MI71+1 ;Y| 00005550: 20 52 45 54 54 45 4E 0D 20 20 20 20 20 20 20 20 | RETTEN. | 00005560: 20 4C 44 41 20 28 4D 41 44 52 29 2C 59 20 20 20 | LDA (MADR),Y | 00005570: 20 3B 48 4F 4C 54 20 5A 45 49 47 45 52 0D 20 20 | ;HOLT ZEIGER. | 00005580: 20 20 20 20 20 20 20 41 53 4C 20 41 20 20 20 20 | ASL A | 00005590: 20 20 20 20 20 20 20 3B 20 41 55 46 20 41 43 43 | ; AUF ACC| 000055A0: 54 42 0D 20 20 20 20 20 20 20 20 20 41 53 4C 20 |TB. ASL | 000055B0: 41 20 20 20 20 20 20 20 20 20 20 20 3B 20 2A 34 |A ; *4| 000055C0: 0D 20 20 20 20 20 20 20 20 20 54 41 59 20 20 20 |. TAY | 000055D0: 20 20 20 20 20 20 20 20 20 20 3B 48 4F 4C 54 20 | ;HOLT | 000055E0: 41 55 53 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |AUS. LDA| 000055F0: 20 41 43 43 54 42 2B 31 2C 59 20 20 20 3B 20 41 | ACCTB+1,Y ; A| 00005600: 43 43 54 42 20 3A 0D 20 20 20 20 20 20 20 20 20 |CCTB :. | 00005610: 53 54 41 20 41 43 43 54 58 2C 58 20 20 20 20 20 |STA ACCTX,X | 00005620: 3B 20 54 49 4D 45 20 58 0D 20 20 20 20 20 20 20 |; TIME X. | 00005630: 20 20 4C 44 41 20 41 43 43 54 42 2C 59 20 20 20 | LDA ACCTB,Y | 00005640: 20 20 3B 5A 49 45 4C 2F 53 54 41 52 54 20 2D 58 | ;ZIEL/START -X| 00005650: 2D 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 44 |-. STA D| 00005660: 45 4C 54 41 58 2C 58 0D 20 20 20 20 20 20 20 20 |ELTAX,X. | 00005670: 20 4C 44 41 20 41 43 43 54 42 2B 33 2C 59 20 20 | LDA ACCTB+3,Y | 00005680: 20 3B 20 54 49 4D 45 20 59 0D 20 20 20 20 20 20 | ; TIME Y. | 00005690: 20 20 20 53 54 41 20 41 43 43 54 59 2C 58 0D 20 | STA ACCTY,X. | 000056A0: 20 20 20 20 20 20 20 20 4C 44 41 20 41 43 43 54 | LDA ACCT| 000056B0: 42 2B 32 2C 59 20 20 20 3B 5A 49 45 4C 2F 53 54 |B+2,Y ;ZIEL/ST| 000056C0: 41 52 54 20 2D 59 2D 0D 20 20 20 20 20 20 20 20 |ART -Y-. | 000056D0: 20 53 54 41 20 44 45 4C 54 41 59 2C 58 0D 20 20 | STA DELTAY,X. | 000056E0: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 20 | LDA #$00 | 000056F0: 20 20 20 20 20 20 20 3B 20 41 4C 54 45 20 43 4F | ; ALTE CO| 00005700: 55 4E 54 45 52 0D 20 20 20 20 20 20 20 20 20 53 |UNTER. S| 00005710: 54 41 20 41 43 43 54 31 2C 58 20 20 20 20 20 3B |TA ACCT1,X ;| 00005720: 20 43 4C 52 0D 20 20 20 20 20 20 20 20 20 53 54 | CLR. ST| 00005730: 41 20 41 43 43 54 32 2C 58 0D 4D 49 37 31 20 20 |A ACCT2,X.MI71 | 00005740: 20 20 20 4C 44 59 20 23 24 30 30 20 20 20 20 20 | LDY #$00 | 00005750: 20 20 20 3B 59 20 5A 55 52 55 45 43 4B 0D 0D 4D | ;Y ZURUECK..M| 00005760: 49 38 20 20 20 20 20 20 4C 53 52 20 49 52 45 47 |I8 LSR IREG| 00005770: 20 20 20 20 20 20 20 20 3B 41 4E 49 4D 41 54 49 | ;ANIMATI| 00005780: 4F 4E 20 3F 0D 20 20 20 20 20 20 20 20 20 42 43 |ON ?. BC| 00005790: 43 20 4D 49 39 0D 20 20 20 20 20 20 20 20 20 49 |C MI9. I| 000057A0: 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |NY ;| 000057B0: 4A 41 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |JA. LDA | 000057C0: 28 4D 41 44 52 29 2C 59 20 20 20 20 3B 41 4E 49 |(MADR),Y ;ANI| 000057D0: 4D 41 54 49 4F 4E 53 2D 4E 52 2E 0D 20 20 20 20 |MATIONS-NR.. | 000057E0: 20 20 20 20 20 41 53 4C 20 41 20 20 20 20 20 20 | ASL A | 000057F0: 20 20 20 20 20 3B 2A 32 0D 20 20 20 20 20 20 20 | ;*2. | 00005800: 20 20 53 54 41 20 41 4E 49 54 42 2C 58 20 20 20 | STA ANITB,X | 00005810: 20 20 3B 55 45 42 45 52 47 45 42 45 4E 0D 20 20 | ;UEBERGEBEN. | 00005820: 20 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 | LDA #0. | 00005830: 20 20 20 20 20 20 20 53 54 41 20 41 4E 49 54 43 | STA ANITC| 00005840: 4F 2C 58 20 20 20 20 3B 20 43 4C 52 0D 20 20 20 |O,X ; CLR. | 00005850: 20 20 20 20 20 20 53 54 41 20 41 4E 49 43 4F 2C | STA ANICO,| 00005860: 58 0D 0D 4D 49 39 20 20 20 20 20 20 4C 53 52 20 |X..MI9 LSR | 00005870: 49 52 45 47 20 20 20 20 20 20 20 20 3B 53 50 45 |IREG ;SPE| 00005880: 43 49 41 4C 2D 50 52 47 0D 20 20 20 20 20 20 20 |CIAL-PRG. | 00005890: 20 20 42 43 43 20 4D 49 31 30 0D 20 20 20 20 20 | BCC MI10. | 000058A0: 20 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 | INY | 000058B0: 20 20 20 20 3B 4A 41 20 21 0D 20 20 20 20 20 20 | ;JA !. | 000058C0: 20 20 20 4C 44 41 20 28 4D 41 44 52 29 2C 59 0D | LDA (MADR),Y.| 000058D0: 20 20 20 20 20 20 20 20 20 53 54 41 20 53 50 45 | STA SPE| 000058E0: 43 4C 4F 2C 58 20 20 20 20 3B 48 4F 4C 54 20 41 |CLO,X ;HOLT A| 000058F0: 44 52 20 21 0D 20 20 20 20 20 20 20 20 20 49 4E |DR !. IN| 00005900: 59 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 28 |Y. LDA (| 00005910: 4D 41 44 52 29 2C 59 20 20 20 20 3B 26 55 45 42 |MADR),Y ;&UEB| 00005920: 45 52 47 49 42 54 20 21 0D 20 20 20 20 20 20 20 |ERGIBT !. | 00005930: 20 20 53 54 41 20 53 50 45 43 48 49 2C 58 0D 0D | STA SPECHI,X..| 00005940: 4D 49 31 30 20 20 20 20 20 4C 53 52 20 49 52 45 |MI10 LSR IRE| 00005950: 47 20 20 20 20 20 20 20 20 3B 53 49 4E 55 53 20 |G ;SINUS | 00005960: 3F 0D 20 20 20 20 20 20 20 20 20 42 43 43 20 4D |?. BCC M| 00005970: 49 31 31 0D 20 20 20 20 20 20 20 20 20 49 4E 59 |I11. INY| 00005980: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 4A | ; J| 00005990: 41 21 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |A!. LDA | 000059A0: 28 4D 41 44 52 29 2C 59 20 20 20 20 3B 48 4F 4C |(MADR),Y ;HOL| 000059B0: 54 20 4E 52 20 46 55 45 52 0D 20 20 20 20 20 20 |T NR FUER. | 000059C0: 20 20 20 4A 4D 50 20 53 49 4E 49 4E 49 54 20 20 | JMP SININIT | 000059D0: 20 20 20 3B 53 49 4E 54 41 42 32 20 26 20 49 4E | ;SINTAB2 & IN| 000059E0: 49 54 0D 4D 49 31 31 20 20 20 20 20 52 54 53 0D |IT.MI11 RTS.| 000059F0: 0D 0D |.. |
;---------------------------------------
.; SPRITE MOVER.;-----------
----------------------------.; (W) IN 19
91 BY INGO KUSCH.; SIMONS
TR.9.; 4700 HAMM 3.;
TEL:02381/464619.;---------------
------------------------.; BEREICH :
-X- : 456-480.; ------- (480
-456) CLR !!!!.; -Y- : 40
-240.;----------------------------------
-----.;ABKUERZUNGEN:.; 'SR' - SPRITE ROU
TINE.; (MOVE-PROGRAMM).; 'SD' - SP
RITE DARSTELLUNG.; (SICHTBARMACHEN
DER BEERECHNETEN.; SPRITES MIT F
IRST & NEXT).; ZW.SP. - ZWISCHEN SPEICHE
R.; S.O. - SIEHE OBEN.; S.U. - SIEHE UNT
EN.; CLR - CLEAR = LOESCHEN.; SPR - SP
RITE.; ADR - ADRESSE.; TAB - TABELLE.;
TRK - TRACK.; NR - NUMMER.; ? - B
EDINGUNGEN/ABFRAGEN.; ! - BEFEHLE/ANW
EISUNGEN.;------------------------------
---------..;--- SPRITE TABELLEN..BASE
= $4000.INITTB = BASE.XPOS = BAS
E+30 ;POSITION X.YPOS = BASE+6
0 ; " Y.BLOCK = BASE+90
;BLOCK NR.CONTROL = BASE+120
;ON/MSB/COLOR.DELTAX = BASE+150 ;
BEWEGUNG -X-.DELTAY = BASE+180 ;
" -Y-.DELAY = BASE+210 ;CO
UNTDOWN.SINXHI = BASE+240 ;SINUS
-X-.SINXLO = BASE+270.SINX1 = BASE+
300.SINX2 = BASE+330.SINX3 = BASE+
360.SINYHI = BASE+390 ;SINUS -Y-.
SINYLO = BASE+420.SINY1 = BASE+450.
SINY2 = BASE+480.SINY3 = BASE+520.
ANITB = BASE+570 ;ANIMATION.ANIC
O = BASE+600.ANITCO = BASE+630.SPEC
LO = BASE+660 ;SPECIAL-PRGS.SPECH
I = BASE+690.TRKLO = BASE+720
;TRACK COUNT.TRKHI = BASE+750.TRKPO
= BASE+780.ACCTX = BASE+810 ;BESC
HLEUNIGUNG-X-.ACCTY = BASE+840 ;
" -Y-.ACCT1 = BASE+870 ; "
-ZEIT -X-.ACCT2 = BASE+900 ; " "
-Y-.ZWISCH = BASE+930 ;BEELIEB
IG.ZWISCH2 = BASE+960 ;NUTZBAR.ZWI
SCH3 = BASE+990 ; ".ZWISCH4 = B
ASE+1020 ; "..XPOS2 = BASE+1050
;FUER 'SD'.YPOS2 = BASE+1080
;NOTWENDIGE.CONTROL2 = BASE+1110 ;Z
WISCHEN TABS.BLOCK2 = BASE+1140..YTAB
= BASE+$0500 ;SORTIER TAB 1.SRTAB
= YTAB+100 ; " " 2.SRTAB
2 = YTAB+130 ; ZW.SP. 'SD'.SPFREE
= YTAB+160 ;SORTIER TAB 3....;--
- ZEROPAGE ADRESSEN..ADR = $02.MADR
= $04.MRE = $06..XWERT = $0
8.YWERT = $09.CNTR = $0A.IREG
= $0B.FSPR = $0C.SPR = $0D.SPR
2 = $0E.SPR3 = $0F.ZWR = $1
0.ZWR2 = $11.MZWR = $12.MZWR2
= $13.BY = $14.MY = $15.SY
= $16.TIME = $17 ;'U
HR'..SPR21 = $1A.SPR31 = $1B....;-
-- MAKROS..SETIRQ .MACRO ;SET
ZT IRQ. LDA #<\1. STA $F
FFE. LDA #>\1. STA $FFFF
. .ENDM..FREE .MACRO
;GIBT IRQ FREI. ASL $D019.
CLI. .ENDM...;--- MAIN PART
.... *= $0810.. JMP INIT
;S.U....;-----------------------
----------------.;* ACHTUNG ! DIE FOLGEN
DE ROUTINE WIRD.; VON DEN IRQ-PROGRAMME
N FIRST & NEXT.; ANGESPRUNGEN ! SIE STE
HT HIER VORN,.; DAMIT SIE EINIGE TAKTZY
KLEN SCHNELLER.; (BRANCHES NUR IN GLEIC
HE PAGE USW...).;-----------------------
----------------..SET DEC SPR21
;BRINGT DIE. BMI ST3
;SPRS AUF. LDX SPR21 ;DEN
SCREEN .... LDY SRTAB2,X.
LDA CONTROL2,Y ;FARBE. BPL SE
T ;NOCH AN ?!?!. LDX SPR
. STA $D027,X. ASL A
;MSB HOLEN. ASL A.
LDA $D010. AND TABB,X.
BCC ST10 ;MSB - SETZEN.
ORA TABC,X.ST10 STA $D010..
LDA BLOCK2,Y ;BLOCK-NUMMER.ST4 S
TA $07F8,X. TXA. ASL A.
TAX. LDA XPOS2,Y ;X-
POSITION. STA $D000,X. L
DA YPOS2,Y ;Y-POSITION. STA
$D001,X.. LDA SPR ;NEXT
SPR. ADC #$01. AND #$07.
STA SPR. RTS..TABB
.BYTE $FE,$FD,$FB,$F7. .BYTE $EF
,$DF,$BF,$7F.TABC .BYTE $01,$02,$04,
$08. .BYTE $10,$20,$40,$80..ST3
PLA ;KEINE SPRS.
PLA ;MEHR. #SETIRQ
(FIRST) ;IRQ AN DEN. LDA $D011
; ANFANG. AND #$7F
;RASTER. STA $D011 ; REFRE
SH. LDA #10. STA $D012.
LDA SPR31. CMP #$08
;ZURUECK NACH:. BCS ST31.
JMP F3 ;FIRST ?!?.ST31
JMP N3 ;ODER NEXT ??.....;----
-----------------------------------.;* E
IGENTLICHER PROGRAMM BEGINN.;-----------
----------------------------..INIT S
EI. LDA #$05 ;ROM AUS.
STA $01. LDA #$00.
STA $D020 ;BACKGROUND.
STA $D021 ; COLORS. ST
A $DC0E ;ZEIT IRQS. STA
$DC0D ;SPERREN.. TAX.II1
LDA #$00. STA BASE,X
;REGISTER. STA BASE+$0100,X ;
ZURUECK-. STA BASE+$0200,X ; SE
TZEN. STA BASE+$0300,X.
STA BASE+$0400,X. STA BASE+$0500
,X. LDA #$20. STA $0400,
X ;BILDSCHIRM. STA $0500,X
;CLR !. STA $0600,X.
STA $0700,X. DEX. BN
E II1.. LDX #30 ;DITO.
LDA #$00.II2 STA $02,X
;ZEROPAGE. DEX. BPL
II2.. LDA #$FF ;MULTIC
OLOR. STA $D01C ;ON.
LDA #$06 ;SPR. STA
$D025 ; FARBEN. LDA #$0
1 ;SETZEN. STA $D026..S
TART LDA #<NMI ;NMIS.
LDX #>NMI ;AUFFANGEN. S
TA $FFFA. STX $FFFB. #SE
TIRQ (FIRST) ;RASTER-IRQ. LDA
$D011 ; INIT.... AND #$
7F ;RASTER MSB. STA $D0
11 ;CLR. LDA #20
;RASTERZEILE. STA $D012
;SETZEN. LDA #$81 ;R
ASTERIRQ. STA $D01A ; MA
SKIEREN. CLI ;FREI
GABE..WAIT JSR MINIT ;SPR INIT.
JSR TIMER ;HIER PLATZ FUER.
JMP WAIT ;CHECK-ROUTINEN.
;TIMER-ROUTINEN.
;USW. AUSSERHALB.
;DES IRQ !....;-----------
----------------------------.;* STELLT D
IE ERSTEN ACHT SPRITES DAR.;------------
---------------------------..FIRST ST
A A1+1 ;REGISTER. STX X1+1
; RETTEN. STY Y1+1..
INC BY ;ZEITTAKT. LDA BY.
AND #$3F ;CIRCA JEDEN.
BNE I1 ; 64. SCREEN. LD
A TIME ; EINMAL. CLC
; TIME-COUNTER. ADC #1 ;
ERHOEHEN !. STA TIME. B
CC I1. INC TIME+1.I1. LD
A SPR2 ;HIER WERDEN DIE. S
TA SPR21 ;VON DER 'SR'. LDA
SPR3 ;BEARBEITETEN. STA S
PR31 ;REGISTER IN. LDX #30
;DIE FUER 'SD'.IN2 LDA XPOS,
X ;NOTWENDIGEN. STA XPOS2,X
;COPIERT.. LDA YPOS,X.
STA YPOS2,X ;DADURCH KANN.
LDA CONTROL,X ;DIE BERECHNUNG.
STA CONTROL2,X ;'SR' (FUER DEN.
LDA BLOCK,X ;NAECHSTEN. STA B
LOCK2,X ;DURCHLAUF). LDA SRTAB
,X ;PARALLEL MIT. STA SRTAB2,
X ;'SD' ABLAUFEN,. DEX
;OHNE DASS BEIDE. BPL IN2
;SICH STOEREN !.. LDA #$00
;SPR EIN!. STA SPR.
LDX SPR31.F5 CPX #$09 ;MEH
R ALS 8 ?. BCC F4. LDX #
$08 ;DANN: ALLE AN!.F4 LDA T
ABD,X ;SONST: EVTL.. STA $D0
15 ; WENIGER!.. JSR SET
;DIE OBERSTEN 8. JSR SET
;SPR DARSTELLEN!. JSR SET.
JSR SET. JSR SET.
JSR SET. JSR SET. JSR
SET.. LDA $D001 ;UNTERE KAN
TE. ADC #21 ;DES NAECHSTE
N. STA $D012 ;SPRS NEUER.
#SETIRQ (NEXT) ;RASTER-INIT !..F3
#FREE ;IRQ FREI..
JSR MOVE ;'SR'. LDA #$00
. STA $D020..A1 LDA #$00
;REGISTER.X1 LDX #$00 ;
RETTEN.Y1 LDY #$00.NMI RTI..
.;--------------------------------------
-.;* STELLT DIE WEITEREN SPRITES DAR !.;
---------------------------------------.
.NEXT STA A2+1 ;S.O..
STX X2+1. STY Y2+1..N2 JSR
SET ;'SD'. ASL A
;NOCH GENUG RAS-. TAX
;TER ZEIT BIS. LDA $D001,X
;ZUM NAECHSTEN. ADC #21
;SPR, UM NOCH. STA ZWR ;E
INEN IRQ AUS-. LDX $D012 ;Z
ULOESEN ???. INX. CPX ZW
R. BCS N2 ;NEIN : N2..
STA $D012 ;JA !.N3.A2
LDA #$00 ;S.O..X2 LDX #$00.Y
2 LDY #$00. #FREE.
RTI....;-------------------------------
--------.;* EIGENTLICHE SPRITE-ROUTINE '
SR'.;---------------------------------SY
NTAX.;ZUR BEWEGUNG & DARSTELLUNG DER SPR
ITES!.; .......................;
...............; XX
XX XXXX .CONTROL-BYTE..; .
... .....SPRITE FARBE ...............;
..........1ST/2ND NIBBLE (SINUS).; ....
......EXPLOSION ON/OFF.; ..........MSB.
; ..........SPRITE ON/OFF.;------------
---------------------------..MOVE LD
A MY ;FUER X/Y. EOR #$8
0 ;BEWEGUNG :. STA MY
;UP/DOWN HALF.
;(S.U.). LDX #30.MO2 L
DA CONTROL,X. BPL YR5 ;S
PR AN ?. ;JA !.
LDA #$00 ;ZWISCHENWERTE.
STA XWERT ;LOSECHEN.
STA YWERT..AN5 LDA ANITB,X ;
ANIMATION ?. BNE AN51. J
MP XS ;NEIN : S.U..AN51 ASL
A ;JA:AUSFUEHREN. DEC
ANITCO,X. BPL AN21 ;NEXT
STEP ?. TAY ;JA !.
LDA ANITAB+2,Y ;WARTEZEIT.
STA ANITCO,X ; RESTAURIEREN.
LDA ANITAB,Y ;ADR. STA AD
R ;HOLEN. LDA ANITAB+1,Y
. STA ADR+1. LDY ANICO,X
;STEPNUMMER.AN3 LDA (ADR),Y
;BLOCK HOLEN. BNE AN2
;BLOCK OK ?. STA ANICO,X ;NE
IN:. TAY ;ANIMATION
VON. BCC AN3 ;VORNE ?..
LDA ANITB,X ;NICHT NOCHMAL!.
AND #$3F ;EXPLOSION ?.
BEQ AN8 ;JA : CLR.AN41
INC INITTB,X ;NEIN:NEXT INIT.
LDA #$00 ;ANIM. FERTIG.
STA ANITB,X..AN4 LDA CONTROL,X.
ASL A. BPL AN42 ;M
SB ?. LDA XPOS,X ;JA :.
CMP #160 ; SPR CLR ?.
BCC AN42 ; NEIN. CMP #2
00. BCS AN42 ; NEIN.
BCC AN8 ;JA!..AN42 LDA Y
POS,X ; SORTIERT SPR.. LSR
A ; IN YTAB EIN. LSR A
. CMP #10 ;SPR CLR ?.
BCC AN8 ; JA. CMP
#60. BCS AN8 ; JA.
TAY ;NEIN.YR4 LDA YT
AB,Y. BEQ YR3 ;PLATZ BES
ETZT?. INY ; JA:NEXT
PLACE. CPY #60. BCC YR4
; END OF TAB?. BCS YR5
; JA: NEXT SPR.YR3 TXA.
STA YTAB,Y ; EINSORTIEREN.
BNE YR5..AN8 LDA #$00 ;
SPR CLR!. STA CONTROL,X.YR5
DEX ; NEXT SPR. BE
Q YR51 ; ALL READY ?. JMP
MO2 ; NO.YR51 JMP SORT
; ALL READY !!..AN2 STA BLOCK,X
; NEW BLOCK. INC ANICO,X
; STEP FORWARD.AN21 BCC XS
; EXPLOSION ?. LDY #0
; VIELLEICHT. LDA ANITB,X.
AND #$3F. BNE XS ; E
XPLOSION ?. JMP SETXY ; JA
!..XS LDA CONTROL,X ; WEITER :.
EOR #$10 ; FIRST/SEC..
STA CONTROL,X ; HALFBYTE.
ASL A. ASL A. ASL A.
STA SY ; SICHERN.
LDA SINXHI,X ; SINUS IN. BE
Q YS ; X-RICHTUNG ?. ST
A ADR+1 ; JA:ADR. LDA SINX
LO,X ; HOLEN. STA ADR.
LDY SINX1,X. LDA (ADR),Y ;
WERT HOLEN. BIT SY ; 1
ST/2ND. BMI XS2 ; HALFBY
TE ?. LSR A ; FIRST.
LSR A. LSR A. LSR
A.XS2 AND #$0F ; SECOND.
TAY. LDA DELTB,Y ; AUS
TAB HOLEN. STA XWERT ; AB
LEGEN. BIT SY ; BEREITS
NEXT. BPL YS ; BYTE ?
??. LDA SINX1,X ; JA!.
CLC ; STEP FORWARD.
ADC #1. CMP SINX2,X.
BCC XS1 ;ENDE ERREICHT?.
LDA SINX3,X ; JA:RESTART.XS1 S
TA SINX1,X ; NEIN:STORE..YS LD
A SINYHI,X ; SINUS IN. BEQ DE
L ; Y-RICHTUNG ?. STA AD
R+1 ; JA :ADR. LDA SINYLO,
X ; HOLEN. STA ADR. L
DY SINY1,X. LDA (ADR),Y ; DI
TO. BIT SY ; ALLES ANAL
OG. BMI YS2 ; ZU -XS-.
LSR A. LSR A. LSR
A. LSR A.YS2 AND #$0F.
TAY. LDA DELTB,Y. S
TA YWERT. BIT SY. BPL DE
L. LDA SINY1,X. CLC.
ADC #1. CMP SINY2,X.
BCC YS1. LDA SINY3,X.YS1
STA SINY1,X..DEL LDA DELAY,X ;
COUNTDOWN ?. BEQ ACX. DE
C DELAY,X ; JA:AUSFUEHREN. B
NE ACX ; NULL ?. INC INI
TTB,X ; JA:NEXT INIT..ACX LDA AC
CTX,X ;BESCHLEUNIGUNG X?. BEQ D
X. DEC ACCT1,X ;JA:WERT SCHO
N. BPL AC1 ; AENDERN ?.
. LDA ACCTX,X ;JA: ZEIT.
STA ACCT1,X ; RESTAURIEREN..
LDA DELTAX,X ;TAB-WERT HOLEN.
AND #$F0. STA ZWR2
;ZIEL RETTEN. LSR A. LS
R A. LSR A. LSR A.
STA ZWR ;ZIEL WERT. L
DA DELTAX,X. AND #$0F ;MO
MENT WERT. CMP ZWR ;ZIEL
. BNE AC5 ; ERREICHT?.
LDA #$00 ; JA : ACC-.
STA ACCTX,X ; ENDE !. BE
Q ACY..AC5 BCC AC3 ;ZIEL AN
NAEHREN. SBC #1. BPL AC4
.AC3 ADC #1.AC4 ORA ZWR2
;TAB WERT. STA DELTAX,X ; Z
URUECK !. BNE DX1..AC1 LDA
DELTAX,X ;BEWEGUNG AUS-. BNE
DX1 ; FUEHREN !..DX LDA D
ELTAX,X ; X -. BEQ DY
; BEWEGUNG ??. BIT MY
; JA. BPL DX1 ; 1ST/2N
D HALF?. LSR A ;1ST.
LSR A. LSR A. LSR
A.DX1 AND #$0F ;2ND.
TAY. LDA DELTB,Y ; S.O..
CLC. ADC XWERT ;ABL
EGEN. STA XWERT..ACY LDA AC
CTY,X ;BESCHLEUNIGUNG Y?. BEQ D
Y. DEC ACCT2,X ;JA: WEITER.
BPL AC11 ;ANALOG -ACX-..
LDA ACCTY,X. STA ACCT2,X
.. LDA DELTAY,X. AND #$F
0. STA ZWR2. LSR A.
LSR A. LSR A. LSR A.
STA ZWR. LDA DELTAY,X.
AND #$0F. CMP ZWR.
BNE AC6. LDA #$00. ST
A ACCTY,X. BEQ SPC..AC6 BCC
AC7. SBC #1. BPL AC8.AC
7 ADC #1.AC8 ORA ZWR2.
STA DELTAY,X. BNE DY1..AC11
LDA DELTAY,X. BNE DY1..DY
LDA DELTAY,X ; Y BEWEGUNG ?.
BEQ SPC. BIT MY ; ANAL
OG -DX- !. BPL DY1. LSR
A. LSR A. LSR A.
LSR A.DY1 AND #$0F. TAY.
LDA DELTB,Y. CLC.
ADC YWERT. STA YWERT..SPC
LDA SPECHI,X ;SPECIAL PRG ?!.
BEQ SETXY. STA SP1+2 ;JA!
ADR. LDA SPECLO,X ; HOLEN.
STA SP1+1. STX SP1+4
;SPR-NR RETTEN.SP1 JSR $FFFF
;INS ZUSATZ-PRG. LDX #0
;SPR-NR RETTEN..SETXY LDA XWERT
;NEUE SPR-POS.. BEQ SX5
;BERECHNEN !. CLC. A
DC XPOS,X ;X-POS. STA XPOS,
X. BIT XWERT. BPL SX3
;XWERT NEG?. BCC SX3+2
;ADD.UEBERLAUF?. BCS SX5
;JA/NEIN?.SX3 BCC SX5.
LDA CONTROL,X ;MIT MSB !. EOR
#$40. STA CONTROL,X.SX5 LDA
YWERT. BEQ SX4. CLC.
ADC YPOS,X ;Y-POS. ST
A YPOS,X ; UND FERTIG!..SX4 JM
P AN4 ;EINSORTIEREN !....;------
---------------------------------.;* ABS
CHLIESSENDER SORTIER - ALGORITHMUS.;----
-----------------------------------..SOR
T LDY #0. LDX #60.AN7 L
DA YTAB,X ;TAB SEARCH. BEQ
AN6 ;SPR GEFUNDEN?. STA
SRTAB,Y ;JA:EINSORTIEREN!. LDA
#0. STA YTAB,X ;WERT CLR!.
INY ;NEXT.AN6
DEX ;GANZEN BEREICH.
CPX #10 ;DURCHSUCHEN!.
BCS AN7. LDA #$FF ;ENDE D
ER TAB. STA SRTAB,Y ;MARKIER
EN. STY SPR2 ;SPR-ANZAHL.
STY SPR3 ;RETTEN..FS7
DEY ;UEBERPRUEFT.
BEQ TRY ;NOCHMALS DIE.
LDX SRTAB,Y ;REIHENFOLGE. LD
A YPOS,X ;DER SPRITES. LDX
SRTAB-1,Y ;MITTELS DER. CMP YP
OS,X ;JEWEILIGEN. BCC FS7
;(ECHTEN) YPOS. LDA SRTAB
,Y ;& SORTIERT UM. STA SRTAB
-1,Y ;(FALLS NOETIG). TXA.
STA SRTAB,Y. BNE FS7..TRY
LDY #0 ;FERTIGT EINE.
LDX #30 ;TABELLE DER.FS2
LDA CONTROL,X ;FREIEN SPR. BM
I FS1 ;AN .... LDA INITT
B,X. BEQ FS3 ;WIRD VON.
BPL FS1 ;GETSPR GENUTZT.
CMP #$FF. BNE FS1.
LDA #$00. STA INITTB,X.
BEQ FS1.FS3 TXA. STA SP
FREE,Y. INY.FS1 DEX.
BNE FS2. DEY. STY FSPR
;ENDE DES MOVE. RTS
;PROGRAMMS....;-----------------
----------------------.;* INITIALISIERT
ALLE SPRITES MITTELS.; TRACK-TABELLE !.
;---------------------------------------
..MINIT LDX #30.MI17 LDA INITTB,X
. BEQ MI1 ;INIT ?.
CMP #$FF ;VIELLEICHT ?.
BEQ MI1. BMI MI16 ;JA:E
XPLOSION. LDY CONTROL,X ;JA:NO
RMAL. STY CNTR. BMI MI2
;SPR ON?. ASL A
;NEIN. TAY. LDA TRKTAB
,Y ;TRACK ADR. STA TRKLO,X
; HOLEN. STA MADR. LDA
TRKTAB+1,Y. STA TRKHI,X.
STA MADR+1. JSR CLR ;A
LTE WERT CLR. LDY #0. LD
A (MADR),Y ;POSITION. BEQ MI1
5 ; GEGEBEN ?. ASL A
;JA !. STA XPOS,X ;
X-POS &. ROR A. LSR A.
AND #$40. STA CNTR
; MSB HOLEN!. INY. LDA
(MADR),Y. STA YPOS,X ; Y-PO
S HOLEN!.MI15 LDY #2. BNE MI
32 ; WEITER..MI16 JSR EXPL2
;EXPL.-INIT.MI13 LDA CNTR.
STA CONTROL,X ;SPR EIN/AUS.MI14
LDA #0. STA INITTB,X ;INIT
FERTIG!.MI1 DEX. BNE MI17
;NEXT SPR?. RTS
;MINIT ENDE !!!...
;SPR WAR EIN !.MI2 TYA
;CONTROL-REG!. ASL A.
ASL A. BMI MI14 ;EXPL
?.MI12 LDA TRKLO,X ;NO: ALTE.
STA MADR ; ADR HOLEN.
LDA TRKHI,X. BEQ MI14.
STA MADR+1. LDY TRKPO,X ;P
OINTER.MI32 LDA (MADR),Y. BE
Q MI14 ;TRACK ENDE ?. CMP
#$FF ;NO:. BEQ MIJMP
;JUMP/EINSCHUB?. JSR MI3
;NO: NORM-INIT!. INY.
TYA ;NEUEN. STA TR
KPO,X ;POINTER RETTEN. JMP M
I13 ;NEXT SPR !..MIJMP INY.
LDA (MADR),Y ;TESTEN !.
CMP #$FF. BEQ MIJ1 ;JUMP
?. CMP #$FE. BEQ MIJS
;EINSCHUB ?. DEY.
JMP MI13 ;WEDER NOCH !...MIJ1
INY ;JUMP!. LDA (MA
DR),Y ; HOLT NEUE. STA TRKLO,
X ; TRACK ADR. INY
; & UEBERGIBT!. LDA (MADR),Y
; ACHTUNG :. STA TRKHI,X
;----------. LDA #0 ;MU
SS AUF. STA TRKPO,X ;STATUS
BYTE. BEQ MI12 ;WEISEN !!
!... ;EINSCHUB !
.MIJS INY ; HOLT.
LDA (MADR),Y ; EINSPRUNG. S
TA MIJS2+1 ; DER INIT-SEQ. I
NY. LDA (MADR),Y ;ACHTUNG:.
STA MADR+1 ;--------.MIJS2
LDA #$00 ;MUSS AUF. STA
MADR ;STATUS BYTE. INY
;WEISEN !. TYA.
STA TRKPO,X. LDY #0.
LDA (MADR),Y ; FUEHRT SIE. JS
R MI3 ; AUS & KEHRT. JMP
MI13 ; ZURUECK...MI3 LSR A
;HOLT ALLE. STA IREG
; DATEN AUS DEM. BCC MI4
; TRACK !. INY. L
DA (MADR),Y ;SPECIAL INIT?. S
TA MI4-6 ;WENN JA:. INY
; HOLT EINSRUNG. LDA (
MADR),Y. STA MI4-5. STY
MI4-1 ;RETTET X,Y. STX MI4
-3. JSR $FFFF ;SPRINGT EIN
!. LDX #0 ; X,Y RETTEN.
LDY #0..MI4 LSR IREG
;BASIC. BCC MI5 ; REFR
ESH ?. INY ;JA:.
LDA (MADR),Y ;JA: HOLT:.
BEQ MI41. STA BLOCK,X ; BLO
CK &.MI41 LDA CNTR. AND #$40
. INY. ORA (MADR),Y ;
FARBE !. ORA #$80 ;& SPR
ON !. STA CNTR..MI5 LSR IR
EG ;BEWEGUNG X/Y?. BCC MI
6. INY ;JA: HOLT:.
LDA (MADR),Y ; DELTAX.
STA DELTAX,X. INY. LDA
(MADR),Y ; DELTAY. STA DELTAY
,X..MI6 LSR IREG ;COUNT DOWN
?. BCC MI7. INY
;JA:. LDA (MADR),Y ; HOLT
DELAY. STA DELAY,X..MI7 LS
R IREG ;BESCHLEUNIGUNG. B
CC MI8 ; X/Y ?. INY
;JA!. STY MI71+1 ;Y
RETTEN. LDA (MADR),Y ;HOLT Z
EIGER. ASL A ; AUF ACC
TB. ASL A ; *4.
TAY ;HOLT AUS. LDA
ACCTB+1,Y ; ACCTB :. STA ACCT
X,X ; TIME X. LDA ACCTB,Y
;ZIEL/START -X-. STA DELTAX,X.
LDA ACCTB+3,Y ; TIME Y.
STA ACCTY,X. LDA ACCTB+2,Y
;ZIEL/START -Y-. STA DELTAY,X.
LDA #$00 ; ALTE COUNTER.
STA ACCT1,X ; CLR. ST
A ACCT2,X.MI71 LDY #$00 ;Y ZU
RUECK..MI8 LSR IREG ;ANIMATI
ON ?. BCC MI9. INY
;JA. LDA (MADR),Y ;ANI
MATIONS-NR.. ASL A ;*2
. STA ANITB,X ;UEBERGEBEN.
LDA #0. STA ANITCO,X ;
CLR. STA ANICO,X..MI9 LSR
IREG ;SPECIAL-PRG. BCC MI
10. INY ;JA !.
LDA (MADR),Y. STA SPECLO,X
;HOLT ADR !. INY. LDA (
MADR),Y ;&UEBERGIBT !. STA SP
ECHI,X..MI10 LSR IREG ;SINUS
?. BCC MI11. INY
; JA!. LDA (MADR),Y ;HOL
T NR FUER. JMP SININIT ;SINT
AB2 & INIT.MI11 RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL