LISTING 23
FILE INFORMATION
FILENAME(S): LISTING 23
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 3 disk(s)
FILE HASH
e5eb3f2ae42030a4e2e3f309350994061ee5ef35024bab1a0e78d2947616bd4b
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | LISTING 23 | PRG | Treasure Chest - ToGuMi | 17 | 11 | DOWNLOAD FILE |
| SONDERHEFT ASS | LISTING 23 | PRG | C64er | 17 | 11 | DOWNLOAD FILE |
| 15835 SEITE A | LISTING 23 | PRG | C64er | 14 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F E6 1F 46 00 2E 42 41 20 24 43 30 30 30 00 |....F..BA $C000.| 00000010: F4 1F 50 00 2E 4C 49 20 31 2C 33 2C 30 00 FA 1F |..P..LI 1,3,0...| 00000020: 5A 00 3B 00 20 20 64 00 3B 20 2A 2A 2A 2A 2A 2A |Z.;. d.; ******| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 46 20 6E 00 3B 20 |*********.F n.; | 00000050: 2A 20 20 20 20 51 55 45 4C 4C 54 45 58 54 45 20 |* QUELLTEXTE | 00000060: 28 48 59 50 52 41 2D 41 53 53 29 20 20 20 2A 00 |(HYPRA-ASS) *.| 00000070: 6C 20 78 00 3B 20 2A 20 20 20 20 3D 3D 3D 3D 3D |l x.; * =====| 00000080: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000090: 3D 20 20 20 2A 00 92 20 82 00 3B 20 2A 20 20 20 |= *.. ..; * | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 20 20 20 20 20 20 20 20 20 20 2A 00 B8 20 8C 00 | *.. ..| 000000C0: 3B 20 2A 20 46 55 45 52 20 56 45 52 53 43 48 49 |; * FUER VERSCHI| 000000D0: 45 44 45 4E 45 20 53 43 48 4C 45 49 46 45 4E 20 |EDENE SCHLEIFEN | 000000E0: 2A 00 DE 20 96 00 3B 20 2A 20 20 20 20 20 20 20 |*.. ..; * | 000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000100: 20 20 20 20 20 20 2A 00 04 21 A0 00 3B 20 2A 20 | *..!..; * | 00000110: 32 38 2E 30 38 2E 38 35 20 42 59 20 46 4C 4F 52 |28.08.85 BY FLOR| 00000120: 49 41 4E 20 4D 55 45 4C 4C 45 52 20 2A 00 2A 21 |IAN MUELLER *.*!| 00000130: AA 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 |..; * | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000150: 20 20 2A 00 50 21 B4 00 3B 20 2A 2A 2A 2A 2A 2A | *.P!..; ******| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 56 21 BE 00 3B 00 |*********.V!..;.| 00000180: 5C 21 C8 00 3B 00 79 21 D2 00 3B 20 51 55 45 4C |\!..;.y!..; QUEL| 00000190: 4C 54 45 58 54 20 5A 55 20 4C 49 53 54 49 4E 47 |LTEXT ZU LISTING| 000001A0: 20 31 00 96 21 DC 00 3B 20 3D 3D 3D 3D 3D 3D 3D | 1..!..; =======| 000001B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.| 000001C0: 9C 21 E6 00 3B 00 B9 21 F0 00 2E 45 51 20 41 4E |.!..;..!...EQ AN| 000001D0: 46 41 4E 47 53 41 44 52 45 53 53 45 20 3D 20 24 |FANGSADRESSE = $| 000001E0: 30 32 00 D2 21 FA 00 2E 45 51 20 45 4E 44 41 44 |02..!...EQ ENDAD| 000001F0: 52 45 53 53 45 20 3D 20 24 46 46 00 EE 21 04 01 |RESSE = $FF..!..| 00000200: 2E 45 51 20 5A 49 45 4C 42 45 52 45 49 43 48 20 |.EQ ZIELBEREICH | 00000210: 3D 20 24 36 46 30 30 00 F4 21 0E 01 3B 00 FF 21 |= $6F00..!..;..!| 00000220: 18 01 20 4C 44 58 23 30 00 21 22 22 01 53 43 48 |.. LDX#0.!"".SCH| 00000230: 4C 45 49 46 45 31 20 4C 44 41 41 4E 46 41 4E 47 |LEIFE1 LDAANFANG| 00000240: 53 41 44 52 45 53 53 45 2C 58 00 37 22 2C 01 20 |SADRESSE,X.7",. | 00000250: 53 54 41 5A 49 45 4C 42 45 52 45 49 43 48 2C 58 |STAZIELBEREICH,X| 00000260: 00 40 22 36 01 20 49 4E 58 00 67 22 40 01 20 43 |.@"6. INX.g"@. C| 00000270: 50 58 23 28 45 4E 44 41 44 52 45 53 53 45 2B 31 |PX#(ENDADRESSE+1| 00000280: 2D 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 29 |-ANFANGSADRESSE)| 00000290: 00 79 22 4A 01 20 42 4E 45 53 43 48 4C 45 49 46 |.y"J. BNESCHLEIF| 000002A0: 45 31 00 7F 22 54 01 3B 00 85 22 5E 01 3B 00 A2 |E1.."T.;.."^.;..| 000002B0: 22 68 01 3B 20 51 55 45 4C 4C 54 45 58 54 20 5A |"h.; QUELLTEXT Z| 000002C0: 55 20 4C 49 53 54 49 4E 47 20 32 00 BF 22 72 01 |U LISTING 2.."r.| 000002D0: 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |; ==============| 000002E0: 3D 3D 3D 3D 3D 3D 3D 3D 00 C5 22 7C 01 3B 00 E2 |========.."|.;..| 000002F0: 22 86 01 2E 45 51 20 41 4E 46 41 4E 47 53 41 44 |"...EQ ANFANGSAD| 00000300: 52 45 53 53 45 20 3D 20 24 30 32 00 FB 22 90 01 |RESSE = $02.."..| 00000310: 2E 45 51 20 45 4E 44 41 44 52 45 53 53 45 20 3D |.EQ ENDADRESSE =| 00000320: 20 24 46 46 00 17 23 9A 01 2E 45 51 20 5A 49 45 | $FF..#...EQ ZIE| 00000330: 4C 42 45 52 45 49 43 48 20 3D 20 24 36 46 30 30 |LBEREICH = $6F00| 00000340: 00 1D 23 A4 01 3B 00 44 23 AE 01 20 4C 44 58 23 |..#..;.D#.. LDX#| 00000350: 28 45 4E 44 41 44 52 45 53 53 45 2B 31 2D 41 4E |(ENDADRESSE+1-AN| 00000360: 46 41 4E 47 53 41 44 52 45 53 53 45 29 00 68 23 |FANGSADRESSE).h#| 00000370: B8 01 53 43 48 4C 45 49 46 45 32 20 4C 44 41 41 |..SCHLEIFE2 LDAA| 00000380: 4E 46 41 4E 47 53 41 44 52 45 53 53 45 2D 31 2C |NFANGSADRESSE-1,| 00000390: 58 00 80 23 C2 01 20 53 54 41 5A 49 45 4C 42 45 |X..#.. STAZIELBE| 000003A0: 52 45 49 43 48 2D 31 2C 58 00 9D 23 CC 01 20 44 |REICH-1,X..#.. D| 000003B0: 45 58 3B 20 44 45 4B 52 45 4D 45 4E 54 49 45 52 |EX; DEKREMENTIER| 000003C0: 42 45 46 45 48 4C 00 AF 23 D6 01 20 42 4E 45 53 |BEFEHL..#.. BNES| 000003D0: 43 48 4C 45 49 46 45 32 00 B5 23 E0 01 3B 00 BB |CHLEIFE2..#..;..| 000003E0: 23 EA 01 3B 00 D8 23 F4 01 3B 20 51 55 45 4C 4C |#..;..#..; QUELL| 000003F0: 54 45 58 54 20 5A 55 20 4C 49 53 54 49 4E 47 20 |TEXT ZU LISTING | 00000400: 34 00 F5 23 FE 01 3B 20 3D 3D 3D 3D 3D 3D 3D 3D |4..#..; ========| 00000410: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 FB |==============..| 00000420: 23 08 02 3B 00 18 24 12 02 2E 45 51 20 41 4E 46 |#..;..$...EQ ANF| 00000430: 41 4E 47 53 41 44 52 45 53 53 45 20 3D 20 24 31 |ANGSADRESSE = $1| 00000440: 36 00 31 24 1C 02 2E 45 51 20 45 4E 44 41 44 52 |6.1$...EQ ENDADR| 00000450: 45 53 53 45 20 3D 20 24 34 41 00 4D 24 26 02 2E |ESSE = $4A.M$&..| 00000460: 45 51 20 5A 49 45 4C 42 45 52 45 49 43 48 20 3D |EQ ZIELBEREICH =| 00000470: 20 24 36 46 30 30 00 53 24 30 02 3B 00 78 24 3A | $6F00.S$0.;.x$:| 00000480: 02 20 4C 44 58 23 28 45 4E 44 41 44 52 45 53 53 |. LDX#(ENDADRESS| 00000490: 45 2D 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 |E-ANFANGSADRESSE| 000004A0: 29 00 9A 24 44 02 53 43 48 4C 45 49 46 45 33 20 |)..$D.SCHLEIFE3 | 000004B0: 4C 44 41 41 4E 46 41 4E 47 53 41 44 52 45 53 53 |LDAANFANGSADRESS| 000004C0: 45 2C 58 00 B0 24 4E 02 20 53 54 41 5A 49 45 4C |E,X..$N. STAZIEL| 000004D0: 42 45 52 45 49 43 48 2C 58 00 B9 24 58 02 20 44 |BEREICH,X..$X. D| 000004E0: 45 58 00 DA 24 62 02 20 42 50 4C 53 43 48 4C 45 |EX..$b. BPLSCHLE| 000004F0: 49 46 45 33 3B 20 50 52 55 45 46 54 20 4E 2D 46 |IFE3; PRUEFT N-F| 00000500: 4C 41 47 00 E0 24 6C 02 3B 00 E6 24 76 02 3B 00 |LAG..$l.;..$v.;.| 00000510: 03 25 80 02 3B 20 51 55 45 4C 4C 54 45 58 54 20 |.%..; QUELLTEXT | 00000520: 5A 55 20 4C 49 53 54 49 4E 47 20 38 00 20 25 8A |ZU LISTING 8. %.| 00000530: 02 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.; =============| 00000540: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 26 25 94 02 3B 00 |=========.&%..;.| 00000550: 45 25 9E 02 2E 45 51 20 41 4E 46 41 4E 47 53 41 |E%...EQ ANFANGSA| 00000560: 44 52 45 53 53 45 20 3D 20 24 33 46 44 32 00 60 |DRESSE = $3FD2.`| 00000570: 25 A8 02 2E 45 51 20 45 4E 44 41 44 52 45 53 53 |%...EQ ENDADRESS| 00000580: 45 20 3D 20 24 34 37 35 46 00 76 25 B2 02 2E 45 |E = $475F.v%...E| 00000590: 51 20 5A 41 45 48 4C 45 52 20 3D 20 24 31 34 00 |Q ZAEHLER = $14.| 000005A0: 7C 25 BC 02 3B 00 97 25 C6 02 20 4C 44 41 23 3C ||%..;..%.. LDA#<| 000005B0: 28 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 29 |(ANFANGSADRESSE)| 000005C0: 00 A7 25 D0 02 20 53 54 41 5A 41 45 48 4C 45 52 |..%.. STAZAEHLER| 000005D0: 00 C2 25 DA 02 20 4C 44 41 23 3E 28 41 4E 46 41 |..%.. LDA#>(ANFA| 000005E0: 4E 47 53 41 44 52 45 53 53 45 29 00 D4 25 E4 02 |NGSADRESSE)..%..| 000005F0: 20 53 54 41 5A 41 45 48 4C 45 52 2B 31 00 DF 25 | STAZAEHLER+1..%| 00000600: EE 02 20 4C 44 59 23 30 00 FC 25 F8 02 53 43 48 |.. LDY#0..%..SCH| 00000610: 4C 45 49 46 45 34 20 4C 44 41 28 5A 41 45 48 4C |LEIFE4 LDA(ZAEHL| 00000620: 45 52 29 2C 59 00 09 26 02 03 20 45 4F 52 23 24 |ER),Y..&.. EOR#$| 00000630: 46 46 00 1D 26 0C 03 20 53 54 41 28 5A 41 45 48 |FF..&.. STA(ZAEH| 00000640: 4C 45 52 29 2C 59 00 2D 26 16 03 20 49 4E 43 5A |LER),Y.-&.. INCZ| 00000650: 41 45 48 4C 45 52 00 3C 26 20 03 20 42 4E 45 57 |AEHLER.<& . BNEW| 00000660: 45 49 54 45 52 00 4E 26 2A 03 20 49 4E 43 5A 41 |EITER.N&*. INCZA| 00000670: 45 48 4C 45 52 2B 31 00 64 26 34 03 57 45 49 54 |EHLER+1.d&4.WEIT| 00000680: 45 52 20 4C 44 41 5A 41 45 48 4C 45 52 00 7D 26 |ER LDAZAEHLER.}&| 00000690: 3E 03 20 43 4D 50 23 3C 28 45 4E 44 41 44 52 45 |>. CMP#<(ENDADRE| 000006A0: 53 53 45 2B 31 29 00 8F 26 48 03 20 4C 44 41 5A |SSE+1)..&H. LDAZ| 000006B0: 41 45 48 4C 45 52 2B 31 00 A8 26 52 03 20 53 42 |AEHLER+1..&R. SB| 000006C0: 43 23 3E 28 45 4E 44 41 44 52 45 53 53 45 2B 31 |C#>(ENDADRESSE+1| 000006D0: 29 00 BA 26 5C 03 20 42 43 43 53 43 48 4C 45 49 |)..&\. BCCSCHLEI| 000006E0: 46 45 34 00 C0 26 66 03 3B 00 C6 26 70 03 3B 00 |FE4..&f.;..&p.;.| 000006F0: E4 26 7A 03 3B 20 51 55 45 4C 4C 54 45 58 54 20 |.&z.; QUELLTEXT | 00000700: 5A 55 20 4C 49 53 54 49 4E 47 20 31 30 00 02 27 |ZU LISTING 10..'| 00000710: 84 03 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..; ============| 00000720: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 08 27 8E 03 |===========..'..| 00000730: 3B 00 27 27 98 03 2E 45 51 20 41 4E 46 41 4E 47 |;.''...EQ ANFANG| 00000740: 53 41 44 52 45 53 53 45 20 3D 20 24 32 30 30 30 |SADRESSE = $2000| 00000750: 00 43 27 A2 03 2E 45 51 20 45 4E 44 41 44 52 45 |.C'...EQ ENDADRE| 00000760: 53 53 45 20 20 3D 20 24 33 46 46 46 00 59 27 AC |SSE = $3FFF.Y'.| 00000770: 03 2E 45 51 20 5A 41 45 48 4C 45 52 20 3D 20 24 |..EQ ZAEHLER = $| 00000780: 31 34 00 5F 27 B6 03 3B 00 7A 27 C0 03 20 4C 44 |14._'..;.z'.. LD| 00000790: 41 23 3C 28 41 4E 46 41 4E 47 53 41 44 52 45 53 |A#<(ANFANGSADRES| 000007A0: 53 45 29 00 8A 27 CA 03 20 53 54 41 5A 41 45 48 |SE)..'.. STAZAEH| 000007B0: 4C 45 52 00 A5 27 D4 03 20 4C 44 41 23 3E 28 41 |LER..'.. LDA#>(A| 000007C0: 4E 46 41 4E 47 53 41 44 52 45 53 53 45 29 00 B7 |NFANGSADRESSE)..| 000007D0: 27 DE 03 20 53 54 41 5A 41 45 48 4C 45 52 2B 31 |'.. STAZAEHLER+1| 000007E0: 00 C2 27 E8 03 20 4C 44 59 23 30 00 DF 27 F2 03 |..'.. LDY#0..'..| 000007F0: 53 43 48 4C 45 49 46 45 35 20 4C 44 41 28 5A 41 |SCHLEIFE5 LDA(ZA| 00000800: 45 48 4C 45 52 29 2C 59 00 EC 27 FC 03 20 45 4F |EHLER),Y..'.. EO| 00000810: 52 23 24 46 46 00 00 28 06 04 20 53 54 41 28 5A |R#$FF..(.. STA(Z| 00000820: 41 45 48 4C 45 52 29 2C 59 00 09 28 10 04 20 49 |AEHLER),Y..(.. I| 00000830: 4E 59 00 1B 28 1A 04 20 42 4E 45 53 43 48 4C 45 |NY..(.. BNESCHLE| 00000840: 49 46 45 35 00 2D 28 24 04 20 49 4E 43 5A 41 45 |IFE5.-($. INCZAE| 00000850: 48 4C 45 52 2B 31 00 3F 28 2E 04 20 4C 44 41 5A |HLER+1.?(.. LDAZ| 00000860: 41 45 48 4C 45 52 2B 31 00 58 28 38 04 20 43 4D |AEHLER+1.X(8. CM| 00000870: 50 23 3E 28 45 4E 44 41 44 52 45 53 53 45 2B 31 |P#>(ENDADRESSE+1| 00000880: 29 00 6A 28 42 04 20 42 4E 45 53 43 48 4C 45 49 |).j(B. BNESCHLEI| 00000890: 46 45 35 00 70 28 4C 04 3B 00 76 28 56 04 3B 00 |FE5.p(L.;.v(V.;.| 000008A0: 99 28 60 04 3B 20 51 55 45 4C 4C 54 45 58 54 20 |.(`.; QUELLTEXT | 000008B0: 5A 55 20 45 49 4E 45 52 20 53 43 48 4C 45 49 46 |ZU EINER SCHLEIF| 000008C0: 45 2C 00 BB 28 6A 04 3B 20 44 49 45 20 44 45 4E |E,..(j.; DIE DEN| 000008D0: 20 42 45 52 45 49 43 48 20 24 33 46 44 32 2D 24 | BEREICH $3FD2-$| 000008E0: 34 37 44 31 00 D0 28 74 04 3B 20 4B 4F 4D 50 4C |47D1..(t.; KOMPL| 000008F0: 45 4D 45 4E 54 49 45 52 54 00 D6 28 7E 04 3B 00 |EMENTIERT..(~.;.| 00000900: F5 28 88 04 2E 45 51 20 41 4E 46 41 4E 47 53 41 |.(...EQ ANFANGSA| 00000910: 44 52 45 53 53 45 20 3D 20 24 33 46 44 32 00 10 |DRESSE = $3FD2..| 00000920: 29 92 04 2E 45 51 20 45 4E 44 41 44 52 45 53 53 |)...EQ ENDADRESS| 00000930: 45 20 3D 20 24 34 37 44 31 00 26 29 9C 04 2E 45 |E = $47D1.&)...E| 00000940: 51 20 5A 41 45 48 4C 45 52 20 3D 20 24 31 34 00 |Q ZAEHLER = $14.| 00000950: 2C 29 A6 04 3B 00 47 29 B0 04 20 4C 44 41 23 3C |,)..;.G).. LDA#<| 00000960: 28 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 29 |(ANFANGSADRESSE)| 00000970: 00 57 29 BA 04 20 53 54 41 5A 41 45 48 4C 45 52 |.W).. STAZAEHLER| 00000980: 00 72 29 C4 04 20 4C 44 41 23 3E 28 41 4E 46 41 |.r).. LDA#>(ANFA| 00000990: 4E 47 53 41 44 52 45 53 53 45 29 00 84 29 CE 04 |NGSADRESSE)..)..| 000009A0: 20 53 54 41 5A 41 45 48 4C 45 52 2B 31 00 AC 29 | STAZAEHLER+1..)| 000009B0: D8 04 20 4C 44 58 23 3E 28 45 4E 44 41 44 52 45 |.. LDX#>(ENDADRE| 000009C0: 53 53 45 2B 31 2D 41 4E 46 41 4E 47 53 41 44 52 |SSE+1-ANFANGSADR| 000009D0: 45 53 53 45 29 00 B7 29 E2 04 20 4C 44 59 23 30 |ESSE)..).. LDY#0| 000009E0: 00 D4 29 EC 04 53 43 48 4C 45 49 46 45 36 20 4C |..)..SCHLEIFE6 L| 000009F0: 44 41 28 5A 41 45 48 4C 45 52 29 2C 59 00 E1 29 |DA(ZAEHLER),Y..)| 00000A00: F6 04 20 45 4F 52 23 24 46 46 00 F5 29 00 05 20 |.. EOR#$FF..).. | 00000A10: 53 54 41 28 5A 41 45 48 4C 45 52 29 2C 59 00 FE |STA(ZAEHLER),Y..| 00000A20: 29 0A 05 20 49 4E 59 00 10 2A 14 05 20 42 4E 45 |).. INY..*.. BNE| 00000A30: 53 43 48 4C 45 49 46 45 36 00 22 2A 1E 05 20 49 |SCHLEIFE6."*.. I| 00000A40: 4E 43 5A 41 45 48 4C 45 52 2B 31 00 2B 2A 28 05 |NCZAEHLER+1.+*(.| 00000A50: 20 44 45 58 00 3D 2A 32 05 20 42 4E 45 53 43 48 | DEX.=*2. BNESCH| 00000A60: 4C 45 49 46 45 36 00 43 2A 3C 05 3B 00 5D 2A 46 |LEIFE6.C*<.;.]*F| 00000A70: 05 3B 20 45 4E 44 45 20 56 4F 4E 20 4C 49 53 54 |.; ENDE VON LIST| 00000A80: 49 4E 47 20 31 32 00 00 00 |ING 12... |
X...F..BA $C000...P..LI 1,3,0...Z.;. D.
; *******************************.F N.;
* QUELLTEXTE (HYPRA-ASS) *.L X.; *
====================== *.. ..; *
*.. ..; * FUER
VERSCHIEDENE SCHLEIFEN *.. ..; *
*..! .; * 28.08.85
BY FLORIAN MUELLER *.*!..; *
*.P!..; **************
*****************.V!..;.\!H.;.Y!R.; QUEL
LTEXT ZU LISTING 1..!..; ===============
=======..!..;..!...EQ ANFANGSADRESSE = $
02.R!...EQ ENDADRESSE = $FF..!...EQ ZIEL
BEREICH = $6F00..!..;..!.. LDX#0.!"".SCH
LEIFE1 LDAANFANGSADRESSE,X.7",. STAZIELB
EREICH,X.@"6. INX.G"@. CPX#(ENDADRESSE+1
-ANFANGSADRESSE).Y"J. BNESCHLEIFE1."T.;
.."^.;.."H.; QUELLTEXT ZU LISTING 2.."R.
; ======================.E"|.;.."...EQ A
NFANGSADRESSE = $02.."...EQ ENDADRESSE =
$FF..#...EQ ZIELBEREICH = $6F00..#..;.D
#.. LDX#(ENDADRESSE+1-ANFANGSADRESSE).H#
..SCHLEIFE2 LDAANFANGSADRESSE-1,X..#B. S
TAZIELBEREICH-1,X..#L. DEX; DEKREMENTIER
BEFEHL..#V. BNESCHLEIFE2..#..;..#..;.X#.
.; QUELLTEXT ZU LISTING 4..#..; ========
==============..#..;..$...EQ ANFANGSADRE
SSE = $16.1$...EQ ENDADRESSE = $4A.M$&..
EQ ZIELBEREICH = $6F00.S$0.;.X$:. LDX#(E
NDADRESSE-ANFANGSADRESSE)..$D.SCHLEIFE3
LDAANFANGSADRESSE,X..$N. STAZIELBEREICH,
X..$X. DEX.Z$B. BPLSCHLEIFE3; PRUEFT N-F
LAG..$L.;..$V.;..%..; QUELLTEXT ZU LISTI
NG 8. %..; ======================.&%..;.
E%...EQ ANFANGSADRESSE = $3FD2.`%...EQ E
NDADRESSE = $475F.V%...EQ ZAEHLER = $14.
|%..;..%F. LDA#<(ANFANGSADRESSE)..%P. ST
AZAEHLER.B%Z. LDA#>(ANFANGSADRESSE).T%..
STAZAEHLER+1..%.. LDY#0..%..SCHLEIFE4 L
DA(ZAEHLER),Y..&.. EOR#$FF..&.. STA(ZAEH
LER),Y.-&.. INCZAEHLER.<& . BNEWEITER.N&
*. INCZAEHLER+1.D&4.WEITER LDAZAEHLER.}&
>. CMP#<(ENDADRESSE+1)..&H. LDAZAEHLER+1
..&R. SBC#>(ENDADRESSE+1)..&\. BCCSCHLEI
FE4..&F.;.F&P.;..&Z.; QUELLTEXT ZU LISTI
NG 10..'..; =======================..'..
;.''...EQ ANFANGSADRESSE = $2000.C'...EQ
ENDADRESSE = $3FFF.Y'...EQ ZAEHLER = $
14._'..;.Z'.. LDA#<(ANFANGSADRESSE)..'J.
STAZAEHLER..'T. LDA#>(ANFANGSADRESSE)..
'.. STAZAEHLER+1.B'.. LDY#0..'..SCHLEIFE
5 LDA(ZAEHLER),Y..'.. EOR#$FF..(.. STA(Z
AEHLER),Y..(.. INY..(.. BNESCHLEIFE5.-($
. INCZAEHLER+1.?(.. LDAZAEHLER+1.X(8. CM
P#>(ENDADRESSE+1).J(B. BNESCHLEIFE5.P(L.
;.V(V.;..(`.; QUELLTEXT ZU EINER SCHLEIF
E,..(J.; DIE DEN BEREICH $3FD2-$47D1.P(T
.; KOMPLEMENTIERT.V(~.;..(...EQ ANFANGSA
DRESSE = $3FD2..)...EQ ENDADRESSE = $47D
1.&)...EQ ZAEHLER = $14.,)..;.G).. LDA#<
(ANFANGSADRESSE).W).. STAZAEHLER.R)D. LD
A#>(ANFANGSADRESSE)..)N. STAZAEHLER+1..)
X. LDX#>(ENDADRESSE+1-ANFANGSADRESSE)..)
.. LDY#0.T)..SCHLEIFE6 LDA(ZAEHLER),Y..)
.. EOR#$FF..).. STA(ZAEHLER),Y..).. INY.
.*.. BNESCHLEIFE6."*.. INCZAEHLER+1.+*(.
DEX.=*2. BNESCHLEIFE6.C*<.;.]*F.; ENDE
VON LISTING 12...
> CLICK IMAGE PREVIEW FOR FULL MODAL