PROMETH.SRC
FILE INFORMATION
FILENAME(S): PROMETH.SRC
FILE TYPE(S): SEQ
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 01:13:08
APPEARS ON: 1 disk(s)
FILE HASH
d039c2fd38888e4397fc2346bd35279f5464e69f759eea1d0fb5d5950abe55fd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15833 SEITE A | PROMETH.SRC | SEQ | C64er | 17 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 3B 2A 2A 2A 2A 2A 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 0D 3B 2A 2A 2A 20 D3 4F 55 52 43 45 43 4F |**.;*** .OURCECO| 00000030: 44 45 20 5A 55 20 D0 52 4F 4D 45 54 48 45 55 53 |DE ZU .ROMETHEUS| 00000040: 20 2A 2A 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***.;**********| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 0D 0D 0D 4F 52 47 20 24 43 30 |******...ORG $C0| 00000070: 30 30 20 20 20 20 20 20 20 20 20 20 3B 20 41 53 |00 ; AS| 00000080: 53 45 4D 42 4C 49 45 52 55 4E 47 20 41 42 20 24 |SEMBLIERUNG AB $| 00000090: 43 30 30 30 0D 0D 0D 3B 2A 2A 2A 20 D0 52 4F 47 |C000...;*** .ROG| 000000A0: 52 41 4D 4D 20 2A 2A 2A 0D 0D 0D 20 20 20 20 20 |RAMM ***... | 000000B0: 20 20 20 20 53 45 49 20 20 20 20 20 20 20 20 20 | SEI | 000000C0: 20 20 20 20 20 20 20 3B 20 49 52 51 20 53 50 45 | ; IRQ SPE| 000000D0: 52 52 45 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 |RREN. LD| 000000E0: 41 20 24 44 43 30 44 20 20 20 20 20 20 20 20 20 |A $DC0D | 000000F0: 20 3B 20 4E 4F 52 4D 41 4C 45 4E 20 49 52 51 0D | ; NORMALEN IRQ.| 00000100: 20 20 20 20 20 20 20 20 20 41 4E 44 20 23 25 30 | AND #%0| 00000110: 31 31 31 31 31 31 31 20 20 20 20 20 3B 20 41 55 |1111111 ; AU| 00000120: 53 53 43 48 41 4C 54 45 4E 0D 20 20 20 20 20 20 |SSCHALTEN. | 00000130: 20 20 20 4F 52 41 20 23 25 30 30 30 30 30 30 30 | ORA #%0000000| 00000140: 31 20 20 20 20 20 3B 20 2D 0D 20 20 20 20 20 20 |1 ; -. | 00000150: 20 20 20 53 54 41 20 24 44 43 30 44 20 20 20 20 | STA $DC0D | 00000160: 20 20 20 20 20 20 3B 20 2D 0D 20 20 20 20 20 20 | ; -. | 00000170: 20 20 20 4C 44 41 20 23 35 30 20 20 20 20 20 20 | LDA #50 | 00000180: 20 20 20 20 20 20 3B 20 52 41 53 54 45 52 49 52 | ; RASTERIR| 00000190: 51 20 41 55 46 0D 20 20 20 20 20 20 20 20 20 53 |Q AUF. S| 000001A0: 54 41 20 24 44 30 31 32 20 20 20 20 20 20 20 20 |TA $D012 | 000001B0: 20 20 3B 20 23 35 30 20 28 42 49 4C 44 53 43 48 | ; #50 (BILDSCH| 000001C0: 49 52 4D 42 45 47 49 4E 4E 29 0D 20 20 20 20 20 |IRMBEGINN). | 000001D0: 20 20 20 20 4C 44 41 20 35 33 32 34 38 2B 31 37 | LDA 53248+17| 000001E0: 20 20 20 20 20 20 20 3B 20 48 49 47 48 20 2D 20 | ; HIGH - | 000001F0: 42 59 54 45 20 44 45 53 20 52 41 53 54 45 52 49 |BYTE DES RASTERI| 00000200: 52 51 53 0D 20 20 20 20 20 20 20 20 20 41 4E 44 |RQS. AND| 00000210: 20 23 24 37 46 20 20 20 20 20 20 20 20 20 20 20 | #$7F | 00000220: 3B 20 41 55 53 53 43 48 41 4C 54 45 4E 0D 20 20 |; AUSSCHALTEN. | 00000230: 20 20 20 20 20 20 20 53 54 41 20 35 33 32 34 38 | STA 53248| 00000240: 2B 31 37 20 20 20 20 20 20 20 3B 20 2D 0D 20 20 |+17 ; -. | 00000250: 20 20 20 20 20 20 20 4C 44 41 20 23 25 31 30 30 | LDA #%100| 00000260: 30 30 30 30 31 20 20 20 20 20 3B 20 49 52 51 20 |00001 ; IRQ | 00000270: 46 52 45 49 47 45 42 45 4E 0D 20 20 20 20 20 20 |FREIGEBEN. | 00000280: 20 20 20 53 54 41 20 35 33 32 34 38 2B 32 36 20 | STA 53248+26 | 00000290: 20 20 20 20 20 20 3B 20 2D 0D 20 20 20 20 20 20 | ; -. | 000002A0: 20 20 20 4C 44 41 20 23 3C 49 52 51 20 20 20 20 | LDA #<IRQ | 000002B0: 20 20 20 20 20 20 3B 20 49 52 51 2D 5A 45 49 47 | ; IRQ-ZEIG| 000002C0: 45 52 20 41 55 46 20 45 49 47 45 4E 45 0D 20 20 |ER AUF EIGENE. | 000002D0: 20 20 20 20 20 20 20 53 54 41 20 24 30 33 31 34 | STA $0314| 000002E0: 20 20 20 20 20 20 20 20 20 20 3B 20 52 4F 55 54 | ; ROUT| 000002F0: 49 4E 45 20 56 45 52 42 49 45 47 45 4E 0D 20 20 |INE VERBIEGEN. | 00000300: 20 20 20 20 20 20 20 4C 44 41 20 23 3E 49 52 51 | LDA #>IRQ| 00000310: 20 20 20 20 20 20 20 20 20 20 3B 20 2D 0D 20 20 | ; -. | 00000320: 20 20 20 20 20 20 20 53 54 41 20 24 30 33 31 35 | STA $0315| 00000330: 20 20 20 20 20 20 20 20 20 20 3B 20 2D 0D 20 20 | ; -. | 00000340: 20 20 20 20 20 20 20 4A 53 52 20 49 4E 49 54 4E | JSR INITN| 00000350: 45 57 20 20 20 20 20 20 20 20 3B 20 49 4E 49 54 |EW ; INIT| 00000360: 49 41 4C 49 53 49 45 52 54 20 44 49 45 20 46 41 |IALISIERT DIE FA| 00000370: 52 42 5A 45 49 47 45 52 0D 20 20 20 20 20 20 20 |RBZEIGER. | 00000380: 20 20 43 4C 49 20 20 20 20 20 20 20 20 20 20 20 | CLI | 00000390: 20 20 20 20 20 3B 20 49 52 51 20 2D 20 46 52 45 | ; IRQ - FRE| 000003A0: 49 47 45 42 45 4E 0D 20 20 20 20 20 20 20 20 20 |IGEBEN. | 000003B0: 52 54 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |RTS | 000003C0: 20 20 20 3B 20 5A 55 52 55 45 43 4B 0D 0D 3A 49 | ; ZURUECK..:I| 000003D0: 4E 49 54 4E 45 57 20 4C 44 41 20 57 41 48 4C 20 |NITNEW LDA WAHL | 000003E0: 20 20 20 20 20 20 20 20 20 20 3B 20 4D 4F 44 49 | ; MODI| 000003F0: 46 49 5A 49 45 52 54 20 44 41 53 20 45 49 47 45 |FIZIERT DAS EIGE| 00000400: 4E 54 4C 49 43 48 45 0D 20 20 20 20 20 20 20 20 |NTLICHE. | 00000410: 20 53 54 41 20 4C 4F 4F 50 31 2B 31 20 20 20 20 | STA LOOP1+1 | 00000420: 20 20 20 20 3B 20 49 52 51 50 52 4F 47 52 41 4D | ; IRQPROGRAM| 00000430: 4D 20 53 4F 2C 20 44 41 53 53 20 45 53 20 41 55 |M SO, DASS ES AU| 00000440: 46 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4C |F. STA L| 00000450: 4F 4F 50 32 2B 31 20 20 20 20 20 20 20 20 3B 20 |OOP2+1 ; | 00000460: 44 49 45 20 45 52 53 54 45 4E 20 46 41 52 42 43 |DIE ERSTEN FARBC| 00000470: 4F 44 45 53 20 5A 55 47 52 45 49 46 54 0D 20 20 |ODES ZUGREIFT. | 00000480: 20 20 20 20 20 20 20 4C 44 41 20 57 41 48 4C 2B | LDA WAHL+| 00000490: 31 20 20 20 20 20 20 20 20 20 3B 20 2D 0D 20 20 |1 ; -. | 000004A0: 20 20 20 20 20 20 20 53 54 41 20 4C 4F 4F 50 31 | STA LOOP1| 000004B0: 2B 32 20 20 20 20 20 20 20 20 3B 20 2D 0D 20 20 |+2 ; -. | 000004C0: 20 20 20 20 20 20 20 53 54 41 20 4C 4F 4F 50 32 | STA LOOP2| 000004D0: 2B 32 20 20 20 20 20 20 20 20 3B 20 2D 0D 20 20 |+2 ; -. | 000004E0: 20 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 | RTS | 000004F0: 20 20 20 20 20 20 20 20 20 20 3B 20 2D 0D 0D 3A | ; -..:| 00000500: 49 52 51 20 20 20 20 20 4C 44 41 20 35 33 32 34 |IRQ LDA 5324| 00000510: 38 2B 32 35 20 20 20 20 20 20 20 3B 20 42 49 54 |8+25 ; BIT| 00000520: 53 20 46 52 45 49 47 45 42 45 4E 0D 20 20 20 20 |S FREIGEBEN. | 00000530: 20 20 20 20 20 53 54 41 20 35 33 32 34 38 2B 32 | STA 53248+2| 00000540: 35 20 20 20 20 20 20 20 3B 20 2D 0D 3A 4C 4F 4F |5 ; -.:LOO| 00000550: 50 31 20 20 20 4C 44 41 20 46 41 52 42 31 20 20 |P1 LDA FARB1 | 00000560: 20 20 20 20 20 20 20 20 3B 20 4C 41 45 44 54 20 | ; LAEDT | 00000570: 45 52 53 54 45 20 46 41 52 42 45 0D 20 20 20 20 |ERSTE FARBE. | 00000580: 20 20 20 20 20 53 54 41 20 35 33 32 38 31 20 20 | STA 53281 | 00000590: 20 20 20 20 20 20 20 20 3B 20 55 4E 44 20 53 43 | ; UND SC| 000005A0: 48 52 45 49 42 54 20 53 49 45 0D 20 20 20 20 20 |HREIBT SIE. | 000005B0: 20 20 20 20 4E 4F 50 20 20 20 20 20 20 20 20 20 | NOP | 000005C0: 20 20 20 20 20 20 20 3B 20 57 41 52 54 45 54 20 | ; WARTET | 000005D0: 42 49 53 20 44 45 52 0D 20 20 20 20 20 20 20 20 |BIS DER. | 000005E0: 20 4E 4F 50 20 20 20 20 20 20 20 20 20 20 20 20 | NOP | 000005F0: 20 20 20 20 3B 20 52 41 53 54 45 52 53 54 52 41 | ; RASTERSTRA| 00000600: 48 4C 0D 20 20 20 20 20 20 20 20 20 4E 4F 50 20 |HL. NOP | 00000610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000620: 20 41 4D 20 41 4E 44 45 52 45 4E 0D 20 20 20 20 | AM ANDEREN. | 00000630: 20 20 20 20 20 4E 4F 50 20 20 20 20 20 20 20 20 | NOP | 00000640: 20 20 20 20 20 20 20 20 3B 20 45 4E 44 45 20 44 | ; ENDE D| 00000650: 45 53 20 42 49 4C 44 2D 0D 20 20 20 20 20 20 20 |ES BILD-. | 00000660: 20 20 4E 4F 50 20 20 20 20 20 20 20 20 20 20 20 | NOP | 00000670: 20 20 20 20 20 3B 20 53 43 48 49 52 4D 53 20 41 | ; SCHIRMS A| 00000680: 4E 47 45 4B 4F 4D 4D 45 4E 20 49 53 54 0D 20 20 |NGEKOMMEN IST. | 00000690: 20 20 20 20 20 20 20 4C 44 58 20 23 31 20 20 20 | LDX #1 | 000006A0: 20 20 20 20 20 20 20 20 20 20 3B 20 58 2D 52 45 | ; X-RE| 000006B0: 47 20 41 4C 53 20 46 41 52 42 50 4F 49 4E 54 45 |G ALS FARBPOINTE| 000006C0: 52 0D 3A 4C 4F 4F 50 32 20 20 20 4C 44 41 20 46 |R.:LOOP2 LDA F| 000006D0: 41 52 42 31 2C 58 20 20 20 20 20 20 20 20 3B 20 |ARB1,X ; | 000006E0: 4C 41 45 44 54 20 44 49 45 20 4E 41 45 43 48 53 |LAEDT DIE NAECHS| 000006F0: 54 45 4E 20 46 41 52 42 45 4E 0D 20 20 20 20 20 |TEN FARBEN. | 00000700: 20 20 20 20 53 54 41 20 35 33 32 38 31 20 20 20 | STA 53281 | 00000710: 20 20 20 20 20 20 20 3B 20 55 4E 44 20 57 41 52 | ; UND WAR| 00000720: 54 45 54 0D 20 20 20 20 20 20 20 20 20 4C 44 59 |TET. LDY| 00000730: 20 23 38 20 20 20 20 20 20 20 20 20 20 20 20 20 | #8 | 00000740: 3B 20 57 49 45 44 45 52 0D 20 20 20 20 20 20 20 |; WIEDER. | 00000750: 20 20 4E 4F 50 20 20 20 20 20 20 20 20 20 20 20 | NOP | 00000760: 20 20 20 20 20 3B 20 42 49 53 20 44 45 52 0D 20 | ; BIS DER. | 00000770: 20 20 20 20 20 20 20 20 4E 4F 50 20 20 20 20 20 | NOP | 00000780: 20 20 20 20 20 20 20 20 20 20 20 3B 20 52 41 53 | ; RAS| 00000790: 54 45 52 53 54 52 41 48 4C 0D 20 20 20 20 20 20 |TERSTRAHL. | 000007A0: 20 20 20 4E 4F 50 20 20 20 20 20 20 20 20 20 20 | NOP | 000007B0: 20 20 20 20 20 20 3B 20 41 4D 20 41 4E 44 45 52 | ; AM ANDER| 000007C0: 45 4E 20 45 4E 44 45 0D 20 20 20 20 20 20 20 20 |EN ENDE. | 000007D0: 20 4E 4F 50 20 20 20 20 20 20 20 20 20 20 20 20 | NOP | 000007E0: 20 20 20 20 3B 20 44 45 53 20 42 49 4C 44 53 43 | ; DES BILDSC| 000007F0: 48 49 52 4D 53 0D 3A 4C 50 20 20 20 20 20 20 44 |HIRMS.:LP D| 00000800: 45 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |EY | 00000810: 20 20 3B 20 41 4E 47 45 4B 4F 4D 4D 45 4E 20 49 | ; ANGEKOMMEN I| 00000820: 53 54 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 |ST. BNE | 00000830: 4C 50 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |LP ;| 00000840: 20 2D 0D 20 20 20 20 20 20 20 20 20 49 4E 58 20 | -. INX | 00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;| 00000860: 20 2D 0D 20 20 20 20 20 20 20 20 20 43 50 58 20 | -. CPX | 00000870: 23 38 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |#8 ;| 00000880: 20 53 43 48 4F 4E 20 37 20 4D 41 4C 20 44 55 52 | SCHON 7 MAL DUR| 00000890: 43 4C 41 55 46 45 4E 3F 0D 20 20 20 20 20 20 20 |CLAUFEN?. | 000008A0: 20 20 42 4E 45 20 4C 4F 4F 50 32 20 20 20 20 20 | BNE LOOP2 | 000008B0: 20 20 20 20 20 3B 20 46 41 4C 4C 53 20 4E 49 43 | ; FALLS NIC| 000008C0: 48 54 20 41 4C 4C 45 53 20 20 4E 4F 43 48 4D 41 |HT ALLES NOCHMA| 000008D0: 4C 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |L. LDA #| 000008E0: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |0 ; | 000008F0: 42 49 4C 44 53 43 48 49 52 4D 46 41 42 45 20 41 |BILDSCHIRMFABE A| 00000900: 55 46 20 53 43 48 57 41 52 5A 0D 20 20 20 20 20 |UF SCHWARZ. | 00000910: 20 20 20 20 53 54 41 20 35 33 32 38 31 20 20 20 | STA 53281 | 00000920: 20 20 20 20 20 20 20 3B 20 2D 0D 20 20 20 20 20 | ; -. | 00000930: 20 20 20 20 49 4E 43 20 5A 41 48 4C 45 52 20 20 | INC ZAHLER | 00000940: 20 20 20 20 20 20 20 3B 20 44 45 4E 20 4C 4F 57 | ; DEN LOW| 00000950: 20 55 4E 44 20 48 49 47 48 2D 42 59 54 45 20 5A | UND HIGH-BYTE Z| 00000960: 41 45 48 4C 45 52 0D 20 20 20 20 20 20 20 20 20 |AEHLER. | 00000970: 49 4E 43 20 5A 41 48 4C 45 52 20 20 20 20 20 20 |INC ZAHLER | 00000980: 20 20 20 3B 20 45 52 48 4F 45 48 45 4E 20 28 5A | ; ERHOEHEN (Z| 00000990: 45 49 47 54 20 41 55 46 20 4E 41 45 43 48 53 54 |EIGT AUF NAECHST| 000009A0: 45 4E 20 46 41 52 42 43 4F 44 45 29 0D 20 20 20 |EN FARBCODE). | 000009B0: 20 20 20 20 20 20 4C 44 58 20 5A 41 48 4C 45 52 | LDX ZAHLER| 000009C0: 20 20 20 20 20 20 20 20 20 3B 20 44 41 53 20 4E | ; DAS N| 000009D0: 45 55 45 20 4C 4F 57 2D 42 59 54 45 20 44 45 53 |EUE LOW-BYTE DES| 000009E0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 57 41 |. LDA WA| 000009F0: 48 4C 2C 58 20 20 20 20 20 20 20 20 20 3B 20 4E |HL,X ; N| 00000A00: 41 45 43 48 53 54 45 4E 20 46 41 52 42 43 4F 44 |AECHSTEN FARBCOD| 00000A10: 45 53 20 4D 4F 44 49 46 49 5A 49 45 52 45 4E 0D |ES MODIFIZIEREN.| 00000A20: 20 20 20 20 20 20 20 20 20 53 54 41 20 4C 4F 4F | STA LOO| 00000A30: 50 31 2B 31 20 20 20 20 20 20 20 20 3B 20 4D 49 |P1+1 ; MI| 00000A40: 54 20 44 45 4D 20 5A 41 45 48 4C 45 52 20 41 4C |T DEM ZAEHLER AL| 00000A50: 53 20 50 4F 49 4E 54 45 52 0D 20 20 20 20 20 20 |S POINTER. | 00000A60: 20 20 20 53 54 41 20 4C 4F 4F 50 32 2B 31 20 20 | STA LOOP2+1 | 00000A70: 20 20 20 20 20 20 3B 20 2D 0D 20 20 20 20 20 20 | ; -. | 00000A80: 20 20 20 49 4E 58 20 20 20 20 20 20 20 20 20 20 | INX | 00000A90: 20 20 20 20 20 20 3B 20 5A 41 45 48 4C 45 52 20 | ; ZAEHLER | 00000AA0: 5A 45 49 47 54 20 41 55 46 20 44 41 53 20 48 49 |ZEIGT AUF DAS HI| 00000AB0: 47 48 2D 42 59 54 45 0D 20 20 20 20 20 20 20 20 |GH-BYTE. | 00000AC0: 20 4C 44 41 20 57 41 48 4C 2C 58 20 20 20 20 20 | LDA WAHL,X | 00000AD0: 20 20 20 20 3B 20 48 49 47 48 2D 42 59 54 45 20 | ; HIGH-BYTE | 00000AE0: 44 45 53 20 4E 45 55 45 4E 20 46 41 52 42 43 4F |DES NEUEN FARBCO| 00000AF0: 44 45 53 20 4D 4F 44 49 46 49 5A 49 45 52 45 4E |DES MODIFIZIEREN| 00000B00: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4C 4F |. STA LO| 00000B10: 4F 50 32 2B 32 20 20 20 20 20 20 20 20 3B 20 2D |OP2+2 ; -| 00000B20: 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 4C 4F |. STA LO| 00000B30: 4F 50 31 2B 32 20 20 20 20 20 20 20 20 3B 20 2D |OP1+2 ; -| 00000B40: 0D 20 20 20 20 20 20 20 20 20 4E 4F 50 20 20 20 |. NOP | 00000B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 47 | ; G| 00000B60: 45 4E 41 55 20 38 0D 20 20 20 20 20 20 20 20 20 |ENAU 8. | 00000B70: 4E 4F 50 20 20 20 20 20 20 20 20 20 20 20 20 20 |NOP | 00000B80: 20 20 20 3B 20 52 41 53 54 45 52 5A 45 49 4C 45 | ; RASTERZEILE| 00000B90: 4E 0D 20 20 20 20 20 20 20 20 20 4E 4F 50 20 20 |N. NOP | 00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 | ; | 00000BB0: 57 41 52 54 45 4E 0D 20 20 20 20 20 20 20 20 20 |WARTEN. | 00000BC0: 4C 44 59 20 23 37 36 20 20 20 20 20 20 20 20 20 |LDY #76 | 00000BD0: 20 20 20 3B 20 2D 0D 3A 4F 55 54 4C 20 20 20 20 | ; -.:OUTL | 00000BE0: 44 45 59 20 20 20 20 20 20 20 20 20 20 20 20 20 |DEY | 00000BF0: 20 20 20 3B 20 2D 0D 20 20 20 20 20 20 20 20 20 | ; -. | 00000C00: 42 4E 45 20 4F 55 54 4C 20 20 20 20 20 20 20 20 |BNE OUTL | 00000C10: 20 20 20 3B 20 2D 0D 20 20 20 20 20 20 20 20 20 | ; -. | 00000C20: 49 4E 43 20 57 49 45 56 49 45 4C 20 20 20 20 20 |INC WIEVIEL | 00000C30: 20 20 20 3B 20 44 45 4E 20 5A 41 45 48 4C 45 52 | ; DEN ZAEHLER| 00000C40: 20 46 55 45 52 20 44 49 45 20 41 4E 5A 41 48 4C | FUER DIE ANZAHL| 00000C50: 20 44 45 52 0D 20 20 20 20 20 20 20 20 20 4C 44 | DER. LD| 00000C60: 41 20 57 49 45 56 49 45 4C 20 20 20 20 20 20 20 |A WIEVIEL | 00000C70: 20 3B 20 53 54 52 45 49 46 45 4E 20 45 52 48 4F | ; STREIFEN ERHO| 00000C80: 45 48 45 4E 20 55 4E 44 20 4D 41 58 49 4D 41 4C |EHEN UND MAXIMAL| 00000C90: 57 45 52 54 0D 20 20 20 20 20 20 20 20 20 43 4D |WERT. CM| 00000CA0: 50 20 23 39 20 20 20 20 20 20 20 20 20 20 20 20 |P #9 | 00000CB0: 20 3B 20 55 45 42 45 52 50 52 55 45 46 45 4E 0D | ; UEBERPRUEFEN.| 00000CC0: 20 20 20 20 20 20 20 20 20 42 45 51 20 45 4E 44 | BEQ END| 00000CD0: 45 20 20 20 20 20 20 20 20 20 20 20 3B 20 46 41 |E ; FA| 00000CE0: 4C 4C 53 20 41 4C 4C 45 20 44 41 4E 4E 20 4E 41 |LLS ALLE DANN NA| 00000CF0: 43 48 20 45 4E 44 45 0D 20 20 20 20 20 20 20 20 |CH ENDE. | 00000D00: 20 4A 4D 50 20 4C 4F 4F 50 31 20 20 20 20 20 20 | JMP LOOP1 | 00000D10: 20 20 20 20 3B 20 46 41 4C 4C 53 20 4E 49 43 48 | ; FALLS NICH| 00000D20: 54 20 41 4C 4C 45 53 20 4E 4F 43 48 4D 41 4C 0D |T ALLES NOCHMAL.| 00000D30: 0D 3A 45 4E 44 45 20 20 20 20 4A 53 52 20 49 4E |.:ENDE JSR IN| 00000D40: 49 54 4E 45 57 20 20 20 20 20 20 20 20 3B 20 53 |ITNEW ; S| 00000D50: 43 48 4F 4E 20 49 4D 20 56 4F 52 52 41 55 53 20 |CHON IM VORRAUS | 00000D60: 44 49 45 20 5A 45 49 47 45 52 20 57 49 45 44 45 |DIE ZEIGER WIEDE| 00000D70: 52 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E |R INITIALISIEREN| 00000D80: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 |. LDY #0| 00000D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 44 | ; D| 00000DA0: 49 45 20 50 4F 49 4E 54 45 52 0D 20 20 20 20 20 |IE POINTER. | 00000DB0: 20 20 20 20 53 54 59 20 5A 41 48 4C 45 52 20 20 | STY ZAHLER | 00000DC0: 20 20 20 20 20 20 20 3B 20 57 49 45 44 45 52 20 | ; WIEDER | 00000DD0: 41 55 46 0D 20 20 20 20 20 20 20 20 20 53 54 59 |AUF. STY| 00000DE0: 20 57 49 45 56 49 45 4C 20 20 20 20 20 20 20 20 | WIEVIEL | 00000DF0: 3B 20 4E 4F 52 4D 41 4C 57 45 52 54 20 53 45 54 |; NORMALWERT SET| 00000E00: 5A 45 4E 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 |ZEN. JMP| 00000E10: 20 24 45 41 33 31 20 20 20 20 20 20 20 20 20 20 | $EA31 | 00000E20: 3B 20 41 42 20 5A 55 52 20 4E 4F 52 4D 41 4C 45 |; AB ZUR NORMALE| 00000E30: 4E 20 49 52 51 2D 53 43 48 4C 45 49 46 45 0D 0D |N IRQ-SCHLEIFE..| 00000E40: 3A 57 41 48 4C 0D 20 20 20 20 20 20 20 20 20 42 |:WAHL. B| 00000E50: 20 3C 46 41 52 42 33 20 20 20 20 20 20 20 20 20 | <FARB3 | 00000E60: 20 20 3B 20 48 49 45 52 20 53 54 45 48 54 20 44 | ; HIER STEHT D| 00000E70: 49 45 20 52 45 49 48 45 4E 46 4F 4C 47 45 0D 20 |IE REIHENFOLGE. | 00000E80: 20 20 20 20 20 20 20 20 42 20 3E 46 41 52 42 33 | B >FARB3| 00000E90: 20 20 20 20 20 20 20 20 20 20 20 3B 20 44 45 52 | ; DER| 00000EA0: 20 56 45 52 53 43 48 49 45 44 45 4E 45 4E 20 46 | VERSCHIEDENEN F| 00000EB0: 41 52 42 43 4F 44 45 53 0D 20 20 20 20 20 20 20 |ARBCODES. | 00000EC0: 20 20 42 20 3C 46 41 52 42 33 20 20 20 20 20 20 | B <FARB3 | 00000ED0: 20 20 20 20 20 3B 20 44 49 45 53 45 20 4C 4F 57 | ; DIESE LOW| 00000EE0: 20 55 4E 44 20 48 49 47 48 2D 42 59 54 45 53 20 | UND HIGH-BYTES | 00000EF0: 57 45 52 44 45 4E 0D 20 20 20 20 20 20 20 20 20 |WERDEN. | 00000F00: 42 20 3E 46 41 52 42 33 20 20 20 20 20 20 20 20 |B >FARB3 | 00000F10: 20 20 20 3B 20 56 4F 4E 20 50 52 4F 4D 45 54 48 | ; VON PROMETH| 00000F20: 45 55 53 20 4D 4F 44 49 46 49 5A 49 45 52 54 0D |EUS MODIFIZIERT.| 00000F30: 20 20 20 20 20 20 20 20 20 42 20 3C 46 41 52 42 | B <FARB| 00000F40: 33 0D 20 20 20 20 20 20 20 20 20 42 20 3E 46 41 |3. B >FA| 00000F50: 52 42 33 0D 20 20 20 20 20 20 20 20 20 42 20 3C |RB3. B <| 00000F60: 46 41 52 42 31 0D 20 20 20 20 20 20 20 20 20 42 |FARB1. B| 00000F70: 20 3E 46 41 52 42 31 0D 20 20 20 20 20 20 20 20 | >FARB1. | 00000F80: 20 42 20 3C 46 41 52 42 34 0D 20 20 20 20 20 20 | B <FARB4. | 00000F90: 20 20 20 42 20 3E 46 41 52 42 34 0D 20 20 20 20 | B >FARB4. | 00000FA0: 20 20 20 20 20 42 20 3C 46 41 52 42 35 0D 20 20 | B <FARB5. | 00000FB0: 20 20 20 20 20 20 20 42 20 3E 46 41 52 42 35 0D | B >FARB5.| 00000FC0: 20 20 20 20 20 20 20 20 20 42 20 3C 46 41 52 42 | B <FARB| 00000FD0: 35 0D 20 20 20 20 20 20 20 20 20 42 20 3E 46 41 |5. B >FA| 00000FE0: 52 42 35 0D 20 20 20 20 20 20 20 20 20 42 20 3C |RB5. B <| 00000FF0: 46 41 52 42 34 0D 20 20 20 20 20 20 20 20 20 42 |FARB4. B| 00001000: 20 3E 46 41 52 42 34 0D 20 20 20 20 20 20 20 20 | >FARB4. | 00001010: 20 42 20 3C 46 41 52 42 31 0D 20 20 20 20 20 20 | B <FARB1. | 00001020: 20 20 20 42 20 3E 46 41 52 42 31 20 20 20 20 20 | B >FARB1 | 00001030: 20 20 20 20 20 20 3B 20 44 41 53 20 4F 52 49 47 | ; DAS ORIG| 00001040: 49 4E 41 4C 50 52 4F 47 52 41 4D 4D 20 48 41 54 |INALPROGRAMM HAT| 00001050: 20 4E 41 54 55 45 52 4C 49 43 48 0D 20 20 20 20 | NATUERLICH. | 00001060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001070: 20 20 20 20 20 20 20 20 3B 20 4E 49 43 48 54 20 | ; NICHT | 00001080: 4E 55 52 20 39 20 4C 4F 57 20 55 4E 44 20 48 49 |NUR 9 LOW UND HI| 00001090: 47 48 2D 42 59 54 45 20 5A 45 49 47 45 52 0D 20 |GH-BYTE ZEIGER. | 000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010B0: 20 20 20 20 20 20 20 20 20 20 20 3B 20 53 4F 4E | ; SON| 000010C0: 44 45 52 20 41 4C 4C 45 20 31 33 0D 0D 0D 3A 5A |DER ALLE 13...:Z| 000010D0: 41 48 4C 45 52 20 20 42 20 30 20 20 20 20 20 20 |AHLER B 0 | 000010E0: 20 20 20 20 20 20 20 20 20 20 3B 20 44 49 45 20 | ; DIE | 000010F0: 42 45 49 44 45 4E 20 50 4F 49 4E 54 45 52 0D 3A |BEIDEN POINTER.:| 00001100: 57 49 45 56 49 45 4C 20 42 20 30 20 20 20 20 20 |WIEVIEL B 0 | 00001110: 20 20 20 20 20 20 20 20 20 20 20 3B 20 2D 0D 3A | ; -.:| 00001120: 46 41 52 42 31 20 20 20 42 20 31 31 2C 31 32 2C |FARB1 B 11,12,| 00001130: 31 35 2C 31 35 0D 20 20 20 20 20 20 20 20 20 42 |15,15. B| 00001140: 20 31 32 2C 20 31 2C 31 32 2C 31 31 20 20 20 20 | 12, 1,12,11 | 00001150: 20 20 3B 20 44 49 45 20 56 45 52 53 43 48 49 45 | ; DIE VERSCHIE| 00001160: 44 45 4E 45 4E 20 46 41 52 42 57 45 52 54 45 0D |DENEN FARBWERTE.| 00001170: 3A 46 41 52 42 32 20 20 20 42 20 39 2C 38 2C 37 |:FARB2 B 9,8,7| 00001180: 2C 37 2C 37 2C 31 2C 38 2C 39 0D 3A 46 41 52 42 |,7,7,1,8,9.:FARB| 00001190: 33 20 20 20 42 20 30 2C 30 2C 30 2C 30 2C 30 2C |3 B 0,0,0,0,0,| 000011A0: 30 2C 30 2C 30 0D 3A 46 41 52 42 34 20 20 20 42 |0,0,0.:FARB4 B| 000011B0: 20 30 2C 31 31 2C 31 32 2C 31 35 2C 31 32 2C 31 | 0,11,12,15,12,1| 000011C0: 2C 31 31 2C 30 0D 3A 46 41 52 42 35 20 20 20 42 |,11,0.:FARB5 B| 000011D0: 20 30 2C 30 2C 31 31 2C 31 32 2C 31 35 2C 31 31 | 0,0,11,12,15,11| 000011E0: 2C 30 2C 30 0D 0D 0D |,0,0... |
.;********************************.;***
SOURCECODE ZU PROMETHEUS ***.;**********
**********************...ORG $C000
; ASSEMBLIERUNG AB $C000...;*** PROG
RAMM ***... SEI ;
IRQ SPERREN. LDA $DC0D
; NORMALEN IRQ. AND #%01111111
; AUSSCHALTEN. ORA #%0000000
1 ; -. STA $DC0D ;
-. LDA #50 ; RASTERIR
Q AUF. STA $D012 ; #50
(BILDSCHIRMBEGINN). LDA 53248+17
; HIGH - BYTE DES RASTERIRQS.
AND #$7F ; AUSSCHALTEN.
STA 53248+17 ; -. L
DA #%10000001 ; IRQ FREIGEBEN.
STA 53248+26 ; -. LDA #
<IRQ ; IRQ-ZEIGER AUF EIGENE.
STA $0314 ; ROUTINE VERB
IEGEN. LDA #>IRQ ; -.
STA $0315 ; -. J
SR INITNEW ; INITIALISIERT DIE FA
RBZEIGER. CLI ; I
RQ - FREIGEBEN. RTS
; ZURUECK..:INITNEW LDA WAHL
; MODIFIZIERT DAS EIGENTLICHE.
STA LOOP1+1 ; IRQPROGRAMM SO, DA
SS ES AUF. STA LOOP2+1 ;
DIE ERSTEN FARBCODES ZUGREIFT. L
DA WAHL+1 ; -. STA LOOP1
+2 ; -. STA LOOP2+2
; -. RTS ; -..:
IRQ LDA 53248+25 ; BITS FREIGE
BEN. STA 53248+25 ; -.:LOO
P1 LDA FARB1 ; LAEDT ERSTE FA
RBE. STA 53281 ; UND SC
HREIBT SIE. NOP ;
WARTET BIS DER. NOP
; RASTERSTRAHL. NOP
; AM ANDEREN. NOP
; ENDE DES BILD-. NOP
; SCHIRMS ANGEKOMMEN IST.
LDX #1 ; X-REG ALS FA
RBPOINTER.:LOOP2 LDA FARB1,X ;
LAEDT DIE NAECHSTEN FARBEN. STA
53281 ; UND WARTET. LDY
#8 ; WIEDER. NOP
; BIS DER. NOP
; RASTERSTRAHL. NOP
; AM ANDEREN ENDE.
NOP ; DES BILDSCHIRMS.:L
P DEY ; ANGEKOMMEN I
ST. BNE LP ; -.
INX ; -. CPX
#8 ; SCHON 7 MAL DURCLAUFEN?
. BNE LOOP2 ; FALLS NIC
HT ALLES NOCHMAL. LDA #0
; BILDSCHIRMFABE AUF SCHWARZ.
STA 53281 ; -. INC
ZAHLER ; DEN LOW UND HIGH-BYTE Z
AEHLER. INC ZAHLER ; ERH
OEHEN (ZEIGT AUF NAECHSTEN FARBCODE).
LDX ZAHLER ; DAS NEUE LOW-
BYTE DES. LDA WAHL,X ; N
AECHSTEN FARBCODES MODIFIZIEREN.
STA LOOP1+1 ; MIT DEM ZAEHLER AL
S POINTER. STA LOOP2+1 ;
-. INX ; ZAEHLER
ZEIGT AUF DAS HIGH-BYTE. LDA WAH
L,X ; HIGH-BYTE DES NEUEN FARBCO
DES MODIFIZIEREN. STA LOOP2+2
; -. STA LOOP1+2 ; -
. NOP ; GENAU 8.
NOP ; RASTERZEILE
N. NOP ; WARTEN.
LDY #76 ; -.:OUTL
DEY ; -. BNE OUTL
; -. INC WIEVIEL
; DEN ZAEHLER FUER DIE ANZAHL DER.
LDA WIEVIEL ; STREIFEN ERHO
EHEN UND MAXIMALWERT. CMP #9
; UEBERPRUEFEN. BEQ END
E ; FALLS ALLE DANN NACH ENDE.
JMP LOOP1 ; FALLS NICH
T ALLES NOCHMAL..:ENDE JSR INITNEW
; SCHON IM VORRAUS DIE ZEIGER WIEDE
R INITIALISIEREN. LDY #0
; DIE POINTER. STY ZAHLER
; WIEDER AUF. STY WIEVIEL
; NORMALWERT SETZEN. JMP
$EA31 ; AB ZUR NORMALEN IRQ-SC
HLEIFE..:WAHL. B <FARB3
; HIER STEHT DIE REIHENFOLGE.
B >FARB3 ; DER VERSCHIEDENEN F
ARBCODES. B <FARB3 ; D
IESE LOW UND HIGH-BYTES WERDEN.
B >FARB3 ; VON PROMETHEUS MODI
FIZIERT. B <FARB3. B >FA
RB3. B <FARB1. B >FARB1.
B <FARB4. B >FARB4.
B <FARB5. B >FARB5.
B <FARB5. B >FARB5. B <
FARB4. B >FARB4. B <FARB
1. B >FARB1 ; DAS ORIG
INALPROGRAMM HAT NATUERLICH.
; NICHT NUR 9 LOW UND HI
GH-BYTE ZEIGER.
; SONDER ALLE 13...:ZAHLER B 0
; DIE BEIDEN POINTER.:WIEVIEL
B 0 ; -.:FARB1 B 11,12,
15,15. B 12, 1,12,11 ; DIE
VERSCHIEDENEN FARBWERTE.:FARB2 B 9,8,7
,7,7,1,8,9.:FARB3 B 0,0,0,0,0,0,0,0.:F
ARB4 B 0,11,12,15,12,1,11,0.:FARB5 B
0,0,11,12,15,11,0,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL