PAC-MAEN.QUELL
FILE INFORMATION
FILENAME(S): PAC-MAEN.QUELL
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 01:13:10
APPEARS ON: 1 disk(s)
FILE HASH
61c4a154727b9b1011e428dc55186252f70b5854fceae3f87d2b754e73398e1b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10912 SEITE A | PAC-MAEN.QUELL | PRG | C64er, DuncanTwain | 26 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0A 22 1F 22 64 00 2E 42 41 24 43 44 38 30 20 3B |."."d..BA$CD80 ;|
00000010: 3D 35 32 36 30 38 00 31 22 6E 00 2E 47 4C 20 4D |=52608.1"n..GL M|
00000020: 45 52 4B 31 3D 24 46 44 00 43 22 78 00 2E 47 4C |ERK1=$FD.C"x..GL|
00000030: 20 4D 45 52 4B 32 3D 24 46 45 00 55 22 7D 00 2E | MERK2=$FE.U"}..|
00000040: 47 4C 20 4D 45 52 4B 33 3D 24 42 36 00 5B 22 82 |GL MERK3=$B6.[".|
00000050: 00 3B 00 6C 22 8C 00 3B 2D 2D 2D 43 4F 50 59 2D |.;.l"..;---COPY-|
00000060: 2D 2D 2D 00 7B 22 96 00 43 4F 50 59 20 4C 44 59 |---.{"..COPY LDY|
00000070: 23 30 00 89 22 A0 00 20 53 54 59 35 33 32 38 30 |#0..".. STY53280|
00000080: 00 97 22 AA 00 20 53 54 59 35 33 32 38 31 00 9D |..".. STY53281..|
00000090: 22 B4 00 3B 00 BC 22 BE 00 4C 4F 4F 50 34 20 4C |"..;.."..LOOP4 L|
000000A0: 44 41 24 30 34 30 30 2C 59 3B 56 4F 4D 20 42 49 |DA$0400,Y;VOM BI|
000000B0: 4C 44 2D 00 D3 22 C8 00 20 53 54 41 24 43 44 38 |LD-..".. STA$CD8|
000000C0: 30 2C 59 3B 53 43 48 49 52 4D 00 E1 22 D2 00 20 |0,Y;SCHIRM..".. |
000000D0: 49 4E 59 3B 4E 41 43 48 00 F5 22 DC 00 20 42 4E |INY;NACH..".. BN|
000000E0: 45 4C 4F 4F 50 34 3B 24 43 44 38 30 00 0A 23 E6 |ELOOP4;$CD80..#.|
000000F0: 00 4C 4F 4F 50 35 20 4C 44 41 24 30 35 30 30 2C |.LOOP5 LDA$0500,|
00000100: 59 00 1A 23 F0 00 20 53 54 41 24 43 45 38 30 2C |Y..#.. STA$CE80,|
00000110: 59 00 23 23 FA 00 20 49 4E 59 00 31 23 04 01 20 |Y.##.. INY.1#.. |
00000120: 42 4E 45 4C 4F 4F 50 35 00 3A 23 0E 01 20 52 54 |BNELOOP5.:#.. RT|
00000130: 53 00 40 23 18 01 3B 00 5B 23 22 01 3B 2D 2D 2D |S.@#..;.[#".;---|
00000140: 2D 2D 54 41 42 45 4C 4C 45 4E 2D 2D 2D 2D 2D 2D |--TABELLEN------|
00000150: 2D 2D 00 6B 23 2C 01 54 41 42 33 20 2E 42 59 30 |--.k#,.TAB3 .BY0|
00000160: 2C 30 00 86 23 36 01 54 41 42 32 20 2E 57 4F 31 |,0..#6.TAB2 .WO1|
00000170: 33 32 35 2C 31 33 32 35 2C 31 31 32 36 00 A2 23 |325,1325,1126..#|
00000180: 40 01 20 2E 57 4F 31 31 32 31 2C 31 36 33 38 2C |@. .WO1121,1638,|
00000190: 31 36 34 38 2C 31 33 32 35 00 C0 23 4A 01 54 41 |1648,1325..#J.TA|
000001A0: 42 36 20 2E 42 59 38 33 2C 30 38 2C 36 35 2C 30 |B6 .BY83,08,65,0|
000001B0: 37 2C 38 37 2C 31 35 00 DA 23 54 01 20 2E 42 59 |7,87,15..#T. .BY|
000001C0: 38 37 2C 31 34 2C 38 37 2C 30 33 2C 38 37 2C 31 |87,14,87,03,87,1|
000001D0: 31 00 F8 23 5E 01 54 41 42 37 20 2E 42 59 34 30 |1..#^.TAB7 .BY40|
000001E0: 2C 30 30 2C 38 30 2C 34 31 2C 33 39 2C 33 39 00 |,00,80,41,39,39.|
000001F0: 0F 24 63 01 20 2E 42 59 33 39 2C 34 30 2C 34 31 |.$c. .BY39,40,41|
00000200: 2C 34 31 2C 34 31 00 2D 24 68 01 54 41 42 34 20 |,41,41.-$h.TAB4 |
00000210: 2E 42 59 33 32 2C 38 30 2C 33 32 2C 34 31 2C 34 |.BY32,80,32,41,4|
00000220: 36 2C 30 30 00 49 24 72 01 20 2E 42 59 34 36 2C |6,00.I$r. .BY46,|
00000230: 33 39 2C 34 36 2C 30 30 2C 34 36 2C 30 2C 33 32 |39,46,00,46,0,32|
00000240: 00 5D 24 7C 01 2E 47 4C 20 54 41 42 35 3D 54 41 |.]$|..GL TAB5=TA|
00000250: 42 36 2B 31 00 71 24 86 01 2E 47 4C 20 54 41 42 |B6+1.q$...GL TAB|
00000260: 31 3D 54 41 42 34 2D 33 00 77 24 87 01 3B 00 C5 |1=TAB4-3.w$..;..|
00000270: 24 88 01 3B 54 41 42 31 20 41 4B 54 55 45 4C 4C |$..;TAB1 AKTUELL|
00000280: 45 20 52 49 43 48 54 55 4E 47 20 56 4F 4D 20 47 |E RICHTUNG VOM G|
00000290: 45 49 53 54 20 20 20 20 20 20 20 3B 20 20 20 20 |EIST ; |
000002A0: 20 28 30 3B 33 39 3B 34 31 3B 38 30 20 46 55 45 | (0;39;41;80 FUE|
000002B0: 52 20 4F 42 45 4E 2C 4C 49 4E 4B 53 00 DD 24 89 |R OBEN,LINKS..$.|
000002C0: 01 3B 20 20 20 20 20 52 45 43 48 54 53 2C 55 4E |.; RECHTS,UN|
000002D0: 54 45 4E 29 00 17 25 8A 01 3B 54 41 42 32 20 4C |TEN)..%..;TAB2 L|
000002E0: 4F 2F 48 49 2D 42 49 4C 44 53 43 48 49 52 4D 41 |O/HI-BILDSCHIRMA|
000002F0: 44 52 45 53 53 45 4E 20 44 45 52 20 20 20 20 20 |DRESSEN DER |
00000300: 20 3B 20 20 20 20 20 46 49 47 55 52 45 4E 00 38 | ; FIGUREN.8|
00000310: 25 8B 01 3B 54 41 42 33 20 50 55 4E 4B 54 45 20 |%..;TAB3 PUNKTE |
00000320: 56 4F 4E 20 53 50 49 45 4C 45 52 20 31 2C 32 00 |VON SPIELER 1,2.|
00000330: 5B 25 8C 01 3B 54 41 42 34 20 41 4B 54 2E 20 5A |[%..;TAB4 AKT. Z|
00000340: 45 49 43 48 45 4E 20 55 4E 54 45 52 20 46 49 47 |EICHEN UNTER FIG|
00000350: 55 52 00 78 25 8D 01 3B 54 41 42 35 20 46 41 52 |UR.x%..;TAB5 FAR|
00000360: 42 45 4E 20 44 45 52 20 46 49 47 55 52 45 4E 00 |BEN DER FIGUREN.|
00000370: 9D 25 8E 01 3B 54 41 42 36 20 42 49 4C 44 53 43 |.%..;TAB6 BILDSC|
00000380: 48 49 52 4D 43 4F 44 45 20 44 45 52 20 46 49 47 |HIRMCODE DER FIG|
00000390: 55 52 45 4E 00 C2 25 8F 01 3B 54 41 42 37 20 4A |UREN..%..;TAB7 J|
000003A0: 4F 59 53 54 49 43 4B 41 55 53 57 45 52 54 55 4E |OYSTICKAUSWERTUN|
000003B0: 47 53 54 41 42 45 4C 4C 45 00 C8 25 90 01 3B 00 |GSTABELLE..%..;.|
000003C0: DB 25 9A 01 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.%..;-----------|
000003D0: 2D 2D 00 EF 25 A4 01 4E 41 47 45 4C 4E 45 55 20 |--..%..NAGELNEU |
000003E0: 4C 44 41 23 32 31 00 F8 25 B2 01 20 54 41 59 00 |LDA#21..%.. TAY.|
000003F0: 0F 26 B8 01 20 53 54 41 35 34 32 37 32 2B 31 2B |.&.. STA54272+1+|
00000400: 30 2D 32 31 2C 59 00 26 26 C2 01 20 53 54 41 35 |0-21,Y.&&.. STA5|
00000410: 34 32 37 32 2B 31 2B 37 2D 32 31 2C 59 00 3D 26 |4272+1+7-21,Y.=&|
00000420: CC 01 20 53 54 41 35 34 32 37 32 2B 35 2B 30 2D |.. STA54272+5+0-|
00000430: 32 31 2C 59 00 54 26 D6 01 20 53 54 41 35 34 32 |21,Y.T&.. STA542|
00000440: 37 32 2B 35 2B 37 2D 32 31 2C 59 00 6B 26 EA 01 |72+5+7-21,Y.k&..|
00000450: 20 53 54 41 35 33 32 37 32 2D 32 31 2C 59 3B 53 | STA53272-21,Y;S|
00000460: 49 44 00 80 26 ED 01 20 4C 44 41 23 31 35 3B 53 |ID..&.. LDA#15;S|
00000470: 49 44 2D 52 45 47 2E 00 99 26 EF 01 20 53 54 41 |ID-REG...&.. STA|
00000480: 35 34 32 37 32 2B 32 34 3B 42 45 4C 45 47 45 4E |54272+24;BELEGEN|
00000490: 00 9F 26 F4 01 3B 00 B6 26 FE 01 20 4C 44 41 23 |..&..;..&.. LDA#|
000004A0: 32 34 3B 4C 41 42 59 52 49 4E 54 48 2D 00 C8 26 |24;LABYRINTH-..&|
000004B0: 03 02 20 54 41 58 3B 56 45 52 56 4F 4C 4C 2D 00 |.. TAX;VERVOLL-.|
000004C0: DC 26 08 02 20 54 41 59 3B 53 54 41 45 4E 44 49 |.&.. TAY;STAENDI|
000004D0: 47 45 4E 00 EA 26 0D 02 20 4C 44 41 23 31 30 32 |GEN..&.. LDA#102|
000004E0: 3B 00 00 27 12 02 4C 4F 4F 50 31 30 20 53 54 41 |;..'..LOOP10 STA|
000004F0: 31 31 31 31 2C 59 3B 00 0A 27 17 02 20 44 45 59 |1111,Y;..'.. DEY|
00000500: 3B 00 1A 27 1C 02 20 42 4E 45 4C 4F 4F 50 31 30 |;..'.. BNELOOP10|
00000510: 3B 00 30 27 21 02 4C 4F 4F 50 31 31 20 53 54 41 |;.0'!.LOOP11 STA|
00000520: 31 39 31 31 2C 58 3B 00 3A 27 26 02 20 44 45 58 |1911,X;.:'&. DEX|
00000530: 3B 00 4A 27 2B 02 20 42 4E 45 4C 4F 4F 50 31 31 |;.J'+. BNELOOP11|
00000540: 3B 00 58 27 30 02 20 53 54 41 31 35 31 33 3B 00 |;.X'0. STA1513;.|
00000550: 66 27 35 02 20 53 54 41 31 36 35 34 3B 00 73 27 |f'5. STA1654;.s'|
00000560: 3A 02 20 4C 44 41 23 34 36 3B 00 81 27 3F 02 20 |:. LDA#46;..'?. |
00000570: 53 54 41 31 36 31 33 3B 00 8F 27 44 02 20 53 54 |STA1613;..'D. ST|
00000580: 41 31 31 37 31 3B 00 9D 27 49 02 20 53 54 41 31 |A1171;..'I. STA1|
00000590: 31 35 36 3B 00 A3 27 4E 02 3B 00 B1 27 4F 02 4E |156;..'N.;..'O.N|
000005A0: 45 55 20 4C 44 41 23 30 00 BF 27 50 02 20 53 54 |EU LDA#0..'P. ST|
000005B0: 41 4D 45 52 4B 33 00 D1 27 58 02 48 4F 4D 45 20 |AMERK3..'X.HOME |
000005C0: 4C 44 58 4D 45 52 4B 33 00 E9 27 62 02 20 4C 44 |LDXMERK3..'b. LD|
000005D0: 41 54 41 42 32 2C 58 3B 50 4F 53 49 54 49 4F 4E |ATAB2,X;POSITION|
000005E0: 00 FA 27 6C 02 20 53 54 41 24 46 42 3B 4E 41 43 |..'l. STA$FB;NAC|
000005F0: 48 00 13 28 76 02 20 4C 44 41 54 41 42 32 2B 31 |H..(v. LDATAB2+1|
00000600: 2C 58 3B 24 46 42 2F 24 46 43 00 20 28 80 02 20 |,X;$FB/$FC. (.. |
00000610: 53 54 41 24 46 43 3B 00 26 28 82 02 3B 00 3B 28 |STA$FC;.&(..;.;(|
00000620: 83 02 20 4C 44 41 54 41 42 36 2C 58 3B 46 49 47 |.. LDATAB6,X;FIG|
00000630: 55 52 00 4E 28 84 02 20 4C 44 59 23 34 30 3B 53 |UR.N(.. LDY#40;S|
00000640: 45 54 5A 45 4E 00 5F 28 85 02 20 53 54 41 28 24 |ETZEN._(.. STA($|
00000650: 46 42 29 2C 59 3B 00 65 28 86 02 3B 00 7E 28 BC |FB),Y;.e(..;.~(.|
00000660: 02 20 4C 44 59 54 41 42 31 2C 58 3B 47 45 49 53 |. LDYTAB1,X;GEIS|
00000670: 54 52 49 43 2E 00 89 28 C6 02 20 43 50 58 23 33 |TRIC...(.. CPX#3|
00000680: 00 97 28 D0 02 20 42 43 53 43 48 45 43 4B 00 A6 |..(.. BCSCHECK..|
00000690: 28 DA 02 20 54 58 41 3B 58 3D 58 2F 32 00 B0 28 |(.. TXA;X=X/2..(|
000006A0: E4 02 20 4C 53 52 3B 00 BA 28 EE 02 20 54 41 58 |.. LSR;..(.. TAX|
000006B0: 3B 00 D3 28 F8 02 20 4C 44 41 35 36 33 32 30 2C |;..(.. LDA56320,|
000006C0: 58 3B 4A 4F 59 53 54 49 43 4B 00 E3 28 02 03 20 |X;JOYSTICK..(.. |
000006D0: 54 41 59 3B 52 45 54 54 45 4E 00 F6 28 0C 03 20 |TAY;RETTEN..(.. |
000006E0: 41 4E 44 23 31 36 3B 46 49 52 45 20 3F 00 0D 29 |AND#16;FIRE ?..)|
000006F0: 16 03 20 42 4E 45 53 50 52 55 4E 47 31 30 3B 4E |.. BNESPRUNG10;N|
00000700: 45 49 4E 21 00 13 29 1B 03 3B 00 23 29 20 03 20 |EIN!..)..;.#) . |
00000710: 4C 44 41 23 33 32 3B 4A 41 2E 00 37 29 2A 03 20 |LDA#32;JA..7)*. |
00000720: 4C 44 59 23 34 30 3B 50 41 43 2D 4D 41 4E 00 50 |LDY#40;PAC-MAN.P|
00000730: 29 34 03 20 53 54 41 28 24 46 42 29 2C 59 3B 4C |)4. STA($FB),Y;L|
00000740: 4F 45 53 43 48 45 4E 00 56 29 3E 03 3B 00 6C 29 |OESCHEN.V)>.;.l)|
00000750: 48 03 20 4C 44 41 54 41 42 33 2C 58 3B 50 55 4E |H. LDATAB3,X;PUN|
00000760: 4B 54 45 00 82 29 52 03 20 42 45 51 53 50 52 55 |KTE..)R. BEQSPRU|
00000770: 4E 47 31 31 3B 55 4D 20 31 00 9A 29 5C 03 20 44 |NG11;UM 1..)\. D|
00000780: 45 43 54 41 42 33 2C 58 3B 41 42 5A 49 45 48 45 |ECTAB3,X;ABZIEHE|
00000790: 4E 00 AF 29 66 03 53 50 52 55 4E 47 31 31 20 4A |N..)f.SPRUNG11 J|
000007A0: 4D 50 4E 45 58 54 00 B5 29 84 03 3B 00 D0 29 8E |MPNEXT..)..;..).|
000007B0: 03 53 50 52 55 4E 47 31 30 20 54 59 41 3B 4A 4F |.SPRUNG10 TYA;JO|
000007C0: 59 53 54 49 43 4B 2D 00 E5 29 98 03 20 41 4E 44 |YSTICK-..).. AND|
000007D0: 23 31 35 3B 57 45 52 54 20 41 55 46 00 F7 29 A2 |#15;WERT AUF..).|
000007E0: 03 20 45 4F 52 23 31 35 3B 30 2D 31 30 2E 00 07 |. EOR#15;0-10...|
000007F0: 2A AC 03 20 54 41 58 3B 59 2D 57 45 52 54 00 20 |*.. TAX;Y-WERT. |
00000800: 2A B6 03 20 4C 44 59 54 41 42 37 2C 58 3B 42 45 |*.. LDYTAB7,X;BE|
00000810: 53 54 49 4D 4D 45 4E 00 26 2A C0 03 3B 00 42 2A |STIMMEN.&*..;.B*|
00000820: 1A 04 43 48 45 43 4B 20 4C 44 58 4D 45 52 4B 33 |..CHECK LDXMERK3|
00000830: 3B 4E 41 45 43 48 54 45 53 00 5A 2A 1F 04 20 4C |;NAECHTES.Z*.. L|
00000840: 44 41 28 24 46 42 29 2C 59 3B 5A 45 49 43 48 45 |DA($FB),Y;ZEICHE|
00000850: 4E 00 68 2A 24 04 20 53 54 59 4D 45 52 4B 31 00 |N.h*$. STYMERK1.|
00000860: 76 2A 2E 04 20 53 54 41 4D 45 52 4B 32 00 7C 2A |v*.. STAMERK2.|*|
00000870: 38 04 3B 00 92 2A 42 04 20 43 50 58 23 33 3B 47 |8.;..*B. CPX#3;G|
00000880: 45 49 53 54 20 4F 44 45 52 00 AA 2A 56 04 20 42 |EIST ODER..*V. B|
00000890: 43 43 50 41 43 4D 41 4E 3B 50 41 43 4D 41 4E 20 |CCPACMAN;PACMAN |
000008A0: 3F 00 B0 2A 5B 04 3B 00 BC 2A 60 04 20 43 4D 50 |?..*[.;..*`. CMP|
000008B0: 23 35 30 00 CF 2A 6A 04 20 42 43 43 53 45 54 3B |#50..*j. BCCSET;|
000008C0: 4E 4F 52 4D 41 4C 00 DB 2A 74 04 20 43 4D 50 23 |NORMAL..*t. CMP#|
000008D0: 38 36 00 F6 2A 7E 04 20 42 43 53 53 50 52 55 4E |86..*~. BCSSPRUN|
000008E0: 47 32 3B 4E 45 55 20 52 49 43 48 54 2E 00 FC 2A |G2;NEU RICHT...*|
000008F0: 83 04 3B 00 0E 2B 88 04 20 43 4D 50 54 41 42 36 |..;..+.. CMPTAB6|
00000900: 3B 3D 22 D3 22 00 1F 2B 92 04 20 42 4E 45 53 50 |;="."..+.. BNESP|
00000910: 52 55 4E 47 33 3B 00 2D 2B 9C 04 20 4C 53 52 54 |RUNG3;.-+.. LSRT|
00000920: 41 42 33 3B 00 3F 2B A6 04 20 42 50 4C 53 50 52 |AB3;.?+.. BPLSPR|
00000930: 55 4E 47 31 32 3B 00 5A 2B B0 04 53 50 52 55 4E |UNG12;.Z+..SPRUN|
00000940: 47 33 20 43 4D 50 54 41 42 36 2B 32 3B 3D 22 C1 |G3 CMPTAB6+2;=".|
00000950: 22 00 72 2B BA 04 20 42 4E 45 53 50 52 55 4E 47 |".r+.. BNESPRUNG|
00000960: 31 32 3B 50 55 4E 4B 54 45 00 8B 2B C4 04 20 4C |12;PUNKTE..+.. L|
00000970: 53 52 54 41 42 33 2B 31 3B 48 41 4C 42 49 45 52 |SRTAB3+1;HALBIER|
00000980: 45 4E 00 91 2B C9 04 3B 00 A5 2B CE 04 53 50 52 |EN..+..;..+..SPR|
00000990: 55 4E 47 31 32 20 4C 44 41 23 30 3B 00 C0 2B D8 |UNG12 LDA#0;..+.|
000009A0: 04 20 53 54 41 35 34 32 37 32 2B 34 3B 4B 4F 4C |. STA54272+4;KOL|
000009B0: 4C 49 53 49 4F 4E 53 00 D3 2B E2 04 20 4C 44 41 |LISIONS..+.. LDA|
000009C0: 23 31 32 39 3B 4B 4C 41 4E 47 00 E4 2B EC 04 20 |#129;KLANG..+.. |
000009D0: 53 54 41 35 34 32 37 32 2B 34 3B 00 F0 2B F1 04 |STA54272+4;..+..|
000009E0: 20 4C 44 59 23 34 30 00 04 2C F6 04 20 4C 44 41 | LDY#40..,.. LDA|
000009F0: 54 41 42 34 2C 58 3B 4E 45 55 45 00 1D 2C 02 05 |TAB4,X;NEUE..,..|
00000A00: 20 53 54 41 28 24 46 42 29 2C 59 3B 50 4F 53 49 | STA($FB),Y;POSI|
00000A10: 54 49 4F 4E 00 31 2C 03 05 20 4C 44 41 54 41 42 |TION.1,.. LDATAB|
00000A20: 32 2B 31 32 3B 56 4F 4D 00 4A 2C 04 05 20 53 54 |2+12;VOM.J,.. ST|
00000A30: 41 54 41 42 32 2B 30 2C 58 3B 55 4E 46 41 4C 4C |ATAB2+0,X;UNFALL|
00000A40: 2D 00 60 2C 05 05 20 4C 44 41 54 41 42 32 2B 31 |-.`,.. LDATAB2+1|
00000A50: 33 3B 47 45 49 53 54 00 72 2C 06 05 20 53 54 41 |3;GEIST.r,.. STA|
00000A60: 54 41 42 32 2B 31 2C 58 3B 00 80 2C 07 05 20 4C |TAB2+1,X;..,.. L|
00000A70: 44 41 54 41 42 34 3B 00 92 2C 08 05 20 53 54 41 |DATAB4;..,.. STA|
00000A80: 54 41 42 34 2B 30 2C 58 3B 00 9F 2C 09 05 20 4A |TAB4+0,X;..,.. J|
00000A90: 4D 50 4E 45 58 54 00 B7 2C 0A 05 53 50 52 55 4E |MPNEXT..,..SPRUN|
00000AA0: 47 32 20 4A 4D 50 4E 45 55 52 49 43 48 54 00 BD |G2 JMPNEURICHT..|
00000AB0: 2C 14 05 3B 00 CF 2C 1E 05 50 41 43 4D 41 4E 20 |,..;..,..PACMAN |
00000AC0: 43 4D 50 23 35 31 00 DC 2C 28 05 20 42 43 53 4E |CMP#51..,(. BCSN|
00000AD0: 45 58 54 00 E8 2C 32 05 20 43 4D 50 23 34 36 00 |EXT..,2. CMP#46.|
00000AE0: F8 2C 3C 05 20 42 4E 45 53 50 52 55 4E 47 37 00 |.,<. BNESPRUNG7.|
00000AF0: 01 2D 46 05 20 44 45 58 00 15 2D 50 05 20 42 50 |.-F. DEX..-P. BP|
00000B00: 4C 53 50 52 55 4E 47 38 3B 58 3D 31 00 22 2D 5A |LSPRUNG8;X=1."-Z|
00000B10: 05 20 49 4E 58 3B 58 3D 30 00 3A 2D 64 05 20 53 |. INX;X=0.:-d. S|
00000B20: 54 58 35 34 32 37 32 2B 34 3B 50 49 4C 4C 45 4E |TX54272+4;PILLEN|
00000B30: 2D 00 4C 2D 6E 05 20 4C 44 41 23 31 37 3B 4B 4C |-.L-n. LDA#17;KL|
00000B40: 41 4E 47 00 65 2D 78 05 20 53 54 41 35 34 32 37 |ANG.e-x. STA5427|
00000B50: 32 2B 34 3B 50 4C 41 59 45 52 20 30 00 75 2D 82 |2+4;PLAYER 0.u-.|
00000B60: 05 20 42 50 4C 53 50 52 55 4E 47 34 00 7B 2D 87 |. BPLSPRUNG4.{-.|
00000B70: 05 3B 00 95 2D 8C 05 53 50 52 55 4E 47 38 20 4C |.;..-..SPRUNG8 L|
00000B80: 44 41 23 30 3B 50 49 4C 4C 45 4E 2D 00 AB 2D 96 |DA#0;PILLEN-..-.|
00000B90: 05 20 53 54 41 35 34 32 37 39 2B 34 3B 4B 4C 41 |. STA54279+4;KLA|
00000BA0: 4E 47 00 C0 2D A0 05 20 4C 44 41 23 33 33 3B 50 |NG..-.. LDA#33;P|
00000BB0: 4C 41 59 45 52 20 31 00 D1 2D AA 05 20 53 54 41 |LAYER 1..-.. STA|
00000BC0: 35 34 32 37 39 2B 34 3B 00 D7 2D AF 05 3B 00 F7 |54279+4;..-..;..|
00000BD0: 2D B4 05 53 50 52 55 4E 47 34 20 49 4E 43 54 41 |-..SPRUNG4 INCTA|
00000BE0: 42 33 2C 58 3B 53 43 4F 52 45 20 41 55 46 00 0F |B3,X;SCORE AUF..|
00000BF0: 2E BE 05 20 42 4E 45 53 50 52 55 4E 47 37 3B 32 |... BNESPRUNG7;2|
00000C00: 35 35 20 42 45 2D 00 26 2E C8 05 20 44 45 43 54 |55 BE-.&... DECT|
00000C10: 41 42 33 2C 58 3B 47 52 45 4E 5A 45 4E 00 2C 2E |AB3,X;GRENZEN.,.|
00000C20: CD 05 3B 00 45 2E D2 05 53 50 52 55 4E 47 37 20 |..;.E...SPRUNG7 |
00000C30: 4C 44 41 23 33 32 3B 50 49 4C 4C 45 00 5E 2E DC |LDA#32;PILLE.^..|
00000C40: 05 20 53 54 41 28 24 46 42 29 2C 59 3B 4C 4F 45 |. STA($FB),Y;LOE|
00000C50: 53 43 48 45 4E 00 64 2E E6 05 3B 00 73 2E F0 05 |SCHEN.d...;.s...|
00000C60: 53 45 54 20 4C 44 59 23 34 30 00 81 2E FA 05 20 |SET LDY#40..... |
00000C70: 4C 44 58 4D 45 52 4B 33 00 98 2E 04 06 20 4C 44 |LDXMERK3..... LD|
00000C80: 41 54 41 42 34 2C 58 3B 5A 45 49 43 48 45 4E 00 |ATAB4,X;ZEICHEN.|
00000C90: AE 2E 0E 06 20 53 54 41 28 24 46 42 29 2C 59 3B |.... STA($FB),Y;|
00000CA0: 55 4E 54 45 52 00 BC 2E 18 06 20 4C 44 59 4D 45 |UNTER..... LDYME|
00000CB0: 52 4B 31 00 D5 2E 22 06 20 4C 44 41 28 24 46 42 |RK1...". LDA($FB|
00000CC0: 29 2C 59 3B 4E 41 45 43 48 54 45 53 00 EC 2E 2C |),Y;NAECHTES...,|
00000CD0: 06 20 53 54 41 54 41 42 34 2C 58 3B 5A 45 49 43 |. STATAB4,X;ZEIC|
00000CE0: 48 45 4E 00 F2 2E 31 06 3B 00 08 2F 36 06 20 4C |HEN...1.;../6. L|
00000CF0: 44 41 23 32 31 32 3B 24 46 42 3D 24 46 42 2B 00 |DA#212;$FB=$FB+.|
00000D00: 19 2F 40 06 20 43 4C 43 3B 20 2B 35 33 32 37 32 |./@. CLC; +53272|
00000D10: 00 2F 2F 4A 06 20 41 44 43 24 46 43 3B 28 46 41 |.//J. ADC$FC;(FA|
00000D20: 52 42 52 45 47 29 00 3C 2F 54 06 20 53 54 41 24 |RBREG).</T. STA$|
00000D30: 46 43 3B 00 55 2F 7C 06 20 4C 44 41 54 41 42 35 |FC;.U/|. LDATAB5|
00000D40: 2C 58 3B 46 41 52 42 45 20 44 45 52 00 6B 2F 86 |,X;FARBE DER.k/.|
00000D50: 06 20 53 54 41 28 24 46 42 29 2C 59 3B 46 49 47 |. STA($FB),Y;FIG|
00000D60: 55 52 00 77 2F 87 06 20 4C 44 59 23 34 30 00 8D |UR.w/.. LDY#40..|
00000D70: 2F 88 06 20 4C 44 41 23 31 35 3B 46 41 52 42 45 |/.. LDA#15;FARBE|
00000D80: 20 56 4F 4E 00 A3 2F 89 06 20 53 54 41 28 24 46 | VON../.. STA($F|
00000D90: 42 29 2C 59 3B 50 55 4E 4B 54 00 A9 2F 8B 06 3B |B),Y;PUNKT../..;|
00000DA0: 00 BE 2F 90 06 20 4C 44 41 24 46 43 3B 24 46 42 |../.. LDA$FC;$FB|
00000DB0: 3D 24 46 42 2D 00 D0 2F 9A 06 20 53 45 43 3B 20 |=$FB-../.. SEC; |
00000DC0: 20 2D 35 33 32 37 32 00 E6 2F A4 06 20 53 42 43 | -53272../.. SBC|
00000DD0: 23 32 31 32 3B 28 53 43 52 45 45 4E 29 00 F3 2F |#212;(SCREEN)../|
00000DE0: AE 06 20 53 54 41 24 46 43 3B 00 0A 30 B8 06 20 |.. STA$FC;..0.. |
00000DF0: 4C 44 41 54 41 42 36 2C 58 3B 5A 45 49 43 48 45 |LDATAB6,X;ZEICHE|
00000E00: 4E 00 24 30 C2 06 20 53 54 41 28 24 46 42 29 2C |N.$0.. STA($FB),|
00000E10: 59 3B 44 45 52 20 46 49 47 55 52 00 2A 30 CC 06 |Y;DER FIGUR.*0..|
00000E20: 3B 00 33 30 D6 06 20 54 59 41 00 3C 30 E0 06 20 |;.30.. TYA.<0.. |
00000E30: 53 45 43 00 48 30 EA 06 20 53 42 43 23 34 30 00 |SEC.H0.. SBC#40.|
00000E40: 58 30 F4 06 20 42 50 4C 53 50 52 55 4E 47 35 00 |X0.. BPLSPRUNG5.|
00000E50: 6C 30 FE 06 20 45 4F 52 23 32 35 35 3B 59 2D 57 |l0.. EOR#255;Y-W|
00000E60: 45 52 54 00 7E 30 08 07 20 54 41 59 3B 57 49 52 |ERT.~0.. TAY;WIR|
00000E70: 44 20 56 4F 4E 00 8E 30 12 07 20 49 4E 59 3B 54 |D VON..0.. INY;T|
00000E80: 41 42 32 2C 58 00 A4 30 1C 07 20 53 54 59 4D 45 |AB2,X..0.. STYME|
00000E90: 52 4B 31 3B 53 55 42 54 52 41 2D 00 BD 30 26 07 |RK1;SUBTRA-..0&.|
00000EA0: 20 4C 44 41 54 41 42 32 2C 58 3B 48 49 45 52 54 | LDATAB2,X;HIERT|
00000EB0: 20 55 4E 44 00 D0 30 30 07 20 53 45 43 3B 57 49 | UND..00. SEC;WI|
00000EC0: 45 44 45 52 20 49 4E 00 E5 30 3A 07 20 53 42 43 |EDER IN..0:. SBC|
00000ED0: 4D 45 52 4B 31 3B 54 41 42 32 2C 58 00 FD 30 44 |MERK1;TAB2,X..0D|
00000EE0: 07 20 53 54 41 54 41 42 32 2C 58 3B 41 42 47 45 |. STATAB2,X;ABGE|
00000EF0: 4C 45 47 54 00 12 31 4E 07 20 42 43 53 4E 45 58 |LEGT..1N. BCSNEX|
00000F00: 54 3B 28 45 52 47 49 42 54 00 2D 31 58 07 20 44 |T;(ERGIBT.-1X. D|
00000F10: 45 43 54 41 42 32 2B 31 2C 58 3B 4E 45 55 45 20 |ECTAB2+1,X;NEUE |
00000F20: 50 4F 53 2E 00 45 31 62 07 20 42 43 43 4E 45 58 |POS..E1b. BCCNEX|
00000F30: 54 3B 56 4F 4E 20 46 49 47 55 52 29 00 4B 31 6C |T;VON FIGUR).K1l|
00000F40: 07 3B 00 62 31 76 07 53 50 52 55 4E 47 35 20 43 |.;.b1v.SPRUNG5 C|
00000F50: 4C 43 3B 59 2D 57 45 52 54 00 76 31 80 07 20 41 |LC;Y-WERT.v1.. A|
00000F60: 44 43 54 41 42 32 2C 58 3B 57 49 52 44 00 8D 31 |DCTAB2,X;WIRD..1|
00000F70: 8A 07 20 53 54 41 54 41 42 32 2C 58 3B 41 44 44 |.. STATAB2,X;ADD|
00000F80: 49 45 52 54 00 9B 31 94 07 20 42 43 43 4E 45 58 |IERT..1.. BCCNEX|
00000F90: 54 3B 00 AD 31 9E 07 20 49 4E 43 54 41 42 32 2B |T;..1.. INCTAB2+|
00000FA0: 31 2C 58 3B 00 B3 31 A8 07 3B 00 CE 31 B2 07 4E |1,X;..1..;..1..N|
00000FB0: 45 58 54 20 4C 44 41 23 30 35 3B 41 4E 5A 41 48 |EXT LDA#05;ANZAH|
00000FC0: 4C 20 44 45 52 00 E5 31 BC 07 20 53 54 41 24 42 |L DER..1.. STA$B|
00000FD0: 44 3B 47 45 49 53 54 56 45 52 53 2E 00 F3 31 C6 |D;GEISTVERS...1.|
00000FE0: 07 20 4C 44 58 4D 45 52 4B 33 00 03 32 D0 07 20 |. LDXMERK3..2.. |
00000FF0: 49 4E 58 3B 58 2D 57 45 52 54 00 11 32 DA 07 20 |INX;X-WERT..2.. |
00001000: 49 4E 58 3B 46 55 45 52 00 28 32 E4 07 20 53 54 |INX;FUER.(2.. ST|
00001010: 58 4D 45 52 4B 33 3B 4E 41 45 43 48 53 54 45 00 |XMERK3;NAECHSTE.|
00001020: 3A 32 EE 07 20 43 50 58 23 31 31 3B 46 49 47 55 |:2.. CPX#11;FIGU|
00001030: 52 00 48 32 F8 07 20 42 43 53 57 41 49 54 3B 00 |R.H2.. BCSWAIT;.|
00001040: 55 32 02 08 20 4A 4D 50 48 4F 4D 45 00 5B 32 0C |U2.. JMPHOME.[2.|
00001050: 08 3B 00 6F 32 16 08 4E 45 55 52 49 43 48 54 20 |.;.o2..NEURICHT |
00001060: 44 45 43 24 42 44 00 7C 32 20 08 20 42 45 51 4E |DEC$BD.|2 . BEQN|
00001070: 45 58 54 00 91 32 2A 08 20 4C 44 41 35 36 33 32 |EXT..2*. LDA5632|
00001080: 34 3B 5A 55 46 41 4C 4C 00 A4 32 34 08 20 41 4E |4;ZUFALL..24. AN|
00001090: 44 23 33 3B 30 20 42 49 53 20 33 00 B4 32 52 08 |D#3;0 BIS 3..2R.|
000010A0: 20 54 41 59 3B 47 45 49 53 54 2D 00 CE 32 5C 08 | TAY;GEIST-..2\.|
000010B0: 20 4C 44 41 54 41 42 37 2B 31 2C 59 3B 52 49 43 | LDATAB7+1,Y;RIC|
000010C0: 48 54 55 4E 47 00 E7 32 66 08 20 53 54 41 54 41 |HTUNG..2f. STATA|
000010D0: 42 31 2C 58 3B 53 50 45 49 43 48 45 52 4E 00 F4 |B1,X;SPEICHERN..|
000010E0: 32 7A 08 20 4A 4D 50 48 4F 4D 45 00 FA 32 84 08 |2z. JMPHOME..2..|
000010F0: 3B 00 0B 33 8E 08 57 41 49 54 20 4C 44 59 23 32 |;..3..WAIT LDY#2|
00001100: 35 30 00 14 33 93 08 20 49 4E 59 00 27 33 A2 08 |50..3.. INY.'3..|
00001110: 4C 4F 4F 50 33 20 4A 53 52 24 45 45 42 33 00 30 |LOOP3 JSR$EEB3.0|
00001120: 33 AC 08 20 44 45 59 00 3E 33 B6 08 20 42 4E 45 |3.. DEY.>3.. BNE|
00001130: 4C 4F 4F 50 33 00 47 33 C0 08 20 52 54 53 00 00 |LOOP3.G3.. RTS..|
00001140: 00 |. |
."."D..BA$CD80 ;=52608.1"N..GL MERK1=$FD
.C"X..GL MERK2=$FE.U"}..GL MERK3=$B6.[".
.;.L"..;---COPY----.{"..COPY LDY#0.." .
STY53280..".. STY53281.."..;.."..LOOP4 L
DA$0400,Y;VOM BILD-.S"H. STA$CD80,Y;SCHI
RM.."R. INY;NACH..".. BNELOOP4;$CD80..#.
.LOOP5 LDA$0500,Y..#.. STA$CE80,Y.##.. I
NY.1#.. BNELOOP5.:#.. RTS.@#..;.[#".;---
--TABELLEN--------.K#,.TAB3 .BY0,0..#6.T
AB2 .WO1325,1325,1126..#@. .WO1121,1638,
1648,1325..#J.TAB6 .BY83,08,65,07,87,15.
Z#T. .BY87,14,87,03,87,11..#^.TAB7 .BY40
,00,80,41,39,39..$C. .BY39,40,41,41,41.-
$H.TAB4 .BY32,80,32,41,46,00.I$R. .BY46,
39,46,00,46,0,32.]$|..GL TAB5=TAB6+1.Q$.
..GL TAB1=TAB4-3.W$..;.E$..;TAB1 AKTUELL
E RICHTUNG VOM GEIST ; (0;39;4
1;80 FUER OBEN,LINKS..$..; RECHTS,UN
TEN)..%..;TAB2 LO/HI-BILDSCHIRMADRESSEN
DER ; FIGUREN.8%..;TAB3 PUNKTE
VON SPIELER 1,2.[%..;TAB4 AKT. ZEICHEN U
NTER FIGUR.X%..;TAB5 FARBEN DER FIGUREN.
.%..;TAB6 BILDSCHIRMCODE DER FIGUREN.B%.
.;TAB7 JOYSTICKAUSWERTUNGSTABELLE.H%..;.
.%..;-------------..%..NAGELNEU LDA#21..
%.. TAY..&.. STA54272+1+0-21,Y.&&B. STA5
4272+1+7-21,Y.=&L. STA54272+5+0-21,Y.T&V
. STA54272+5+7-21,Y.K&.. STA53272-21,Y;S
ID..&.. LDA#15;SID-REG...&.. STA54272+24
;BELEGEN..&..;..&.. LDA#24;LABYRINTH-.H&
.. TAX;VERVOLL-..&.. TAY;STAENDIGEN..&..
LDA#102;..'..LOOP10 STA1111,Y;..'.. DEY
;..'.. BNELOOP10;.0'!.LOOP11 STA1911,X;.
:'&. DEX;.J'+. BNELOOP11;.X'0. STA1513;.
F'5. STA1654;.S':. LDA#46;..'?. STA1613;
..'D. STA1171;..'I. STA1156;..'N.;..'O.N
EU LDA#0..'P. STAMERK3.Q'X.HOME LDXMERK3
..'B. LDATAB2,X;POSITION..'L. STA$FB;NAC
H..(V. LDATAB2+1,X;$FB/$FC. (.. STA$FC;.
&(..;.;(.. LDATAB6,X;FIGUR.N(.. LDY#40;S
ETZEN._(.. STA($FB),Y;.E(..;.~(.. LDYTAB
1,X;GEISTRIC...(F. CPX#3..(P. BCSCHECK..
(Z. TXA;X=X/2..(.. LSR;..(.. TAX;.S(.. L
DA56320,X;JOYSTICK..(.. TAY;RETTEN..(..
AND#16;FIRE ?..).. BNESPRUNG10;NEIN!..).
.;.#) . LDA#32;JA..7)*. LDY#40;PAC-MAN.P
)4. STA($FB),Y;LOESCHEN.V)>.;.L)H. LDATA
B3,X;PUNKTE..)R. BEQSPRUNG11;UM 1..)\. D
ECTAB3,X;ABZIEHEN..)F.SPRUNG11 JMPNEXT..
)..;.P)..SPRUNG10 TYA;JOYSTICK-..).. AND
#15;WERT AUF..).. EOR#15;0-10...*.. TAX;
Y-WERT. *.. LDYTAB7,X;BESTIMMEN.&*..;.B*
..CHECK LDXMERK3;NAECHTES.Z*.. LDA($FB),
Y;ZEICHEN.H*$. STYMERK1.V*.. STAMERK2.|*
8.;..*B. CPX#3;GEIST ODER..*V. BCCPACMAN
;PACMAN ?..*[.;..*`. CMP#50.O*J. BCCSET;
NORMAL..*T. CMP#86..*~. BCSSPRUNG2;NEU R
ICHT...*..;..+.. CMPTAB6;="S"..+.. BNESP
RUNG3;.-+.. LSRTAB3;.?+.. BPLSPRUNG12;.Z
+..SPRUNG3 CMPTAB6+2;="A".R+.. BNESPRUNG
12;PUNKTE..+D. LSRTAB3+1;HALBIEREN..+I.;
..+N.SPRUNG12 LDA#0;..+X. STA54272+4;KOL
LISIONS.S+.. LDA#129;KLANG..+.. STA54272
+4;..+.. LDY#40..,.. LDATAB4,X;NEUE..,..
STA($FB),Y;POSITION.1,.. LDATAB2+12;VOM
.J,.. STATAB2+0,X;UNFALL-.`,.. LDATAB2+1
3;GEIST.R,.. STATAB2+1,X;..,.. LDATAB4;.
.,.. STATAB4+0,X;..,.. JMPNEXT..,..SPRUN
G2 JMPNEURICHT..,..;.O,..PACMAN CMP#51..
,(. BCSNEXT..,2. CMP#46..,<. BNESPRUNG7.
.-F. DEX..-P. BPLSPRUNG8;X=1."-Z. INX;X=
0.:-D. STX54272+4;PILLEN-.L-N. LDA#17;KL
ANG.E-X. STA54272+4;PLAYER 0.U-.. BPLSPR
UNG4.{-..;..-..SPRUNG8 LDA#0;PILLEN-..-.
. STA54279+4;KLANG..- . LDA#33;PLAYER 1.
Q-.. STA54279+4;.W-..;..-..SPRUNG4 INCTA
B3,X;SCORE AUF..... BNESPRUNG7;255 BE-.&
.H. DECTAB3,X;GRENZEN.,.M.;.E.R.SPRUNG7
LDA#32;PILLE.^... STA($FB),Y;LOESCHEN.D.
..;.S...SET LDY#40..... LDXMERK3..... LD
ATAB4,X;ZEICHEN..... STA($FB),Y;UNTER...
.. LDYMERK1.U.". LDA($FB),Y;NAECHTES...,
. STATAB4,X;ZEICHEN...1.;../6. LDA#212;$
FB=$FB+../@. CLC; +53272.//J. ADC$FC;(FA
RBREG).</T. STA$FC;.U/|. LDATAB5,X;FARBE
DER.K/.. STA($FB),Y;FIGUR.W/.. LDY#40..
/.. LDA#15;FARBE VON../.. STA($FB),Y;PUN
KT../..;../.. LDA$FC;$FB=$FB-.P/.. SEC;
-53272../.. SBC#212;(SCREEN)../.. STA$F
C;..0.. LDATAB6,X;ZEICHEN.$0B. STA($FB),
Y;DER FIGUR.*0L.;.30V. TYA.<0.. SEC.H0..
SBC#40.X0.. BPLSPRUNG5.L0.. EOR#255;Y-W
ERT.~0.. TAY;WIRD VON..0.. INY;TAB2,X..0
.. STYMERK1;SUBTRA-..0&. LDATAB2,X;HIERT
UND.P00. SEC;WIEDER IN..0:. SBCMERK1;TA
B2,X..0D. STATAB2,X;ABGELEGT..1N. BCSNEX
T;(ERGIBT.-1X. DECTAB2+1,X;NEUE POS..E1B
. BCCNEXT;VON FIGUR).K1L.;.B1V.SPRUNG5 C
LC;Y-WERT.V1.. ADCTAB2,X;WIRD..1.. STATA
B2,X;ADDIERT..1.. BCCNEXT;..1.. INCTAB2+
1,X;..1..;.N1..NEXT LDA#05;ANZAHL DER..1
.. STA$BD;GEISTVERS...1F. LDXMERK3..2P.
INX;X-WERT..2Z. INX;FUER.(2.. STXMERK3;N
AECHSTE.:2.. CPX#11;FIGUR.H2.. BCSWAIT;.
U2.. JMPHOME.[2..;.O2..NEURICHT DEC$BD.|
2 . BEQNEXT..2*. LDA56324;ZUFALL..24. AN
D#3;0 BIS 3..2R. TAY;GEIST-.N2\. LDATAB7
+1,Y;RICHTUNG..2F. STATAB1,X;SPEICHERN..
2Z. JMPHOME..2..;..3..WAIT LDY#250..3..
INY.'3..LOOP3 JSR$EEB3.03.. DEY.>3.. BNE
LOOP3.G3.. RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL