ALLEY.SRC
FILE INFORMATION
FILENAME(S): ALLEY.SRC
FILE TYPE(S): SEQ
FILE SIZE: 4K
FIRST SEEN: 2025-11-02 16:39:49
APPEARS ON: 3 disk(s)
FILE HASH
5d8f508b57c10eb409799b85c690403dfdd621352b199218546a408cdfbf31c1
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15827 SEITE C | ALLEY.SRC | SEQ | Treasure Chest - Plattfuss | 21 | 2 | DOWNLOAD FILE |
| 15827 SEITE C | ALLEY.SRC | SEQ | C64er, hedning, The Viking, Treasure Chest - ralf | 21 | 2 | DOWNLOAD FILE |
| 15827 SEITE C | ALLEY.SRC | SEQ | DuncanTwain | 21 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A |; *******| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 0D 3B 20 20 20 20 20 20 20 |*******.; | 00000030: 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 | ** | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 0D | **.| 00000050: 3B 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 20 |; ** | 00000060: 20 20 20 41 4C 4C 45 59 2E 20 53 49 4D 2E 20 20 | ALLEY. SIM. | 00000070: 20 20 20 20 20 2A 2A 20 0D 3B 20 20 20 20 20 20 | ** .; | 00000080: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | ** | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **| 000000A0: 0D 3B 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 |.; ** | 000000B0: 20 20 20 20 20 20 20 20 42 59 20 20 20 20 20 20 | BY | 000000C0: 20 20 20 20 20 20 2A 2A 0D 3B 20 20 20 20 20 20 | **.; | 000000D0: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | ** | 000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **| 000000F0: 0D 3B 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 |.; ** | 00000100: 20 53 54 45 46 41 4E 20 4C 41 4E 44 46 52 49 45 | STEFAN LANDFRIE| 00000110: 44 20 20 20 20 20 2A 2A 0D 3B 20 20 20 20 20 20 |D **.; | 00000120: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | ** | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **| 00000140: 0D 3B 20 20 20 20 20 20 20 20 2A 2A 20 20 20 28 |.; ** (| 00000150: 43 29 20 20 4D 41 52 4B 54 20 26 20 54 45 43 48 |C) MARKT & TECH| 00000160: 4E 49 4B 20 20 20 2A 2A 0D 3B 20 20 20 20 20 20 |NIK **.; | 00000170: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | ** | 00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **| 00000190: 0D 3B 20 20 20 20 20 20 20 20 2A 2A 20 20 20 20 |.; ** | 000001A0: 20 20 20 20 56 45 52 4C 41 47 53 20 41 47 20 20 | VERLAGS AG | 000001B0: 20 20 20 20 20 20 2A 2A 0D 3B 20 20 20 20 20 20 | **.; | 000001C0: 20 20 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 | ** | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **| 000001E0: 0D 3B 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A |.; ******| 000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000200: 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 0D 4F 52 47 20 24 |********.;.ORG $| 00000210: 43 30 30 30 20 20 20 20 20 20 20 20 20 20 20 20 |C000 | 00000220: 20 20 20 3B 20 41 4E 46 41 4E 47 53 41 44 52 45 | ; ANFANGSADRE| 00000230: 53 53 45 20 3D 20 34 39 31 35 32 0D 3A 47 45 54 |SSE = 49152.:GET| 00000240: 42 59 54 20 3D 20 24 42 37 39 45 20 20 20 20 20 |BYT = $B79E | 00000250: 20 20 20 20 3B 41 44 52 45 53 53 45 4E 20 46 55 | ;ADRESSEN FU| 00000260: 45 52 20 50 41 52 41 4D 45 54 45 52 55 45 42 45 |ER PARAMETERUEBE| 00000270: 52 47 41 42 45 0D 3A 43 48 4B 4B 4F 4D 20 3D 20 |RGABE.:CHKKOM = | 00000280: 24 41 45 46 44 0D 20 20 20 20 20 20 20 20 20 4A |$AEFD. J| 00000290: 53 52 20 43 48 4B 4B 4F 4D 20 20 20 20 20 3B 50 |SR CHKKOM ;P| 000002A0: 52 4F 47 52 41 4D 4D 53 54 41 52 54 20 55 4E 44 |ROGRAMMSTART UND| 000002B0: 20 41 42 46 52 41 47 45 0D 20 20 20 20 20 20 20 | ABFRAGE. | 000002C0: 20 20 4A 53 52 20 47 45 54 42 59 54 20 20 20 20 | JSR GETBYT | 000002D0: 20 3B 44 45 52 20 56 45 52 53 43 48 49 45 44 45 | ;DER VERSCHIEDE| 000002E0: 4E 45 4E 20 50 41 52 41 4D 45 54 45 52 0D 20 20 |NEN PARAMETER. | 000002F0: 20 20 20 20 20 20 20 53 54 58 20 4D 4F 44 49 46 | STX MODIF| 00000300: 59 31 2B 31 20 20 3B 20 52 41 53 54 45 52 5A 45 |Y1+1 ; RASTERZE| 00000310: 49 4C 45 4E 50 4F 53 49 54 49 4F 4E 45 4E 0D 20 |ILENPOSITIONEN. | 00000320: 20 20 20 20 20 20 20 20 53 54 58 20 4D 4F 44 49 | STX MODI| 00000330: 46 59 32 2B 31 20 20 3B 20 44 45 53 20 46 41 52 |FY2+1 ; DES FAR| 00000340: 42 53 43 52 4F 4C 4C 45 53 20 4D 4F 44 49 46 49 |BSCROLLES MODIFI| 00000350: 5A 49 45 52 45 4E 0D 20 20 20 20 20 20 20 20 20 |ZIEREN. | 00000360: 4A 53 52 20 43 48 4B 4B 4F 4D 20 20 20 20 20 3B |JSR CHKKOM ;| 00000370: 20 41 55 46 20 4B 4F 4D 4D 41 20 50 52 55 45 46 | AUF KOMMA PRUEF| 00000380: 45 4E 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |EN. JSR | 00000390: 47 45 54 42 59 54 20 20 20 20 20 3B 20 50 41 52 |GETBYT ; PAR| 000003A0: 41 4D 45 54 45 52 20 48 4F 4C 45 4E 0D 20 20 20 |AMETER HOLEN. | 000003B0: 20 20 20 20 20 20 53 54 58 20 4D 4F 44 49 46 59 | STX MODIFY| 000003C0: 33 2B 31 20 20 3B 20 47 45 53 43 48 57 49 4E 44 |3+1 ; GESCHWIND| 000003D0: 49 47 4B 45 49 54 20 4D 4F 44 49 46 49 5A 49 45 |IGKEIT MODIFIZIE| 000003E0: 52 45 4E 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |REN. JSR| 000003F0: 20 43 48 4B 4B 4F 4D 20 20 20 20 20 3B 20 41 55 | CHKKOM ; AU| 00000400: 46 20 4B 4F 4D 4D 41 20 50 52 55 45 46 45 4E 0D |F KOMMA PRUEFEN.| 00000410: 20 20 20 20 20 20 20 20 20 4A 53 52 20 47 45 54 | JSR GET| 00000420: 42 59 54 20 20 20 20 20 3B 20 50 41 52 41 4D 45 |BYT ; PARAME| 00000430: 54 45 52 20 48 4F 4C 45 4E 0D 20 20 20 20 20 20 |TER HOLEN. | 00000440: 20 20 20 53 54 58 20 4D 4F 44 49 46 59 34 2B 31 | STX MODIFY4+1| 00000450: 20 20 3B 20 42 52 45 49 54 45 20 20 4D 4F 44 49 | ; BREITE MODI| 00000460: 46 49 5A 49 45 52 45 4E 0D 20 20 20 20 20 20 20 |FIZIEREN. | 00000470: 20 20 4A 53 52 20 43 48 4B 4B 4F 4D 20 20 20 20 | JSR CHKKOM | 00000480: 20 3B 20 41 55 46 20 4B 4F 4D 4D 41 20 50 52 55 | ; AUF KOMMA PRU| 00000490: 45 46 45 4E 0D 20 20 20 20 20 20 20 20 20 4A 53 |EFEN. JS| 000004A0: 52 20 47 45 54 42 59 54 20 20 20 20 20 3B 20 50 |R GETBYT ; P| 000004B0: 41 52 41 4D 45 54 45 52 20 48 4F 48 4C 45 4E 0D |ARAMETER HOHLEN.| 000004C0: 20 20 20 20 20 20 20 20 20 53 54 58 20 4D 4F 44 | STX MOD| 000004D0: 49 46 59 35 2B 31 20 20 3B 20 55 4E 44 20 4D 4F |IFY5+1 ; UND MO| 000004E0: 44 49 46 49 5A 49 45 52 45 4E 0D 20 20 20 20 20 |DIFIZIEREN. | 000004F0: 20 20 20 20 53 45 49 20 20 20 20 20 20 20 20 20 | SEI | 00000500: 20 20 20 3B 20 49 4E 54 45 52 52 55 50 54 20 53 | ; INTERRUPT S| 00000510: 50 45 52 52 45 4E 0D 20 20 20 20 20 20 20 20 20 |PERREN. | 00000520: 4C 44 41 20 24 44 43 30 44 20 20 20 20 20 20 3B |LDA $DC0D ;| 00000530: 20 43 49 41 2D 54 49 4D 45 52 0D 20 20 20 20 20 | CIA-TIMER. | 00000540: 20 20 20 20 41 4E 44 20 23 25 30 31 31 31 31 31 | AND #%011111| 00000550: 31 31 20 3B 20 41 55 53 53 43 48 41 4C 54 45 4E |11 ; AUSSCHALTEN| 00000560: 0D 20 20 20 20 20 20 20 20 20 4F 52 41 20 23 25 |. ORA #%| 00000570: 30 30 30 30 30 30 30 31 0D 20 20 20 20 20 20 20 |00000001. | 00000580: 20 20 53 54 41 20 24 44 43 30 44 0D 3A 4D 4F 44 | STA $DC0D.:MOD| 00000590: 49 46 59 32 20 4C 44 41 20 23 31 33 30 20 20 20 |IFY2 LDA #130 | 000005A0: 20 20 20 20 3B 20 52 41 53 54 45 52 5A 45 49 4C | ; RASTERZEIL| 000005B0: 45 20 56 4F 52 57 41 45 48 4C 45 4E 0D 20 20 20 |E VORWAEHLEN. | 000005C0: 20 20 20 20 20 20 53 54 41 20 35 33 32 34 38 2B | STA 53248+| 000005D0: 31 38 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |18. LDA | 000005E0: 35 33 32 34 38 2B 31 37 20 20 20 3B 20 48 49 2D |53248+17 ; HI-| 000005F0: 42 59 54 45 20 44 45 53 20 52 41 53 54 45 52 53 |BYTE DES RASTERS| 00000600: 54 52 41 48 4C 53 0D 20 20 20 20 20 20 20 20 20 |TRAHLS. | 00000610: 41 4E 44 20 23 24 37 46 20 20 20 20 20 20 20 3B |AND #$7F ;| 00000620: 20 41 55 53 53 43 48 41 4C 54 45 4E 0D 20 20 20 | AUSSCHALTEN. | 00000630: 20 20 20 20 20 20 53 54 41 20 35 33 32 34 38 2B | STA 53248+| 00000640: 31 37 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |17. LDA | 00000650: 23 25 31 30 30 30 30 30 30 31 20 3B 20 52 41 53 |#%10000001 ; RAS| 00000660: 54 45 52 5A 45 49 4C 45 4E 49 4E 54 45 52 52 55 |TERZEILENINTERRU| 00000670: 50 54 20 56 4F 52 57 41 45 48 4C 45 4E 0D 20 20 |PT VORWAEHLEN. | 00000680: 20 20 20 20 20 20 20 53 54 41 20 35 33 32 34 38 | STA 53248| 00000690: 2B 32 36 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |+26. LDA| 000006A0: 20 23 3C 49 52 51 20 20 20 20 20 20 3B 20 4C 4F | #<IRQ ; LO| 000006B0: 2D 42 59 54 45 20 44 45 52 20 4E 45 55 45 4E 20 |-BYTE DER NEUEN | 000006C0: 52 4F 55 54 49 4E 45 0D 20 20 20 20 20 20 20 20 |ROUTINE. | 000006D0: 20 53 54 41 20 24 30 33 31 34 20 20 20 20 20 20 | STA $0314 | 000006E0: 3B 20 53 43 48 52 45 49 42 45 4E 0D 20 20 20 20 |; SCHREIBEN. | 000006F0: 20 20 20 20 20 4C 44 41 20 23 3E 49 52 51 20 20 | LDA #>IRQ | 00000700: 20 20 20 20 3B 20 48 49 2D 42 59 54 45 20 44 45 | ; HI-BYTE DE| 00000710: 52 20 4E 45 55 45 4E 20 52 4F 55 54 49 4E 45 0D |R NEUEN ROUTINE.| 00000720: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 30 33 | STA $03| 00000730: 31 35 20 20 20 20 20 20 3B 20 53 43 48 52 45 49 |15 ; SCHREI| 00000740: 42 45 4E 0D 20 20 20 20 20 20 20 20 20 43 4C 49 |BEN. CLI| 00000750: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 49 4E | ; IN| 00000760: 54 45 52 52 55 50 54 20 5A 55 4C 41 53 53 45 4E |TERRUPT ZULASSEN| 00000770: 0D 20 20 20 20 20 20 20 20 20 52 54 53 20 20 20 |. RTS | 00000780: 20 20 20 20 20 20 20 20 20 3B 20 5A 55 52 55 45 | ; ZURUE| 00000790: 43 4B 20 49 4E 53 20 42 41 53 49 43 0D 3A 49 52 |CK INS BASIC.:IR| 000007A0: 51 20 20 20 20 20 4C 44 41 20 35 33 32 34 38 2B |Q LDA 53248+| 000007B0: 32 35 20 20 20 3B 20 49 4E 54 45 52 52 55 50 54 |25 ; INTERRUPT| 000007C0: 46 4C 41 47 20 4C 4F 45 53 43 48 45 4E 0D 20 20 |FLAG LOESCHEN. | 000007D0: 20 20 20 20 20 20 20 53 54 41 20 35 33 32 34 38 | STA 53248| 000007E0: 2B 32 35 20 20 20 3B 20 55 4D 20 45 52 52 4F 52 |+25 ; UM ERROR| 000007F0: 53 5A 55 20 56 45 52 4D 45 49 44 45 4E 0D 20 20 |SZU VERMEIDEN. | 00000800: 20 20 20 20 20 20 20 4C 44 41 20 35 33 32 34 38 | LDA 53248| 00000810: 2B 31 38 20 20 20 3B 20 52 41 53 54 45 52 53 54 |+18 ; RASTERST| 00000820: 52 41 48 4C 20 55 45 42 45 52 46 52 55 45 46 45 |RAHL UEBERFRUEFE| 00000830: 4E 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |N. CMP #| 00000840: 30 30 30 20 20 20 20 20 20 20 3B 20 30 30 30 20 |000 ; 000 | 00000850: 45 52 52 45 49 43 48 54 20 3F 0D 20 20 20 20 20 |ERREICHT ?. | 00000860: 20 20 20 20 42 45 51 20 53 43 52 4F 4C 4C 20 20 | BEQ SCROLL | 00000870: 20 20 20 3B 20 46 41 4C 4C 53 20 4A 41 20 5A 55 | ; FALLS JA ZU| 00000880: 52 20 53 43 52 4F 4C 4C 52 4F 55 54 49 4E 45 0D |R SCROLLROUTINE.| 00000890: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 30 | LDX #00| 000008A0: 20 20 20 20 20 20 20 20 3B 20 58 2D 52 45 47 49 | ; X-REGI| 000008B0: 53 54 45 52 20 41 4C 53 20 49 4E 44 45 58 5A 41 |STER ALS INDEXZA| 000008C0: 45 48 4C 45 52 0D 3A 4C 4F 4F 50 31 20 20 20 4C |EHLER.:LOOP1 L| 000008D0: 44 41 20 46 41 52 42 2C 58 20 20 20 20 20 3B 20 |DA FARB,X ; | 000008E0: 46 41 52 42 43 4F 44 45 20 4C 41 44 45 4E 0D 20 |FARBCODE LADEN. | 000008F0: 20 20 20 20 20 20 20 20 53 54 41 20 35 33 32 38 | STA 5328| 00000900: 31 20 20 20 20 20 20 3B 20 55 4E 44 20 49 4E 53 |1 ; UND INS| 00000910: 20 48 49 4E 44 45 52 47 52 55 4E 44 46 41 52 42 | HINDERGRUNDFARB| 00000920: 52 45 47 2E 20 53 43 48 52 45 49 42 45 4E 0D 20 |REG. SCHREIBEN. | 00000930: 20 20 20 20 20 20 20 20 4C 44 41 20 5A 41 48 4C | LDA ZAHL| 00000940: 2C 58 20 20 20 20 20 3B 20 44 45 4E 20 5A 41 45 |,X ; DEN ZAE| 00000950: 48 4C 45 52 20 4C 41 44 45 4E 0D 20 20 20 20 20 |HLER LADEN. | 00000960: 20 20 20 20 54 41 59 20 20 20 20 20 20 20 20 20 | TAY | 00000970: 20 20 20 3B 20 41 55 53 54 41 55 53 43 48 20 56 | ; AUSTAUSCH V| 00000980: 4F 4E 20 20 41 20 4E 41 43 48 20 59 0D 3A 4C 50 |ON A NACH Y.:LP| 00000990: 20 20 20 20 20 20 44 45 59 20 20 20 20 20 20 20 | DEY | 000009A0: 20 20 20 20 20 3B 20 57 41 52 54 45 53 43 48 45 | ; WARTESCHE| 000009B0: 49 46 45 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |IFE. BNE| 000009C0: 20 4C 50 20 20 20 20 20 20 20 20 20 3B 20 4A 45 | LP ; JE| 000009D0: 20 47 52 4F 45 53 53 45 52 20 44 45 52 20 5A 41 | GROESSER DER ZA| 000009E0: 45 48 4C 45 52 20 44 45 53 54 4F 20 4C 41 45 4E |EHLER DESTO LAEN| 000009F0: 47 45 52 20 44 49 45 20 53 43 48 4C 45 49 46 45 |GER DIE SCHLEIFE| 00000A00: 0D 20 20 20 20 20 20 20 20 20 49 4E 58 20 20 20 |. INX | 00000A10: 20 20 20 20 20 20 20 20 20 3B 20 58 2D 52 45 47 | ; X-REG| 00000A20: 49 53 54 45 52 20 45 52 48 4F 45 48 45 4E 0D 3A |ISTER ERHOEHEN.:| 00000A30: 4D 4F 44 49 46 59 34 20 43 50 58 20 23 38 20 20 |MODIFY4 CPX #8 | 00000A40: 20 20 20 20 20 20 20 3B 20 53 43 48 4F 4E 20 41 | ; SCHON A| 00000A50: 4C 4C 45 20 38 20 5A 45 49 4C 45 4E 20 3F 0D 20 |LLE 8 ZEILEN ?. | 00000A60: 20 20 20 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 | BNE LOOP| 00000A70: 31 20 20 20 20 20 20 3B 20 46 41 4C 4C 53 20 4E |1 ; FALLS N| 00000A80: 49 43 48 54 20 5A 55 20 4C 4F 4F 50 31 0D 3A 4D |ICHT ZU LOOP1.:M| 00000A90: 4F 44 49 46 59 35 20 4C 44 41 20 23 30 30 20 20 |ODIFY5 LDA #00 | 00000AA0: 20 20 20 20 20 20 3B 20 48 49 4E 54 45 52 47 52 | ; HINTERGR| 00000AB0: 55 4E 44 46 41 52 42 45 20 50 4F 4B 45 4E 0D 20 |UNDFARBE POKEN. | 00000AC0: 20 20 20 20 20 20 20 20 53 54 41 20 35 33 32 38 | STA 5328| 00000AD0: 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |1. LDA #| 00000AE0: 30 30 30 20 20 20 20 20 20 20 3B 20 52 41 53 54 |000 ; RAST| 00000AF0: 45 52 53 54 41 48 4C 20 56 4F 52 57 41 45 48 4C |ERSTAHL VORWAEHL| 00000B00: 45 4E 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |EN. STA | 00000B10: 35 33 32 34 38 2B 31 38 0D 20 20 20 20 20 20 20 |53248+18. | 00000B20: 20 20 4A 4D 50 20 24 45 41 33 31 20 20 20 20 20 | JMP $EA31 | 00000B30: 20 3B 20 53 50 52 55 4E 47 20 5A 55 52 20 4E 4F | ; SPRUNG ZUR NO| 00000B40: 52 4D 41 4C 45 4E 20 49 4E 54 45 52 52 55 50 54 |RMALEN INTERRUPT| 00000B50: 52 4F 55 54 49 4E 45 0D 3A 46 41 52 42 20 42 20 |ROUTINE.:FARB B | 00000B60: 30 31 2C 30 37 2C 30 33 2C 31 33 2C 30 35 2C 31 |01,07,03,13,05,1| 00000B70: 34 2C 30 36 2C 31 30 2C 30 32 2C 30 34 2C 30 38 |4,06,10,02,04,08| 00000B80: 2C 30 39 2C 31 35 2C 31 32 2C 31 31 2C 30 30 2C |,09,15,12,11,00,| 00000B90: 30 30 2C 31 31 2C 31 32 2C 31 34 2C 30 39 2C 30 |00,11,12,14,09,0| 00000BA0: 38 2C 30 34 2C 30 32 0D 20 20 20 20 20 20 42 20 |8,04,02. B | 00000BB0: 31 30 2C 30 36 2C 31 34 2C 30 35 2C 31 33 2C 30 |10,06,14,05,13,0| 00000BC0: 33 2C 30 37 2C 30 31 20 20 20 20 20 20 20 3B 20 |3,07,01 ; | 00000BD0: 46 41 52 42 43 4F 44 45 53 0D 3A 5A 41 48 4C 20 |FARBCODES.:ZAHL | 00000BE0: 42 20 30 32 2C 30 38 2C 30 38 2C 30 38 2C 30 39 |B 02,08,08,08,09| 00000BF0: 2C 30 38 2C 30 39 2C 30 38 2C 31 30 20 20 20 20 |,08,09,08,10 | 00000C00: 3B 20 5A 41 45 48 4C 43 4F 44 45 53 20 46 55 45 |; ZAEHLCODES FUE| 00000C10: 52 20 44 49 45 20 57 41 52 54 45 53 43 48 4C 45 |R DIE WARTESCHLE| 00000C20: 49 46 45 0D 3A 53 43 52 4F 4C 4C 20 20 49 4E 43 |IFE.:SCROLL INC| 00000C30: 20 53 50 45 45 44 20 20 20 20 20 20 3B 20 53 50 | SPEED ; SP| 00000C40: 45 45 44 20 45 52 48 4F 45 48 45 4E 0D 20 20 20 |EED ERHOEHEN. | 00000C50: 20 20 20 20 20 20 4C 44 41 20 53 50 45 45 44 20 | LDA SPEED | 00000C60: 20 20 20 20 20 3B 20 55 4E 44 20 55 45 42 45 52 | ; UND UEBER| 00000C70: 50 52 55 45 46 45 4E 0D 3A 4D 4F 44 49 46 59 33 |PRUEFEN.:MODIFY3| 00000C80: 20 43 4D 50 20 23 30 33 20 20 20 20 20 20 20 20 | CMP #03 | 00000C90: 3B 20 45 4E 44 57 45 52 54 20 45 52 52 45 49 43 |; ENDWERT ERREIC| 00000CA0: 48 54 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |HT. BEQ | 00000CB0: 4E 45 58 54 20 20 20 20 20 20 20 3B 20 46 41 4C |NEXT ; FAL| 00000CC0: 4C 53 20 4A 41 20 45 49 47 45 4E 54 4C 49 43 48 |LS JA EIGENTLICH| 00000CD0: 45 53 20 53 43 52 4F 4C 4C 45 4E 0D 20 20 20 20 |ES SCROLLEN. | 00000CE0: 20 20 20 20 20 4A 4D 50 20 4D 4F 44 49 46 59 31 | JMP MODIFY1| 00000CF0: 20 20 20 20 3B 20 46 41 4C 4C 53 20 4E 49 43 48 | ; FALLS NICH| 00000D00: 54 20 4E 4F 52 4D 41 4C 20 57 45 49 54 45 52 0D |T NORMAL WEITER.| 00000D10: 3A 4E 45 58 54 20 20 20 20 4C 44 41 20 46 41 52 |:NEXT LDA FAR| 00000D20: 42 20 20 20 20 20 20 20 3B 20 45 52 53 54 45 4E |B ; ERSTEN| 00000D30: 20 46 41 52 42 43 4F 44 45 20 4C 41 44 45 4E 0D | FARBCODE LADEN.| 00000D40: 20 20 20 20 20 20 20 20 20 50 48 41 20 20 20 20 | PHA | 00000D50: 20 20 20 20 20 20 20 20 3B 20 41 55 46 20 53 54 | ; AUF ST| 00000D60: 41 43 4B 20 53 43 48 49 45 42 45 4E 0D 20 20 20 |ACK SCHIEBEN. | 00000D70: 20 20 20 20 20 20 4C 44 59 20 23 30 31 20 20 20 | LDY #01 | 00000D80: 20 20 20 20 20 3B 20 59 2D 52 45 47 49 53 54 45 | ; Y-REGISTE| 00000D90: 52 20 41 4C 53 20 49 4E 44 45 58 0D 3A 4F 50 20 |R ALS INDEX.:OP | 00000DA0: 20 20 20 20 20 4C 44 41 20 46 41 52 42 2C 59 20 | LDA FARB,Y | 00000DB0: 20 20 20 20 3B 20 53 43 48 4C 45 49 46 45 0D 20 | ; SCHLEIFE. | 00000DC0: 20 20 20 20 20 20 20 20 44 45 59 20 20 20 20 20 | DEY | 00000DD0: 20 20 20 20 20 20 20 3B 20 49 4E 20 44 45 52 20 | ; IN DER | 00000DE0: 41 4C 4C 45 0D 20 20 20 20 20 20 20 20 20 53 54 |ALLE. ST| 00000DF0: 41 20 46 41 52 42 2C 59 20 20 20 20 20 3B 20 46 |A FARB,Y ; F| 00000E00: 41 52 42 45 4E 20 55 4D 0D 20 20 20 20 20 20 20 |ARBEN UM. | 00000E10: 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 | INY | 00000E20: 20 3B 20 45 49 4E 20 42 59 54 45 20 4E 41 43 48 | ; EIN BYTE NACH| 00000E30: 20 56 4F 52 4E 45 0D 20 20 20 20 20 20 20 20 20 | VORNE. | 00000E40: 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 3B |INY ;| 00000E50: 20 47 45 52 55 45 43 4B 54 0D 20 20 20 20 20 20 | GERUECKT. | 00000E60: 20 20 20 43 50 59 20 23 33 32 20 20 20 20 20 20 | CPY #32 | 00000E70: 20 20 3B 20 57 45 52 44 45 4E 0D 20 20 20 20 20 | ; WERDEN. | 00000E80: 20 20 20 20 42 4E 45 20 4F 50 0D 20 20 20 20 20 | BNE OP. | 00000E90: 20 20 20 20 50 4C 41 20 20 20 20 20 20 20 20 20 | PLA | 00000EA0: 20 20 20 3B 20 45 52 53 54 45 4E 20 57 45 52 54 | ; ERSTEN WERT| 00000EB0: 20 57 49 45 44 45 52 20 48 49 4E 54 45 4E 0D 20 | WIEDER HINTEN. | 00000EC0: 20 20 20 20 20 20 20 20 53 54 41 20 46 41 52 42 | STA FARB| 00000ED0: 2B 33 31 20 20 20 20 3B 20 52 45 49 4E 53 43 48 |+31 ; REINSCH| 00000EE0: 49 45 42 45 4E 0D 20 20 20 20 20 20 20 20 20 4C |IEBEN. L| 00000EF0: 44 41 20 23 30 30 20 20 20 20 20 20 20 20 3B 47 |DA #00 ;G| 00000F00: 45 53 43 48 57 49 4E 44 49 47 4B 45 49 54 53 5A |ESCHWINDIGKEITSZ| 00000F10: 41 45 48 4C 45 52 20 41 55 46 20 4E 55 4C 4C 20 |AEHLER AUF NULL | 00000F20: 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 |SETZEN. | 00000F30: 53 54 41 20 53 50 45 45 44 0D 3A 4D 4F 44 49 46 |STA SPEED.:MODIF| 00000F40: 59 31 20 4C 44 41 20 23 31 33 30 20 20 20 20 20 |Y1 LDA #130 | 00000F50: 20 20 3B 20 4E 41 45 43 48 53 54 45 4E 20 52 41 | ; NAECHSTEN RA| 00000F60: 53 54 45 52 49 4E 54 45 52 52 55 50 54 20 42 45 |STERINTERRUPT BE| 00000F70: 53 54 49 4D 4D 45 4E 0D 20 20 20 20 20 20 20 20 |STIMMEN. | 00000F80: 20 53 54 41 20 35 33 32 34 38 2B 31 38 20 20 20 | STA 53248+18 | 00000F90: 3B 20 49 4E 53 20 52 41 53 54 45 52 52 45 47 49 |; INS RASTERREGI| 00000FA0: 53 54 45 52 20 53 43 48 52 45 49 42 45 4E 0D 20 |STER SCHREIBEN. | 00000FB0: 20 20 20 20 20 20 20 20 4A 4D 50 20 24 46 45 42 | JMP $FEB| 00000FC0: 43 20 20 20 20 20 20 3B 53 50 52 55 4E 47 20 5A |C ;SPRUNG Z| 00000FD0: 55 4D 20 45 4E 44 45 20 44 45 52 20 49 4E 54 45 |UM ENDE DER INTE| 00000FE0: 52 52 55 50 54 52 4F 55 54 49 4E 45 0D 3A 53 50 |RRUPTROUTINE.:SP| 00000FF0: 45 45 44 20 20 20 42 20 24 30 30 20 20 20 20 20 |EED B $00 | 00001000: 20 20 20 20 20 3B 47 45 53 43 48 57 49 4E 44 49 | ;GESCHWINDI| 00001010: 47 4B 45 49 54 53 5A 41 45 48 4C 45 52 20 46 55 |GKEITSZAEHLER FU| 00001020: 45 52 20 46 41 52 42 45 4E 53 43 52 4F 4C 4C 0D |ER FARBENSCROLL.| 00001030: 0D 0D |.. |
; ******************************.
; ** **.
; ** ALLEY. SIM. **
.; ** **
.; ** BY **
.; ** **
.; ** STEFAN LANDFRIED **
.; ** **
.; ** (C) MARKT & TECHNIK **
.; ** **
.; ** VERLAGS AG **
.; ** **
.; ******************************
.;.ORG $C000 ; ANFANGSADRE
SSE = 49152.:GETBYT = $B79E ;ADR
ESSEN FUER PARAMETERUEBERGABE.:CHKKOM =
$AEFD. JSR CHKKOM ;PROGRAMMS
TART UND ABFRAGE. JSR GETBYT
;DER VERSCHIEDENEN PARAMETER. S
TX MODIFY1+1 ; RASTERZEILENPOSITIONEN.
STX MODIFY2+1 ; DES FARBSCROLLE
S MODIFIZIEREN. JSR CHKKOM ;
AUF KOMMA PRUEFEN. JSR GETBYT
; PARAMETER HOLEN. STX MODIFY
3+1 ; GESCHWINDIGKEIT MODIFIZIEREN.
JSR CHKKOM ; AUF KOMMA PRUEFEN.
JSR GETBYT ; PARAMETER HOLE
N. STX MODIFY4+1 ; BREITE MODI
FIZIEREN. JSR CHKKOM ; AUF K
OMMA PRUEFEN. JSR GETBYT ; P
ARAMETER HOHLEN. STX MODIFY5+1
; UND MODIFIZIEREN. SEI
; INTERRUPT SPERREN. LDA $DC0
D ; CIA-TIMER. AND #%011111
11 ; AUSSCHALTEN. ORA #%00000001
. STA $DC0D.:MODIFY2 LDA #130
; RASTERZEILE VORWAEHLEN. ST
A 53248+18. LDA 53248+17 ; HI-
BYTE DES RASTERSTRAHLS. AND #$7F
; AUSSCHALTEN. STA 53248+
17. LDA #%10000001 ; RASTERZEILE
NINTERRUPT VORWAEHLEN. STA 53248
+26. LDA #<IRQ ; LO-BYTE DE
R NEUEN ROUTINE. STA $0314
; SCHREIBEN. LDA #>IRQ ; HI
-BYTE DER NEUEN ROUTINE. STA $03
15 ; SCHREIBEN. CLI
; INTERRUPT ZULASSEN. RTS
; ZURUECK INS BASIC.:IRQ LD
A 53248+25 ; INTERRUPTFLAG LOESCHEN.
STA 53248+25 ; UM ERRORSZU VERM
EIDEN. LDA 53248+18 ; RASTERST
RAHL UEBERFRUEFEN. CMP #000
; 000 ERREICHT ?. BEQ SCROLL
; FALLS JA ZUR SCROLLROUTINE.
LDX #00 ; X-REGISTER ALS INDEXZA
EHLER.:LOOP1 LDA FARB,X ; FARBCODE
LADEN. STA 53281 ; UND INS
HINDERGRUNDFARBREG. SCHREIBEN.
LDA ZAHL,X ; DEN ZAEHLER LADEN.
TAY ; AUSTAUSCH VON A NA
CH Y.:LP DEY ; WARTESCHE
IFE. BNE LP ; JE GROESSE
R DER ZAEHLER DESTO LAENGER DIE SCHLEIFE
. INX ; X-REGISTER ER
HOEHEN.:MODIFY4 CPX #8 ; SCHON A
LLE 8 ZEILEN ?. BNE LOOP1 ;
FALLS NICHT ZU LOOP1.:MODIFY5 LDA #00
; HINTERGRUNDFARBE POKEN.
STA 53281. LDA #000 ; RAST
ERSTAHL VORWAEHLEN. STA 53248+18
. JMP $EA31 ; SPRUNG ZUR NO
RMALEN INTERRUPTROUTINE.:FARB B 01,07,03
,13,05,14,06,10,02,04,08,09,15,12,11,00,
00,11,12,14,09,08,04,02. B 10,06,14
,05,13,03,07,01 ; FARBCODES.:ZAHL
B 02,08,08,08,09,08,09,08,10 ; ZAEHLC
ODES FUER DIE WARTESCHLEIFE.:SCROLL INC
SPEED ; SPEED ERHOEHEN. LD
A SPEED ; UND UEBERPRUEFEN.:MODIFY3
CMP #03 ; ENDWERT ERREICHT.
BEQ NEXT ; FALLS JA EIGENTLICH
ES SCROLLEN. JMP MODIFY1 ; FA
LLS NICHT NORMAL WEITER.:NEXT LDA FAR
B ; ERSTEN FARBCODE LADEN.
PHA ; AUF STACK SCHIEBEN.
LDY #01 ; Y-REGISTER ALS IN
DEX.:OP LDA FARB,Y ; SCHLEIFE.
DEY ; IN DER ALLE.
STA FARB,Y ; FARBEN UM.
INY ; EIN BYTE NACH VORNE.
INY ; GERUECKT.
CPY #32 ; WERDEN. BNE
OP. PLA ; ERSTEN WERT
WIEDER HINTEN. STA FARB+31 ;
REINSCHIEBEN. LDA #00 ;G
ESCHWINDIGKEITSZAEHLER AUF NULL SETZEN.
STA SPEED.:MODIFY1 LDA #130
; NAECHSTEN RASTERINTERRUPT BESTIMMEN.
STA 53248+18 ; INS RASTERREGI
STER SCHREIBEN. JMP $FEBC ;
SPRUNG ZUM ENDE DER INTERRUPTROUTINE.:SP
EED B $00 ;GESCHWINDIGKEITSZA
EHLER FUER FARBENSCROLL...
> CLICK IMAGE PREVIEW FOR FULL MODAL