SRC.MAIN
FILE INFORMATION
FILENAME(S): SRC.MAIN
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-11-30 01:13:08
APPEARS ON: 1 disk(s)
FILE HASH
c01e2b0a20a349ead62a1323ab0d154236fe4a30a709a80fadea3258935045be
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15830 SEITE B | SRC.MAIN | PRG | C64er | 5 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 42 08 69 00 3B 20 41 42 47 45 54 49 50 50 |..B.i.; ABGETIPP|
00000010: 54 2F 55 45 42 45 52 41 52 42 45 49 54 45 54 2F |T/UEBERARBEITET/|
00000020: 4B 4F 4D 4D 45 4E 54 49 45 52 54 20 56 4F 4E 20 |KOMMENTIERT VON |
00000030: 4E 2E 48 45 55 53 4C 45 52 2C 20 31 39 2E 34 2E |N.HEUSLER, 19.4.|
00000040: 38 38 00 69 08 6A 00 3B 20 2A 2A 2A 2A 2A 2A 2A |88.i.j.; *******|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 21 21 20 2A |*********** !! *|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BA 08 6B 00 3B 20 |*********...k.; |
00000070: 42 49 54 54 45 20 5A 45 49 4C 45 20 31 30 35 20 |BITTE ZEILE 105 |
00000080: 55 4E 42 45 44 49 4E 47 54 20 49 4D 20 4C 49 53 |UNBEDINGT IM LIS|
00000090: 54 49 4E 47 20 4C 41 53 53 53 45 4E 20 55 4E 44 |TING LASSSEN UND|
000000A0: 20 5A 45 49 4C 45 4E 20 31 30 36 2D 31 30 38 20 | ZEILEN 106-108 |
000000B0: 4C 4F 45 53 43 48 45 4E 20 21 00 E1 08 6C 00 3B |LOESCHEN !...l.;|
000000C0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000000D0: 2A 2A 2A 20 21 21 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |*** !! *********|
000000E0: 2A 00 F2 08 6E 00 20 2E 45 51 56 20 3D 35 33 32 |*...n. .EQV =532|
000000F0: 34 38 00 12 09 78 00 20 4A 53 52 49 4E 49 54 49 |48...x. JSRINITI|
00000100: 41 4C 20 3B 20 41 44 52 45 53 53 45 4E 20 49 4E |AL ; ADRESSEN IN|
00000110: 49 54 00 31 09 82 00 20 4A 53 52 49 52 51 20 20 |IT.1... JSRIRQ |
00000120: 20 20 20 3B 20 49 52 51 20 55 4D 4C 45 4E 4B 45 | ; IRQ UMLENKE|
00000130: 4E 00 4A 09 8C 00 20 52 54 53 20 20 20 20 20 20 |N.J... RTS |
00000140: 20 20 3B 20 46 45 52 54 49 47 00 6F 09 96 00 53 | ; FERTIG.o...S|
00000150: 45 54 53 50 52 49 54 45 20 4C 44 41 23 31 33 30 |ETSPRITE LDA#130|
00000160: 20 3B 20 53 50 52 49 54 45 20 30 20 41 55 46 00 | ; SPRITE 0 AUF.|
00000170: 94 09 A0 00 20 53 54 41 56 20 20 20 20 20 20 20 |.... STAV |
00000180: 3B 20 50 4F 53 49 54 49 4F 4E 20 28 31 33 30 2F |; POSITION (130/|
00000190: 31 31 34 29 00 A1 09 AA 00 20 4C 44 41 23 31 31 |114)..... LDA#11|
000001A0: 34 00 AD 09 B4 00 20 53 54 41 56 2B 31 00 B8 09 |4..... STAV+1...|
000001B0: BE 00 20 4C 44 41 23 30 00 C5 09 C8 00 20 53 54 |.. LDA#0..... ST|
000001C0: 41 56 2B 31 36 00 D2 09 D2 00 20 53 54 41 56 2B |AV+16..... STAV+|
000001D0: 32 39 00 DF 09 DC 00 20 53 54 41 56 2B 32 33 00 |29..... STAV+23.|
000001E0: F5 09 E1 00 20 4C 44 41 23 32 20 20 20 20 20 20 |.... LDA#2 |
000001F0: 3B 20 52 4F 54 00 0E 0A E6 00 20 53 54 41 56 2B |; ROT..... STAV+|
00000200: 33 39 20 20 20 20 3B 20 53 45 54 5A 45 4E 00 26 |39 ; SETZEN.&|
00000210: 0A F0 00 20 4C 44 41 23 35 20 20 20 20 20 20 3B |... LDA#5 ;|
00000220: 20 47 52 55 45 4E 00 44 0A FA 00 20 53 54 41 56 | GRUEN.D... STAV|
00000230: 2B 33 37 20 20 20 20 3B 20 4D 55 4C 54 49 43 4F |+37 ; MULTICO|
00000240: 4C 4F 52 31 00 64 0A 04 01 20 4C 44 41 23 33 32 |LOR1.d... LDA#32|
00000250: 20 20 20 20 20 3B 20 53 50 52 49 54 45 50 4F 49 | ; SPRITEPOI|
00000260: 4E 54 45 52 00 71 0A 0E 01 20 53 54 41 32 30 34 |NTER.q... STA204|
00000270: 30 00 91 0A 18 01 20 4C 44 41 23 31 20 20 20 20 |0..... LDA#1 |
00000280: 20 20 3B 20 4D 55 4C 54 49 43 4F 4C 4F 52 20 41 | ; MULTICOLOR A|
00000290: 4E 00 9E 0A 22 01 20 53 54 41 56 2B 32 38 00 BA |N...". STAV+28..|
000002A0: 0A 2C 01 20 53 54 41 56 2B 32 31 20 20 20 20 3B |.,. STAV+21 ;|
000002B0: 20 53 50 52 49 54 45 20 41 4E 00 C3 0A 36 01 20 | SPRITE AN...6. |
000002C0: 52 54 53 00 D5 0A 40 01 41 4E 49 4D 41 54 49 4F |RTS...@.ANIMATIO|
000002D0: 4E 20 52 54 53 00 EC 0A 4A 01 3B 20 49 4E 20 44 |N RTS...J.; IN D|
000002E0: 49 45 53 45 4E 20 5A 45 49 4C 45 4E 00 00 0B 54 |IESEN ZEILEN...T|
000002F0: 01 3B 20 53 54 45 48 54 20 53 50 41 45 54 45 52 |.; STEHT SPAETER|
00000300: 00 18 0B 5E 01 3B 20 44 41 53 20 55 4E 54 45 52 |...^.; DAS UNTER|
00000310: 50 52 4F 47 52 41 4D 4D 00 2F 0B 68 01 3B 20 46 |PROGRAMM./.h.; F|
00000320: 55 45 52 20 44 49 45 20 53 50 52 49 54 45 2D 00 |UER DIE SPRITE-.|
00000330: 3F 0B 72 01 3B 20 41 4E 49 4D 41 54 49 4F 4E 00 |?.r.; ANIMATION.|
00000340: 65 0B 58 02 49 4E 49 54 49 41 4C 20 4C 44 41 23 |e.X.INITIAL LDA#|
00000350: 33 39 20 3B 20 44 41 54 45 4E 20 46 55 45 52 20 |39 ; DATEN FUER |
00000360: 53 50 52 2E 30 00 84 0B 62 02 20 53 54 41 32 30 |SPR.0...b. STA20|
00000370: 34 30 20 20 20 20 3B 20 41 55 53 20 42 4C 4F 43 |40 ; AUS BLOC|
00000380: 4B 20 33 39 00 9B 0B 6C 02 20 4C 44 41 23 30 20 |K 39...l. LDA#0 |
00000390: 20 20 20 20 20 3B 20 4E 55 4C 4C 00 C8 0B 8A 02 | ; NULL.....|
000003A0: 20 53 54 41 36 35 20 20 20 20 20 20 3B 20 4C 42 | STA65 ; LB|
000003B0: 20 56 4F 4E 20 47 52 41 46 49 4B 50 4F 49 4E 54 | VON GRAFIKPOINT|
000003C0: 45 52 20 41 55 46 20 30 00 E5 0B 94 02 20 53 54 |ER AUF 0..... ST|
000003D0: 41 47 41 4D 45 20 20 20 20 3B 20 53 50 49 45 4C |AGAME ; SPIEL|
000003E0: 53 54 41 4E 44 00 08 0C 9E 02 20 4C 44 41 23 37 |STAND..... LDA#7|
000003F0: 20 20 20 20 20 20 3B 20 53 4F 46 54 53 43 52 4F | ; SOFTSCRO|
00000400: 4C 4C 5A 45 49 47 45 52 00 25 0C A8 02 20 53 54 |LLZEIGER.%... ST|
00000410: 41 32 20 20 20 20 20 20 20 3B 20 41 55 46 20 53 |A2 ; AUF S|
00000420: 49 45 42 45 4E 00 4C 0C B2 02 20 4C 44 41 23 32 |IEBEN.L... LDA#2|
00000430: 30 30 20 20 20 20 3B 20 56 45 52 5A 2E 20 4E 41 |00 ; VERZ. NA|
00000440: 43 48 20 53 50 49 45 4C 45 4E 44 45 00 6A 0C BC |CH SPIELENDE.j..|
00000450: 02 20 53 54 41 44 45 4C 41 59 20 20 20 3B 20 32 |. STADELAY ; 2|
00000460: 30 30 2F 32 35 20 53 45 4B 2E 00 93 0C C6 02 20 |00/25 SEK...... |
00000470: 4C 44 41 23 24 37 30 20 20 20 20 3B 20 48 49 47 |LDA#$70 ; HIG|
00000480: 48 20 56 4F 4E 20 47 52 41 46 49 4B 50 4F 49 4E |H VON GRAFIKPOIN|
00000490: 54 45 52 00 AD 0C D0 02 20 53 54 41 36 36 20 20 |TER..... STA66 |
000004A0: 20 20 20 20 3B 20 41 55 46 20 24 37 30 00 CE 0C | ; AUF $70...|
000004B0: DA 02 20 4C 44 41 23 3C 28 31 31 34 34 29 20 20 |.. LDA#<(1144) |
000004C0: 3B 20 50 4F 49 4E 54 45 52 20 46 55 45 52 00 F0 |; POINTER FUER..|
000004D0: 0C E4 02 20 53 54 41 36 37 20 20 20 20 20 20 3B |... STA67 ;|
000004E0: 20 42 49 4C 44 53 43 48 2E 20 47 52 41 46 49 4B | BILDSCH. GRAFIK|
000004F0: 00 16 0D EE 02 20 4C 44 41 23 3E 28 31 31 34 34 |..... LDA#>(1144|
00000500: 29 20 20 3B 20 49 4E 20 36 37 2F 36 38 20 41 55 |) ; IN 67/68 AU|
00000510: 46 20 31 31 34 34 00 21 0D F8 02 20 53 54 41 36 |F 1144.!... STA6|
00000520: 38 00 39 0D 02 03 20 4C 44 41 23 35 20 20 20 20 |8.9... LDA#5 |
00000530: 20 20 3B 20 46 55 45 4E 46 00 72 0D 04 03 20 53 | ; FUENF.r... S|
00000540: 54 41 35 33 32 38 31 20 20 20 3B 20 44 41 4D 49 |TA53281 ; DAMI|
00000550: 54 27 53 20 41 55 46 20 41 4C 54 45 4E 20 36 34 |T'S AUF ALTEN 64|
00000560: 27 45 52 4E 20 4C 41 45 55 46 54 20 21 20 28 4E |'ERN LAEUFT ! (N|
00000570: 48 29 00 A0 0D 0C 03 20 53 54 41 36 34 36 20 20 |H)..... STA646 |
00000580: 20 20 20 3B 20 55 4E 44 20 41 55 46 20 4E 45 55 | ; UND AUF NEU|
00000590: 45 4E 20 28 43 55 52 53 4F 52 46 41 52 42 45 29 |EN (CURSORFARBE)|
000005A0: 00 D3 0D 16 03 20 4A 53 52 24 45 35 34 34 20 20 |..... JSR$E544 |
000005B0: 20 3B 20 44 45 4E 4E 20 44 49 45 53 45 20 53 43 | ; DENN DIESE SC|
000005C0: 4E 53 4C 52 20 52 4F 55 54 49 4E 45 20 47 49 42 |NSLR ROUTINE GIB|
000005D0: 54 27 53 00 EC 0D 18 03 3B 20 49 4E 20 32 20 41 |T'S.....; IN 2 A|
000005E0: 55 53 46 55 45 48 52 55 4E 47 45 4E 00 FA 0D 20 |USFUEHRUNGEN... |
000005F0: 03 20 4C 44 41 35 33 32 37 30 00 21 0E 2A 03 20 |. LDA53270.!.*. |
00000600: 41 4E 44 23 32 34 37 20 20 20 20 3B 20 33 38 20 |AND#247 ; 38 |
00000610: 5A 45 49 43 48 45 4E 20 50 52 4F 20 5A 45 49 4C |ZEICHEN PRO ZEIL|
00000620: 45 00 2F 0E 34 03 20 53 54 41 35 33 32 37 30 00 |E./.4. STA53270.|
00000630: 54 0E 3E 03 20 4A 53 52 52 41 4D 53 43 52 45 45 |T.>. JSRRAMSCREE|
00000640: 4E 20 3B 20 47 52 41 46 49 4B 20 2D 3E 20 53 43 |N ; GRAFIK -> SC|
00000650: 48 49 52 4D 00 6B 0E 48 03 20 4A 53 52 53 45 54 |HIRM.k.H. JSRSET|
00000660: 53 50 52 49 54 45 20 3B 20 41 4E 00 89 0E 4A 03 |SPRITE ; AN...J.|
00000670: 20 4C 44 41 23 30 20 20 20 20 20 20 3B 20 54 49 | LDA#0 ; TI|
00000680: 45 46 53 43 48 57 41 52 5A 00 A2 0E 4C 03 20 53 |EFSCHWARZ...L. S|
00000690: 54 41 35 33 32 38 30 20 20 20 3B 20 52 41 48 4D |TA53280 ; RAHM|
000006A0: 45 4E 00 BA 0E 4E 03 20 53 54 41 35 33 32 38 31 |EN...N. STA53281|
000006B0: 20 20 20 3B 20 47 52 55 4E 44 00 EC 0E 52 03 20 | ; GRUND...R. |
000006C0: 4C 44 41 35 33 32 37 39 20 20 20 3B 20 4C 4F 45 |LDA53279 ; LOE|
000006D0: 53 43 48 45 4E 20 4B 4F 4C 4C 49 53 49 4F 4E 20 |SCHEN KOLLISION |
000006E0: 53 50 52 49 54 45 2D 47 52 55 4E 44 00 05 0F 5C |SPRITE-GRUND...\|
000006F0: 03 20 52 54 53 20 20 20 20 20 20 20 20 3B 20 46 |. RTS ; F|
00000700: 45 52 54 49 47 00 2B 0F 66 03 44 45 4C 41 59 20 |ERTIG.+.f.DELAY |
00000710: 42 52 4B 20 20 3B 20 56 45 52 5A 4F 45 47 45 52 |BRK ; VERZOEGER|
00000720: 55 4E 47 53 5A 41 45 48 4C 45 52 00 44 0F 70 03 |UNGSZAEHLER.D.p.|
00000730: 49 52 51 20 53 45 49 20 20 20 20 3B 20 49 52 51 |IRQ SEI ; IRQ|
00000740: 20 41 55 53 00 4F 0F 7A 03 3B 20 48 49 45 52 00 | AUS.O.z.; HIER.|
00000750: 5B 0F 84 03 3B 20 53 54 45 48 54 00 69 0F 8E 03 |[...; STEHT.i...|
00000760: 3B 20 52 4F 55 54 49 4E 45 00 78 0F 98 03 3B 20 |; ROUTINE.x...; |
00000770: 46 55 45 52 20 44 49 45 00 89 0F A2 03 3B 20 49 |FUER DIE.....; I|
00000780: 4E 54 45 52 52 55 50 54 2D 00 9A 0F AC 03 3B 20 |NTERRUPT-.....; |
00000790: 47 45 53 54 45 55 45 52 54 45 00 B4 0F B6 03 3B |GESTEUERTE.....;|
000007A0: 20 4D 55 53 49 4B 20 28 53 50 41 45 54 45 52 20 | MUSIK (SPAETER |
000007B0: 4D 41 4C 29 00 CD 0F C0 03 20 4C 44 41 23 3C 28 |MAL)..... LDA#<(|
000007C0: 49 52 51 4E 45 55 29 20 3B 20 4C 4F 57 00 FD 0F |IRQNEU) ; LOW...|
000007D0: CA 03 20 53 54 41 24 33 31 34 20 20 20 20 3B 20 |.. STA$314 ; |
000007E0: 49 52 51 50 4F 49 4E 54 45 52 20 41 55 46 20 45 |IRQPOINTER AUF E|
000007F0: 49 47 45 4E 45 20 52 4F 55 54 49 4E 45 00 17 10 |IGENE ROUTINE...|
00000800: D4 03 20 4C 44 41 23 3E 28 49 52 51 4E 45 55 29 |.. LDA#>(IRQNEU)|
00000810: 20 3B 20 48 49 47 48 00 30 10 DE 03 20 53 54 41 | ; HIGH.0... STA|
00000820: 24 33 31 35 20 20 20 20 3B 20 53 45 54 5A 45 4E |$315 ; SETZEN|
00000830: 00 50 10 E8 03 20 4C 44 41 23 37 34 20 20 20 20 |.P... LDA#74 |
00000840: 3B 20 52 41 53 54 45 52 5A 45 49 4C 45 20 37 34 |; RASTERZEILE 74|
00000850: 00 70 10 F2 03 20 53 54 41 56 2B 24 31 32 20 20 |.p... STAV+$12 |
00000860: 3B 20 49 4E 53 20 52 41 53 54 45 52 52 45 47 2E |; INS RASTERREG.|
00000870: 00 97 10 FC 03 20 4C 44 41 56 2B 24 31 31 20 20 |..... LDAV+$11 |
00000880: 3B 20 48 49 47 48 42 59 54 45 20 44 45 52 20 52 |; HIGHBYTE DER R|
00000890: 41 2E 5A 45 49 4C 45 00 AC 10 06 04 20 41 4E 44 |A.ZEILE..... AND|
000008A0: 23 24 37 46 20 20 20 3B 20 41 55 53 00 BA 10 10 |#$7F ; AUS....|
000008B0: 04 20 53 54 41 56 2B 24 31 31 00 E3 10 1A 04 20 |. STAV+$11..... |
000008C0: 4C 44 41 23 24 38 31 20 20 20 3B 20 52 41 53 54 |LDA#$81 ; RAST|
000008D0: 45 52 5A 45 49 4C 45 4E 49 52 51 20 56 4F 4D 20 |ERZEILENIRQ VOM |
000008E0: 56 49 43 00 FD 10 24 04 20 53 54 41 56 2B 24 31 |VIC...$. STAV+$1|
000008F0: 41 20 20 3B 20 5A 55 4C 41 53 53 45 4E 00 31 11 |A ; ZULASSEN.1.|
00000900: 2E 04 20 43 4C 49 20 20 20 20 20 20 20 3B 20 53 |.. CLI ; S|
00000910: 4F 4E 53 54 20 47 45 48 54 27 53 20 4E 49 43 48 |ONST GEHT'S NICH|
00000920: 54 20 28 49 52 51 20 57 49 45 44 45 52 20 41 4E |T (IRQ WIEDER AN|
00000930: 29 00 49 11 38 04 20 52 54 53 20 20 20 20 20 20 |).I.8. RTS |
00000940: 20 3B 20 46 45 52 54 49 47 00 7B 11 42 04 47 41 | ; FERTIG.{.B.GA|
00000950: 4D 45 20 42 52 4B 20 20 3B 20 53 50 49 45 4C 53 |ME BRK ; SPIELS|
00000960: 54 41 4E 44 56 41 52 49 41 42 4C 45 20 28 41 4E |TANDVARIABLE (AN|
00000970: 46 41 4E 47 53 20 4E 55 4C 4C 29 00 98 11 4C 04 |FANGS NULL)...L.|
00000980: 4A 4F 59 41 42 20 4C 44 41 23 32 32 34 20 3B 20 |JOYAB LDA#224 ; |
00000990: 54 41 53 54 41 54 55 52 00 B4 11 56 04 20 53 54 |TASTATUR...V. ST|
000009A0: 41 35 36 33 32 32 20 20 3B 20 41 42 53 43 48 41 |A56322 ; ABSCHA|
000009B0: 4C 54 45 4E 00 CF 11 60 04 20 4C 44 41 35 36 33 |LTEN...`. LDA563|
000009C0: 32 30 20 20 3B 20 4A 4F 59 50 4F 52 54 20 32 00 |20 ; JOYPORT 2.|
000009D0: F5 11 6A 04 20 41 4E 44 23 31 20 20 20 20 20 3B |..j. AND#1 ;|
000009E0: 20 42 49 54 20 31 20 47 45 53 45 54 5A 54 20 54 | BIT 1 GESETZT T|
000009F0: 45 53 54 45 4E 00 1F 12 74 04 20 42 4E 45 4A 4F |ESTEN...t. BNEJO|
00000A00: 59 32 20 20 20 3B 20 4A 41 2C 20 44 41 4E 4E 20 |Y2 ; JA, DANN |
00000A10: 57 45 49 54 45 52 20 41 42 46 52 41 47 45 4E 00 |WEITER ABFRAGEN.|
00000A20: 49 12 7E 04 20 44 45 43 56 2B 31 20 20 20 20 3B |I.~. DECV+1 ;|
00000A30: 20 53 50 52 49 54 45 20 59 2D 50 4F 53 20 45 52 | SPRITE Y-POS ER|
00000A40: 4E 49 45 44 52 49 47 45 4E 00 5B 12 88 04 4A 4F |NIEDRIGEN.[...JO|
00000A50: 59 32 20 4C 44 41 35 36 33 32 30 00 79 12 92 04 |Y2 LDA56320.y...|
00000A60: 20 41 4E 44 23 32 20 20 20 20 20 3B 20 42 49 54 | AND#2 ; BIT|
00000A70: 20 32 20 54 45 53 54 45 4E 00 9A 12 9C 04 20 42 | 2 TESTEN..... B|
00000A80: 4E 45 4A 4F 59 33 20 20 20 3B 20 4A 41 2C 20 44 |NEJOY3 ; JA, D|
00000A90: 41 4E 4E 20 57 45 49 54 45 52 00 BF 12 A6 04 20 |ANN WEITER..... |
00000AA0: 49 4E 43 56 2B 31 20 20 20 20 3B 20 53 4F 4E 53 |INCV+1 ; SONS|
00000AB0: 54 20 53 50 52 49 54 45 20 53 45 4E 4B 45 4E 00 |T SPRITE SENKEN.|
00000AC0: D1 12 B0 04 4A 4F 59 33 20 4C 44 41 35 36 33 32 |....JOY3 LDA5632|
00000AD0: 30 00 EF 12 BA 04 20 41 4E 44 23 34 20 20 20 20 |0..... AND#4 |
00000AE0: 20 3B 20 42 49 54 20 33 20 54 45 53 54 45 4E 00 | ; BIT 3 TESTEN.|
00000AF0: 0B 13 C4 04 20 42 4E 45 4A 4F 59 34 20 20 20 3B |.... BNEJOY4 ;|
00000B00: 20 4A 41 2C 20 57 45 49 54 45 52 00 36 13 CE 04 | JA, WEITER.6...|
00000B10: 20 4C 44 41 56 20 20 20 20 20 20 3B 20 57 45 4E | LDAV ; WEN|
00000B20: 4E 20 44 49 45 20 58 2D 50 4F 53 20 44 45 53 20 |N DIE X-POS DES |
00000B30: 53 50 52 49 54 45 00 57 13 D8 04 20 43 4D 50 23 |SPRITE.W... CMP#|
00000B40: 33 32 20 20 20 20 3B 20 47 52 4F 45 53 53 45 52 |32 ; GROESSER|
00000B50: 20 33 32 20 49 53 54 00 64 13 E2 04 20 42 45 51 | 32 IST.d... BEQ|
00000B60: 4A 4F 59 34 00 81 13 EC 04 20 44 45 43 56 20 20 |JOY4..... DECV |
00000B70: 20 20 20 20 3B 20 45 52 4E 49 45 44 52 49 47 45 | ; ERNIEDRIGE|
00000B80: 4E 00 93 13 F6 04 4A 4F 59 34 20 4C 44 41 35 36 |N.....JOY4 LDA56|
00000B90: 33 32 30 00 AA 13 00 05 20 41 4E 44 23 38 20 20 |320..... AND#8 |
00000BA0: 20 20 20 3B 20 42 49 54 20 34 00 C2 13 0A 05 20 | ; BIT 4..... |
00000BB0: 42 4E 45 4A 4F 59 35 20 20 20 3B 20 57 45 49 54 |BNEJOY5 ; WEIT|
00000BC0: 45 52 00 EB 13 14 05 20 4C 44 41 56 20 20 20 20 |ER..... LDAV |
00000BD0: 20 20 3B 20 57 45 4E 4E 20 58 2D 50 4F 53 20 56 | ; WENN X-POS V|
00000BE0: 4F 4E 20 53 50 52 49 54 45 20 30 00 0C 14 1E 05 |ON SPRITE 0.....|
00000BF0: 20 43 4D 50 23 32 35 35 20 20 20 3B 20 4B 4C 45 | CMP#255 ; KLE|
00000C00: 49 4E 45 52 20 32 35 35 20 49 53 54 00 29 14 28 |INER 255 IST.).(|
00000C10: 05 20 42 45 51 4A 4F 59 35 20 20 20 3B 20 44 41 |. BEQJOY5 ; DA|
00000C20: 4E 4E 20 57 45 49 54 45 52 00 49 14 32 05 20 49 |NN WEITER.I.2. I|
00000C30: 4E 43 56 20 20 20 20 20 20 3B 20 58 2D 50 4F 53 |NCV ; X-POS|
00000C40: 20 45 52 48 4F 45 48 45 4E 00 65 14 3C 05 4A 4F | ERHOEHEN.e.<.JO|
00000C50: 59 35 20 4C 44 41 23 32 35 35 20 3B 20 54 41 53 |Y5 LDA#255 ; TAS|
00000C60: 54 41 54 55 52 00 7A 14 46 05 20 53 54 41 35 36 |TATUR.z.F. STA56|
00000C70: 33 32 32 20 20 3B 20 45 49 4E 00 95 14 50 05 20 |322 ; EIN...P. |
00000C80: 52 54 53 20 20 20 20 20 20 20 3B 20 47 45 53 43 |RTS ; GESC|
00000C90: 48 41 46 46 54 00 C0 14 5A 05 52 41 4D 53 43 52 |HAFFT...Z.RAMSCR|
00000CA0: 45 45 4E 20 4C 44 58 23 30 20 3B 20 31 33 20 4D |EEN LDX#0 ; 13 M|
00000CB0: 41 4C 20 28 41 4E 5A 2E 20 5A 45 49 4C 45 4E 29 |AL (ANZ. ZEILEN)|
00000CC0: 00 E0 14 64 05 52 41 4D 53 43 52 4C 31 20 4C 44 |...d.RAMSCRL1 LD|
00000CD0: 59 23 30 20 3B 20 34 30 20 5A 45 49 43 48 45 4E |Y#0 ; 40 ZEICHEN|
00000CE0: 00 FD 14 6E 05 52 41 4D 53 43 52 4C 32 20 4C 44 |...n.RAMSCRL2 LD|
00000CF0: 41 28 36 35 29 2C 59 20 3B 20 41 55 53 00 20 15 |A(65),Y ; AUS. .|
00000D00: 78 05 20 53 54 41 28 36 37 29 2C 59 20 3B 20 44 |x. STA(67),Y ; D|
00000D10: 45 4D 20 47 52 41 46 49 4B 42 45 52 45 49 43 48 |EM GRAFIKBEREICH|
00000D20: 00 35 15 82 05 20 49 4E 59 20 20 20 20 20 20 20 |.5... INY |
00000D30: 3B 20 5A 55 4D 00 51 15 8C 05 20 43 50 59 23 34 |; ZUM.Q... CPY#4|
00000D40: 30 20 20 20 20 3B 20 42 49 4C 44 53 43 48 49 52 |0 ; BILDSCHIR|
00000D50: 4D 00 71 15 96 05 20 42 4E 45 52 41 4D 53 43 52 |M.q... BNERAMSCR|
00000D60: 4C 32 20 3B 20 54 52 41 4E 46 45 52 49 45 52 45 |L2 ; TRANFERIERE|
00000D70: 4E 00 7C 15 A0 05 20 49 4E 43 36 36 00 9E 15 AA |N.|... INC66....|
00000D80: 05 20 49 4E 43 36 36 20 20 20 20 20 3B 20 47 52 |. INC66 ; GR|
00000D90: 41 46 49 4B 56 45 4B 54 4F 52 20 49 53 54 00 A9 |AFIKVEKTOR IST..|
00000DA0: 15 B4 05 20 4C 44 41 36 37 00 CA 15 BE 05 20 43 |... LDA67..... C|
00000DB0: 4C 43 20 20 20 20 20 20 20 3B 20 49 4E 20 44 45 |LC ; IN DE|
00000DC0: 52 20 5A 45 52 4F 50 41 47 45 00 D6 15 C8 05 20 |R ZEROPAGE..... |
00000DD0: 41 44 43 23 34 30 00 ED 15 D2 05 20 53 54 41 36 |ADC#40..... STA6|
00000DE0: 37 20 20 20 20 20 3B 20 36 35 2F 36 36 00 13 16 |7 ; 65/66...|
00000DF0: DC 05 20 4C 44 41 36 38 20 20 20 20 20 3B 20 42 |.. LDA68 ; B|
00000E00: 49 4C 44 53 43 48 49 52 4D 56 45 4B 54 4F 52 20 |ILDSCHIRMVEKTOR |
00000E10: 49 53 54 00 1E 16 E6 05 20 41 44 43 23 30 00 35 |IST..... ADC#0.5|
00000E20: 16 F0 05 20 53 54 41 36 38 20 20 20 20 20 3B 20 |... STA68 ; |
00000E30: 36 37 2F 36 38 00 3E 16 FA 05 20 49 4E 58 00 5F |67/68.>... INX._|
00000E40: 16 04 06 20 43 50 58 23 31 33 20 20 20 20 3B 20 |... CPX#13 ; |
00000E50: 53 43 48 4F 4E 20 31 33 20 5A 45 49 4C 45 4E 00 |SCHON 13 ZEILEN.|
00000E60: 77 16 0E 06 20 42 4E 45 52 41 4D 53 43 52 4C 31 |w... BNERAMSCRL1|
00000E70: 20 3B 20 4E 45 49 4E 00 95 16 18 06 20 4C 44 41 | ; NEIN..... LDA|
00000E80: 36 36 20 20 20 20 20 3B 20 47 52 41 46 49 4B 56 |66 ; GRAFIKV|
00000E90: 45 4B 54 4F 52 00 9E 16 22 06 20 53 45 43 00 AA |EKTOR...". SEC..|
00000EA0: 16 2C 06 20 53 42 43 23 32 36 00 B5 16 36 06 20 |.,. SBC#26...6. |
00000EB0: 53 54 41 36 36 00 D9 16 40 06 20 4C 44 41 23 3C |STA66...@. LDA#<|
00000EC0: 28 31 31 34 34 29 20 3B 20 42 49 4C 44 53 43 48 |(1144) ; BILDSCH|
00000ED0: 49 52 4D 56 45 4B 54 4F 52 00 E4 16 4A 06 20 53 |IRMVEKTOR...J. S|
00000EE0: 54 41 36 37 00 F5 16 54 06 20 4C 44 41 23 3E 28 |TA67...T. LDA#>(|
00000EF0: 31 31 34 34 29 00 19 17 5E 06 20 53 54 41 36 38 |1144)...^. STA68|
00000F00: 20 20 20 20 20 3B 20 42 45 49 44 45 20 52 45 53 | ; BEIDE RES|
00000F10: 54 41 55 52 49 45 52 45 4E 00 31 17 68 06 20 52 |TAURIEREN.1.h. R|
00000F20: 54 53 20 20 20 20 20 20 20 3B 20 46 45 52 54 49 |TS ; FERTI|
00000F30: 47 00 59 17 72 06 57 41 52 54 45 4E 20 4C 44 59 |G.Y.r.WARTEN LDY|
00000F40: 23 30 20 3B 20 54 45 58 54 20 31 20 49 4E 20 44 |#0 ; TEXT 1 IN D|
00000F50: 45 4E 20 53 43 48 49 52 4D 00 70 17 7C 06 57 41 |EN SCHIRM.p.|.WA|
00000F60: 52 54 45 4E 31 20 4C 44 41 54 45 58 54 31 2C 59 |RTEN1 LDATEXT1,Y|
00000F70: 00 7F 17 86 06 20 53 54 41 31 37 35 34 2C 59 00 |..... STA1754,Y.|
00000F80: A6 17 90 06 20 49 4E 59 20 20 20 20 20 20 20 3B |.... INY ;|
00000F90: 20 41 42 20 53 50 45 49 43 48 45 52 5A 45 4C 4C | AB SPEICHERZELL|
00000FA0: 45 20 31 37 35 34 00 C2 17 9A 06 20 43 50 59 23 |E 1754..... CPY#|
00000FB0: 32 30 20 20 20 20 3B 20 32 30 20 5A 45 49 43 48 |20 ; 20 ZEICH|
00000FC0: 45 4E 00 D2 17 A4 06 20 42 4E 45 57 41 52 54 45 |EN..... BNEWARTE|
00000FD0: 4E 31 00 EC 17 AE 06 20 4C 44 41 23 32 32 34 20 |N1..... LDA#224 |
00000FE0: 20 20 3B 20 54 41 53 54 41 54 55 52 00 01 18 B8 | ; TASTATUR....|
00000FF0: 06 20 53 54 41 35 36 33 32 32 20 20 3B 20 41 55 |. STA56322 ; AU|
00001000: 53 00 21 18 C2 06 20 4C 44 41 35 36 33 32 30 20 |S.!... LDA56320 |
00001010: 20 3B 20 4A 4F 59 53 54 49 43 4B 20 4C 45 53 45 | ; JOYSTICK LESE|
00001020: 4E 00 3F 18 CC 06 20 43 4D 50 23 31 31 31 20 20 |N.?... CMP#111 |
00001030: 20 3B 20 4B 4E 4F 50 46 20 54 45 53 54 45 4E 00 | ; KNOPF TESTEN.|
00001040: 5E 18 D6 06 20 42 4E 45 57 41 52 54 45 4E 45 4E |^... BNEWARTENEN|
00001050: 44 20 3B 20 4E 45 49 4E 2C 20 45 4E 44 45 00 78 |D ; NEIN, ENDE.x|
00001060: 18 E0 06 20 4C 44 41 23 32 35 35 20 20 20 3B 20 |... LDA#255 ; |
00001070: 54 41 53 54 41 54 55 52 00 8D 18 EA 06 20 53 54 |TASTATUR..... ST|
00001080: 41 35 36 33 32 32 20 20 3B 20 45 49 4E 00 B7 18 |A56322 ; EIN...|
00001090: F4 06 20 4C 44 59 23 30 20 20 20 20 20 3B 20 54 |.. LDY#0 ; T|
000010A0: 45 58 54 31 20 49 4D 20 53 43 48 49 52 4D 20 4C |EXT1 IM SCHIRM L|
000010B0: 4F 45 53 43 48 45 4E 00 E1 18 FE 06 20 4C 44 41 |OESCHEN..... LDA|
000010C0: 23 33 32 20 20 20 20 3B 20 3D 3D 20 4D 49 54 20 |#32 ; == MIT |
000010D0: 53 50 41 43 45 53 20 55 45 42 45 52 4D 41 4C 45 |SPACES UEBERMALE|
000010E0: 4E 00 F7 18 08 07 57 41 52 54 45 4E 32 20 53 54 |N.....WARTEN2 ST|
000010F0: 41 31 37 35 34 2C 59 00 00 19 12 07 20 49 4E 59 |A1754,Y..... INY|
00001100: 00 0C 19 1C 07 20 43 50 59 23 32 30 00 1C 19 26 |..... CPY#20...&|
00001110: 07 20 42 4E 45 57 41 52 54 45 4E 32 00 55 19 30 |. BNEWARTEN2.U.0|
00001120: 07 20 49 4E 43 47 41 4D 45 20 20 20 3B 20 53 50 |. INCGAME ; SP|
00001130: 49 45 4C 53 54 41 4E 44 20 41 55 46 20 27 53 50 |IELSTAND AUF 'SP|
00001140: 49 45 4C 20 47 45 53 54 41 52 54 45 54 27 20 53 |IEL GESTARTET' S|
00001150: 45 54 5A 45 4E 00 67 19 3A 07 57 41 52 54 45 4E |ETZEN.g.:.WARTEN|
00001160: 45 4E 44 20 52 54 53 00 95 19 44 07 54 45 58 54 |END RTS...D.TEXT|
00001170: 31 20 2E 42 59 38 2C 39 2C 32 30 2C 33 32 2C 32 |1 .BY8,9,20,32,2|
00001180: 30 2C 31 38 2C 39 2C 37 2C 37 2C 35 2C 31 38 2C |0,18,9,7,7,5,18,|
00001190: 33 32 2C 32 30 00 B1 19 49 07 20 2E 42 59 31 35 |32,20...I. .BY15|
000011A0: 2C 33 32 2C 31 39 2C 32 30 2C 31 2C 31 38 2C 32 |,32,19,20,1,18,2|
000011B0: 30 00 D2 19 4E 07 42 4F 49 4E 47 20 4C 44 59 23 |0...N.BOING LDY#|
000011C0: 30 20 3B 20 54 45 58 54 32 20 41 55 53 47 45 42 |0 ; TEXT2 AUSGEB|
000011D0: 45 4E 00 E5 19 58 07 42 4F 31 20 4C 44 41 54 45 |EN...X.BO1 LDATE|
000011E0: 58 54 32 2C 59 00 F4 19 62 07 20 53 54 41 31 37 |XT2,Y...b. STA17|
000011F0: 35 34 2C 59 00 FD 19 6C 07 20 49 4E 59 00 19 1A |54,Y...l. INY...|
00001200: 76 07 20 43 50 59 23 32 30 20 20 20 20 3B 20 32 |v. CPY#20 ; 2|
00001210: 30 20 5A 45 49 43 48 45 4E 00 25 1A 80 07 20 42 |0 ZEICHEN.%... B|
00001220: 4E 45 42 4F 31 00 41 1A 8A 07 20 44 45 43 44 45 |NEBO1.A... DECDE|
00001230: 4C 41 59 20 20 3B 20 57 41 52 54 45 4E 20 42 49 |LAY ; WARTEN BI|
00001240: 53 00 5F 1A 94 07 20 4C 44 41 44 45 4C 41 59 20 |S._... LDADELAY |
00001250: 20 3B 20 56 45 52 5A 4F 45 47 45 52 55 4E 47 00 | ; VERZOEGERUNG.|
00001260: 79 1A 9E 07 20 42 4E 45 42 4F 45 4E 44 20 20 3B |y... BNEBOEND ;|
00001270: 20 42 45 49 20 4E 55 4C 4C 00 84 1A A8 07 20 4C | BEI NULL..... L|
00001280: 44 59 23 30 00 A4 1A B2 07 20 4C 44 41 23 33 32 |DY#0..... LDA#32|
00001290: 20 20 20 20 3B 20 54 45 58 54 32 20 4C 4F 45 53 | ; TEXT2 LOES|
000012A0: 43 48 45 4E 00 B6 1A BC 07 42 4F 32 20 53 54 41 |CHEN.....BO2 STA|
000012B0: 31 37 35 34 2C 59 00 BF 1A C6 07 20 49 4E 59 00 |1754,Y..... INY.|
000012C0: CB 1A D0 07 20 43 50 59 23 32 30 00 D7 1A DA 07 |.... CPY#20.....|
000012D0: 20 42 4E 45 42 4F 32 00 FE 1A E4 07 20 4A 53 52 | BNEBO2..... JSR|
000012E0: 49 4E 49 54 49 41 4C 20 3B 20 41 4C 4C 45 53 20 |INITIAL ; ALLES |
000012F0: 4E 45 55 20 45 49 4E 53 54 45 4C 4C 45 4E 00 0C |NEU EINSTELLEN..|
00001300: 1B EE 07 42 4F 45 4E 44 20 52 54 53 00 3E 1B F8 |...BOEND RTS.>..|
00001310: 07 54 45 58 54 32 20 2E 42 59 32 35 2C 31 35 2C |.TEXT2 .BY25,15,|
00001320: 32 31 2C 31 38 2C 33 32 2C 31 33 2C 39 2C 31 39 |21,18,32,13,9,19|
00001330: 2C 31 39 2C 39 2C 31 35 2C 31 34 2C 33 32 00 56 |,19,9,15,14,32.V|
00001340: 1B FA 07 20 2E 42 59 36 2C 31 2C 39 2C 31 32 2C |... .BY6,1,9,12,|
00001350: 35 2C 34 2C 33 32 00 76 1B 02 08 4F 56 45 52 20 |5,4,32.v...OVER |
00001360: 4C 44 59 23 30 20 20 3B 20 54 45 58 54 20 33 20 |LDY#0 ; TEXT 3 |
00001370: 49 4E 20 44 45 4E 00 99 1B 0C 08 4F 56 45 52 4C |IN DEN.....OVERL|
00001380: 31 20 4C 44 41 54 45 58 54 33 2C 59 20 3B 20 42 |1 LDATEXT3,Y ; B|
00001390: 49 4C 44 53 43 48 49 52 4D 00 A8 1B 16 08 20 53 |ILDSCHIRM..... S|
000013A0: 54 41 31 37 35 34 2C 59 00 B1 1B 20 08 20 49 4E |TA1754,Y... . IN|
000013B0: 59 00 CF 1B 2A 08 20 43 50 59 23 32 30 20 20 20 |Y...*. CPY#20 |
000013C0: 20 20 20 3B 20 32 30 20 5A 45 49 43 48 45 4E 00 | ; 20 ZEICHEN.|
000013D0: F0 1B 34 08 20 42 4E 45 4F 56 45 52 4C 31 20 20 |..4. BNEOVERL1 |
000013E0: 20 3B 20 54 52 41 4E 53 46 45 52 49 45 52 45 4E | ; TRANSFERIEREN|
000013F0: 00 0E 1C 3E 08 20 44 45 43 44 45 4C 41 59 20 20 |...>. DECDELAY |
00001400: 20 20 3B 20 57 41 52 54 45 4E 20 42 49 53 00 2E | ; WARTEN BIS..|
00001410: 1C 48 08 20 4C 44 41 44 45 4C 41 59 20 20 20 20 |.H. LDADELAY |
00001420: 3B 20 56 45 52 5A 4F 45 47 45 52 55 4E 47 00 4A |; VERZOEGERUNG.J|
00001430: 1C 52 08 20 42 4E 45 4F 56 45 52 45 4E 44 20 20 |.R. BNEOVEREND |
00001440: 3B 20 4E 55 4C 4C 20 49 53 54 00 63 1C 5C 08 20 |; NULL IST.c.\. |
00001450: 4C 44 59 23 30 20 20 20 20 20 20 20 3B 20 54 45 |LDY#0 ; TE|
00001460: 58 54 33 00 81 1C 66 08 20 4C 44 41 23 33 32 20 |XT3...f. LDA#32 |
00001470: 20 20 20 20 20 3B 20 4D 49 54 20 53 50 41 43 45 | ; MIT SPACE|
00001480: 53 00 A3 1C 70 08 4F 56 45 52 4C 32 20 53 54 41 |S...p.OVERL2 STA|
00001490: 31 37 35 34 2C 59 20 3B 20 55 45 42 45 52 4D 41 |1754,Y ; UEBERMA|
000014A0: 4C 45 4E 00 AC 1C 7A 08 20 49 4E 59 00 B8 1C 84 |LEN...z. INY....|
000014B0: 08 20 43 50 59 23 32 30 00 C7 1C 8E 08 20 42 4E |. CPY#20..... BN|
000014C0: 45 4F 56 45 52 4C 32 00 FA 1C 98 08 20 4A 53 52 |EOVERL2..... JSR|
000014D0: 49 4E 49 54 49 41 4C 20 20 3B 20 41 4C 4C 45 53 |INITIAL ; ALLES|
000014E0: 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 20 | INITIALISIEREN |
000014F0: 28 4E 45 55 53 54 41 52 54 29 00 0A 1D A2 08 4F |(NEUSTART).....O|
00001500: 56 45 52 45 4E 44 20 52 54 53 00 3D 1D AC 08 54 |VEREND RTS.=...T|
00001510: 45 58 54 33 20 2E 42 59 32 35 2C 31 35 2C 32 31 |EXT3 .BY25,15,21|
00001520: 2C 33 32 2C 31 33 2C 31 2C 34 2C 35 2C 33 32 2C |,32,13,1,4,5,32,|
00001530: 39 2C 32 30 2C 34 34 2C 31 35 2C 31 32 00 6E 1D |9,20,44,15,12.n.|
00001540: AE 08 20 2E 42 59 34 2C 33 32 2C 32 2C 31 35 2C |.. .BY4,32,2,15,|
00001550: 32 35 2C 34 34 20 3B 20 54 45 58 54 20 49 4D 20 |25,44 ; TEXT IM |
00001560: 42 49 4C 44 53 43 48 49 52 4D 43 4F 44 45 00 94 |BILDSCHIRMCODE..|
00001570: 1D B6 08 53 43 52 4F 4C 4C 20 4C 44 41 32 20 3B |...SCROLL LDA2 ;|
00001580: 20 37 20 50 55 4E 4B 54 45 20 4E 41 43 48 20 4C | 7 PUNKTE NACH L|
00001590: 49 4E 4B 53 00 B6 1D C0 08 20 42 45 51 42 4C 4B |INKS..... BEQBLK|
000015A0: 53 43 52 4F 4C 4C 20 3B 20 48 41 52 44 53 43 52 |SCROLL ; HARDSCR|
000015B0: 4F 4C 4C 49 4E 47 00 DE 1D CA 08 20 44 45 43 32 |OLLING..... DEC2|
000015C0: 20 20 20 20 20 20 3B 20 45 49 4E 45 4E 20 50 55 | ; EINEN PU|
000015D0: 4E 4B 54 20 4E 41 43 48 20 4C 49 4E 4B 53 00 F8 |NKT NACH LINKS..|
000015E0: 1D D4 08 20 4C 44 41 36 35 20 20 20 20 20 3B 20 |... LDA65 ; |
000015F0: 41 42 46 52 41 47 45 4E 00 1F 1E DE 08 20 43 4D |ABFRAGEN..... CM|
00001600: 50 23 24 44 38 20 20 20 3B 20 4F 42 20 44 49 45 |P#$D8 ; OB DIE|
00001610: 20 47 52 41 46 49 4B 20 41 4D 20 45 4E 44 45 00 | GRAFIK AM ENDE.|
00001620: 2E 1E E8 08 20 42 4E 45 42 4C 4B 45 4E 44 00 4D |.... BNEBLKEND.M|
00001630: 1E F2 08 20 4C 44 41 36 36 20 20 20 20 20 3B 20 |... LDA66 ; |
00001640: 41 4E 47 45 4C 41 4E 47 54 20 49 53 54 00 6A 1E |ANGELANGT IST.j.|
00001650: FC 08 20 43 4D 50 23 24 37 31 20 20 20 3B 20 28 |.. CMP#$71 ; (|
00001660: 42 45 49 20 24 37 31 44 38 29 00 88 1E 06 09 20 |BEI $71D8)..... |
00001670: 42 4E 45 42 4C 4B 45 4E 44 20 3B 20 4E 45 49 4E |BNEBLKEND ; NEIN|
00001680: 2C 20 57 45 49 54 45 52 00 A8 1E 10 09 20 49 4E |, WEITER..... IN|
00001690: 43 47 41 4D 45 20 20 20 3B 20 47 41 4D 45 20 3D |CGAME ; GAME =|
000016A0: 20 47 41 4D 45 20 2B 32 00 B5 1E 1A 09 20 49 4E | GAME +2..... IN|
000016B0: 43 47 41 4D 45 00 C4 1E 24 09 42 4C 4B 45 4E 44 |CGAME...$.BLKEND|
000016C0: 20 52 54 53 00 F8 1E 2E 09 42 4C 4B 53 43 52 4F | RTS.....BLKSCRO|
000016D0: 4C 4C 20 4C 44 41 23 37 3B 20 53 50 45 49 43 48 |LL LDA#7; SPEICH|
000016E0: 45 52 53 54 45 4C 4C 45 20 46 55 45 52 20 53 4F |ERSTELLE FUER SO|
000016F0: 46 54 53 43 52 4F 4C 4C 00 14 1F 38 09 20 53 54 |FTSCROLL...8. ST|
00001700: 41 32 20 20 20 20 20 20 3B 20 41 55 46 20 53 49 |A2 ; AUF SI|
00001710: 45 42 45 4E 00 33 1F 42 09 20 4C 44 41 36 35 20 |EBEN.3.B. LDA65 |
00001720: 20 20 20 20 3B 20 47 52 41 46 49 4B 50 4F 49 4E | ; GRAFIKPOIN|
00001730: 54 45 52 00 49 1F 4C 09 20 43 4C 43 20 20 20 20 |TER.I.L. CLC |
00001740: 20 20 20 3B 20 55 4D 20 31 00 70 1F 56 09 20 41 | ; UM 1.p.V. A|
00001750: 44 43 23 31 20 20 20 20 20 3B 20 28 45 49 4E 46 |DC#1 ; (EINF|
00001760: 41 43 48 45 52 20 57 41 45 52 45 20 49 4E 43 29 |ACHER WAERE INC)|
00001770: 00 8A 1F 60 09 20 53 54 41 36 35 20 20 20 20 20 |...`. STA65 |
00001780: 3B 20 45 52 48 4F 45 48 45 4E 00 A4 1F 6A 09 20 |; ERHOEHEN...j. |
00001790: 4C 44 41 36 36 20 20 20 20 20 3B 20 48 49 47 48 |LDA66 ; HIGH|
000017A0: 42 59 54 45 00 D4 1F 74 09 20 41 44 43 23 30 20 |BYTE...t. ADC#0 |
000017B0: 20 20 20 20 3B 20 53 45 48 52 20 55 4D 53 54 41 | ; SEHR UMSTA|
000017C0: 45 4E 44 4C 49 43 48 20 50 52 4F 47 52 41 4D 4D |ENDLICH PROGRAMM|
000017D0: 49 45 52 54 00 DF 1F 7E 09 20 53 54 41 36 36 00 |IERT...~. STA66.|
000017E0: 0C 20 88 09 20 4A 53 52 52 41 4D 53 43 52 45 45 |. .. JSRRAMSCREE|
000017F0: 4E 20 3B 20 54 52 41 4E 53 46 45 52 52 4F 55 54 |N ; TRANSFERROUT|
00001800: 49 4E 45 20 41 55 46 52 55 46 45 4E 00 15 20 92 |INE AUFRUFEN.. .|
00001810: 09 20 52 54 53 00 38 20 9C 09 49 52 51 4E 45 55 |. RTS.8 ..IRQNEU|
00001820: 20 4C 44 41 56 2B 24 31 39 20 3B 20 49 52 51 2D | LDAV+$19 ; IRQ-|
00001830: 52 45 47 49 53 54 45 52 00 52 20 A6 09 20 53 54 |REGISTER.R .. ST|
00001840: 41 56 2B 24 31 39 20 20 3B 20 4C 4F 45 53 43 48 |AV+$19 ; LOESCH|
00001850: 45 4E 00 72 20 B0 09 20 42 4D 49 52 41 53 54 45 |EN.r .. BMIRASTE|
00001860: 52 20 3B 20 57 41 52 20 52 41 53 54 45 52 2D 49 |R ; WAR RASTER-I|
00001870: 52 51 00 8C 20 BA 09 20 4C 44 41 24 44 43 30 44 |RQ.. .. LDA$DC0D|
00001880: 20 20 3B 20 4E 4F 52 4D 41 4C 45 4E 00 AA 20 C4 | ; NORMALEN.. .|
00001890: 09 20 43 4C 49 20 20 20 20 20 20 20 3B 20 49 52 |. CLI ; IR|
000018A0: 51 20 5A 55 4C 41 53 53 45 4E 00 CD 20 CE 09 20 |Q ZULASSEN.. .. |
000018B0: 4A 4D 50 24 45 41 33 31 20 20 3B 20 5A 55 52 20 |JMP$EA31 ; ZUR |
000018C0: 53 59 53 54 45 4D 52 4F 55 54 49 4E 45 00 ED 20 |SYSTEMROUTINE.. |
000018D0: D8 09 52 41 53 54 45 52 20 4C 44 41 56 2B 24 31 |..RASTER LDAV+$1|
000018E0: 32 20 3B 20 52 41 53 54 45 52 49 52 51 00 0C 21 |2 ; RASTERIRQ..!|
000018F0: E2 09 20 43 4D 50 23 31 37 38 20 20 20 3B 20 42 |.. CMP#178 ; B|
00001900: 45 49 20 5A 45 49 4C 45 20 31 37 38 00 29 21 EC |EI ZEILE 178.)!.|
00001910: 09 20 42 43 53 5A 57 45 49 54 45 52 20 3B 20 4A |. BCSZWEITER ; J|
00001920: 41 2C 20 57 45 49 54 45 52 00 46 21 F6 09 20 4C |A, WEITER.F!.. L|
00001930: 44 41 35 33 32 37 30 20 20 3B 20 41 42 20 5A 45 |DA53270 ; AB ZE|
00001940: 49 4C 45 20 37 34 00 66 21 00 0A 20 41 4E 44 23 |ILE 74.f!.. AND#|
00001950: 32 34 38 20 20 20 3B 20 55 4D 20 44 45 4E 20 57 |248 ; UM DEN W|
00001960: 45 52 54 20 49 4E 00 87 21 0A 0A 20 4F 52 41 32 |ERT IN..!.. ORA2|
00001970: 20 20 20 20 20 20 3B 20 53 50 45 49 43 48 45 52 | ; SPEICHER|
00001980: 5A 45 4C 4C 45 20 32 00 B5 21 14 0A 20 53 54 41 |ZELLE 2..!.. STA|
00001990: 35 33 32 37 30 20 20 3B 20 4E 41 43 48 20 4C 49 |53270 ; NACH LI|
000019A0: 4E 4B 53 20 53 43 52 4F 4C 4C 45 4E 20 28 53 4D |NKS SCROLLEN (SM|
000019B0: 4F 4F 54 48 29 00 D2 21 1E 0A 20 4C 44 41 23 35 |OOTH)..!.. LDA#5|
000019C0: 20 20 20 20 20 3B 20 52 41 48 4D 45 4E 46 41 52 | ; RAHMENFAR|
000019D0: 42 45 00 E9 21 28 0A 20 53 54 41 35 33 32 38 30 |BE..!(. STA53280|
000019E0: 20 20 3B 20 47 52 55 45 4E 00 16 22 32 0A 20 4C | ; GRUEN.."2. L|
000019F0: 44 41 23 31 37 38 20 20 20 3B 20 4E 41 45 43 48 |DA#178 ; NAECH|
00001A00: 53 54 45 4E 20 49 52 51 20 42 45 49 20 5A 45 49 |STEN IRQ BEI ZEI|
00001A10: 4C 45 20 31 37 38 00 24 22 3C 0A 20 53 54 41 24 |LE 178.$"<. STA$|
00001A20: 44 30 31 32 00 40 22 46 0A 20 4A 4D 50 24 46 45 |D012.@"F. JMP$FE|
00001A30: 42 43 20 20 3B 20 49 52 51 20 46 45 52 54 49 47 |BC ; IRQ FERTIG|
00001A40: 00 65 22 50 0A 5A 57 45 49 54 45 52 20 4C 44 41 |.e"P.ZWEITER LDA|
00001A50: 35 33 32 37 30 20 3B 20 42 49 4C 44 53 43 48 49 |53270 ; BILDSCHI|
00001A60: 52 4D 20 41 42 00 80 22 5A 0A 20 41 4E 44 23 32 |RM AB.."Z. AND#2|
00001A70: 34 38 20 20 20 3B 20 5A 45 49 4C 45 20 31 37 38 |48 ; ZEILE 178|
00001A80: 00 A1 22 64 0A 20 4F 52 41 23 37 20 20 20 20 20 |.."d. ORA#7 |
00001A90: 3B 20 4E 4F 52 4D 41 4C 20 53 43 48 41 4C 54 45 |; NORMAL SCHALTE|
00001AA0: 4E 00 AF 22 6E 0A 20 53 54 41 35 33 32 37 30 00 |N.."n. STA53270.|
00001AB0: C8 22 78 0A 20 4C 44 41 23 30 20 20 20 20 20 3B |."x. LDA#0 ;|
00001AC0: 20 53 43 48 57 41 52 5A 00 E5 22 82 0A 20 53 54 | SCHWARZ..".. ST|
00001AD0: 41 35 33 32 38 30 20 20 3B 20 52 41 48 4D 45 4E |A53280 ; RAHMEN|
00001AE0: 46 41 52 42 45 00 01 23 8C 0A 20 4C 44 41 47 41 |FARBE..#.. LDAGA|
00001AF0: 4D 45 20 20 20 3B 20 53 50 49 45 4C 53 54 41 4E |ME ; SPIELSTAN|
00001B00: 44 00 2B 23 96 0A 20 42 4E 45 47 41 4D 45 31 20 |D.+#.. BNEGAME1 |
00001B10: 20 3B 20 4E 55 4C 4C 20 2D 20 4E 45 49 4E 2C 20 | ; NULL - NEIN, |
00001B20: 44 41 4E 4E 20 57 45 49 54 45 52 00 3A 23 A0 0A |DANN WEITER.:#..|
00001B30: 20 4A 53 52 57 41 52 54 45 4E 00 47 23 AA 0A 20 | JSRWARTEN.G#.. |
00001B40: 4A 4D 50 45 58 49 54 00 57 23 B4 0A 47 41 4D 45 |JMPEXIT.W#..GAME|
00001B50: 31 20 43 4D 50 23 31 00 73 23 BE 0A 20 42 4E 45 |1 CMP#1.s#.. BNE|
00001B60: 47 41 4D 45 32 20 20 3B 20 55 4E 47 4C 45 49 43 |GAME2 ; UNGLEIC|
00001B70: 48 20 31 00 8D 23 C8 0A 20 4A 53 52 53 43 52 4F |H 1..#.. JSRSCRO|
00001B80: 4C 4C 20 3B 20 53 43 52 4F 4C 4C 45 4E 00 A8 23 |LL ; SCROLLEN..#|
00001B90: D2 0A 20 4A 53 52 41 4E 49 4D 41 54 49 4F 4E 20 |.. JSRANIMATION |
00001BA0: 3B 20 53 50 52 49 54 45 00 C9 23 DC 0A 20 4A 53 |; SPRITE..#.. JS|
00001BB0: 52 4A 4F 59 41 42 20 20 3B 20 4A 4F 59 53 54 2E |RJOYAB ; JOYST.|
00001BC0: 20 41 42 46 52 41 47 45 4E 00 F7 23 E6 0A 20 4C | ABFRAGEN..#.. L|
00001BD0: 44 41 35 33 32 37 39 20 20 3B 20 53 50 52 49 54 |DA53279 ; SPRIT|
00001BE0: 45 2D 48 49 4E 54 45 52 47 52 55 4E 44 20 4B 4F |E-HINTERGRUND KO|
00001BF0: 4C 4C 49 53 49 4F 4E 00 1C 24 F0 0A 20 42 45 51 |LLISION..$.. BEQ|
00001C00: 4E 4F 42 4F 49 4E 47 20 3B 20 4B 45 49 4E 20 5A |NOBOING ; KEIN Z|
00001C10: 55 53 41 4D 4D 45 4E 53 54 4F 53 53 00 3D 24 FA |USAMMENSTOSS.=$.|
00001C20: 0A 20 49 4E 43 47 41 4D 45 20 20 20 3B 20 53 4F |. INCGAME ; SO|
00001C30: 4E 53 54 20 56 45 52 4D 45 52 4B 45 4E 00 5A 24 |NST VERMERKEN.Z$|
00001C40: 04 0B 4E 4F 42 4F 49 4E 47 20 4A 4D 50 45 58 49 |..NOBOING JMPEXI|
00001C50: 54 20 3B 20 46 45 52 54 49 47 00 75 24 0E 0B 47 |T ; FERTIG.u$..G|
00001C60: 41 4D 45 32 20 43 4D 50 23 32 20 3B 20 47 4C 45 |AME2 CMP#2 ; GLE|
00001C70: 49 43 48 20 32 00 9F 24 18 0B 20 42 4E 45 47 41 |ICH 2..$.. BNEGA|
00001C80: 4D 45 33 20 20 3B 20 49 4D 4D 45 52 20 4E 4F 43 |ME3 ; IMMER NOC|
00001C90: 48 20 4E 49 43 48 54 20 52 49 43 48 54 49 47 00 |H NICHT RICHTIG.|
00001CA0: C7 24 22 0B 20 4A 53 52 42 4F 49 4E 47 20 20 3B |.$". JSRBOING ;|
00001CB0: 20 5A 55 53 41 4D 4D 45 4E 53 54 4F 53 53 20 41 | ZUSAMMENSTOSS A|
00001CC0: 55 53 47 45 42 45 4E 00 D4 24 2C 0B 20 4A 4D 50 |USGEBEN..$,. JMP|
00001CD0: 45 58 49 54 00 E4 24 36 0B 47 41 4D 45 33 20 43 |EXIT..$6.GAME3 C|
00001CE0: 4D 50 23 33 00 0D 25 40 0B 20 42 4E 45 45 58 49 |MP#3..%@. BNEEXI|
00001CF0: 54 20 20 20 3B 20 41 55 43 48 20 4E 49 43 48 54 |T ; AUCH NICHT|
00001D00: 20 33 2C 20 44 41 4E 4E 20 45 4E 44 45 00 28 25 | 3, DANN ENDE.(%|
00001D10: 4A 0B 20 4A 53 52 4F 56 45 52 20 20 20 3B 20 53 |J. JSROVER ; S|
00001D20: 50 49 45 4C 45 4E 44 45 00 4E 25 54 0B 45 58 49 |PIELENDE.N%T.EXI|
00001D30: 54 20 4C 44 41 23 37 34 20 3B 20 4E 41 45 43 48 |T LDA#74 ; NAECH|
00001D40: 53 54 45 52 20 52 41 53 54 45 52 49 52 51 00 6C |STER RASTERIRQ.l|
00001D50: 25 5E 0B 20 53 54 41 56 2B 24 31 32 20 20 3B 20 |%^. STAV+$12 ; |
00001D60: 42 45 49 20 5A 45 49 4C 45 20 37 34 00 89 25 68 |BEI ZEILE 74..%h|
00001D70: 0B 20 4A 4D 50 24 46 45 42 43 20 20 3B 20 49 52 |. JMP$FEBC ; IR|
00001D80: 51 20 42 45 45 4E 44 45 4E 00 00 00 |Q BEENDEN... |
..B.I.; ABGETIPPT/UEBERARBEITET/KOMMENTI
ERT VON N.HEUSLER, 19.4.88.I.J.; *******
*********** !! **********...K.; BITTE ZE
ILE 105 UNBEDINGT IM LISTING LASSSEN UND
ZEILEN 106-108 LOESCHEN !...L.; *******
*********** !! **********...N. .EQV =532
48...X. JSRINITIAL ; ADRESSEN INIT.1...
JSRIRQ ; IRQ UMLENKEN.J... RTS
; FERTIG.O...SETSPRITE LDA#130 ; SPRIT
E 0 AUF... . STAV ; POSITION (130/
114)..... LDA#114..... STAV+1..... LDA#0
.E.H. STAV+16.R.R. STAV+29..... STAV+23.
.... LDA#2 ; ROT..... STAV+39 ;
SETZEN.&... LDA#5 ; GRUEN.D... STAV
+37 ; MULTICOLOR1.D... LDA#32 ; S
PRITEPOINTER.Q... STA2040..... LDA#1
; MULTICOLOR AN...". STAV+28...,. STAV
+21 ; SPRITE AN.C.6. RTS.U.@.ANIMATIO
N RTS...J.; IN DIESEN ZEILEN...T.; STEHT
SPAETER...^.; DAS UNTERPROGRAMM./.H.; F
UER DIE SPRITE-.?.R.; ANIMATION.E.X.INIT
IAL LDA#39 ; DATEN FUER SPR.0...B. STA20
40 ; AUS BLOCK 39...L. LDA#0 ; N
ULL.H... STA65 ; LB VON GRAFIKPOINT
ER AUF 0..... STAGAME ; SPIELSTAND...
.. LDA#7 ; SOFTSCROLLZEIGER.%... ST
A2 ; AUF SIEBEN.L... LDA#200 ;
VERZ. NACH SPIELENDE.J... STADELAY ; 2
00/25 SEK....F. LDA#$70 ; HIGH VON GR
AFIKPOINTER...P. STA66 ; AUF $70.N.
Z. LDA#<(1144) ; POINTER FUER..... STA6
7 ; BILDSCH. GRAFIK..... LDA#>(1144
) ; IN 67/68 AUF 1144.!... STA68.9... L
DA#5 ; FUENF.R... STA53281 ; DAMI
T'S AUF ALTEN 64'ERN LAEUFT ! (NH). ...
STA646 ; UND AUF NEUEN (CURSORFARBE)
.S... JSR$E544 ; DENN DIESE SCNSLR ROU
TINE GIBT'S.....; IN 2 AUSFUEHRUNGEN...
. LDA53270.!.*. AND#247 ; 38 ZEICHEN
PRO ZEILE./.4. STA53270.T.>. JSRRAMSCREE
N ; GRAFIK -> SCHIRM.K.H. JSRSETSPRITE ;
AN...J. LDA#0 ; TIEFSCHWARZ...L. S
TA53280 ; RAHMEN...N. STA53281 ; GRU
ND...R. LDA53279 ; LOESCHEN KOLLISION
SPRITE-GRUND...\. RTS ; FERTIG.+.
F.DELAY BRK ; VERZOEGERUNGSZAEHLER.D.P.
IRQ SEI ; IRQ AUS.O.Z.; HIER.[...; ST
EHT.I...; ROUTINE.X...; FUER DIE.....; I
NTERRUPT-.....; GESTEUERTE.....; MUSIK (
SPAETER MAL).M... LDA#<(IRQNEU) ; LOW...
J. STA$314 ; IRQPOINTER AUF EIGENE RO
UTINE...T. LDA#>(IRQNEU) ; HIGH.0... STA
$315 ; SETZEN.P... LDA#74 ; RASTER
ZEILE 74.P... STAV+$12 ; INS RASTERREG.
..... LDAV+$11 ; HIGHBYTE DER RA.ZEILE.
.... AND#$7F ; AUS..... STAV+$11.....
LDA#$81 ; RASTERZEILENIRQ VOM VIC...$.
STAV+$1A ; ZULASSEN.1... CLI ; S
ONST GEHT'S NICHT (IRQ WIEDER AN).I.8. R
TS ; FERTIG.{.B.GAME BRK ; SPIELS
TANDVARIABLE (ANFANGS NULL)...L.JOYAB LD
A#224 ; TASTATUR...V. STA56322 ; ABSCHA
LTEN.O.`. LDA56320 ; JOYPORT 2...J. AND
#1 ; BIT 1 GESETZT TESTEN...T. BNEJO
Y2 ; JA, DANN WEITER ABFRAGEN.I.~. DEC
V+1 ; SPRITE Y-POS ERNIEDRIGEN.[...JO
Y2 LDA56320.Y... AND#2 ; BIT 2 TESTE
N..... BNEJOY3 ; JA, DANN WEITER.....
INCV+1 ; SONST SPRITE SENKEN.Q...JOY3
LDA56320..... AND#4 ; BIT 3 TESTEN.
..D. BNEJOY4 ; JA, WEITER.6.N. LDAV
; WENN DIE X-POS DES SPRITE.W.X. CMP#
32 ; GROESSER 32 IST.D... BEQJOY4....
. DECV ; ERNIEDRIGEN.....JOY4 LDA56
320..... AND#8 ; BIT 4.B... BNEJOY5
; WEITER..... LDAV ; WENN X-POS V
ON SPRITE 0..... CMP#255 ; KLEINER 255
IST.).(. BEQJOY5 ; DANN WEITER.I.2. I
NCV ; X-POS ERHOEHEN.E.<.JOY5 LDA#2
55 ; TASTATUR.Z.F. STA56322 ; EIN...P.
RTS ; GESCHAFFT...Z.RAMSCREEN LDX#
0 ; 13 MAL (ANZ. ZEILEN)...D.RAMSCRL1 LD
Y#0 ; 40 ZEICHEN...N.RAMSCRL2 LDA(65),Y
; AUS. .X. STA(67),Y ; DEM GRAFIKBEREICH
.5... INY ; ZUM.Q... CPY#40 ; B
ILDSCHIRM.Q... BNERAMSCRL2 ; TRANFERIERE
N.|. . INC66..... INC66 ; GRAFIKVEKT
OR IST..... LDA67.J... CLC ; IN DE
R ZEROPAGE.V.H. ADC#40...R. STA67 ;
65/66..... LDA68 ; BILDSCHIRMVEKTOR
IST..... ADC#0.5... STA68 ; 67/68.>.
.. INX._... CPX#13 ; SCHON 13 ZEILEN.
W... BNERAMSCRL1 ; NEIN..... LDA66 ;
GRAFIKVEKTOR...". SEC...,. SBC#26...6.
STA66.Y.@. LDA#<(1144) ; BILDSCHIRMVEKTO
R...J. STA67...T. LDA#>(1144)...^. STA68
; BEIDE RESTAURIEREN.1.H. RTS
; FERTIG.Y.R.WARTEN LDY#0 ; TEXT 1 IN D
EN SCHIRM.P.|.WARTEN1 LDATEXT1,Y.... ST
A1754,Y..... INY ; AB SPEICHERZELL
E 1754.B... CPY#20 ; 20 ZEICHEN.R...
BNEWARTEN1..... LDA#224 ; TASTATUR....
. STA56322 ; AUS.!.B. LDA56320 ; JOYST
ICK LESEN.?.L. CMP#111 ; KNOPF TESTEN.
^.V. BNEWARTENEND ; NEIN, ENDE.X... LDA#
255 ; TASTATUR..... STA56322 ; EIN...
.. LDY#0 ; TEXT1 IM SCHIRM LOESCHEN.
.... LDA#32 ; == MIT SPACES UEBERMALE
N.....WARTEN2 STA1754,Y..... INY..... CP
Y#20...&. BNEWARTEN2.U.0. INCGAME ; SP
IELSTAND AUF 'SPIEL GESTARTET' SETZEN.G.
:.WARTENEND RTS...D.TEXT1 .BY8,9,20,32,2
0,18,9,7,7,5,18,32,20...I. .BY15,32,19,2
0,1,18,20.R.N.BOING LDY#0 ; TEXT2 AUSGEB
EN...X.BO1 LDATEXT2,Y...B. STA1754,Y...L
. INY...V. CPY#20 ; 20 ZEICHEN.%... B
NEBO1.A... DECDELAY ; WARTEN BIS._... L
DADELAY ; VERZOEGERUNG.Y... BNEBOEND ;
BEI NULL..... LDY#0..... LDA#32 ; TE
XT2 LOESCHEN.....BO2 STA1754,Y...F. INY.
K.P. CPY#20.W.Z. BNEBO2..... JSRINITIAL
; ALLES NEU EINSTELLEN.....BOEND RTS.>..
.TEXT2 .BY25,15,21,18,32,13,9,19,19,9,15
,14,32.V... .BY6,1,9,12,5,4,32.V...OVER
LDY#0 ; TEXT 3 IN DEN.....OVERL1 LDATEX
T3,Y ; BILDSCHIRM..... STA1754,Y... . IN
Y.O.*. CPY#20 ; 20 ZEICHEN...4. BNE
OVERL1 ; TRANSFERIEREN...>. DECDELAY
; WARTEN BIS...H. LDADELAY ; VERZOE
GERUNG.J.R. BNEOVEREND ; NULL IST.C.\.
LDY#0 ; TEXT3...F. LDA#32 ; M
IT SPACES...P.OVERL2 STA1754,Y ; UEBERMA
LEN...Z. INY..... CPY#20.G... BNEOVERL2.
.... JSRINITIAL ; ALLES INITIALISIEREN
(NEUSTART).....OVEREND RTS.=...TEXT3 .BY
25,15,21,32,13,1,4,5,32,9,20,44,15,12.N.
.. .BY4,32,2,15,25,44 ; TEXT IM BILDSCHI
RMCODE.....SCROLL LDA2 ; 7 PUNKTE NACH L
INKS..... BEQBLKSCROLL ; HARDSCROLLING..
.J. DEC2 ; EINEN PUNKT NACH LINKS..
.T. LDA65 ; ABFRAGEN..... CMP#$D8
; OB DIE GRAFIK AM ENDE..... BNEBLKEND.M
... LDA66 ; ANGELANGT IST.J... CMP#$
71 ; (BEI $71D8)..... BNEBLKEND ; NEIN
, WEITER..... INCGAME ; GAME = GAME +2
..... INCGAME.D.$.BLKEND RTS.....BLKSCRO
LL LDA#7; SPEICHERSTELLE FUER SOFTSCROLL
...8. STA2 ; AUF SIEBEN.3.B. LDA65
; GRAFIKPOINTER.I.L. CLC ; UM
1.P.V. ADC#1 ; (EINFACHER WAERE INC)
...`. STA65 ; ERHOEHEN...J. LDA66
; HIGHBYTE.T.T. ADC#0 ; SEHR UMSTA
ENDLICH PROGRAMMIERT...~. STA66.. .. JSR
RAMSCREEN ; TRANSFERROUTINE AUFRUFEN.. .
. RTS.8 ..IRQNEU LDAV+$19 ; IRQ-REGISTER
.R .. STAV+$19 ; LOESCHEN.R .. BMIRASTE
R ; WAR RASTER-IRQ.. .. LDA$DC0D ; NORM
ALEN.. D. CLI ; IRQ ZULASSEN.M N.
JMP$EA31 ; ZUR SYSTEMROUTINE.. X.RASTER
LDAV+$12 ; RASTERIRQ..!.. CMP#178 ; B
EI ZEILE 178.)!.. BCSZWEITER ; JA, WEITE
R.F!.. LDA53270 ; AB ZEILE 74.F!.. AND#
248 ; UM DEN WERT IN..!.. ORA2 ;
SPEICHERZELLE 2..!.. STA53270 ; NACH LI
NKS SCROLLEN (SMOOTH).R!.. LDA#5 ; R
AHMENFARBE..!(. STA53280 ; GRUEN.."2. L
DA#178 ; NAECHSTEN IRQ BEI ZEILE 178.$
"<. STA$D012.@"F. JMP$FEBC ; IRQ FERTIG
.E"P.ZWEITER LDA53270 ; BILDSCHIRM AB.."
Z. AND#248 ; ZEILE 178.."D. ORA#7
; NORMAL SCHALTEN.."N. STA53270.H"X. LDA
#0 ; SCHWARZ..".. STA53280 ; RAHMEN
FARBE..#.. LDAGAME ; SPIELSTAND.+#.. B
NEGAME1 ; NULL - NEIN, DANN WEITER.:# .
JSRWARTEN.G#.. JMPEXIT.W#..GAME1 CMP#1.
S#.. BNEGAME2 ; UNGLEICH 1..#H. JSRSCRO
LL ; SCROLLEN..#R. JSRANIMATION ; SPRITE
.I#.. JSRJOYAB ; JOYST. ABFRAGEN..#.. L
DA53279 ; SPRITE-HINTERGRUND KOLLISION.
.$.. BEQNOBOING ; KEIN ZUSAMMENSTOSS.=$.
. INCGAME ; SONST VERMERKEN.Z$..NOBOIN
G JMPEXIT ; FERTIG.U$..GAME2 CMP#2 ; GLE
ICH 2..$.. BNEGAME3 ; IMMER NOCH NICHT
RICHTIG.G$". JSRBOING ; ZUSAMMENSTOSS A
USGEBEN.T$,. JMPEXIT..$6.GAME3 CMP#3..%@
. BNEEXIT ; AUCH NICHT 3, DANN ENDE.(%
J. JSROVER ; SPIELENDE.N%T.EXIT LDA#74
; NAECHSTER RASTERIRQ.L%^. STAV+$12 ;
BEI ZEILE 74..%H. JMP$FEBC ; IRQ BEENDE
N...
> CLICK IMAGE PREVIEW FOR FULL MODAL