Q/HPRG
FILE INFORMATION
FILENAME(S): Q/HPRG
FILE TYPE(S): PRG
FILE SIZE: 7.8K
FIRST SEEN: 2025-11-30 01:12:46
APPEARS ON: 1 disk(s)
FILE HASH
d9b8bcc5d0fc5c7a36900ca70a94be1aa737d5638e4ab94616e89f6b490c19d4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10001 SEITE 1 | Q/HPRG | PRG | C64er | 5 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 01 00 20 3B 20 20 2B 2B 2B 2B 2B 2B |..'... ; ++++++|
00000010: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00000020: 2B 2B 2B 2B 2B 2B 2B 00 4D 08 02 00 20 3B 20 20 |+++++++.M... ; |
00000030: 2B 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 2B 00 73 08 | +.s.|
00000050: 03 00 20 3B 20 20 2B 20 20 2D 2D 2D 20 54 48 45 |.. ; + --- THE|
00000060: 20 43 48 41 52 2D 4B 49 4C 4C 45 52 20 2D 2D 2D | CHAR-KILLER ---|
00000070: 20 20 2B 00 99 08 04 00 20 3B 20 20 2B 20 20 20 | +..... ; + |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 2B 00 BF 08 05 00 20 3B | +..... ;|
000000A0: 20 20 2B 20 28 43 29 20 39 2F 38 39 20 42 59 20 | + (C) 9/89 BY |
000000B0: 41 4C 45 58 20 47 45 56 41 54 54 45 52 20 2B 00 |ALEX GEVATTER +.|
000000C0: E5 08 06 00 20 3B 20 20 2B 20 20 20 20 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 2B 00 0B 09 07 00 20 3B 20 20 2B 2B | +..... ; ++|
000000F0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00000100: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 00 31 09 08 00 |+++++++++++.1...|
00000110: 20 3B 20 20 2B 20 20 20 20 20 20 20 20 20 20 20 | ; + |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 2B 00 57 09 09 00 20 3B 20 20 2B 20 20 54 45 49 |+.W... ; + TEI|
00000140: 4C 50 52 47 2E 3A 20 48 41 55 50 54 50 52 4F 47 |LPRG.: HAUPTPROG|
00000150: 52 41 4D 4D 20 20 2B 00 7D 09 0A 00 20 3B 20 20 |RAMM +.}... ; |
00000160: 2B 20 53 50 45 49 43 48 45 52 42 45 4C 2E 3A 20 |+ SPEICHERBEL.: |
00000170: 34 30 31 39 32 2D 34 30 39 33 30 20 2B 00 A3 09 |40192-40930 +...|
00000180: 0B 00 20 3B 20 20 2B 20 20 20 20 20 20 51 55 45 |.. ; + QUE|
00000190: 4C 4C 54 45 58 54 20 46 55 45 52 3A 20 20 20 20 |LLTEXT FUER: |
000001A0: 20 20 2B 00 C9 09 0C 00 20 3B 20 20 2B 20 4B 49 | +..... ; + KI|
000001B0: 4E 47 53 4F 46 54 20 20 50 4F 57 45 52 20 41 53 |NGSOFT POWER AS|
000001C0: 53 45 4D 42 4C 45 52 20 2B 00 EF 09 0D 00 20 3B |SEMBLER +..... ;|
000001D0: 20 20 2B 20 20 20 20 20 20 20 20 20 20 20 20 20 | + |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2B 00 | +.|
000001F0: 15 0A 0E 00 20 3B 20 20 2B 2B 2B 2B 2B 2B 2B 2B |.... ; ++++++++|
00000200: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00000210: 2B 2B 2B 2B 2B 00 1C 0A 0F 00 20 3B 00 3C 0A 10 |+++++..... ;.<..|
00000220: 00 20 2A 3D 34 30 31 39 32 20 20 20 20 20 20 3B |. *=40192 ;|
00000230: 53 54 41 52 54 41 44 52 45 53 53 45 00 49 0A 11 |STARTADRESSE.I..|
00000240: 00 20 26 3D 34 39 31 35 32 00 50 0A 12 00 20 3B |. &=49152.P... ;|
00000250: 00 77 0A 13 00 20 56 49 43 20 20 20 20 3D 35 33 |.w... VIC =53|
00000260: 32 34 38 20 20 20 20 20 20 20 3B 4C 41 42 45 4C |248 ;LABEL|
00000270: 53 20 44 45 46 49 2D 00 98 0A 14 00 20 53 49 44 |S DEFI-..... SID|
00000280: 20 20 20 20 3D 35 34 32 37 32 20 20 20 20 20 20 | =54272 |
00000290: 20 3B 4E 49 45 52 45 4E 00 A9 0A 15 00 20 42 49 | ;NIEREN..... BI|
000002A0: 4C 44 2E 4C 20 3D 32 35 33 00 BA 0A 16 00 20 42 |LD.L =253..... B|
000002B0: 49 4C 44 2E 48 20 3D 32 35 34 00 CD 0A 17 00 20 |ILD.H =254..... |
000002C0: 41 4E 46 41 4E 47 20 3D 34 30 39 35 30 00 E1 0A |ANFANG =40950...|
000002D0: 18 00 20 49 4E 54 2E 4C 20 20 3D 41 4E 46 41 4E |.. INT.L =ANFAN|
000002E0: 47 00 F7 0A 19 00 20 49 4E 54 2E 48 20 20 3D 41 |G..... INT.H =A|
000002F0: 4E 46 41 4E 47 2B 31 00 0D 0B 1A 00 20 41 4E 20 |NFANG+1..... AN |
00000300: 20 20 20 20 3D 41 4E 46 41 4E 47 2B 32 00 23 0B | =ANFANG+2.#.|
00000310: 1B 00 20 5A 41 45 48 2E 4C 20 3D 41 4E 46 41 4E |.. ZAEH.L =ANFAN|
00000320: 47 2B 33 00 39 0B 1C 00 20 5A 41 45 48 2E 48 20 |G+3.9... ZAEH.H |
00000330: 3D 41 4E 46 41 4E 47 2B 34 00 4F 0B 1D 00 20 5A |=ANFANG+4.O... Z|
00000340: 55 46 20 20 20 20 3D 41 4E 46 41 4E 47 2B 35 00 |UF =ANFANG+5.|
00000350: 65 0B 1E 00 20 5A 45 49 4C 45 20 20 3D 41 4E 46 |e... ZEILE =ANF|
00000360: 41 4E 47 2B 36 00 7B 0B 1F 00 20 53 50 52 2E 5A |ANG+6.{... SPR.Z|
00000370: 20 20 3D 41 4E 46 41 4E 47 2B 37 00 91 0B 20 00 | =ANFANG+7... .|
00000380: 20 53 50 41 4C 54 45 20 3D 41 4E 46 41 4E 47 2B | SPALTE =ANFANG+|
00000390: 38 00 A7 0B 21 00 20 4C 4F 45 2E 5A 20 20 3D 41 |8...!. LOE.Z =A|
000003A0: 4E 46 41 4E 47 2B 39 00 AE 0B 22 00 20 3B 00 CE |NFANG+9...". ;..|
000003B0: 0B 23 00 20 4C 44 41 20 23 30 20 20 20 20 20 20 |.#. LDA #0 |
000003C0: 20 3B 50 52 4F 47 52 41 4D 4D 20 56 4F 52 00 EE | ;PROGRAMM VOR..|
000003D0: 0B 24 00 20 53 54 41 20 35 35 20 20 20 20 20 20 |.$. STA 55 |
000003E0: 20 3B 55 45 42 45 52 53 43 48 52 45 49 2D 00 0F | ;UEBERSCHREI-..|
000003F0: 0C 25 00 20 4C 44 41 20 23 31 35 37 20 20 20 20 |.%. LDA #157 |
00000400: 20 3B 42 45 4E 20 53 43 48 55 45 54 5A 45 4E 00 | ;BEN SCHUETZEN.|
00000410: 1B 0C 26 00 20 53 54 41 20 35 36 00 22 0C 27 00 |..&. STA 56.".'.|
00000420: 20 3B 00 41 0C 28 00 20 4C 44 58 20 23 30 20 20 | ;.A.(. LDX #0 |
00000430: 20 20 20 20 20 3B 53 50 52 49 54 45 44 41 54 45 | ;SPRITEDATE|
00000440: 4E 00 67 0C 29 00 20 4C 4F 4F 50 2E 31 20 4C 44 |N.g.). LOOP.1 LD|
00000450: 41 20 53 50 52 49 54 45 2C 58 20 3B 22 53 50 52 |A SPRITE,X ;"SPR|
00000460: 49 54 45 22 20 49 4E 00 88 0C 2A 00 20 53 54 41 |ITE" IN...*. STA|
00000470: 20 38 39 36 2C 58 20 20 20 20 3B 53 50 52 49 54 | 896,X ;SPRIT|
00000480: 45 2D 42 4C 4F 43 4B 53 00 A4 0C 2B 00 20 53 54 |E-BLOCKS...+. ST|
00000490: 41 20 39 36 30 2C 58 20 20 20 20 3B 31 34 20 55 |A 960,X ;14 U|
000004A0: 2E 20 31 35 00 C0 0C 2C 00 20 49 4E 58 20 20 20 |. 15...,. INX |
000004B0: 20 20 20 20 20 20 20 3B 4B 4F 50 49 45 52 45 4E | ;KOPIEREN|
000004C0: 00 CD 0C 2D 00 20 43 50 58 20 23 36 33 00 DD 0C |...-. CPX #63...|
000004D0: 2E 00 20 42 4E 45 20 4C 4F 4F 50 2E 31 00 EB 0C |.. BNE LOOP.1...|
000004E0: 2F 00 20 4C 44 41 20 23 32 35 35 00 FB 0C 30 00 |/. LDA #255...0.|
000004F0: 20 53 54 41 20 38 39 36 2B 32 32 00 0B 0D 31 00 | STA 896+22...1.|
00000500: 20 53 54 41 20 38 39 36 2B 32 35 00 1B 0D 32 00 | STA 896+25...2.|
00000510: 20 53 54 41 20 38 39 36 2B 32 38 00 2B 0D 33 00 | STA 896+28.+.3.|
00000520: 20 53 54 41 20 38 39 36 2B 33 31 00 32 0D 34 00 | STA 896+31.2.4.|
00000530: 20 3B 00 52 0D 35 00 20 4C 44 58 20 23 30 20 20 | ;.R.5. LDX #0 |
00000540: 20 20 20 20 20 3B 54 45 58 54 20 41 55 53 20 54 | ;TEXT AUS T|
00000550: 41 2D 00 79 0D 36 00 20 4C 4F 4F 50 2E 32 20 4C |A-.y.6. LOOP.2 L|
00000560: 44 41 20 54 45 58 54 2C 58 20 20 20 3B 42 45 4C |DA TEXT,X ;BEL|
00000570: 4C 45 20 22 54 45 58 54 22 00 95 0D 37 00 20 4A |LE "TEXT"...7. J|
00000580: 53 52 20 24 46 46 44 32 20 20 20 20 3B 41 55 53 |SR $FFD2 ;AUS|
00000590: 47 45 42 45 4E 00 9E 0D 38 00 20 49 4E 58 00 AB |GEBEN...8. INX..|
000005A0: 0D 39 00 20 43 50 58 20 23 31 39 00 BB 0D 3A 00 |.9. CPX #19...:.|
000005B0: 20 42 4E 45 20 4C 4F 4F 50 2E 32 00 C2 0D 3B 00 | BNE LOOP.2...;.|
000005C0: 20 3B 00 E3 0D 3C 00 20 4C 44 58 20 23 31 30 20 | ;...<. LDX #10 |
000005D0: 20 20 20 20 20 3B 5A 57 49 53 43 48 45 4E 53 50 | ;ZWISCHENSP|
000005E0: 45 49 2D 00 04 0E 3D 00 20 4C 44 41 20 23 30 20 |EI-...=. LDA #0 |
000005F0: 20 20 20 20 20 20 3B 43 48 45 52 20 4C 4F 45 53 | ;CHER LOES|
00000600: 43 48 45 4E 00 1F 0E 3E 00 20 4C 4F 4F 50 2E 33 |CHEN...>. LOOP.3|
00000610: 20 53 54 41 20 41 4E 46 41 4E 47 2D 31 2C 58 00 | STA ANFANG-1,X.|
00000620: 28 0E 3F 00 20 44 45 58 00 38 0E 40 00 20 42 4E |(.?. DEX.8.@. BN|
00000630: 45 20 4C 4F 4F 50 2E 33 00 3F 0E 41 00 20 3B 00 |E LOOP.3.?.A. ;.|
00000640: 5D 0E 42 00 20 4C 44 41 20 23 38 20 20 20 20 20 |].B. LDA #8 |
00000650: 20 20 3B 56 49 43 2D 47 52 55 4E 44 2D 00 7E 0E | ;VIC-GRUND-.~.|
00000660: 43 00 20 53 54 41 20 56 49 43 2B 31 34 20 20 20 |C. STA VIC+14 |
00000670: 3B 45 49 4E 53 54 45 4C 4C 55 4E 47 45 4E 00 8E |;EINSTELLUNGEN..|
00000680: 0E 44 00 20 4C 44 41 20 56 49 43 2B 31 36 00 9C |.D. LDA VIC+16..|
00000690: 0E 45 00 20 41 4E 44 20 23 31 32 37 00 AC 0E 46 |.E. AND #127...F|
000006A0: 00 20 53 54 41 20 56 49 43 2B 31 36 00 BC 0E 47 |. STA VIC+16...G|
000006B0: 00 20 4C 44 41 20 56 49 43 2B 32 31 00 CA 0E 48 |. LDA VIC+21...H|
000006C0: 00 20 4F 52 41 20 23 31 32 38 00 DA 0E 49 00 20 |. ORA #128...I. |
000006D0: 53 54 41 20 56 49 43 2B 32 31 00 EA 0E 4A 00 20 |STA VIC+21...J. |
000006E0: 4C 44 41 20 56 49 43 2B 32 33 00 F8 0E 4B 00 20 |LDA VIC+23...K. |
000006F0: 41 4E 44 20 23 31 32 37 00 08 0F 4C 00 20 53 54 |AND #127...L. ST|
00000700: 41 20 56 49 43 2B 32 33 00 18 0F 4D 00 20 4C 44 |A VIC+23...M. LD|
00000710: 41 20 56 49 43 2B 32 37 00 26 0F 4E 00 20 41 4E |A VIC+27.&.N. AN|
00000720: 44 20 23 31 32 37 00 36 0F 4F 00 20 53 54 41 20 |D #127.6.O. STA |
00000730: 56 49 43 2B 32 37 00 46 0F 50 00 20 4C 44 41 20 |VIC+27.F.P. LDA |
00000740: 56 49 43 2B 32 38 00 54 0F 51 00 20 41 4E 44 20 |VIC+28.T.Q. AND |
00000750: 23 31 32 37 00 64 0F 52 00 20 53 54 41 20 56 49 |#127.d.R. STA VI|
00000760: 43 2B 32 38 00 74 0F 53 00 20 4C 44 41 20 56 49 |C+28.t.S. LDA VI|
00000770: 43 2B 32 39 00 82 0F 54 00 20 41 4E 44 20 23 31 |C+29...T. AND #1|
00000780: 32 37 00 92 0F 55 00 20 53 54 41 20 56 49 43 2B |27...U. STA VIC+|
00000790: 32 39 00 9E 0F 56 00 20 4C 44 41 20 23 37 00 AE |29...V. LDA #7..|
000007A0: 0F 57 00 20 53 54 41 20 56 49 43 2B 34 36 00 BB |.W. STA VIC+46..|
000007B0: 0F 58 00 20 4C 44 41 20 23 31 34 00 C9 0F 59 00 |.X. LDA #14...Y.|
000007C0: 20 53 54 41 20 32 30 34 37 00 D0 0F 5A 00 20 3B | STA 2047...Z. ;|
000007D0: 00 EE 0F 5B 00 20 4C 44 41 20 23 31 35 20 20 20 |...[. LDA #15 |
000007E0: 20 20 20 3B 53 49 44 2D 47 52 55 4E 44 2D 00 0F | ;SID-GRUND-..|
000007F0: 10 5C 00 20 53 54 41 20 53 49 44 2B 32 34 20 20 |.\. STA SID+24 |
00000800: 20 3B 45 49 4E 53 54 45 4C 4C 55 4E 47 45 4E 00 | ;EINSTELLUNGEN.|
00000810: 1D 10 5D 00 20 4C 44 41 20 23 31 33 30 00 2D 10 |..]. LDA #130.-.|
00000820: 5E 00 20 53 54 41 20 53 49 44 2B 31 34 00 39 10 |^. STA SID+14.9.|
00000830: 5F 00 20 4C 44 41 20 23 38 00 49 10 60 00 20 53 |_. LDA #8.I.`. S|
00000840: 54 41 20 53 49 44 2B 31 35 00 57 10 61 00 20 4C |TA SID+15.W.a. L|
00000850: 44 41 20 23 31 32 38 00 67 10 62 00 20 53 54 41 |DA #128.g.b. STA|
00000860: 20 53 49 44 2B 31 38 00 73 10 63 00 20 4C 44 41 | SID+18.s.c. LDA|
00000870: 20 23 30 00 83 10 64 00 20 53 54 41 20 53 49 44 | #0...d. STA SID|
00000880: 2B 31 39 00 91 10 65 00 20 4C 44 41 20 23 32 34 |+19...e. LDA #24|
00000890: 30 00 A1 10 66 00 20 53 54 41 20 53 49 44 2B 32 |0...f. STA SID+2|
000008A0: 30 00 A8 10 67 00 20 3B 00 C4 10 68 00 20 4C 44 |0...g. ;...h. LD|
000008B0: 58 20 23 39 20 20 20 20 20 20 20 3B 43 42 4D 38 |X #9 ;CBM8|
000008C0: 30 20 41 42 00 EC 10 69 00 20 4C 4F 4F 50 2E 34 |0 AB...i. LOOP.4|
000008D0: 20 44 45 58 20 20 20 20 20 20 20 20 20 20 3B 33 | DEX ;3|
000008E0: 32 37 36 38 20 53 43 48 52 45 49 2D 00 0B 11 6A |2768 SCHREI-...j|
000008F0: 00 20 4C 44 41 20 43 42 4D 38 30 2C 58 20 20 3B |. LDA CBM80,X ;|
00000900: 42 45 4E 20 28 52 45 53 45 54 2D 00 25 11 6B 00 |BEN (RESET-.%.k.|
00000910: 20 53 54 41 20 33 32 37 36 38 2C 58 20 20 3B 53 | STA 32768,X ;S|
00000920: 43 48 55 54 5A 00 35 11 6C 00 20 42 4E 45 20 4C |CHUTZ.5.l. BNE L|
00000930: 4F 4F 50 2E 34 00 3C 11 6D 00 20 3B 00 5B 11 6E |OOP.4.<.m. ;.[.n|
00000940: 00 20 4C 44 41 20 23 3C 52 45 53 54 2E 20 20 3B |. LDA #<REST. ;|
00000950: 52 45 53 54 4F 52 45 20 41 55 46 00 7A 11 6F 00 |RESTORE AUF.z.o.|
00000960: 20 53 54 41 20 37 39 32 20 20 20 20 20 20 3B 45 | STA 792 ;E|
00000970: 49 47 45 4E 45 20 52 4F 55 2D 00 9B 11 70 00 20 |IGENE ROU-...p. |
00000980: 4C 44 41 20 23 3E 52 45 53 54 2E 20 20 3B 54 49 |LDA #>REST. ;TI|
00000990: 4E 45 20 45 49 4E 53 54 45 4C 2D 00 B2 11 71 00 |NE EINSTEL-...q.|
000009A0: 20 53 54 41 20 37 39 33 20 20 20 20 20 20 3B 4C | STA 793 ;L|
000009B0: 45 4E 00 B9 11 72 00 20 3B 00 D7 11 73 00 20 4C |EN...r. ;...s. L|
000009C0: 44 41 20 37 38 38 20 20 20 20 20 20 3B 41 4C 54 |DA 788 ;ALT|
000009D0: 45 4E 20 49 52 51 2D 00 F4 11 74 00 20 53 54 41 |EN IRQ-...t. STA|
000009E0: 20 49 4E 54 2E 4C 20 20 20 20 3B 56 45 4B 54 4F | INT.L ;VEKTO|
000009F0: 52 20 49 4E 00 15 12 75 00 20 4C 44 41 20 37 38 |R IN...u. LDA 78|
00000A00: 39 20 20 20 20 20 20 3B 49 4E 54 2E 4C 20 2B 20 |9 ;INT.L + |
00000A10: 49 4E 54 2E 48 00 32 12 76 00 20 53 54 41 20 49 |INT.H.2.v. STA I|
00000A20: 4E 54 2E 48 20 20 20 20 3B 53 50 45 49 43 48 45 |NT.H ;SPEICHE|
00000A30: 52 4E 00 4D 12 77 00 20 53 45 49 20 20 20 20 20 |RN.M.w. SEI |
00000A40: 20 20 20 20 20 3B 49 52 51 20 41 55 46 00 6C 12 | ;IRQ AUF.l.|
00000A50: 78 00 20 4C 44 41 20 23 3C 49 4E 54 45 52 20 20 |x. LDA #<INTER |
00000A60: 3B 45 49 47 45 4E 45 20 52 4F 55 2D 00 8C 12 79 |;EIGENE ROU-...y|
00000A70: 00 20 53 54 41 20 37 38 38 20 20 20 20 20 20 3B |. STA 788 ;|
00000A80: 54 49 4E 45 20 53 54 45 4C 4C 45 4E 00 9D 12 7A |TINE STELLEN...z|
00000A90: 00 20 4C 44 41 20 23 3E 49 4E 54 45 52 00 AA 12 |. LDA #>INTER...|
00000AA0: 7B 00 20 53 54 41 20 37 38 39 00 B3 12 7C 00 20 |{. STA 789...|. |
00000AB0: 43 4C 49 00 BA 12 7D 00 20 3B 00 D9 12 7E 00 20 |CLI...}. ;...~. |
00000AC0: 52 54 53 20 20 20 20 20 20 20 20 20 20 3B 5A 55 |RTS ;ZU|
00000AD0: 52 55 45 43 4B 20 5A 55 4D 00 F9 12 7F 00 20 3B |RUECK ZUM..... ;|
00000AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AF0: 20 20 20 3B 42 41 53 49 43 00 00 13 80 00 20 3B | ;BASIC..... ;|
00000B00: 00 27 13 81 00 20 3B 20 2A 2A 2A 20 45 49 47 45 |.'... ; *** EIGE|
00000B10: 4E 45 20 20 52 45 53 54 4F 52 45 2D 52 4F 55 54 |NE RESTORE-ROUT|
00000B20: 49 4E 45 20 2A 2A 2A 00 2E 13 82 00 20 3B 00 54 |INE ***..... ;.T|
00000B30: 13 83 00 20 52 45 53 54 2E 20 20 50 48 41 20 20 |... REST. PHA |
00000B40: 20 20 20 20 20 20 20 20 3B 44 49 45 20 4E 4F 52 | ;DIE NOR|
00000B50: 4D 41 4C 45 00 74 13 84 00 20 54 58 41 20 20 20 |MALE.t... TXA |
00000B60: 20 20 20 20 20 20 20 3B 52 45 53 54 4F 52 45 2D | ;RESTORE-|
00000B70: 52 4F 55 2D 00 91 13 85 00 20 50 48 41 20 20 20 |ROU-..... PHA |
00000B80: 20 20 20 20 20 20 20 3B 54 49 4E 45 20 57 49 52 | ;TINE WIR|
00000B90: 44 00 B1 13 86 00 20 54 59 41 20 20 20 20 20 20 |D..... TYA |
00000BA0: 20 20 20 20 3B 41 55 53 47 45 46 55 45 48 52 54 | ;AUSGEFUEHRT|
00000BB0: 2C 00 D0 13 87 00 20 50 48 41 20 20 20 20 20 20 |,..... PHA |
00000BC0: 20 20 20 20 3B 4E 55 52 20 44 41 53 20 5A 55 2D | ;NUR DAS ZU-|
00000BD0: 00 EF 13 88 00 20 4C 44 41 20 23 24 37 46 20 20 |..... LDA #$7F |
00000BE0: 20 20 20 3B 52 55 45 43 4B 53 45 54 5A 45 4E 00 | ;RUECKSETZEN.|
00000BF0: 0D 14 89 00 20 53 54 41 20 24 44 44 30 44 20 20 |.... STA $DD0D |
00000C00: 20 20 3B 44 45 53 20 49 4E 54 45 52 2D 00 2B 14 | ;DES INTER-.+.|
00000C10: 8A 00 20 4C 44 59 20 24 44 44 30 44 20 20 20 20 |.. LDY $DD0D |
00000C20: 3B 52 55 50 54 53 20 57 49 52 44 00 4A 14 8B 00 |;RUPTS WIRD.J...|
00000C30: 20 42 4D 49 20 53 50 52 2E 31 20 20 20 20 3B 41 | BMI SPR.1 ;A|
00000C40: 55 53 47 45 4C 41 53 53 45 4E 00 59 14 8C 00 20 |USGELASSEN.Y... |
00000C50: 4A 53 52 20 24 46 36 42 43 00 68 14 8D 00 20 4A |JSR $F6BC.h... J|
00000C60: 53 52 20 24 46 46 45 31 00 77 14 8E 00 20 42 4E |SR $FFE1.w... BN|
00000C70: 45 20 53 50 52 2E 31 00 86 14 8F 00 20 4A 53 52 |E SPR.1..... JSR|
00000C80: 20 24 46 44 41 33 00 95 14 90 00 20 4A 53 52 20 | $FDA3..... JSR |
00000C90: 24 45 35 31 38 00 A6 14 91 00 20 4A 4D 50 20 28 |$E518..... JMP (|
00000CA0: 24 41 30 30 32 29 00 BC 14 92 00 20 53 50 52 2E |$A002)..... SPR.|
00000CB0: 31 20 20 4A 4D 50 20 24 46 45 37 32 00 C3 14 93 |1 JMP $FE72....|
00000CC0: 00 20 3B 00 E9 14 94 00 20 3B 20 20 2A 2A 2A 20 |. ;..... ; *** |
00000CD0: 45 49 47 45 4E 45 20 20 52 45 53 45 54 2D 52 4F |EIGENE RESET-RO|
00000CE0: 55 54 49 4E 45 20 2A 2A 2A 00 F0 14 95 00 20 3B |UTINE ***..... ;|
00000CF0: 00 16 15 96 00 20 52 45 53 45 54 20 20 53 54 58 |..... RESET STX|
00000D00: 20 24 44 30 31 36 20 20 20 20 3B 44 49 45 20 4E | $D016 ;DIE N|
00000D10: 4F 52 4D 41 4C 45 00 37 15 97 00 20 4A 53 52 20 |ORMALE.7... JSR |
00000D20: 24 46 44 41 33 20 20 20 20 3B 52 45 53 45 54 2D |$FDA3 ;RESET-|
00000D30: 52 4F 55 54 49 4E 45 00 56 15 98 00 20 4A 53 52 |ROUTINE.V... JSR|
00000D40: 20 24 46 44 35 30 20 20 20 20 3B 57 49 52 44 20 | $FD50 ;WIRD |
00000D50: 41 55 53 47 45 2D 00 74 15 99 00 20 4A 53 52 20 |AUSGE-.t... JSR |
00000D60: 24 46 46 38 41 20 20 20 20 3B 46 55 45 48 52 54 |$FF8A ;FUEHRT|
00000D70: 2C 20 5A 55 00 91 15 9A 00 20 4A 53 52 20 24 46 |, ZU..... JSR $F|
00000D80: 46 35 42 20 20 20 20 3B 53 41 45 54 5A 4C 49 43 |F5B ;SAETZLIC|
00000D90: 48 00 AE 15 9B 00 20 43 4C 49 20 20 20 20 20 20 |H..... CLI |
00000DA0: 20 20 20 20 3B 57 49 52 44 20 4E 4F 43 48 00 CF | ;WIRD NOCH..|
00000DB0: 15 9C 00 20 4A 53 52 20 24 45 34 35 33 20 20 20 |... JSR $E453 |
00000DC0: 20 3B 44 45 52 20 43 48 41 52 2D 4B 49 4C 2D 00 | ;DER CHAR-KIL-.|
00000DD0: F0 15 9D 00 20 4A 53 52 20 24 45 33 42 46 20 20 |.... JSR $E3BF |
00000DE0: 20 20 3B 4C 45 52 20 41 4B 54 49 56 49 45 52 54 | ;LER AKTIVIERT|
00000DF0: 00 FF 15 9E 00 20 4A 53 52 20 24 45 34 32 32 00 |..... JSR $E422.|
00000E00: 0C 16 9F 00 20 4C 44 41 20 23 37 31 00 19 16 A0 |.... LDA #71....|
00000E10: 00 20 53 54 41 20 37 39 32 00 27 16 A1 00 20 4C |. STA 792.'... L|
00000E20: 44 41 20 23 32 35 34 00 34 16 A2 00 20 53 54 41 |DA #254.4... STA|
00000E30: 20 37 39 33 00 43 16 A3 00 20 4A 53 52 20 34 30 | 793.C... JSR 40|
00000E40: 31 39 32 00 52 16 A4 00 20 4A 4D 50 20 24 45 33 |192.R... JMP $E3|
00000E50: 38 36 00 59 16 A5 00 20 3B 00 81 16 A6 00 20 3B |86.Y... ;..... ;|
00000E60: 2A 2A 2A 20 45 49 47 45 4E 45 20 20 49 4E 54 45 |*** EIGENE INTE|
00000E70: 52 52 55 50 54 2D 52 4F 55 54 49 4E 45 20 2A 2A |RRUPT-ROUTINE **|
00000E80: 2A 00 88 16 A7 00 20 3B 00 AB 16 A8 00 20 49 4E |*..... ;..... IN|
00000E90: 54 45 52 20 20 4C 44 41 20 56 49 43 2B 32 31 20 |TER LDA VIC+21 |
00000EA0: 20 20 3B 57 45 4E 4E 20 45 49 4E 00 CB 16 A9 00 | ;WENN EIN.....|
00000EB0: 20 42 4E 45 20 53 50 52 2E 32 20 20 20 20 3B 52 | BNE SPR.2 ;R|
00000EC0: 45 53 54 4F 52 45 20 41 55 53 2D 00 E7 16 AA 00 |ESTORE AUS-.....|
00000ED0: 20 53 45 49 20 20 20 20 20 20 20 20 20 20 3B 47 | SEI ;G|
00000EE0: 45 46 55 45 48 52 54 00 06 17 AB 00 20 4C 44 41 |EFUEHRT..... LDA|
00000EF0: 20 49 4E 54 2E 4C 20 20 20 20 3B 57 55 52 44 45 | INT.L ;WURDE|
00000F00: 2C 20 4D 55 53 53 00 27 17 AC 00 20 53 54 41 20 |, MUSS.'... STA |
00000F10: 37 38 38 20 20 20 20 20 20 3B 44 45 52 20 43 48 |788 ;DER CH|
00000F20: 41 52 2D 4B 49 4C 2D 00 48 17 AD 00 20 4C 44 41 |AR-KIL-.H... LDA|
00000F30: 20 49 4E 54 2E 48 20 20 20 20 3B 4C 45 52 20 4E | INT.H ;LER N|
00000F40: 45 55 20 49 4E 49 54 2D 00 65 17 AE 00 20 53 54 |EU INIT-.e... ST|
00000F50: 41 20 37 38 39 20 20 20 20 20 20 3B 49 41 4C 49 |A 789 ;IALI|
00000F60: 53 49 45 52 54 00 7F 17 AF 00 20 43 4C 49 20 20 |SIERT..... CLI |
00000F70: 20 20 20 20 20 20 20 20 3B 57 45 52 44 45 4E 00 | ;WERDEN.|
00000F80: 8E 17 B0 00 20 4A 53 52 20 34 30 31 39 32 00 95 |.... JSR 40192..|
00000F90: 17 B1 00 20 3B 00 BB 17 B2 00 20 53 50 52 2E 32 |... ;..... SPR.2|
00000FA0: 20 20 4C 44 41 20 41 4E 20 20 20 20 20 20 20 3B | LDA AN ;|
00000FB0: 43 48 41 52 2D 4B 49 4C 4C 45 52 00 D6 17 B3 00 |CHAR-KILLER.....|
00000FC0: 20 42 4E 45 20 4C 41 45 55 46 54 20 20 20 3B 41 | BNE LAEUFT ;A|
00000FD0: 4E 3D 4E 41 43 48 00 FE 17 B4 00 20 3B 20 20 20 |N=NACH..... ; |
00000FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FF0: 3B 4C 41 45 55 46 54 20 53 50 52 49 4E 2E 00 05 |;LAEUFT SPRIN...|
00001000: 18 B5 00 20 3B 00 26 18 B6 00 20 49 4E 43 20 5A |... ;.&... INC Z|
00001010: 41 45 48 2E 4C 20 20 20 3B 57 41 52 54 45 53 43 |AEH.L ;WARTESC|
00001020: 48 4C 45 49 46 45 00 46 18 B7 00 20 4C 44 41 20 |HLEIFE.F... LDA |
00001030: 5A 41 45 48 2E 4C 20 20 20 3B 28 4C 4F 2F 48 49 |ZAEH.L ;(LO/HI|
00001040: 2D 5A 41 45 48 2D 00 5E 18 B8 00 20 42 4E 45 20 |-ZAEH-.^... BNE |
00001050: 53 50 52 2E 33 20 20 20 20 3B 4C 45 52 29 00 65 |SPR.3 ;LER).e|
00001060: 18 B9 00 20 3B 00 75 18 BA 00 20 4C 44 41 20 5A |... ;.u... LDA Z|
00001070: 41 45 48 2E 48 00 82 18 BB 00 20 43 4D 50 20 5A |AEH.H..... CMP Z|
00001080: 55 46 00 92 18 BC 00 20 42 43 53 20 45 52 53 54 |UF..... BCS ERST|
00001090: 41 4E 00 A2 18 BD 00 20 49 4E 43 20 5A 41 45 48 |AN..... INC ZAEH|
000010A0: 2E 48 00 BA 18 BE 00 20 53 50 52 2E 33 20 20 4A |.H..... SPR.3 J|
000010B0: 4D 50 20 28 49 4E 54 2E 4C 29 00 C1 18 BF 00 20 |MP (INT.L)..... |
000010C0: 3B 00 E9 18 C0 00 20 45 52 53 54 41 4E 20 49 4E |;..... ERSTAN IN|
000010D0: 43 20 41 4E 20 20 20 20 20 20 20 3B 44 49 45 20 |C AN ;DIE |
000010E0: 56 4F 52 42 45 52 45 49 2D 00 08 19 C1 00 20 4C |VORBEREI-..... L|
000010F0: 44 41 20 32 30 34 20 20 20 20 20 20 3B 54 55 4E |DA 204 ;TUN|
00001100: 47 45 4E 20 46 55 45 52 00 27 19 C2 00 20 42 45 |GEN FUER.'... BE|
00001110: 51 20 53 50 52 2E 34 20 20 20 20 3B 44 41 53 20 |Q SPR.4 ;DAS |
00001120: 41 55 46 54 41 55 2D 00 4A 19 C3 00 20 3B 20 20 |AUFTAU-.J... ; |
00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001140: 20 3B 43 48 45 4E 20 44 45 53 00 6A 19 C4 00 20 | ;CHEN DES.j... |
00001150: 4A 53 52 20 5A 55 46 41 4C 4C 20 20 20 3B 43 48 |JSR ZUFALL ;CH|
00001160: 41 52 2D 4B 49 4C 4C 45 52 53 00 88 19 C5 00 20 |AR-KILLERS..... |
00001170: 4C 44 41 20 5A 55 46 20 20 20 20 20 20 3B 57 45 |LDA ZUF ;WE|
00001180: 52 44 45 4E 20 47 45 2D 00 A4 19 C6 00 20 53 54 |RDEN GE-..... ST|
00001190: 41 20 5A 45 49 4C 45 20 20 20 20 3B 54 52 4F 46 |A ZEILE ;TROF|
000011A0: 46 45 4E 2C 00 C3 19 C7 00 20 4A 4D 50 20 53 50 |FEN,..... JMP SP|
000011B0: 52 2E 35 20 20 20 20 3B 44 2E 48 2E 20 44 49 45 |R.5 ;D.H. DIE|
000011C0: 20 59 2D 00 EB 19 C8 00 20 3B 20 20 20 20 20 20 | Y-..... ; |
000011D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 50 4F | ;PO|
000011E0: 53 49 54 49 4F 4E 20 46 55 45 52 00 10 1A C9 00 |SITION FUER.....|
000011F0: 20 53 50 52 2E 34 20 20 4C 44 41 20 32 31 34 20 | SPR.4 LDA 214 |
00001200: 20 20 20 20 20 3B 44 41 53 20 53 50 52 49 54 45 | ;DAS SPRITE|
00001210: 00 2D 1A CA 00 20 53 54 41 20 5A 45 49 4C 45 20 |.-... STA ZEILE |
00001220: 20 20 20 3B 53 4F 57 49 45 20 44 49 45 00 55 1A | ;SOWIE DIE.U.|
00001230: CB 00 20 3B 20 20 20 20 20 20 20 20 20 20 20 20 |.. ; |
00001240: 20 20 20 20 20 20 20 3B 41 4E 46 41 4E 47 53 41 | ;ANFANGSA|
00001250: 44 52 45 53 2D 00 7B 1A CC 00 20 53 50 52 2E 35 |DRES-.{... SPR.5|
00001260: 20 20 41 53 4C 20 20 20 20 20 20 20 20 20 20 3B | ASL ;|
00001270: 53 45 20 44 45 52 20 45 4E 54 2D 00 9A 1A CD 00 |SE DER ENT-.....|
00001280: 20 41 53 4C 20 20 20 20 20 20 20 20 20 20 3B 53 | ASL ;S|
00001290: 50 52 45 43 48 45 4E 44 45 4E 00 B6 1A CE 00 20 |PRECHENDEN..... |
000012A0: 41 53 4C 20 20 20 20 20 20 20 20 20 20 3B 5A 45 |ASL ;ZE|
000012B0: 49 4C 45 20 49 4D 00 D5 1A CF 00 20 43 4C 43 20 |ILE IM..... CLC |
000012C0: 20 20 20 20 20 20 20 20 20 3B 42 49 4C 44 53 43 | ;BILDSC|
000012D0: 48 49 52 4D 2D 00 F6 1A D0 00 20 41 44 43 20 23 |HIRM-..... ADC #|
000012E0: 34 35 20 20 20 20 20 20 3B 53 50 45 49 43 48 45 |45 ;SPEICHE|
000012F0: 52 20 57 45 52 2D 00 17 1B D1 00 20 53 54 41 20 |R WER-..... STA |
00001300: 56 49 43 2B 31 35 20 20 20 3B 44 45 4E 20 42 45 |VIC+15 ;DEN BE|
00001310: 52 45 43 48 4E 45 54 00 1E 1B D2 00 20 3B 00 2E |RECHNET..... ;..|
00001320: 1B D3 00 20 4C 44 41 20 23 3C 31 30 32 34 00 3E |... LDA #<1024.>|
00001330: 1B D4 00 20 53 54 41 20 42 49 4C 44 2E 4C 00 4E |... STA BILD.L.N|
00001340: 1B D5 00 20 4C 44 41 20 23 3E 31 30 32 34 00 5E |... LDA #>1024.^|
00001350: 1B D6 00 20 53 54 41 20 42 49 4C 44 2E 48 00 6B |... STA BILD.H.k|
00001360: 1B D7 00 20 4C 44 58 20 23 34 30 00 7B 1B D8 00 |... LDX #40.{...|
00001370: 20 4C 4F 4F 50 2E 35 20 43 4C 43 00 8B 1B D9 00 | LOOP.5 CLC.....|
00001380: 20 4C 44 41 20 42 49 4C 44 2E 4C 00 9A 1B DA 00 | LDA BILD.L.....|
00001390: 20 41 44 43 20 5A 45 49 4C 45 00 AA 1B DB 00 20 | ADC ZEILE..... |
000013A0: 53 54 41 20 42 49 4C 44 2E 4C 00 BA 1B DC 00 20 |STA BILD.L..... |
000013B0: 4C 44 41 20 42 49 4C 44 2E 48 00 C6 1B DD 00 20 |LDA BILD.H..... |
000013C0: 41 44 43 20 23 30 00 D6 1B DE 00 20 53 54 41 20 |ADC #0..... STA |
000013D0: 42 49 4C 44 2E 48 00 DF 1B DF 00 20 44 45 58 00 |BILD.H..... DEX.|
000013E0: EF 1B E0 00 20 42 4E 45 20 4C 4F 4F 50 2E 35 00 |.... BNE LOOP.5.|
000013F0: F6 1B E1 00 20 3B 00 07 1C E2 00 20 4A 4D 50 20 |.... ;..... JMP |
00001400: 28 49 4E 54 2E 4C 29 00 0E 1C E3 00 20 3B 00 33 |(INT.L)..... ;.3|
00001410: 1C E4 00 20 4C 41 45 55 46 54 20 49 4E 43 20 53 |... LAEUFT INC S|
00001420: 50 52 2E 5A 20 20 20 20 3B 44 41 53 20 22 4D 41 |PR.Z ;DAS "MA|
00001430: 55 4C 22 00 54 1C E5 00 20 4C 44 41 20 53 50 52 |UL".T... LDA SPR|
00001440: 2E 5A 20 20 20 20 3B 44 45 53 20 43 48 41 52 2D |.Z ;DES CHAR-|
00001450: 4B 49 4C 2D 00 75 1C E6 00 20 43 4D 50 20 23 35 |KIL-.u... CMP #5|
00001460: 20 20 20 20 20 20 20 3B 4C 45 52 53 20 57 49 52 | ;LERS WIR|
00001470: 44 20 47 45 2D 00 94 1C E7 00 20 42 4E 45 20 53 |D GE-..... BNE S|
00001480: 50 52 2E 37 20 20 20 20 3B 4F 45 46 46 4E 45 54 |PR.7 ;OEFFNET|
00001490: 20 55 4E 44 00 BA 1C E8 00 20 3B 20 20 20 20 20 | UND..... ; |
000014A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 47 | ;G|
000014B0: 45 53 43 48 4C 4F 53 53 45 4E 00 D5 1C E9 00 20 |ESCHLOSSEN..... |
000014C0: 4C 44 41 20 23 30 20 20 20 20 20 20 20 3B 55 4E |LDA #0 ;UN|
000014D0: 44 20 44 41 53 00 F1 1C EA 00 20 53 54 41 20 53 |D DAS..... STA S|
000014E0: 50 52 2E 5A 20 20 20 20 3B 46 52 45 53 53 47 45 |PR.Z ;FRESSGE|
000014F0: 2D 00 10 1D EB 00 20 4C 44 41 20 32 30 34 37 20 |-..... LDA 2047 |
00001500: 20 20 20 20 3B 52 41 45 55 53 43 48 20 45 52 2D | ;RAEUSCH ER-|
00001510: 00 29 1D EC 00 20 43 4D 50 20 23 31 35 20 20 20 |.)... CMP #15 |
00001520: 20 20 20 3B 5A 45 55 47 54 00 38 1D ED 00 20 42 | ;ZEUGT.8... B|
00001530: 45 51 20 53 50 52 2E 36 00 46 1D EE 00 20 49 4E |EQ SPR.6.F... IN|
00001540: 43 20 32 30 34 37 00 54 1D EF 00 20 4C 44 41 20 |C 2047.T... LDA |
00001550: 23 31 32 38 00 64 1D F0 00 20 53 54 41 20 53 49 |#128.d... STA SI|
00001560: 44 2B 31 38 00 73 1D F1 00 20 4A 4D 50 20 53 50 |D+18.s... JMP SP|
00001570: 52 2E 37 00 7A 1D F2 00 20 3B 00 8F 1D F3 00 20 |R.7.z... ;..... |
00001580: 53 50 52 2E 36 20 20 44 45 43 20 32 30 34 37 00 |SPR.6 DEC 2047.|
00001590: 9D 1D F4 00 20 4C 44 41 20 23 31 32 39 00 AD 1D |.... LDA #129...|
000015A0: F5 00 20 53 54 41 20 53 49 44 2B 31 38 00 B4 1D |.. STA SID+18...|
000015B0: F6 00 20 3B 00 DB 1D F7 00 20 53 50 52 2E 37 20 |.. ;..... SPR.7 |
000015C0: 20 4C 44 41 20 56 49 43 2B 31 36 20 20 20 3B 42 | LDA VIC+16 ;B|
000015D0: 45 57 45 47 55 4E 47 20 44 45 53 00 F6 1D F8 00 |EWEGUNG DES.....|
000015E0: 20 41 4E 44 20 23 31 32 38 20 20 20 20 20 3B 53 | AND #128 ;S|
000015F0: 50 52 49 54 45 53 00 05 1E F9 00 20 42 4E 45 20 |PRITES..... BNE |
00001600: 53 50 52 2E 39 00 15 1E FA 00 20 4C 44 41 20 56 |SPR.9..... LDA V|
00001610: 49 43 2B 31 34 00 23 1E FB 00 20 43 4D 50 20 23 |IC+14.#... CMP #|
00001620: 32 35 35 00 32 1E FC 00 20 42 45 51 20 53 50 52 |255.2... BEQ SPR|
00001630: 2E 38 00 42 1E FD 00 20 4A 4D 50 20 53 50 52 2E |.8.B... JMP SPR.|
00001640: 31 30 00 59 1E FE 00 20 53 50 52 2E 38 20 20 4C |10.Y... SPR.8 L|
00001650: 44 41 20 56 49 43 2B 31 36 00 67 1E FF 00 20 4F |DA VIC+16.g... O|
00001660: 52 41 20 23 31 32 38 00 77 1E 00 01 20 53 54 41 |RA #128.w... STA|
00001670: 20 56 49 43 2B 31 36 00 8E 1E 01 01 20 53 50 52 | VIC+16..... SPR|
00001680: 2E 39 20 20 4C 44 41 20 56 49 43 2B 31 34 00 9B |.9 LDA VIC+14..|
00001690: 1E 02 01 20 43 4D 50 20 23 38 32 00 A9 1E 03 01 |... CMP #82.....|
000016A0: 20 42 45 51 20 45 4E 44 45 00 C0 1E 04 01 20 53 | BEQ ENDE..... S|
000016B0: 50 52 2E 31 30 20 49 4E 43 20 56 49 43 2B 31 34 |PR.10 INC VIC+14|
000016C0: 00 E1 1E 05 01 20 4C 44 41 20 56 49 43 2B 31 36 |..... LDA VIC+16|
000016D0: 20 20 20 3B 55 45 42 45 52 50 52 55 45 46 45 4E | ;UEBERPRUEFEN|
000016E0: 2C 00 00 1F 06 01 20 41 4E 44 20 23 31 32 38 20 |,..... AND #128 |
000016F0: 20 20 20 20 3B 4F 42 20 44 41 53 20 4C 4F 45 2D | ;OB DAS LOE-|
00001700: 00 1F 1F 07 01 20 42 4E 45 20 53 50 52 2E 31 31 |..... BNE SPR.11|
00001710: 20 20 20 3B 53 43 48 45 4E 20 45 49 4E 45 53 00 | ;SCHEN EINES.|
00001720: 3B 1F 08 01 20 4C 44 41 20 56 49 43 2B 31 34 20 |;... LDA VIC+14 |
00001730: 20 20 3B 5A 45 49 43 48 45 4E 53 00 59 1F 09 01 | ;ZEICHENS.Y...|
00001740: 20 43 4D 50 20 23 31 30 20 20 20 20 20 20 3B 4E | CMP #10 ;N|
00001750: 4F 45 54 49 47 20 49 53 54 00 69 1F 0A 01 20 42 |OETIG IST.i... B|
00001760: 43 43 20 53 50 52 2E 31 32 00 70 1F 0B 01 20 3B |CC SPR.12.p... ;|
00001770: 00 87 1F 0C 01 20 53 50 52 2E 31 31 20 4C 44 41 |..... SPR.11 LDA|
00001780: 20 53 50 41 4C 54 45 00 94 1F 0D 01 20 43 4D 50 | SPALTE..... CMP|
00001790: 20 23 34 30 00 A4 1F 0E 01 20 42 45 51 20 53 50 | #40..... BEQ SP|
000017A0: 52 2E 31 32 00 B3 1F 0F 01 20 49 4E 43 20 4C 4F |R.12..... INC LO|
000017B0: 45 2E 5A 00 C2 1F 10 01 20 4C 44 41 20 4C 4F 45 |E.Z..... LDA LOE|
000017C0: 2E 5A 00 CE 1F 11 01 20 43 4D 50 20 23 38 00 DE |.Z..... CMP #8..|
000017D0: 1F 12 01 20 42 45 51 20 53 50 52 2E 31 33 00 F6 |... BEQ SPR.13..|
000017E0: 1F 13 01 20 53 50 52 2E 31 32 20 4A 4D 50 20 28 |... SPR.12 JMP (|
000017F0: 49 4E 54 2E 4C 29 00 FD 1F 14 01 20 3B 00 1F 20 |INT.L)..... ;.. |
00001800: 15 01 20 53 50 52 2E 31 33 20 4C 44 41 20 23 30 |.. SPR.13 LDA #0|
00001810: 20 20 20 20 20 20 20 3B 45 53 20 57 49 52 44 00 | ;ES WIRD.|
00001820: 3F 20 16 01 20 53 54 41 20 4C 4F 45 2E 5A 20 20 |? .. STA LOE.Z |
00001830: 20 20 3B 55 45 42 45 52 50 52 55 45 46 54 2C 00 | ;UEBERPRUEFT,.|
00001840: 60 20 17 01 20 4C 44 41 20 32 30 34 20 20 20 20 |` .. LDA 204 |
00001850: 20 20 3B 4F 42 20 44 49 45 20 58 2D 20 55 4E 44 | ;OB DIE X- UND|
00001860: 00 7E 20 18 01 20 42 4E 45 20 53 50 52 2E 31 35 |.~ .. BNE SPR.15|
00001870: 20 20 20 3B 59 2D 50 4F 53 49 54 49 4F 4E 00 A4 | ;Y-POSITION..|
00001880: 20 19 01 20 3B 20 20 20 20 20 20 20 20 20 20 20 | .. ; |
00001890: 20 20 20 20 20 20 20 20 3B 44 45 53 20 43 55 52 | ;DES CUR|
000018A0: 53 4F 52 53 00 C3 20 1A 01 20 4C 44 41 20 32 31 |SORS.. .. LDA 21|
000018B0: 34 20 20 20 20 20 20 3B 55 4E 44 20 44 49 45 20 |4 ;UND DIE |
000018C0: 44 45 53 00 E3 20 1B 01 20 43 4D 50 20 5A 45 49 |DES.. .. CMP ZEI|
000018D0: 4C 45 20 20 20 20 3B 5A 55 20 4C 4F 45 53 43 48 |LE ;ZU LOESCH|
000018E0: 45 4E 2D 00 03 21 1C 01 20 42 4E 45 20 53 50 52 |EN-..!.. BNE SPR|
000018F0: 2E 31 35 20 20 20 3B 44 45 4E 20 5A 45 49 43 48 |.15 ;DEN ZEICH|
00001900: 45 4E 53 00 24 21 1D 01 20 4C 44 41 20 32 31 31 |ENS.$!.. LDA 211|
00001910: 20 20 20 20 20 20 3B 55 45 42 45 52 45 49 4E 53 | ;UEBEREINS|
00001920: 54 49 4D 2D 00 45 21 1E 01 20 44 45 43 20 20 20 |TIM-.E!.. DEC |
00001930: 20 20 20 20 20 20 20 3B 4D 45 4E 2E 20 49 53 54 | ;MEN. IST|
00001940: 20 44 49 45 53 00 65 21 1F 01 20 43 4D 50 20 53 | DIES.e!.. CMP S|
00001950: 50 41 4C 54 45 20 20 20 3B 53 4F 2C 20 4D 55 53 |PALTE ;SO, MUS|
00001960: 53 20 44 45 52 00 84 21 20 01 20 42 45 51 20 53 |S DER..! . BEQ S|
00001970: 50 52 2E 31 34 20 20 20 3B 43 55 52 53 4F 52 20 |PR.14 ;CURSOR |
00001980: 4B 55 52 5A 00 A5 21 21 01 20 4C 44 41 20 32 31 |KURZ..!!. LDA 21|
00001990: 33 20 20 20 20 20 20 3B 41 55 53 47 45 53 43 48 |3 ;AUSGESCH|
000019A0: 41 4C 54 45 54 00 BF 21 22 01 20 43 4D 50 20 23 |ALTET..!". CMP #|
000019B0: 33 39 20 20 20 20 20 20 3B 57 45 52 44 45 4E 00 |39 ;WERDEN.|
000019C0: CF 21 23 01 20 42 45 51 20 53 50 52 2E 31 35 00 |.!#. BEQ SPR.15.|
000019D0: DC 21 24 01 20 4C 44 41 20 32 31 31 00 E9 21 25 |.!$. LDA 211..!%|
000019E0: 01 20 43 4D 50 20 23 34 30 00 F9 21 26 01 20 42 |. CMP #40..!&. B|
000019F0: 43 43 20 53 50 52 2E 31 35 00 06 22 27 01 20 4C |CC SPR.15.."'. L|
00001A00: 44 41 20 32 31 31 00 0F 22 28 01 20 44 45 43 00 |DA 211.."(. DEC.|
00001A10: 18 22 29 01 20 53 45 43 00 25 22 2A 01 20 53 42 |."). SEC.%"*. SB|
00001A20: 43 20 23 34 30 00 35 22 2B 01 20 43 4D 50 20 53 |C #40.5"+. CMP S|
00001A30: 50 41 4C 54 45 00 45 22 2C 01 20 42 4E 45 20 53 |PALTE.E",. BNE S|
00001A40: 50 52 2E 31 35 00 4C 22 2D 01 20 3B 00 5F 22 2E |PR.15.L"-. ;._".|
00001A50: 01 20 53 50 52 2E 31 34 20 4C 44 41 20 23 30 00 |. SPR.14 LDA #0.|
00001A60: 6C 22 2F 01 20 53 54 41 20 32 30 37 00 75 22 30 |l"/. STA 207.u"0|
00001A70: 01 20 49 4E 43 00 82 22 31 01 20 53 54 41 20 32 |. INC.."1. STA 2|
00001A80: 30 34 00 89 22 32 01 20 3B 00 B0 22 33 01 20 53 |04.."2. ;.."3. S|
00001A90: 50 52 2E 31 35 20 4C 44 41 20 23 33 32 20 20 20 |PR.15 LDA #32 |
00001AA0: 20 20 20 3B 4C 4F 45 53 43 48 45 4E 20 44 45 53 | ;LOESCHEN DES|
00001AB0: 00 CC 22 34 01 20 4C 44 59 20 53 50 41 4C 54 45 |.."4. LDY SPALTE|
00001AC0: 20 20 20 3B 5A 45 49 43 48 45 4E 53 00 E0 22 35 | ;ZEICHENS.."5|
00001AD0: 01 20 53 54 41 20 28 42 49 4C 44 2E 4C 29 2C 59 |. STA (BILD.L),Y|
00001AE0: 00 F0 22 36 01 20 49 4E 43 20 53 50 41 4C 54 45 |.."6. INC SPALTE|
00001AF0: 00 01 23 37 01 20 4A 4D 50 20 28 49 4E 54 2E 4C |..#7. JMP (INT.L|
00001B00: 29 00 08 23 38 01 20 3B 00 30 23 39 01 20 45 4E |)..#8. ;.0#9. EN|
00001B10: 44 45 20 20 20 4C 44 41 20 23 30 20 20 20 20 20 |DE LDA #0 |
00001B20: 20 20 3B 44 45 52 20 43 48 41 52 2D 4B 49 4C 2D | ;DER CHAR-KIL-|
00001B30: 00 4F 23 3A 01 20 53 54 41 20 41 4E 20 20 20 20 |.O#:. STA AN |
00001B40: 20 20 20 3B 4C 45 52 20 48 41 54 20 44 45 4E 00 | ;LER HAT DEN.|
00001B50: 6F 23 3B 01 20 53 54 41 20 53 50 41 4C 54 45 20 |o#;. STA SPALTE |
00001B60: 20 20 3B 52 45 43 48 54 45 4E 20 52 41 4E 44 00 | ;RECHTEN RAND.|
00001B70: 8F 23 3C 01 20 53 54 41 20 5A 41 45 48 2E 48 20 |.#<. STA ZAEH.H |
00001B80: 20 20 3B 45 52 52 45 49 43 48 54 20 55 4E 44 00 | ;ERREICHT UND.|
00001B90: AD 23 3D 01 20 53 54 41 20 4C 4F 45 2E 5A 20 20 |.#=. STA LOE.Z |
00001BA0: 20 20 3B 57 49 52 44 20 41 42 47 45 2D 00 C9 23 | ;WIRD ABGE-..#|
00001BB0: 3E 01 20 4C 44 41 20 23 38 20 20 20 20 20 20 20 |>. LDA #8 |
00001BC0: 3B 53 43 48 41 4C 54 45 54 00 D9 23 3F 01 20 53 |;SCHALTET..#?. S|
00001BD0: 54 41 20 56 49 43 2B 31 34 00 E9 23 40 01 20 4C |TA VIC+14..#@. L|
00001BE0: 44 41 20 56 49 43 2B 31 36 00 F7 23 41 01 20 41 |DA VIC+16..#A. A|
00001BF0: 4E 44 20 23 31 32 37 00 07 24 42 01 20 53 54 41 |ND #127..$B. STA|
00001C00: 20 56 49 43 2B 31 36 00 15 24 43 01 20 4C 44 41 | VIC+16..$C. LDA|
00001C10: 20 23 31 32 38 00 25 24 44 01 20 53 54 41 20 53 | #128.%$D. STA S|
00001C20: 49 44 2B 31 38 00 35 24 45 01 20 4A 53 52 20 5A |ID+18.5$E. JSR Z|
00001C30: 55 46 41 4C 4C 00 42 24 46 01 20 4C 44 41 20 5A |UFALL.B$F. LDA Z|
00001C40: 55 46 00 4B 24 47 01 20 4C 53 52 00 54 24 48 01 |UF.K$G. LSR.T$H.|
00001C50: 20 4C 53 52 00 61 24 49 01 20 53 54 41 20 5A 55 | LSR.a$I. STA ZU|
00001C60: 46 00 72 24 4A 01 20 4A 4D 50 20 28 49 4E 54 2E |F.r$J. JMP (INT.|
00001C70: 4C 29 00 79 24 4B 01 20 3B 00 A0 24 4C 01 20 5A |L).y$K. ;..$L. Z|
00001C80: 55 46 41 4C 4C 20 4C 44 41 20 53 49 44 2B 32 37 |UFALL LDA SID+27|
00001C90: 20 20 20 3B 55 4E 54 45 52 52 4F 55 54 49 4E 45 | ;UNTERROUTINE|
00001CA0: 00 BF 24 4D 01 20 53 54 41 20 5A 55 46 20 20 20 |..$M. STA ZUF |
00001CB0: 20 20 20 3B 5A 55 52 20 42 45 52 45 43 48 2D 00 | ;ZUR BERECH-.|
00001CC0: DD 24 4E 01 20 43 4D 50 20 23 32 35 30 20 20 20 |.$N. CMP #250 |
00001CD0: 20 20 3B 4E 55 4E 47 20 45 49 4E 45 52 00 FC 24 | ;NUNG EINER..$|
00001CE0: 4F 01 20 42 43 53 20 5A 55 46 41 4C 4C 20 20 20 |O. BCS ZUFALL |
00001CF0: 3B 5A 55 46 41 4C 4C 53 5A 41 48 4C 00 1A 25 50 |;ZUFALLSZAHL..%P|
00001D00: 01 20 4C 44 58 20 23 30 20 20 20 20 20 20 20 3B |. LDX #0 ;|
00001D10: 5A 57 49 53 43 48 45 4E 20 30 00 3B 25 51 01 20 |ZWISCHEN 0.;%Q. |
00001D20: 4C 4F 4F 50 2E 36 20 4C 44 41 20 5A 55 46 20 20 |LOOP.6 LDA ZUF |
00001D30: 20 20 20 20 3B 55 4E 44 20 32 34 00 48 25 52 01 | ;UND 24.H%R.|
00001D40: 20 43 4D 50 20 23 31 30 00 58 25 53 01 20 42 43 | CMP #10.X%S. BC|
00001D50: 43 20 53 50 52 2E 31 36 00 61 25 54 01 20 53 45 |C SPR.16.a%T. SE|
00001D60: 43 00 6E 25 55 01 20 4C 44 41 20 5A 55 46 00 7B |C.n%U. LDA ZUF.{|
00001D70: 25 56 01 20 53 42 43 20 23 31 30 00 88 25 57 01 |%V. SBC #10..%W.|
00001D80: 20 53 54 41 20 5A 55 46 00 91 25 58 01 20 49 4E | STA ZUF..%X. IN|
00001D90: 58 00 A1 25 59 01 20 4A 4D 50 20 4C 4F 4F 50 2E |X..%Y. JMP LOOP.|
00001DA0: 36 00 B5 25 5A 01 20 53 50 52 2E 31 36 20 53 54 |6..%Z. SPR.16 ST|
00001DB0: 58 20 5A 55 46 00 BE 25 5B 01 20 52 54 53 00 C5 |X ZUF..%[. RTS..|
00001DC0: 25 5C 01 20 3B 00 EC 25 5D 01 20 53 50 52 49 54 |%\. ;..%]. SPRIT|
00001DD0: 45 20 2E 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |E .0,0,0,0,0,0,0|
00001DE0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 0A 26 5E |,0,0,0,0,0,0..&^|
00001DF0: 01 20 2E 31 32 30 2C 30 2C 30 2C 32 35 32 2C 30 |. .120,0,0,252,0|
00001E00: 2C 31 2C 32 35 34 2C 30 2C 33 00 28 26 5F 01 20 |,1,254,0,3.(&_. |
00001E10: 2E 32 34 30 2C 30 2C 33 2C 32 32 34 2C 30 2C 33 |.240,0,3,224,0,3|
00001E20: 2C 32 32 34 2C 30 2C 33 00 46 26 60 01 20 2E 32 |,224,0,3.F&`. .2|
00001E30: 34 38 2C 30 2C 31 2C 32 35 34 2C 30 2C 30 2C 32 |48,0,1,254,0,0,2|
00001E40: 35 32 2C 30 2C 30 00 64 26 61 01 20 2E 31 32 30 |52,0,0.d&a. .120|
00001E50: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00001E60: 2C 30 2C 30 00 82 26 62 01 20 2E 30 2C 30 2C 30 |,0,0..&b. .0,0,0|
00001E70: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00001E80: 2C 30 00 89 26 63 01 20 3B 00 B1 26 64 01 20 54 |,0..&c. ;..&d. T|
00001E90: 45 58 54 20 20 20 2E 31 37 2C 22 52 45 41 44 59 |EXT .17,"READY|
00001EA0: 2E 20 28 54 4F 20 4B 49 4C 4C 21 29 22 2C 31 34 |. (TO KILL!)",14|
00001EB0: 35 00 B8 26 65 01 20 3B 00 E0 26 66 01 20 43 42 |5..&e. ;..&f. CB|
00001EC0: 4D 38 30 20 20 2E 32 33 35 2C 31 35 37 2C 32 30 |M80 .235,157,20|
00001ED0: 2C 31 35 38 2C 31 39 35 2C 31 39 34 2C 32 30 35 |,158,195,194,205|
00001EE0: 00 EC 26 67 01 20 2E 35 36 2C 34 38 00 F3 26 68 |..&g. .56,48..&h|
00001EF0: 01 20 3B 00 10 27 69 01 20 3B 20 20 20 20 20 20 |. ;..'i. ; |
00001F00: 20 20 20 20 2D 2D 2D 20 45 4E 44 45 20 2D 2D 2D | --- ENDE ---|
00001F10: 00 00 00 |... |
..'... ; +++++++++++++++++++++++++++++.
M... ; + +.S.
.. ; + --- THE CHAR-KILLER --- +.....
; + +..... ;
+ (C) 9/89 BY ALEX GEVATTER +..... ;
+ +..... ; ++
+++++++++++++++++++++++++++.1... ; +
+.W... ; + TEI
LPRG.: HAUPTPROGRAMM +.}... ; + SPEICH
ERBEL.: 40192-40930 +..... ; + QUE
LLTEXT FUER: +.I... ; + KINGSOFT
POWER ASSEMBLER +..... ; +
+..... ; ++++++++++++++++
+++++++++++++..... ;.<... *=40192 ;
STARTADRESSE.I... &=49152.P... ;.W... VI
C =53248 ;LABELS DEFI-..... SID
=54272 ;NIEREN..... BILD.L =25
3..... BILD.H =254.M... ANFANG =40950...
.. INT.L =ANFANG..... INT.H =ANFANG+1.
.... AN =ANFANG+2.#... ZAEH.L =ANFAN
G+3.9... ZAEH.H =ANFANG+4.O... ZUF =A
NFANG+5.E... ZEILE =ANFANG+6.{... SPR.Z
=ANFANG+7... . SPALTE =ANFANG+8...!. L
OE.Z =ANFANG+9...". ;.N.#. LDA #0
;PROGRAMM VOR...$. STA 55 ;UEBERS
CHREI-...%. LDA #157 ;BEN SCHUETZEN.
..&. STA 56.".'. ;.A.(. LDX #0 ;SP
RITEDATEN.G.). LOOP.1 LDA SPRITE,X ;"SPR
ITE" IN...*. STA 896,X ;SPRITE-BLOCKS
...+. STA 960,X ;14 U. 15...,. INX
;KOPIEREN.M.-. CPX #63..... BNE L
OOP.1.../. LDA #255...0. STA 896+22...1.
STA 896+25...2. STA 896+28.+.3. STA 896
+31.2.4. ;.R.5. LDX #0 ;TEXT AUS T
A-.Y.6. LOOP.2 LDA TEXT,X ;BELLE "TEXT
"...7. JSR $FFD2 ;AUSGEBEN...8. INX..
.9. CPX #19...:. BNE LOOP.2.B.;. ;...<.
LDX #10 ;ZWISCHENSPEI-...=. LDA #0
;CHER LOESCHEN...>. LOOP.3 STA ANF
ANG-1,X.(.?. DEX.8.@. BNE LOOP.3.?.A. ;.
].B. LDA #8 ;VIC-GRUND-.~.C. STA V
IC+14 ;EINSTELLUNGEN...D. LDA VIC+16..
.E. AND #127...F. STA VIC+16...G. LDA VI
C+21.J.H. ORA #128.Z.I. STA VIC+21...J.
LDA VIC+23...K. AND #127...L. STA VIC+23
...M. LDA VIC+27.&.N. AND #127.6.O. STA
VIC+27.F.P. LDA VIC+28.T.Q. AND #127.D.R
. STA VIC+28.T.S. LDA VIC+29...T. AND #1
27...U. STA VIC+29...V. LDA #7...W. STA
VIC+46...X. LDA #14.I.Y. STA 2047.P.Z. ;
...[. LDA #15 ;SID-GRUND-...\. STA
SID+24 ;EINSTELLUNGEN...]. LDA #130.-.
^. STA SID+14.9._. LDA #8.I.`. STA SID+1
5.W.A. LDA #128.G.B. STA SID+18.S.C. LDA
#0...D. STA SID+19...E. LDA #240...F. S
TA SID+20...G. ;.D.H. LDX #9 ;CBM8
0 AB...I. LOOP.4 DEX ;32768 SCH
REI-...J. LDA CBM80,X ;BEN (RESET-.%.K.
STA 32768,X ;SCHUTZ.5.L. BNE LOOP.4.<.
M. ;.[.N. LDA #<REST. ;RESTORE AUF.Z.O.
STA 792 ;EIGENE ROU-...P. LDA #>RE
ST. ;TINE EINSTEL-...Q. STA 793 ;L
EN...R. ;.W.S. LDA 788 ;ALTEN IRQ-.
..T. STA INT.L ;VEKTOR IN...U. LDA 78
9 ;INT.L + INT.H.2.V. STA INT.H
;SPEICHERN.M.W. SEI ;IRQ AUF.L.
X. LDA #<INTER ;EIGENE ROU-...Y. STA 78
8 ;TINE STELLEN...Z. LDA #>INTER...
{. STA 789...|. CLI...}. ;.Y.~. RTS
;ZURUECK ZUM.... ;
;BASIC..... ;.'... ; *** EIGENE REST
ORE-ROUTINE ***..... ;.T... REST. PHA
;DIE NORMALE.T... TXA ;
RESTORE-ROU-..... PHA ;TINE WIR
D..... TYA ;AUSGEFUEHRT,.P... P
HA ;NUR DAS ZU-..... LDA #$7F
;RUECKSETZEN..... STA $DD0D ;DES I
NTER-.+... LDY $DD0D ;RUPTS WIRD.J...
BMI SPR.1 ;AUSGELASSEN.Y... JSR $F6B
C.H... JSR $FFE1.W... BNE SPR.1..... JSR
$FDA3..... JSR $E518..... JMP ($A002)..
... SPR.1 JMP $FE72.C... ;..... ; ***
EIGENE RESET-ROUTINE ***..... ;..... RE
SET STX $D016 ;DIE NORMALE.7... JSR
$FDA3 ;RESET-ROUTINE.V... JSR $FD50
;WIRD AUSGE-.T... JSR $FF8A ;FUEHRT
, ZU..... JSR $FF5B ;SAETZLICH..... C
LI ;WIRD NOCH.O... JSR $E453
;DER CHAR-KIL-..... JSR $E3BF ;LER A
KTIVIERT..... JSR $E422..... LDA #71...
. STA 792.'... LDA #254.4... STA 793.C..
. JSR 40192.R... JMP $E386.Y... ;..... ;
*** EIGENE INTERRUPT-ROUTINE ***..... ;
..... INTER LDA VIC+21 ;WENN EIN.K...
BNE SPR.2 ;RESTORE AUS-..... SEI
;GEFUEHRT..... LDA INT.L ;WURDE
, MUSS.'... STA 788 ;DER CHAR-KIL-.
H... LDA INT.H ;LER NEU INIT-.E... ST
A 789 ;IALISIERT.... CLI
;WERDEN..... JSR 40192..... ;..... SPR.2
LDA AN ;CHAR-KILLER.V... BNE LAE
UFT ;AN=NACH..... ;
;LAEUFT SPRIN...... ;.&... INC ZAEH.L
;WARTESCHLEIFE.F... LDA ZAEH.L ;(LO/HI
-ZAEH-.^... BNE SPR.3 ;LER).E... ;.U.
.. LDA ZAEH.H..... CMP ZUF..... BCS ERST
AN..... INC ZAEH.H..... SPR.3 JMP (INT.
L).A... ;..... ERSTAN INC AN ;DIE
VORBEREI-...A. LDA 204 ;TUNGEN FUER
.'.B. BEQ SPR.4 ;DAS AUFTAU-.J.C. ;
;CHEN DES.J.D. JSR ZUFA
LL ;CHAR-KILLERS...E. LDA ZUF ;WE
RDEN GE-...F. STA ZEILE ;TROFFEN,.C.G
. JMP SPR.5 ;D.H. DIE Y-...H. ;
;POSITION FUER...I. SPR.4
LDA 214 ;DAS SPRITE.-.J. STA ZEILE
;SOWIE DIE.U.K. ; ;
ANFANGSADRES-.{.L. SPR.5 ASL ;
SE DER ENT-...M. ASL ;SPRECHEND
EN...N. ASL ;ZEILE IM.U.O. CLC
;BILDSCHIRM-...P. ADC #45
;SPEICHER WER-...Q. STA VIC+15 ;DEN BE
RECHNET...R. ;...S. LDA #<1024.>.T. STA
BILD.L.N.U. LDA #>1024.^.V. STA BILD.H.K
.W. LDX #40.{.X. LOOP.5 CLC...Y. LDA BIL
D.L...Z. ADC ZEILE..... STA BILD.L.....
LDA BILD.H.F... ADC #0.V... STA BILD.H..
... DEX..... BNE LOOP.5..... ;..... JMP
(INT.L)..... ;.3... LAEUFT INC SPR.Z
;DAS "MAUL".T... LDA SPR.Z ;DES CHAR-
KIL-.U... CMP #5 ;LERS WIRD GE-...
.. BNE SPR.7 ;OEFFNET UND..... ;
;GESCHLOSSEN.U... LDA #0
;UND DAS..... STA SPR.Z ;FRESSGE
-..... LDA 2047 ;RAEUSCH ER-.)... CM
P #15 ;ZEUGT.8... BEQ SPR.6.F... IN
C 2047.T... LDA #128.D... STA SID+18.S..
. JMP SPR.7.Z... ;..... SPR.6 DEC 2047.
.... LDA #129..... STA SID+18..... ;....
. SPR.7 LDA VIC+16 ;BEWEGUNG DES.....
AND #128 ;SPRITES..... BNE SPR.9...
.. LDA VIC+14.#... CMP #255.2... BEQ SPR
.8.B... JMP SPR.10.Y... SPR.8 LDA VIC+1
6.G... ORA #128.W... STA VIC+16..... SPR
.9 LDA VIC+14..... CMP #82..... BEQ END
E..... SPR.10 INC VIC+14..... LDA VIC+16
;UEBERPRUEFEN,..... AND #128 ;OB
DAS LOE-..... BNE SPR.11 ;SCHEN EINES.
;... LDA VIC+14 ;ZEICHENS.Y... CMP #10
;NOETIG IST.I... BCC SPR.12.P... ;
..... SPR.11 LDA SPALTE..... CMP #40....
. BEQ SPR.12..... INC LOE.Z.B... LDA LOE
.Z.N... CMP #8..... BEQ SPR.13..... SPR.
12 JMP (INT.L)..... ;.. .. SPR.13 LDA #0
;ES WIRD.? .. STA LOE.Z ;UEBER
PRUEFT,.` .. LDA 204 ;OB DIE X- UND
.~ .. BNE SPR.15 ;Y-POSITION.. .. ;
;DES CURSORS.C .. LDA 21
4 ;UND DIE DES.. .. CMP ZEILE ;Z
U LOESCHEN-..!.. BNE SPR.15 ;DEN ZEICH
ENS.$!.. LDA 211 ;UEBEREINSTIM-.E!.
. DEC ;MEN. IST DIES.E!.. CMP S
PALTE ;SO, MUSS DER..! . BEQ SPR.14
;CURSOR KURZ..!!. LDA 213 ;AUSGESCH
ALTET..!". CMP #39 ;WERDEN.O!#. BEQ
SPR.15..!$. LDA 211..!%. CMP #40..!&. B
CC SPR.15.."'. LDA 211.."(. DEC.."). SEC
.%"*. SBC #40.5"+. CMP SPALTE.E",. BNE S
PR.15.L"-. ;._".. SPR.14 LDA #0.L"/. STA
207.U"0. INC.."1. STA 204.."2. ;.."3. S
PR.15 LDA #32 ;LOESCHEN DES.L"4. LD
Y SPALTE ;ZEICHENS.."5. STA (BILD.L),Y
.."6. INC SPALTE..#7. JMP (INT.L)..#8. ;
.0#9. ENDE LDA #0 ;DER CHAR-KIL-
.O#:. STA AN ;LER HAT DEN.O#;. STA
SPALTE ;RECHTEN RAND..#<. STA ZAEH.H
;ERREICHT UND..#=. STA LOE.Z ;WIRD
ABGE-.I#>. LDA #8 ;SCHALTET.Y#?. S
TA VIC+14..#@. LDA VIC+16..#A. AND #127.
.$B. STA VIC+16..$C. LDA #128.%$D. STA S
ID+18.5$E. JSR ZUFALL.B$F. LDA ZUF.K$G.
LSR.T$H. LSR.A$I. STA ZUF.R$J. JMP (INT.
L).Y$K. ;. $L. ZUFALL LDA SID+27 ;UNTE
RROUTINE..$M. STA ZUF ;ZUR BERECH-.
.$N. CMP #250 ;NUNG EINER..$O. BCS Z
UFALL ;ZUFALLSZAHL..%P. LDX #0 ;
ZWISCHEN 0.;%Q. LOOP.6 LDA ZUF ;UND
24.H%R. CMP #10.X%S. BCC SPR.16.A%T. SE
C.N%U. LDA ZUF.{%V. SBC #10..%W. STA ZUF
..%X. INX..%Y. JMP LOOP.6..%Z. SPR.16 ST
X ZUF..%[. RTS.E%\. ;..%]. SPRITE .0,0,0
,0,0,0,0,0,0,0,0,0,0..&^. .120,0,0,252,0
,1,254,0,3.(&_. .240,0,3,224,0,3,224,0,3
.F&`. .248,0,1,254,0,0,252,0,0.D&A. .120
,0,0,0,0,0,0,0,0,0,0..&B. .0,0,0,0,0,0,0
,0,0,0,0,0..&C. ;..&D. TEXT .17,"READY
. (TO KILL!)",145..&E. ;..&F. CBM80 .23
5,157,20,158,195,194,205..&G. .56,48..&H
. ;..'I. ; --- ENDE ---...
> CLICK IMAGE PREVIEW FOR FULL MODAL