WAIT.SRC
FILE INFORMATION
FILENAME(S): WAIT.SRC
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-02 16:39:49
APPEARS ON: 3 disk(s)
FILE HASH
41b06bb29443cec6a57cdbb48af6442591008783622c16410551ea11424878ba
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15827 SEITE C | WAIT.SRC | PRG | Treasure Chest - Plattfuss | 20 | 0 | DOWNLOAD FILE |
| 15827 SEITE C | WAIT.SRC | PRG | C64er, hedning, The Viking, Treasure Chest - ralf | 20 | 0 | DOWNLOAD FILE |
| 15827 SEITE C | WAIT.SRC | PRG | DuncanTwain | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 E8 03 3B 2A 2A 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 2A 00 4F 08 F2 03 3B 2A 2A |********.O...;**| 00000030: 2A 20 20 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 2A 2A 2A 00 | ***.| 00000050: 76 08 FC 03 3B 2A 2A 2A 20 20 20 20 20 20 20 20 |v...;*** | 00000060: 20 20 20 CB 55 52 53 20 20 20 20 20 20 20 20 20 | .URS | 00000070: 20 20 20 2A 2A 2A 00 9D 08 06 04 3B 2A 2A 2A 20 | ***.....;*** | 00000080: DA 41 55 42 45 52 45 49 45 4E 20 4D 49 54 20 C7 |.AUBEREIEN MIT .| 00000090: 52 41 46 49 4B 20 55 4E 44 20 2A 2A 2A 00 C4 08 |RAFIK UND ***...| 000000A0: 10 04 3B 2A 2A 2A 20 20 20 20 20 20 20 20 20 C1 |..;*** .| 000000B0: 53 53 45 4D 42 4C 45 52 20 20 20 20 20 20 20 20 |SSEMBLER | 000000C0: 20 2A 2A 2A 00 EB 08 1A 04 3B 2A 2A 2A 20 20 20 | ***.....;*** | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 20 2A 2A 2A 00 12 09 24 04 | ***...$.| 000000F0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000110: 2A 2A 00 39 09 2E 04 3B 2A 2A 2A 20 20 20 20 20 |**.9...;*** | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 2A 2A 2A 00 60 09 38 04 3B 2A | ***.`.8.;*| 00000140: 2A 2A 20 C6 41 52 42 55 4D 53 43 48 41 4C 54 55 |** .ARBUMSCHALTU| 00000150: 4E 47 20 44 55 52 43 48 20 20 20 20 20 2A 2A 2A |NG DURCH ***| 00000160: 00 87 09 42 04 3B 2A 2A 2A 20 D2 41 53 54 45 52 |...B.;*** .ASTER| 00000170: 5A 45 49 4C 45 4E 49 4E 54 45 52 52 55 50 54 20 |ZEILENINTERRUPT | 00000180: 20 20 20 20 2A 2A 2A 00 AE 09 4C 04 3B 2A 2A 2A | ***...L.;***| 00000190: 20 55 4D 20 44 49 45 20 CC 41 45 4E 47 45 20 44 | UM DIE .AENGE D| 000001A0: 45 52 20 D7 41 52 54 45 2D 20 20 2A 2A 2A 00 D5 |ER .ARTE- ***..| 000001B0: 09 56 04 3B 2A 2A 2A 20 53 43 48 4C 45 49 46 45 |.V.;*** SCHLEIFE| 000001C0: 20 5A 55 20 45 52 4D 49 54 54 45 4C 4E 2C 20 20 | ZU ERMITTELN, | 000001D0: 20 20 2A 2A 2A 00 FC 09 60 04 3B 2A 2A 2A 20 42 | ***...`.;*** B| 000001E0: 49 53 20 44 45 52 20 D2 41 53 54 45 52 53 54 52 |IS DER .ASTERSTR| 000001F0: 41 48 4C 20 20 20 20 20 20 2A 2A 2A 00 23 0A 6A |AHL ***.#.j| 00000200: 04 3B 2A 2A 2A 20 53 49 43 48 20 49 4D 20 52 45 |.;*** SICH IM RE| 00000210: 43 48 54 45 4E 20 C2 49 4C 44 2D 20 20 20 20 20 |CHTEN .ILD- | 00000220: 2A 2A 2A 00 4A 0A 74 04 3B 2A 2A 2A 20 53 43 48 |***.J.t.;*** SCH| 00000230: 49 52 4D 52 41 4E 44 20 42 45 46 49 4E 44 45 54 |IRMRAND BEFINDET| 00000240: 20 20 20 20 20 20 20 2A 2A 2A 00 71 0A 7E 04 3B | ***.q.~.;| 00000250: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** | 00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **| 00000270: 2A 00 98 0A 88 04 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.....;*********| 00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000290: 2A 2A 2A 2A 2A 2A 2A 2A 00 BF 0A 92 04 3B 2A 2A |********.....;**| 000002A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.| 000002C0: E6 0A 9C 04 3B 2A 2A 2A 20 28 C3 29 20 31 39 38 |....;*** (.) 198| 000002D0: 38 20 42 59 20 D4 48 4F 4D 41 53 20 CC 49 50 50 |8 BY .HOMAS .IPP| 000002E0: 20 20 20 2A 2A 2A 00 0D 0B A6 04 3B 2A 2A 2A 20 | ***.....;*** | 000002F0: 38 30 30 30 20 CD 55 45 4E 43 48 45 4E 20 38 32 |8000 .UENCHEN 82| 00000300: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 34 0B | ***.4.| 00000310: B0 04 3B 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 |..;*** | 00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000330: 20 2A 2A 2A 00 5B 0B BA 04 3B 2A 2A 2A 2A 2A 2A | ***.[...;******| 00000340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 61 0B C4 04 |***********.a...| 00000360: 3B 00 6C 0B CE 04 AA 24 43 30 30 30 00 77 0B D8 |;.l....$C000.w..| 00000370: 04 B7 24 43 30 30 30 00 7D 0B E2 04 3B 00 A4 0B |..$C000.}...;...| 00000380: EC 04 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************| 00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003A0: 2A 2A 2A 2A 00 CB 0B F6 04 3B 2A 2A 2A 20 20 D2 |****.....;*** .| 000003B0: 41 53 54 45 52 5A 45 49 4C 45 4E 49 4E 54 45 52 |ASTERZEILENINTER| 000003C0: 52 55 50 54 20 20 20 20 2A 2A 2A 00 F2 0B 00 05 |RUPT ***.....| 000003D0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************| 000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003F0: 2A 2A 00 F8 0B 0A 05 3B 00 24 0C 14 05 3B 2A 2A |**.....;.$...;**| 00000400: 2A 20 20 CC 41 42 45 4C 3A 20 D2 41 53 54 45 52 |* .ABEL: .ASTER| 00000410: 5A 45 49 4C 45 4E 49 4E 54 45 52 52 55 50 54 20 |ZEILENINTERRUPT | 00000420: 20 2A 2A 2A 00 2A 0C 1E 05 3B 00 45 0C 28 05 A3 | ***.*...;.E.(..| 00000430: 49 52 51 3D 24 30 33 31 34 3B 20 C9 D2 D1 2D D6 |IRQ=$0314; ...-.| 00000440: 45 4B 54 4F 52 00 86 0C 32 05 A3 52 41 53 54 45 |EKTOR...2..RASTE| 00000450: 52 3D 24 44 30 31 32 3B 20 D2 41 53 54 45 52 5A |R=$D012; .ASTERZ| 00000460: 45 49 4C 45 4E 20 D2 45 47 49 53 54 45 52 3B 20 |EILEN .EGISTER; | 00000470: 4D 53 42 20 28 37 2E C2 49 54 29 20 3D 20 52 41 |MSB (7..IT) = RA| 00000480: 53 54 45 52 2D 31 00 B1 0C 3C 05 A3 52 49 52 51 |STER-1...<..RIRQ| 00000490: 45 4E 3D 24 44 30 31 41 3B 20 D6 C9 C3 2D C9 D2 |EN=$D01A; ...-..| 000004A0: D1 20 C5 4E 41 42 4C 45 20 D2 45 47 49 53 54 45 |. .NABLE .EGISTE| 000004B0: 52 00 DD 0C 46 05 A3 52 45 51 49 52 51 3D 24 44 |R...F..REQIRQ=$D| 000004C0: 30 31 39 3B 20 D6 C9 C3 2D C9 D2 D1 20 D2 45 51 |019; ...-... .EQ| 000004D0: 55 45 53 54 20 D2 45 47 49 53 54 45 52 00 0B 0D |UEST .EGISTER...| 000004E0: 50 05 A3 43 49 41 49 52 51 3D 24 44 43 30 44 3B |P..CIAIRQ=$DC0D;| 000004F0: 20 C3 C9 C1 31 20 C9 D2 D1 20 CB 4F 4E 54 52 4F | ...1 ... .ONTRO| 00000500: 4C 4C 20 D2 45 47 49 53 54 45 52 00 2E 0D 5A 05 |LL .EGISTER...Z.| 00000510: A3 43 4E 54 49 52 51 3D 24 45 41 33 31 3B 20 C3 |.CNTIRQ=$EA31; .| 00000520: C9 C1 20 C9 D2 D1 20 D2 4F 55 54 49 4E 45 00 5F |.. ... .OUTINE._| 00000530: 0D 64 05 A3 45 4E 44 49 52 51 3D 24 45 41 38 31 |.d..ENDIRQ=$EA81| 00000540: 3B 20 C5 4E 44 45 20 44 45 52 20 4E 4F 52 4D 41 |; .NDE DER NORMA| 00000550: 4C 45 4E 20 C9 D2 D1 20 D2 4F 55 54 49 4E 45 00 |LEN ... .OUTINE.| 00000560: 65 0D 6E 05 3B 00 9B 0D 78 05 3B 2A 2A 2A 20 20 |e.n.;...x.;*** | 00000570: C9 4E 49 54 3A 20 D6 45 4B 54 4F 52 45 4E 20 56 |.NIT: .EKTOREN V| 00000580: 45 52 42 49 45 47 45 4E 2C 20 C9 D2 D1 20 5A 55 |ERBIEGEN, ... ZU| 00000590: 4C 41 53 53 45 4E 20 20 2A 2A 2A 00 A1 0D 82 05 |LASSEN ***.....| 000005A0: 3B 00 BD 0D 8C 05 49 52 20 E8 3B 20 C9 4E 54 45 |;.....IR .; .NTE| 000005B0: 52 52 55 50 54 20 53 50 45 52 52 45 4E 00 C3 0D |RRUPT SPERREN...| 000005C0: 96 05 3B 00 02 0E A0 05 20 CA 23 3C 28 4D 41 49 |..;..... .#<(MAI| 000005D0: 4E 49 52 51 29 3B 20 C9 D2 D1 2D D6 45 4B 54 4F |NIRQ); ...-.EKTO| 000005E0: 52 20 41 55 46 20 45 49 47 45 4E 45 20 C9 D2 D1 |R AUF EIGENE ...| 000005F0: 20 D2 4F 55 54 49 4E 45 20 56 45 52 42 49 45 47 | .OUTINE VERBIEG| 00000600: 45 4E 00 11 0E AA 05 20 D2 49 52 51 3B 20 4C 53 |EN..... .IRQ; LS| 00000610: 42 00 23 0E B4 05 20 CA 23 3E 28 4D 41 49 4E 49 |B.#... .#>(MAINI| 00000620: 52 51 29 00 34 0E BE 05 20 D2 49 52 51 2B 31 3B |RQ).4... .IRQ+1;| 00000630: 20 4D 53 42 00 3A 0E C8 05 3B 00 76 0E D2 05 20 | MSB.:...;.v... | 00000640: CA 23 24 30 30 3B 20 D2 41 53 54 45 52 5A 45 49 |.#$00; .ASTERZEI| 00000650: 4C 45 20 30 20 28 4F 42 45 52 48 41 4C 42 20 44 |LE 0 (OBERHALB D| 00000660: 45 53 20 C2 49 4C 44 53 43 48 49 52 4D 46 45 4E |ES .ILDSCHIRMFEN| 00000670: 53 54 45 52 53 29 00 9A 0E DC 05 20 D2 52 41 53 |STERS)..... .RAS| 00000680: 54 45 52 3B 20 49 4E 20 D2 45 47 49 53 54 45 52 |TER; IN .EGISTER| 00000690: 20 53 43 48 52 45 49 42 45 4E 00 BF 0E E6 05 20 | SCHREIBEN..... | 000006A0: CA 52 41 53 54 45 52 2D 31 3B 20 4D 53 42 20 28 |.RASTER-1; MSB (| 000006B0: 37 2E C2 49 54 29 20 4C 4F 45 53 43 48 45 4E 00 |7..IT) LOESCHEN.| 000006C0: CA 0E F0 05 20 C6 23 24 37 46 00 D9 0E FA 05 20 |.... .#$7F..... | 000006D0: D2 52 41 53 54 45 52 2D 31 00 DF 0E 04 06 3B 00 |.RASTER-1.....;.| 000006E0: 05 0F 0E 06 20 CA 23 25 31 30 30 30 30 30 30 31 |.... .#%10000001| 000006F0: 3B 20 D2 41 53 54 45 52 20 C9 D2 D1 20 5A 55 4C |; .ASTER ... ZUL| 00000700: 41 53 53 45 4E 00 12 0F 18 06 20 D2 52 49 52 51 |ASSEN..... .RIRQ| 00000710: 45 4E 00 18 0F 22 06 3B 00 32 0F 2C 06 20 CA 23 |EN...".;.2.,. .#| 00000720: 31 32 38 3B 20 54 49 4D 45 52 2D 49 52 51 20 41 |128; TIMER-IRQ A| 00000730: 55 53 00 3E 0F 36 06 20 D2 24 44 43 30 45 00 44 |US.>.6. .$DC0E.D| 00000740: 0F 40 06 3B 00 66 0F 4A 06 20 E7 3B 20 C9 4E 54 |.@.;.f.J. .; .NT| 00000750: 45 52 52 55 50 54 20 57 49 45 44 45 52 20 5A 55 |ERRUPT WIEDER ZU| 00000760: 4C 41 53 53 45 4E 00 6C 0F 54 06 3B 00 93 0F 5E |LASSEN.l.T.;...^| 00000770: 06 3B 2A 2A 2A 20 20 56 45 52 41 45 4E 44 45 52 |.;*** VERAENDER| 00000780: 54 45 20 C9 D2 D1 2D D2 4F 55 54 49 4E 45 20 20 |TE ...-.OUTINE | 00000790: 2A 2A 2A 00 99 0F 68 06 3B 00 BA 0F 72 06 4D 41 |***...h.;...r.MA| 000007A0: 49 4E 49 52 51 20 E8 3B 20 C9 4E 54 45 52 52 55 |INIRQ .; .NTERRU| 000007B0: 50 54 20 53 50 45 52 52 45 4E 00 DF 0F 7C 06 20 |PT SPERREN...|. | 000007C0: CA 52 45 51 49 52 51 3B 20 C9 D2 D1 20 56 4F 4E |.REQIRQ; ... VON| 000007D0: 20 D2 41 53 54 45 52 53 54 52 41 48 4C 20 3F 00 | .ASTERSTRAHL ?.| 000007E0: 14 10 86 06 20 D2 52 45 51 49 52 51 3B 20 D2 45 |.... .REQIRQ; .E| 000007F0: 47 49 53 54 45 52 20 5A 55 52 55 45 43 4B 53 43 |GISTER ZURUECKSC| 00000800: 48 52 45 49 42 45 4E 20 55 4E 44 20 4C 4F 45 53 |HREIBEN UND LOES| 00000810: 43 48 45 4E 00 3C 10 90 06 20 F1 52 41 53 54 45 |CHEN.<... .RASTE| 00000820: 52 49 52 51 3B 20 5A 55 52 20 D2 41 53 54 45 52 |RIRQ; ZUR .ASTER| 00000830: 20 C9 D2 D1 20 D2 4F 55 54 49 4E 45 00 6E 10 9A | ... .OUTINE.n..| 00000840: 06 20 CA 43 49 41 49 52 51 3B 20 4C 4F 45 53 43 |. .CIAIRQ; LOESC| 00000850: 48 45 4E 20 44 45 53 20 C3 C9 C1 31 20 CB 4F 4E |HEN DES ...1 .ON| 00000860: 54 52 4F 4C 4C 20 D2 45 47 49 53 54 45 52 00 90 |TROLL .EGISTER..| 00000870: 10 A4 06 20 E7 3B 20 C9 4E 54 45 52 52 55 50 54 |... .; .NTERRUPT| 00000880: 20 57 49 45 44 45 52 20 5A 55 4C 41 53 53 45 4E | WIEDER ZULASSEN| 00000890: 00 C0 10 AE 06 20 D5 45 4E 44 49 52 51 3B 20 5A |..... .ENDIRQ; Z| 000008A0: 55 4D 20 C5 4E 44 45 20 44 45 52 20 4E 4F 52 4D |UM .NDE DER NORM| 000008B0: 41 4C 45 4E 20 C9 D2 D1 20 D2 4F 55 54 49 4E 45 |ALEN ... .OUTINE| 000008C0: 00 C6 10 B8 06 3B 00 E8 10 C2 06 3B 2A 2A 2A 20 |.....;.....;*** | 000008D0: 20 D2 41 53 54 45 52 20 C9 D2 D1 20 D2 4F 55 54 | .ASTER ... .OUT| 000008E0: 49 4E 45 20 20 2A 2A 2A 00 EE 10 CC 06 3B 00 11 |INE ***.....;..| 000008F0: 11 D6 06 52 41 53 54 45 52 49 52 51 20 E8 3B 20 |...RASTERIRQ .; | 00000900: C9 4E 54 45 52 52 55 50 54 20 53 50 45 52 52 45 |.NTERRUPT SPERRE| 00000910: 4E 00 3E 11 E0 06 20 CA 52 41 53 54 45 52 3B 20 |N.>... .RASTER; | 00000920: D2 41 53 54 45 52 5A 45 49 4C 45 4E 2D D2 45 47 |.ASTERZEILEN-.EG| 00000930: 49 53 54 45 52 20 41 55 53 4C 45 53 45 4E 00 5C |ISTER AUSLESEN.\| 00000940: 11 EA 06 20 F6 54 45 58 54 46 45 3B 20 3D 3E 20 |... .TEXTFE; => | 00000950: 52 41 53 54 45 52 20 3D 20 24 39 31 00 62 11 F4 |RASTER = $91.b..| 00000960: 06 3B 00 80 11 FE 06 20 CA 23 24 30 41 3B 20 C6 |.;..... .#$0A; .| 00000970: 41 52 42 43 4F 44 45 20 46 55 45 52 20 52 4F 54 |ARBCODE FUER ROT| 00000980: 00 B0 11 08 07 20 D2 24 44 30 32 31 3B 20 D6 C9 |..... .$D021; ..| 00000990: C3 2D D2 45 47 49 53 54 45 52 20 46 55 45 52 20 |.-.EGISTER FUER | 000009A0: C8 49 4E 54 45 52 47 52 55 4E 44 46 41 52 42 45 |.INTERGRUNDFARBE| 000009B0: 00 B6 11 12 07 3B 00 E9 11 1C 07 20 CA 23 24 39 |.....;..... .#$9| 000009C0: 31 3B 20 31 34 35 2E 20 D2 41 53 54 45 52 5A 45 |1; 145. .ASTERZE| 000009D0: 49 4C 45 2C 20 D5 4D 53 43 48 41 4C 54 55 4E 47 |ILE, .MSCHALTUNG| 000009E0: 20 41 55 46 20 D4 45 58 54 00 0D 12 26 07 20 D2 | AUF .EXT...&. .| 000009F0: 52 41 53 54 45 52 3B 20 49 4E 20 D2 45 47 49 53 |RASTER; IN .EGIS| 00000A00: 54 45 52 20 53 43 48 52 45 49 42 45 4E 00 32 12 |TER SCHREIBEN.2.| 00000A10: 30 07 20 CA 52 41 53 54 45 52 2D 31 3B 20 4D 53 |0. .RASTER-1; MS| 00000A20: 42 20 28 37 2E C2 49 54 29 A0 4C 4F 45 53 43 48 |B (7..IT).LOESCH| 00000A30: 45 4E 00 3D 12 3A 07 20 C6 23 24 37 46 00 4C 12 |EN.=.:. .#$7F.L.| 00000A40: 44 07 20 D2 52 41 53 54 45 52 2D 31 00 52 12 4E |D. .RASTER-1.R.N| 00000A50: 07 3B 00 74 12 58 07 20 E7 3B 20 C9 4E 54 45 52 |.;.t.X. .; .NTER| 00000A60: 52 55 50 54 20 57 49 45 44 45 52 20 5A 55 4C 41 |RUPT WIEDER ZULA| 00000A70: 53 53 45 4E 00 96 12 62 07 20 D5 43 4E 54 49 52 |SSEN...b. .CNTIR| 00000A80: 51 3B 20 5A 55 52 20 C3 C9 C1 20 C9 D2 D1 20 D2 |Q; ZUR ... ... .| 00000A90: 4F 55 54 49 4E 45 00 9C 12 6C 07 3B 00 DE 12 76 |OUTINE...l.;...v| 00000AA0: 07 54 45 58 54 46 45 20 C2 23 24 30 38 3B 20 D7 |.TEXTFE .#$08; .| 00000AB0: 41 52 54 45 53 43 48 4C 45 49 46 45 2C 20 42 49 |ARTESCHLEIFE, BI| 00000AC0: 53 20 44 45 52 20 D2 41 53 54 45 52 53 54 52 41 |S DER .ASTERSTRA| 00000AD0: 48 4C 20 49 4D 20 D2 41 4E 44 20 49 53 54 00 1C |HL IM .AND IST..| 00000AE0: 13 80 07 49 52 51 57 41 49 54 20 E4 3B 20 44 45 |...IRQWAIT .; DE| 00000AF0: 52 20 D7 45 52 54 20 24 30 38 20 49 53 54 20 56 |R .ERT $08 IST V| 00000B00: 41 52 49 41 42 45 4C 3B 20 56 45 52 41 4E 44 45 |ARIABEL; VERANDE| 00000B10: 52 4E 20 D3 49 45 20 49 48 4E 20 21 00 23 13 8A |RN .IE IHN !.#..| 00000B20: 07 20 EE 00 31 13 94 07 20 F6 49 52 51 57 41 49 |. ..1... .IRQWAI| 00000B30: 54 00 37 13 9E 07 3B 00 59 13 A8 07 20 CA 23 24 |T.7...;.Y... .#$| 00000B40: 30 30 3B 20 C6 41 52 42 43 4F 44 45 20 46 55 45 |00; .ARBCODE FUE| 00000B50: 52 20 53 43 48 57 41 52 5A 00 89 13 B2 07 20 D2 |R SCHWARZ..... .| 00000B60: 24 44 30 32 31 3B 20 D6 C9 C3 2D D2 45 47 49 53 |$D021; ...-.EGIS| 00000B70: 54 45 52 20 46 55 45 52 20 C8 49 4E 54 45 52 47 |TER FUER .INTERG| 00000B80: 52 55 4E 44 46 41 52 42 45 00 8F 13 BC 07 3B 00 |RUNDFARBE.....;.| 00000B90: BC 13 C6 07 20 CA 23 24 30 30 3B 20 30 2E 20 DA |.... .#$00; 0. .| 00000BA0: 45 49 4C 45 2C 20 D5 4D 53 43 48 41 4C 54 55 4E |EILE, .MSCHALTUN| 00000BB0: 47 20 41 55 46 20 C7 52 41 46 49 4B 00 E0 13 D0 |G AUF .RAFIK....| 00000BC0: 07 20 D2 52 41 53 54 45 52 3B 20 49 4E 20 D2 45 |. .RASTER; IN .E| 00000BD0: 47 49 53 54 45 52 20 53 43 48 52 45 49 42 45 4E |GISTER SCHREIBEN| 00000BE0: 00 05 14 DA 07 20 CA 52 41 53 54 45 52 2D 31 3B |..... .RASTER-1;| 00000BF0: 20 4D 53 42 20 28 37 2E C2 49 54 29 20 4C 4F 45 | MSB (7..IT) LOE| 00000C00: 53 43 48 45 4E 00 10 14 E4 07 20 C6 23 24 37 46 |SCHEN..... .#$7F| 00000C10: 00 1F 14 EE 07 20 D2 52 41 53 54 45 52 2D 31 00 |..... .RASTER-1.| 00000C20: 25 14 F8 07 3B 00 47 14 02 08 20 E7 3B 20 C9 4E |%...;.G... .; .N| 00000C30: 54 45 52 52 55 50 54 20 57 49 45 44 45 52 20 5A |TERRUPT WIEDER Z| 00000C40: 55 4C 41 53 53 45 4E 00 6E 14 0C 08 20 D5 45 4E |ULASSEN.n... .EN| 00000C50: 44 49 52 51 3B 20 5A 55 4D 20 C5 4E 44 45 20 44 |DIRQ; ZUM .NDE D| 00000C60: 45 52 20 C9 D2 D1 2D D2 4F 55 54 49 4E 45 00 74 |ER ...-.OUTINE.t| 00000C70: 14 16 08 3B 00 AC 14 20 08 3B 2A 2A 2A 20 20 D2 |...;... .;*** .| 00000C80: 41 53 54 45 52 5A 45 49 4C 45 4E 49 4E 54 45 52 |ASTERZEILENINTER| 00000C90: 52 55 50 54 20 57 49 45 44 45 52 20 41 55 53 53 |RUPT WIEDER AUSS| 00000CA0: 43 48 41 4C 54 45 4E 20 20 2A 2A 2A 00 B2 14 2A |CHALTEN ***...*| 00000CB0: 08 3B 00 CE 14 34 08 49 41 20 E8 3B 20 C9 4E 54 |.;...4.IA .; .NT| 00000CC0: 45 52 52 55 50 54 20 53 50 45 52 52 45 4E 00 D4 |ERRUPT SPERREN..| 00000CD0: 14 3E 08 3B 00 F7 14 48 08 20 CA 23 24 30 30 3B |.>.;...H. .#$00;| 00000CE0: 20 D2 41 53 54 45 52 20 C9 D2 D1 20 41 55 53 53 | .ASTER ... AUSS| 00000CF0: 43 48 41 4C 54 45 4E 00 1B 15 52 08 20 D2 52 49 |CHALTEN...R. .RI| 00000D00: 52 51 45 4E 3B 20 49 4E 20 D2 45 47 49 53 54 45 |RQEN; IN .EGISTE| 00000D10: 52 20 53 43 48 52 45 49 42 45 4E 00 21 15 5C 08 |R SCHREIBEN.!.\.| 00000D20: 3B 00 50 15 66 08 20 CA 23 3C 28 43 4E 54 49 52 |;.P.f. .#<(CNTIR| 00000D30: 51 29 3B 20 C9 D2 D1 2D D6 45 4B 54 4F 52 20 57 |Q); ...-.EKTOR W| 00000D40: 49 45 44 45 52 20 48 45 52 53 54 45 4C 4C 45 4E |IEDER HERSTELLEN| 00000D50: 00 5F 15 70 08 20 D2 49 52 51 3B 20 4C 53 42 00 |._.p. .IRQ; LSB.| 00000D60: 70 15 7A 08 20 CA 23 3E 28 43 4E 54 49 52 51 29 |p.z. .#>(CNTIRQ)| 00000D70: 00 81 15 84 08 20 D2 49 52 51 2B 31 3B 20 4D 53 |..... .IRQ+1; MS| 00000D80: 42 00 87 15 8E 08 3B 00 9F 15 98 08 20 CA 23 31 |B.....;..... .#1| 00000D90: 3B 20 54 49 4D 45 52 2D 49 52 51 20 45 49 4E 00 |; TIMER-IRQ EIN.| 00000DA0: AB 15 A2 08 20 D2 24 44 43 30 45 00 B1 15 AC 08 |.... .$DC0E.....| 00000DB0: 3B 00 D3 15 B6 08 20 E7 3B 20 C9 4E 54 45 52 52 |;..... .; .NTERR| 00000DC0: 55 50 54 20 57 49 45 44 45 52 20 5A 55 4C 41 53 |UPT WIEDER ZULAS| 00000DD0: 53 45 4E 00 E8 15 C0 08 20 E3 3B 20 D2 4F 55 54 |SEN..... .; .OUT| 00000DE0: 49 4E 45 4E 45 4E 44 45 00 EE 15 CA 08 3B 00 00 |INENENDE.....;..| 00000DF0: 00 |. |
..(...;*********************************
.O...;*** ***.
V...;*** KURS ***..
...;*** ZAUBEREIEN MIT GRAFIK UND ***.D.
..;*** ASSEMBLER ***....
.;*** ***...$.
;*********************************.9...;
*** ***.`.8.;*
** FARBUMSCHALTUNG DURCH ***...B.;**
* RASTERZEILENINTERRUPT ***...L.;***
UM DIE LAENGE DER WARTE- ***.U.V.;***
SCHLEIFE ZU ERMITTELN, ***...`.;*** B
IS DER RASTERSTRAHL ***.#.J.;*** SI
CH IM RECHTEN BILD- ***.J.T.;*** SCH
IRMRAND BEFINDET ***.Q.~.;***
***.....;*********
************************.....;***
***.....;*** (C) 198
8 BY THOMAS LIPP ***.....;*** 8000 MUE
NCHEN 82 ***.4...;***
***.[...;**************
*******************.A.D.;.L.N..$C000.W.X
..$C000.}...;.....;*********************
************.K...;*** RASTERZEILENINTER
RUPT ***.....;***********************
**********.....;.$...;*** LABEL: RASTER
ZEILENINTERRUPT ***.*...;.E.(..IRQ=$031
4; IRQ-VEKTOR...2..RASTER=$D012; RASTERZ
EILEN REGISTER; MSB (7.BIT) = RASTER-1..
.<..RIRQEN=$D01A; VIC-IRQ ENABLE REGISTE
R...F..REQIRQ=$D019; VIC-IRQ REQUEST REG
ISTER...P..CIAIRQ=$DC0D; CIA1 IRQ KONTRO
LL REGISTER...Z..CNTIRQ=$EA31; CIA IRQ R
OUTINE._.D..ENDIRQ=$EA81; ENDE DER NORMA
LEN IRQ ROUTINE.E.N.;...X.;*** INIT: VE
KTOREN VERBIEGEN, IRQ ZULASSEN ***.....
;.....IR .; INTERRUPT SPERREN.C...;... .
J#<(MAINIRQ); IRQ-VEKTOR AUF EIGENE IRQ
ROUTINE VERBIEGEN..... RIRQ; LSB.#... J
#>(MAINIRQ).4... RIRQ+1; MSB.:.H.;.V.R.
J#$00; RASTERZEILE 0 (OBERHALB DES BILDS
CHIRMFENSTERS)..... RRASTER; IN REGISTER
SCHREIBEN..... JRASTER-1; MSB (7.BIT) L
OESCHEN.J... F#$7F.Y... RRASTER-1.....;.
.... J#%10000001; RASTER IRQ ZULASSEN...
.. RRIRQEN...".;.2.,. J#128; TIMER-IRQ A
US.>.6. R$DC0E.D.@.;.F.J. .; INTERRUPT W
IEDER ZULASSEN.L.T.;...^.;*** VERAENDER
TE IRQ-ROUTINE ***...H.;...R.MAINIRQ .;
INTERRUPT SPERREN...|. JREQIRQ; IRQ VON
RASTERSTRAHL ?..... RREQIRQ; REGISTER Z
URUECKSCHREIBEN UND LOESCHEN.<... .RASTE
RIRQ; ZUR RASTER IRQ ROUTINE.N... JCIAIR
Q; LOESCHEN DES CIA1 KONTROLL REGISTER..
... .; INTERRUPT WIEDER ZULASSEN..... UE
NDIRQ; ZUM ENDE DER NORMALEN IRQ ROUTINE
.F...;...B.;*** RASTER IRQ ROUTINE ***
...L.;...V.RASTERIRQ .; INTERRUPT SPERRE
N.>... JRASTER; RASTERZEILEN-REGISTER AU
SLESEN.\... .TEXTFE; => RASTER = $91.B..
.;..... J#$0A; FARBCODE FUER ROT..... R$
D021; VIC-REGISTER FUER HINTERGRUNDFARBE
.....;..... J#$91; 145. RASTERZEILE, UMS
CHALTUNG AUF TEXT...&. RRASTER; IN REGIS
TER SCHREIBEN.2.0. JRASTER-1; MSB (7.BIT
) LOESCHEN.=.:. F#$7F.L.D. RRASTER-1.R.N
.;.T.X. .; INTERRUPT WIEDER ZULASSEN...B
. UCNTIRQ; ZUR CIA IRQ ROUTINE...L.;...V
.TEXTFE B#$08; WARTESCHLEIFE, BIS DER RA
STERSTRAHL IM RAND IST.....IRQWAIT .; DE
R WERT $08 IST VARIABEL; VERANDERN SIE I
HN !.#... ..1... .IRQWAIT.7...;.Y... J#$
00; FARBCODE FUER SCHWARZ..... R$D021; V
IC-REGISTER FUER HINTERGRUNDFARBE.....;.
..F. J#$00; 0. ZEILE, UMSCHALTUNG AUF GR
AFIK...P. RRASTER; IN REGISTER SCHREIBEN
...Z. JRASTER-1; MSB (7.BIT) LOESCHEN...
.. F#$7F..... RRASTER-1.%...;.G... .; IN
TERRUPT WIEDER ZULASSEN.N... UENDIRQ; ZU
M ENDE DER IRQ-ROUTINE.T...;... .;*** R
ASTERZEILENINTERRUPT WIEDER AUSSCHALTEN
***...*.;.N.4.IA .; INTERRUPT SPERREN.T
.>.;...H. J#$00; RASTER IRQ AUSSCHALTEN.
..R. RRIRQEN; IN REGISTER SCHREIBEN.!.\.
;.P.F. J#<(CNTIRQ); IRQ-VEKTOR WIEDER HE
RSTELLEN._.P. RIRQ; LSB.P.Z. J#>(CNTIRQ)
..... RIRQ+1; MSB.....;..... J#1; TIMER-
IRQ EIN..... R$DC0E.....;.S... .; INTERR
UPT WIEDER ZULASSEN..... .; ROUTINENENDE
...J.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL