LISTING 10.23(S)

FILE INFORMATION

FILENAME(S): LISTING 10.23(S)

FILE TYPE(S): PRG

FILE SIZE: 2.7K

FIRST SEEN: 2025-10-20 14:31:28

APPEARS ON: 1 disk(s)

FILE HASH

d8ec0ef073676a58059b599033b78f32be0c30c39e64d22742a44e0442da1009

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MT90499 SEITE 2	LISTING 10.23(S)	PRG	Treasure Chest - Klaus Der Suhler	23	17	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 53 4F  57 49 45 20 41 45 4E 44  |..; * SOWIE AEND|
00000140: 45 52 55 4E 47 45 4E 20  31 36 2E 31 30 2E 38 37  |ERUNGEN 16.10.87|
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 7D 21  D2 00 3B 20 51 55 45 4C  |\!..;.}!..; QUEL|
00000190: 4C 54 45 58 54 20 5A 55  20 4C 49 53 54 49 4E 47  |LTEXT ZU LISTING|
000001A0: 20 31 30 2E 31 32 00 9E  21 DC 00 3B 20 3D 3D 3D  | 10.12..!..; ===|
000001B0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
000001C0: 3D 3D 3D 3D 3D 3D 3D 00  A4 21 E6 00 3B 00 C1 21  |=======..!..;..!|
000001D0: F0 00 2E 45 51 20 41 4E  46 41 4E 47 53 41 44 52  |...EQ ANFANGSADR|
000001E0: 45 53 53 45 20 3D 20 24  30 32 00 DA 21 FA 00 2E  |ESSE = $02..!...|
000001F0: 45 51 20 45 4E 44 41 44  52 45 53 53 45 20 3D 20  |EQ ENDADRESSE = |
00000200: 24 46 46 00 F6 21 04 01  2E 45 51 20 5A 49 45 4C  |$FF..!...EQ ZIEL|
00000210: 42 45 52 45 49 43 48 20  3D 20 24 36 46 30 30 00  |BEREICH = $6F00.|
00000220: FC 21 0E 01 3B 00 07 22  18 01 20 4C 44 58 23 30  |.!..;..".. LDX#0|
00000230: 00 29 22 22 01 53 43 48  4C 45 49 46 45 31 20 4C  |.)"".SCHLEIFE1 L|
00000240: 44 41 41 4E 46 41 4E 47  53 41 44 52 45 53 53 45  |DAANFANGSADRESSE|
00000250: 2C 58 00 3F 22 2C 01 20  53 54 41 5A 49 45 4C 42  |,X.?",. STAZIELB|
00000260: 45 52 45 49 43 48 2C 58  00 48 22 36 01 20 49 4E  |EREICH,X.H"6. IN|
00000270: 58 00 6F 22 40 01 20 43  50 58 23 28 45 4E 44 41  |X.o"@. CPX#(ENDA|
00000280: 44 52 45 53 53 45 2B 31  2D 41 4E 46 41 4E 47 53  |DRESSE+1-ANFANGS|
00000290: 41 44 52 45 53 53 45 29  00 81 22 4A 01 20 42 4E  |ADRESSE).."J. BN|
000002A0: 45 53 43 48 4C 45 49 46  45 31 00 87 22 54 01 3B  |ESCHLEIFE1.."T.;|
000002B0: 00 8D 22 5E 01 3B 00 AE  22 68 01 3B 20 51 55 45  |.."^.;.."h.; QUE|
000002C0: 4C 4C 54 45 58 54 20 5A  55 20 4C 49 53 54 49 4E  |LLTEXT ZU LISTIN|
000002D0: 47 20 31 30 2E 31 33 00  CF 22 72 01 3B 20 3D 3D  |G 10.13.."r.; ==|
000002E0: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
000002F0: 3D 3D 3D 3D 3D 3D 3D 3D  00 D5 22 7C 01 3B 00 F2  |========.."|.;..|
00000300: 22 86 01 2E 45 51 20 41  4E 46 41 4E 47 53 41 44  |"...EQ ANFANGSAD|
00000310: 52 45 53 53 45 20 3D 20  24 30 32 00 0B 23 90 01  |RESSE = $02..#..|
00000320: 2E 45 51 20 45 4E 44 41  44 52 45 53 53 45 20 3D  |.EQ ENDADRESSE =|
00000330: 20 24 46 46 00 27 23 9A  01 2E 45 51 20 5A 49 45  | $FF.'#...EQ ZIE|
00000340: 4C 42 45 52 45 49 43 48  20 3D 20 24 36 46 30 30  |LBEREICH = $6F00|
00000350: 00 2D 23 A4 01 3B 00 54  23 AE 01 20 4C 44 58 23  |.-#..;.T#.. LDX#|
00000360: 28 45 4E 44 41 44 52 45  53 53 45 2B 31 2D 41 4E  |(ENDADRESSE+1-AN|
00000370: 46 41 4E 47 53 41 44 52  45 53 53 45 29 00 78 23  |FANGSADRESSE).x#|
00000380: B8 01 53 43 48 4C 45 49  46 45 32 20 4C 44 41 41  |..SCHLEIFE2 LDAA|
00000390: 4E 46 41 4E 47 53 41 44  52 45 53 53 45 2D 31 2C  |NFANGSADRESSE-1,|
000003A0: 58 00 90 23 C2 01 20 53  54 41 5A 49 45 4C 42 45  |X..#.. STAZIELBE|
000003B0: 52 45 49 43 48 2D 31 2C  58 00 AD 23 CC 01 20 44  |REICH-1,X..#.. D|
000003C0: 45 58 3B 20 44 45 4B 52  45 4D 45 4E 54 49 45 52  |EX; DEKREMENTIER|
000003D0: 42 45 46 45 48 4C 00 BF  23 D6 01 20 42 4E 45 53  |BEFEHL..#.. BNES|
000003E0: 43 48 4C 45 49 46 45 32  00 C5 23 E0 01 3B 00 CB  |CHLEIFE2..#..;..|
000003F0: 23 EA 01 3B 00 EC 23 F4  01 3B 20 51 55 45 4C 4C  |#..;..#..; QUELL|
00000400: 54 45 58 54 20 5A 55 20  4C 49 53 54 49 4E 47 20  |TEXT ZU LISTING |
00000410: 31 30 2E 31 35 00 0D 24  FE 01 3B 20 3D 3D 3D 3D  |10.15..$..; ====|
00000420: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000430: 3D 3D 3D 3D 3D 3D 00 13  24 08 02 3B 00 30 24 12  |======..$..;.0$.|
00000440: 02 2E 45 51 20 41 4E 46  41 4E 47 53 41 44 52 45  |..EQ ANFANGSADRE|
00000450: 53 53 45 20 3D 20 24 31  36 00 49 24 1C 02 2E 45  |SSE = $16.I$...E|
00000460: 51 20 45 4E 44 41 44 52  45 53 53 45 20 3D 20 24  |Q ENDADRESSE = $|
00000470: 34 41 00 65 24 26 02 2E  45 51 20 5A 49 45 4C 42  |4A.e$&..EQ ZIELB|
00000480: 45 52 45 49 43 48 20 3D  20 24 36 46 30 30 00 6B  |EREICH = $6F00.k|
00000490: 24 30 02 3B 00 90 24 3A  02 20 4C 44 58 23 28 45  |$0.;..$:. LDX#(E|
000004A0: 4E 44 41 44 52 45 53 53  45 2D 41 4E 46 41 4E 47  |NDADRESSE-ANFANG|
000004B0: 53 41 44 52 45 53 53 45  29 00 B2 24 44 02 53 43  |SADRESSE)..$D.SC|
000004C0: 48 4C 45 49 46 45 33 20  4C 44 41 41 4E 46 41 4E  |HLEIFE3 LDAANFAN|
000004D0: 47 53 41 44 52 45 53 53  45 2C 58 00 C8 24 4E 02  |GSADRESSE,X..$N.|
000004E0: 20 53 54 41 5A 49 45 4C  42 45 52 45 49 43 48 2C  | STAZIELBEREICH,|
000004F0: 58 00 D1 24 58 02 20 44  45 58 00 F2 24 62 02 20  |X..$X. DEX..$b. |
00000500: 42 50 4C 53 43 48 4C 45  49 46 45 33 3B 20 50 52  |BPLSCHLEIFE3; PR|
00000510: 55 45 46 54 20 4E 2D 46  4C 41 47 00 F8 24 6C 02  |UEFT N-FLAG..$l.|
00000520: 3B 00 FE 24 76 02 3B 00  1F 25 80 02 3B 20 51 55  |;..$v.;..%..; QU|
00000530: 45 4C 4C 54 45 58 54 20  5A 55 20 4C 49 53 54 49  |ELLTEXT ZU LISTI|
00000540: 4E 47 20 31 30 2E 31 39  00 40 25 8A 02 3B 20 3D  |NG 10.19.@%..; =|
00000550: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000560: 3D 3D 3D 3D 3D 3D 3D 3D  3D 00 46 25 94 02 3B 00  |=========.F%..;.|
00000570: 65 25 9E 02 2E 45 51 20  41 4E 46 41 4E 47 53 41  |e%...EQ ANFANGSA|
00000580: 44 52 45 53 53 45 20 3D  20 24 33 46 44 32 00 80  |DRESSE = $3FD2..|
00000590: 25 A8 02 2E 45 51 20 45  4E 44 41 44 52 45 53 53  |%...EQ ENDADRESS|
000005A0: 45 20 3D 20 24 34 37 35  46 00 96 25 B2 02 2E 45  |E = $475F..%...E|
000005B0: 51 20 5A 41 45 48 4C 45  52 20 3D 20 24 31 34 00  |Q ZAEHLER = $14.|
000005C0: 9C 25 BC 02 3B 00 B7 25  C6 02 20 4C 44 41 23 3C  |.%..;..%.. LDA#<|
000005D0: 28 41 4E 46 41 4E 47 53  41 44 52 45 53 53 45 29  |(ANFANGSADRESSE)|
000005E0: 00 C7 25 D0 02 20 53 54  41 5A 41 45 48 4C 45 52  |..%.. STAZAEHLER|
000005F0: 00 E2 25 DA 02 20 4C 44  41 23 3E 28 41 4E 46 41  |..%.. LDA#>(ANFA|
00000600: 4E 47 53 41 44 52 45 53  53 45 29 00 F4 25 E4 02  |NGSADRESSE)..%..|
00000610: 20 53 54 41 5A 41 45 48  4C 45 52 2B 31 00 FF 25  | STAZAEHLER+1..%|
00000620: EE 02 20 4C 44 59 23 30  00 1C 26 F8 02 53 43 48  |.. LDY#0..&..SCH|
00000630: 4C 45 49 46 45 34 20 4C  44 41 28 5A 41 45 48 4C  |LEIFE4 LDA(ZAEHL|
00000640: 45 52 29 2C 59 00 29 26  02 03 20 45 4F 52 23 24  |ER),Y.)&.. EOR#$|
00000650: 46 46 00 3D 26 0C 03 20  53 54 41 28 5A 41 45 48  |FF.=&.. STA(ZAEH|
00000660: 4C 45 52 29 2C 59 00 4D  26 16 03 20 49 4E 43 5A  |LER),Y.M&.. INCZ|
00000670: 41 45 48 4C 45 52 00 5C  26 20 03 20 42 4E 45 57  |AEHLER.\& . BNEW|
00000680: 45 49 54 45 52 00 6E 26  2A 03 20 49 4E 43 5A 41  |EITER.n&*. INCZA|
00000690: 45 48 4C 45 52 2B 31 00  84 26 34 03 57 45 49 54  |EHLER+1..&4.WEIT|
000006A0: 45 52 20 4C 44 41 5A 41  45 48 4C 45 52 00 9D 26  |ER LDAZAEHLER..&|
000006B0: 3E 03 20 43 4D 50 23 3C  28 45 4E 44 41 44 52 45  |>. CMP#<(ENDADRE|
000006C0: 53 53 45 2B 31 29 00 AF  26 48 03 20 4C 44 41 5A  |SSE+1)..&H. LDAZ|
000006D0: 41 45 48 4C 45 52 2B 31  00 C8 26 52 03 20 53 42  |AEHLER+1..&R. SB|
000006E0: 43 23 3E 28 45 4E 44 41  44 52 45 53 53 45 2B 31  |C#>(ENDADRESSE+1|
000006F0: 29 00 DA 26 5C 03 20 42  43 43 53 43 48 4C 45 49  |)..&\. BCCSCHLEI|
00000700: 46 45 34 00 E0 26 66 03  3B 00 E6 26 70 03 3B 00  |FE4..&f.;..&p.;.|
00000710: 07 27 7A 03 3B 20 51 55  45 4C 4C 54 45 58 54 20  |.'z.; QUELLTEXT |
00000720: 5A 55 20 4C 49 53 54 49  4E 47 20 31 30 2E 32 31  |ZU LISTING 10.21|
00000730: 00 28 27 84 03 3B 20 3D  3D 3D 3D 3D 3D 3D 3D 3D  |.('..; =========|
00000740: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 3D 3D  |================|
00000750: 3D 00 2E 27 8E 03 3B 00  4D 27 98 03 2E 45 51 20  |=..'..;.M'...EQ |
00000760: 41 4E 46 41 4E 47 53 41  44 52 45 53 53 45 20 3D  |ANFANGSADRESSE =|
00000770: 20 24 32 30 30 30 00 69  27 A2 03 2E 45 51 20 45  | $2000.i'...EQ E|
00000780: 4E 44 41 44 52 45 53 53  45 20 20 3D 20 24 33 46  |NDADRESSE  = $3F|
00000790: 46 46 00 7F 27 AC 03 2E  45 51 20 5A 41 45 48 4C  |FF..'...EQ ZAEHL|
000007A0: 45 52 20 3D 20 24 31 34  00 85 27 B6 03 3B 00 A0  |ER = $14..'..;..|
000007B0: 27 C0 03 20 4C 44 41 23  3C 28 41 4E 46 41 4E 47  |'.. LDA#<(ANFANG|
000007C0: 53 41 44 52 45 53 53 45  29 00 B0 27 CA 03 20 53  |SADRESSE)..'.. S|
000007D0: 54 41 5A 41 45 48 4C 45  52 00 CB 27 D4 03 20 4C  |TAZAEHLER..'.. L|
000007E0: 44 41 23 3E 28 41 4E 46  41 4E 47 53 41 44 52 45  |DA#>(ANFANGSADRE|
000007F0: 53 53 45 29 00 DD 27 DE  03 20 53 54 41 5A 41 45  |SSE)..'.. STAZAE|
00000800: 48 4C 45 52 2B 31 00 E8  27 E8 03 20 4C 44 59 23  |HLER+1..'.. LDY#|
00000810: 30 00 05 28 F2 03 53 43  48 4C 45 49 46 45 35 20  |0..(..SCHLEIFE5 |
00000820: 4C 44 41 28 5A 41 45 48  4C 45 52 29 2C 59 00 12  |LDA(ZAEHLER),Y..|
00000830: 28 FC 03 20 45 4F 52 23  24 46 46 00 26 28 06 04  |(.. EOR#$FF.&(..|
00000840: 20 53 54 41 28 5A 41 45  48 4C 45 52 29 2C 59 00  | STA(ZAEHLER),Y.|
00000850: 2F 28 10 04 20 49 4E 59  00 41 28 1A 04 20 42 4E  |/(.. INY.A(.. BN|
00000860: 45 53 43 48 4C 45 49 46  45 35 00 53 28 24 04 20  |ESCHLEIFE5.S($. |
00000870: 49 4E 43 5A 41 45 48 4C  45 52 2B 31 00 65 28 2E  |INCZAEHLER+1.e(.|
00000880: 04 20 4C 44 41 5A 41 45  48 4C 45 52 2B 31 00 7E  |. LDAZAEHLER+1.~|
00000890: 28 38 04 20 43 4D 50 23  3E 28 45 4E 44 41 44 52  |(8. CMP#>(ENDADR|
000008A0: 45 53 53 45 2B 31 29 00  90 28 42 04 20 42 4E 45  |ESSE+1)..(B. BNE|
000008B0: 53 43 48 4C 45 49 46 45  35 00 96 28 4C 04 3B 00  |SCHLEIFE5..(L.;.|
000008C0: 9C 28 56 04 3B 00 BF 28  60 04 3B 20 51 55 45 4C  |.(V.;..(`.; QUEL|
000008D0: 4C 54 45 58 54 20 5A 55  20 45 49 4E 45 52 20 53  |LTEXT ZU EINER S|
000008E0: 43 48 4C 45 49 46 45 2C  00 E1 28 6A 04 3B 20 44  |CHLEIFE,..(j.; D|
000008F0: 49 45 20 44 45 4E 20 42  45 52 45 49 43 48 20 24  |IE DEN BEREICH $|
00000900: 33 46 44 32 2D 24 34 37  44 31 00 F6 28 74 04 3B  |3FD2-$47D1..(t.;|
00000910: 20 4B 4F 4D 50 4C 45 4D  45 4E 54 49 45 52 54 00  | KOMPLEMENTIERT.|
00000920: FC 28 7E 04 3B 00 1B 29  88 04 2E 45 51 20 41 4E  |.(~.;..)...EQ AN|
00000930: 46 41 4E 47 53 41 44 52  45 53 53 45 20 3D 20 24  |FANGSADRESSE = $|
00000940: 33 46 44 32 00 36 29 92  04 2E 45 51 20 45 4E 44  |3FD2.6)...EQ END|
00000950: 41 44 52 45 53 53 45 20  3D 20 24 34 37 44 31 00  |ADRESSE = $47D1.|
00000960: 4C 29 9C 04 2E 45 51 20  5A 41 45 48 4C 45 52 20  |L)...EQ ZAEHLER |
00000970: 3D 20 24 31 34 00 52 29  A6 04 3B 00 6D 29 B0 04  |= $14.R)..;.m)..|
00000980: 20 4C 44 41 23 3C 28 41  4E 46 41 4E 47 53 41 44  | LDA#<(ANFANGSAD|
00000990: 52 45 53 53 45 29 00 7D  29 BA 04 20 53 54 41 5A  |RESSE).}).. STAZ|
000009A0: 41 45 48 4C 45 52 00 98  29 C4 04 20 4C 44 41 23  |AEHLER..).. LDA#|
000009B0: 3E 28 41 4E 46 41 4E 47  53 41 44 52 45 53 53 45  |>(ANFANGSADRESSE|
000009C0: 29 00 AA 29 CE 04 20 53  54 41 5A 41 45 48 4C 45  |)..).. STAZAEHLE|
000009D0: 52 2B 31 00 D2 29 D8 04  20 4C 44 58 23 3E 28 45  |R+1..).. LDX#>(E|
000009E0: 4E 44 41 44 52 45 53 53  45 2B 31 2D 41 4E 46 41  |NDADRESSE+1-ANFA|
000009F0: 4E 47 53 41 44 52 45 53  53 45 29 00 DD 29 E2 04  |NGSADRESSE)..)..|
00000A00: 20 4C 44 59 23 30 00 FA  29 EC 04 53 43 48 4C 45  | LDY#0..)..SCHLE|
00000A10: 49 46 45 36 20 4C 44 41  28 5A 41 45 48 4C 45 52  |IFE6 LDA(ZAEHLER|
00000A20: 29 2C 59 00 07 2A F6 04  20 45 4F 52 23 24 46 46  |),Y..*.. EOR#$FF|
00000A30: 00 1B 2A 00 05 20 53 54  41 28 5A 41 45 48 4C 45  |..*.. STA(ZAEHLE|
00000A40: 52 29 2C 59 00 24 2A 0A  05 20 49 4E 59 00 36 2A  |R),Y.$*.. INY.6*|
00000A50: 14 05 20 42 4E 45 53 43  48 4C 45 49 46 45 36 00  |.. BNESCHLEIFE6.|
00000A60: 48 2A 1E 05 20 49 4E 43  5A 41 45 48 4C 45 52 2B  |H*.. INCZAEHLER+|
00000A70: 31 00 51 2A 28 05 20 44  45 58 00 63 2A 32 05 20  |1.Q*(. DEX.c*2. |
00000A80: 42 4E 45 53 43 48 4C 45  49 46 45 36 00 69 2A 3C  |BNESCHLEIFE6.i*<|
00000A90: 05 3B 00 81 2A 46 05 3B  20 45 4E 44 45 20 44 45  |.;..*F.; ENDE DE|
00000AA0: 53 20 4C 49 53 54 49 4E  47 53 00 00 00           |S LISTINGS...   |

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 *.*!..; * SOWIE AEND
ERUNGEN 16.10.87  *.P!..; **************
*****************.V!..;.\!H.;.}!R.; QUEL
LTEXT ZU LISTING 10.12..!..; ===========
===============..!..;.A!...EQ ANFANGSADR
ESSE = $02.Z!...EQ ENDADRESSE = $FF..!..
.EQ ZIELBEREICH = $6F00..!..;..".. LDX#0
.)"".SCHLEIFE1 LDAANFANGSADRESSE,X.?",. 
STAZIELBEREICH,X.H"6. INX.O"@. CPX#(ENDA
DRESSE+1-ANFANGSADRESSE).."J. BNESCHLEIF
E1.."T.;.."^.;.."H.; QUELLTEXT ZU LISTIN
G 10.13.O"R.; ==========================
.U"|.;.."...EQ ANFANGSADRESSE = $02..#..
.EQ ENDADRESSE = $FF.'#...EQ ZIELBEREICH
 = $6F00.-#..;.T#.. LDX#(ENDADRESSE+1-AN
FANGSADRESSE).X#..SCHLEIFE2 LDAANFANGSAD
RESSE-1,X..#B. STAZIELBEREICH-1,X..#L. D
EX; DEKREMENTIERBEFEHL..#V. BNESCHLEIFE2
.E#..;.K#..;..#..; QUELLTEXT ZU LISTING 
10.15..$..; ==========================..
$..;.0$...EQ ANFANGSADRESSE = $16.I$...E
Q ENDADRESSE = $4A.E$&..EQ ZIELBEREICH =
 $6F00.K$0.;..$:. LDX#(ENDADRESSE-ANFANG
SADRESSE)..$D.SCHLEIFE3 LDAANFANGSADRESS
E,X.H$N. STAZIELBEREICH,X.Q$X. DEX..$B. 
BPLSCHLEIFE3; PRUEFT N-FLAG..$L.;..$V.;.
.%..; QUELLTEXT ZU LISTING 10.19.@%..; =
=========================.F%..;.E%...EQ 
ANFANGSADRESSE = $3FD2..%...EQ ENDADRESS
E = $475F..%...EQ ZAEHLER = $14..%..;..%
F. LDA#<(ANFANGSADRESSE).G%P. STAZAEHLER
..%Z. LDA#>(ANFANGSADRESSE)..%.. STAZAEH
LER+1..%.. LDY#0..&..SCHLEIFE4 LDA(ZAEHL
ER),Y.)&.. EOR#$FF.=&.. STA(ZAEHLER),Y.M
&.. INCZAEHLER.\& . BNEWEITER.N&*. INCZA
EHLER+1..&4.WEITER LDAZAEHLER..&>. CMP#<
(ENDADRESSE+1)..&H. LDAZAEHLER+1.H&R. SB
C#>(ENDADRESSE+1).Z&\. BCCSCHLEIFE4..&F.
;..&P.;..'Z.; QUELLTEXT ZU LISTING 10.21
.('..; ==========================..'..;.
M'...EQ ANFANGSADRESSE = $2000.I'...EQ E
NDADRESSE  = $3FFF.'...EQ ZAEHLER = $14
..'..;. '.. LDA#<(ANFANGSADRESSE)..'J. S
TAZAEHLER.K'T. LDA#>(ANFANGSADRESSE)..'.
. STAZAEHLER+1..'.. LDY#0..(..SCHLEIFE5 
LDA(ZAEHLER),Y..(.. EOR#$FF.&(.. STA(ZAE
HLER),Y./(.. INY.A(.. BNESCHLEIFE5.S($. 
INCZAEHLER+1.E(.. LDAZAEHLER+1.~(8. CMP#
>(ENDADRESSE+1)..(B. BNESCHLEIFE5..(L.;.
.(V.;..(`.; QUELLTEXT ZU EINER SCHLEIFE,
..(J.; DIE DEN BEREICH $3FD2-$47D1..(T.;
 KOMPLEMENTIERT..(~.;..)...EQ ANFANGSADR
ESSE = $3FD2.6)...EQ ENDADRESSE = $47D1.
L)...EQ ZAEHLER = $14.R)..;.M).. LDA#<(A
NFANGSADRESSE).}).. STAZAEHLER..)D. LDA#
>(ANFANGSADRESSE)..)N. STAZAEHLER+1.R)X.
 LDX#>(ENDADRESSE+1-ANFANGSADRESSE)..)..
 LDY#0..)..SCHLEIFE6 LDA(ZAEHLER),Y..*..
 EOR#$FF..*.. STA(ZAEHLER),Y.$*.. INY.6*
.. BNESCHLEIFE6.H*.. INCZAEHLER+1.Q*(. D
EX.C*2. BNESCHLEIFE6.I*<.;..*F.; ENDE DE
S LISTINGS...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL