STATISTIK

FILE INFORMATION

FILENAME(S): STATISTIK

FILE TYPE(S): PRG

FILE SIZE: 4K

FIRST SEEN: 2025-11-30 01:12:33

APPEARS ON: 3 disk(s)

FILE HASH

13c41e0abd841b51386389af90b90873216f8bbe2a5d504156ea997f9ed93abd

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SONDERHEFT 7 86	STATISTIK	PRG	C64er	16	7	DOWNLOAD FILE
SONDERHEFT 7 86	STATISTIK	PRG	DuncanTwain	16	7	DOWNLOAD FILE
SONDERHEFT 7 86	STATISTIK	PRG	DuncanTwain	16	7	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F EF 1F 64 00 3B 2A  2A 2A 20 53 54 41 54 49  |....d.;*** STATI|
00000010: 53 54 49 4B 20 2A 2A 2A  00 F5 1F 6E 00 3B 00 FB  |STIK ***...n.;..|
00000020: 1F 78 00 3B 00 1E 20 82  00 2E 45 51 20 47 45 54  |.x.;.. ...EQ GET|
00000030: 50 4F 53 20 3D 24 42 30  38 42 20 20 3B 3D 3E 20  |POS =$B08B  ;=> |
00000040: 50 4F 49 4E 54 45 52 00  34 20 8C 00 2E 45 51 20  |POINTER.4 ...EQ |
00000050: 43 48 4B 4B 4F 4D 20 3D  24 41 45 46 44 00 48 20  |CHKKOM =$AEFD.H |
00000060: 96 00 2E 45 51 20 53 55  4D 4D 45 31 20 3D 24 41  |...EQ SUMME1 =$A|
00000070: 35 00 5C 20 A0 00 2E 45  51 20 53 55 4D 4D 45 32  |5.\ ...EQ SUMME2|
00000080: 20 3D 24 41 41 00 7B 20  AA 00 2E 45 51 20 50 55  | =$AA.{ ...EQ PU|
00000090: 46 46 45 52 20 3D 24 42  32 20 20 20 20 3B 50 55  |FFER =$B2    ;PU|
000000A0: 46 46 45 52 00 A0 20 B4  00 2E 45 51 20 53 54 41  |FFER.. ...EQ STA|
000000B0: 52 54 20 20 3D 24 39 42  20 20 20 20 3B 4C 49 4E  |RT  =$9B    ;LIN|
000000C0: 4B 45 20 47 52 45 4E 5A  45 00 C6 20 BE 00 2E 45  |KE GRENZE.. ...E|
000000D0: 51 20 53 54 4B 4F 50 20  20 3D 24 39 45 20 20 20  |Q STKOP  =$9E   |
000000E0: 20 3B 52 45 43 48 54 45  20 47 52 45 4E 5A 45 00  | ;RECHTE GRENZE.|
000000F0: E6 20 C8 00 2E 45 51 20  43 4F 55 4E 54 20 20 3D  |. ...EQ COUNT  =|
00000100: 24 42 37 20 20 20 20 3B  5A 41 45 48 4C 45 52 00  |$B7    ;ZAEHLER.|
00000110: 06 21 D2 00 2E 45 51 20  4E 20 20 20 20 20 20 3D  |.!...EQ N      =|
00000120: 24 42 39 20 20 20 20 3B  5A 41 45 48 4C 45 52 00  |$B9    ;ZAEHLER.|
00000130: 26 21 DC 00 2E 45 51 20  4E 31 20 20 20 20 20 3D  |&!...EQ N1     =|
00000140: 24 46 41 20 20 20 20 3B  5A 41 45 48 4C 45 52 00  |$FA    ;ZAEHLER.|
00000150: 4A 21 E6 00 2E 45 51 20  41 44 44 20 20 20 20 3D  |J!...EQ ADD    =|
00000160: 24 42 38 36 41 20 20 3B  46 41 43 3D 41 52 47 2B  |$B86A  ;FAC=ARG+|
00000170: 46 41 43 00 6E 21 F0 00  2E 45 51 20 53 55 42 20  |FAC.n!...EQ SUB |
00000180: 20 20 20 3D 24 42 38 35  33 20 20 3B 46 41 43 3D  |   =$B853  ;FAC=|
00000190: 41 52 47 2D 46 41 43 00  92 21 FA 00 2E 45 51 20  |ARG-FAC..!...EQ |
000001A0: 4D 55 4C 54 20 20 20 3D  24 42 41 32 42 20 20 3B  |MULT   =$BA2B  ;|
000001B0: 46 41 43 3D 41 52 47 2A  46 41 43 00 B6 21 04 01  |FAC=ARG*FAC..!..|
000001C0: 2E 45 51 20 44 49 56 20  20 20 20 3D 24 42 42 31  |.EQ DIV    =$BB1|
000001D0: 32 20 20 3B 46 41 43 3D  41 52 47 2F 46 41 43 00  |2  ;FAC=ARG/FAC.|
000001E0: DA 21 0E 01 2E 45 51 20  45 58 50 20 20 20 20 3D  |.!...EQ EXP    =|
000001F0: 24 42 46 37 42 20 20 3B  46 41 43 3D 41 52 47 5E  |$BF7B  ;FAC=ARG^|
00000200: 46 41 43 00 EE 21 18 01  2E 45 51 20 46 41 43 20  |FAC..!...EQ FAC |
00000210: 20 20 20 3D 24 36 31 00  02 22 22 01 2E 45 51 20  |   =$61..""..EQ |
00000220: 41 52 47 20 20 20 20 3D  24 36 39 00 18 22 2C 01  |ARG    =$69..",.|
00000230: 2E 45 51 20 4B 4F 4E 46  41 43 20 3D 24 42 42 41  |.EQ KONFAC =$BBA|
00000240: 32 00 2E 22 36 01 2E 45  51 20 4B 4F 4E 41 52 47  |2.."6..EQ KONARG|
00000250: 20 3D 24 42 41 38 43 00  44 22 40 01 2E 45 51 20  | =$BA8C.D"@..EQ |
00000260: 46 41 43 4B 4F 4E 20 3D  24 42 42 44 34 00 5A 22  |FACKON =$BBD4.Z"|
00000270: 4A 01 2E 45 51 20 46 41  43 41 52 47 20 3D 24 42  |J..EQ FACARG =$B|
00000280: 43 30 43 00 70 22 54 01  2E 45 51 20 4B 4F 4E 4D  |C0C.p"T..EQ KONM|
00000290: 55 4C 20 3D 24 42 41 32  38 00 86 22 5E 01 2E 45  |UL =$BA28.."^..E|
000002A0: 51 20 4B 4F 4E 41 44 44  20 3D 24 42 38 36 37 00  |Q KONADD =$B867.|
000002B0: 9C 22 68 01 2E 45 51 20  46 4C 49 49 4E 54 20 3D  |."h..EQ FLIINT =|
000002C0: 24 42 43 39 42 00 B2 22  72 01 2E 45 51 20 5A 57  |$BC9B.."r..EQ ZW|
000002D0: 45 50 4F 53 20 3D 24 42  43 34 39 00 C8 22 7C 01  |EPOS =$BC49.."|.|
000002E0: 2E 45 51 20 45 49 4E 50  4F 53 20 3D 24 42 33 41  |.EQ EINPOS =$B3A|
000002F0: 32 00 DE 22 86 01 2E 45  51 20 46 41 43 53 54 52  |2.."...EQ FACSTR|
00000300: 20 3D 24 42 44 44 44 00  F4 22 90 01 2E 45 51 20  | =$BDDD.."...EQ |
00000310: 53 54 52 4F 55 54 20 3D  24 41 42 31 45 00 FA 22  |STROUT =$AB1E.."|
00000320: 9A 01 3B 00 16 23 A4 01  2E 42 41 20 24 43 30 30  |..;..#...BA $C00|
00000330: 30 3B 50 52 4F 47 52 41  4D 4D 53 54 41 52 54 00  |0;PROGRAMMSTART.|
00000340: 1C 23 AE 01 3B 00 22 23  B8 01 3B 00 37 23 C2 01  |.#..;."#..;.7#..|
00000350: 3B 2A 50 4F 49 4E 54 45  52 20 48 4F 4C 45 4E 2A  |;*POINTER HOLEN*|
00000360: 00 52 23 CC 01 20 4A 53  52 43 48 4B 4B 4F 4D 3B  |.R#.. JSRCHKKOM;|
00000370: 50 4F 49 4E 54 45 52 20  41 55 46 00 6E 23 D6 01  |POINTER AUF.n#..|
00000380: 20 4A 53 52 47 45 54 50  4F 53 3B 4C 49 4E 4B 45  | JSRGETPOS;LINKE|
00000390: 20 47 52 45 4E 5A 45 00  8B 23 E0 01 20 53 54 41  | GRENZE..#.. STA|
000003A0: 53 54 41 52 54 3B 4E 41  43 48 20 53 54 41 52 54  |START;NACH START|
000003B0: 28 2B 31 29 00 9B 23 EA  01 20 53 54 59 53 54 41  |(+1)..#.. STYSTA|
000003C0: 52 54 2B 31 00 A9 23 F4  01 20 53 54 41 53 54 4B  |RT+1..#.. STASTK|
000003D0: 4F 50 00 B9 23 FE 01 20  53 54 59 53 54 4B 4F 50  |OP..#.. STYSTKOP|
000003E0: 2B 31 00 D4 23 08 02 20  4A 53 52 43 48 4B 4B 4F  |+1..#.. JSRCHKKO|
000003F0: 4D 3B 50 4F 49 4E 54 45  52 20 41 55 46 00 F1 23  |M;POINTER AUF..#|
00000400: 12 02 20 4A 53 52 47 45  54 50 4F 53 3B 52 45 43  |.. JSRGETPOS;REC|
00000410: 48 54 45 20 47 52 45 4E  5A 45 00 F7 23 1C 02 3B  |HTE GRENZE..#..;|
00000420: 00 FD 23 26 02 3B 00 22  24 30 02 3B 2A 2A 2A 20  |..#&.;."$0.;*** |
00000430: 4E 2C 20 4E 2D 31 2C 20  43 4F 55 4E 54 20 45 52  |N, N-1, COUNT ER|
00000440: 4D 49 54 54 45 4C 4E 20  2A 2A 2A 00 2B 24 3A 02  |MITTELN ***.+$:.|
00000450: 20 53 45 43 00 43 24 44  02 20 53 42 43 53 54 41  | SEC.C$D. SBCSTA|
00000460: 52 54 3B 44 49 46 46 45  52 45 4E 5A 00 5C 24 4E  |RT;DIFFERENZ.\$N|
00000470: 02 20 53 54 41 24 36 33  3B 5A 57 49 53 43 48 45  |. STA$63;ZWISCHE|
00000480: 4E 20 44 45 4E 00 77 24  58 02 20 54 59 41 3B 47  |N DEN.w$X. TYA;G|
00000490: 52 45 4E 5A 45 4E 20 42  45 52 45 43 48 4E 45 4E  |RENZEN BERECHNEN|
000004A0: 00 87 24 62 02 20 53 42  43 53 54 41 52 54 2B 31  |..$b. SBCSTART+1|
000004B0: 00 93 24 6C 02 20 53 54  41 24 36 32 00 A0 24 76  |..$l. STA$62..$v|
000004C0: 02 20 4C 44 58 23 24 39  30 00 A9 24 80 02 20 53  |. LDX#$90..$.. S|
000004D0: 45 43 00 B8 24 8A 02 20  4A 53 52 5A 57 45 50 4F  |EC..$.. JSRZWEPO|
000004E0: 53 00 C7 24 94 02 20 4A  53 52 46 41 43 41 52 47  |S..$.. JSRFACARG|
000004F0: 00 CD 24 9E 02 3B 00 EA  24 A8 02 20 4C 44 59 23  |..$..;..$.. LDY#|
00000500: 35 3B 44 49 46 46 45 52  45 4E 5A 20 47 45 54 45  |5;DIFFERENZ GETE|
00000510: 49 4C 54 00 08 25 B2 02  20 4A 53 52 45 49 4E 50  |ILT..%.. JSREINP|
00000520: 4F 53 3B 44 55 52 43 48  20 35 20 45 52 47 49 42  |OS;DURCH 5 ERGIB|
00000530: 54 00 23 25 BC 02 20 4A  53 52 44 49 56 3B 44 49  |T.#%.. JSRDIV;DI|
00000540: 45 20 41 4E 5A 41 48 4C  20 4E 2D 31 00 32 25 C6  |E ANZAHL N-1.2%.|
00000550: 02 20 4C 44 58 23 3C 28  4E 31 29 00 41 25 D0 02  |. LDX#<(N1).A%..|
00000560: 20 4C 44 59 23 3E 28 4E  31 29 00 50 25 DA 02 20  | LDY#>(N1).P%.. |
00000570: 4A 53 52 46 41 43 4B 4F  4E 00 56 25 E4 02 3B 00  |JSRFACKON.V%..;.|
00000580: 78 25 EE 02 20 4A 53 52  46 4C 49 49 4E 54 3B 4E  |x%.. JSRFLIINT;N|
00000590: 2D 31 20 49 4E 4B 52 45  4D 45 4E 54 49 45 52 45  |-1 INKREMENTIERE|
000005A0: 4E 00 8D 25 F8 02 20 4C  44 58 24 36 34 3B 45 52  |N..%.. LDX$64;ER|
000005B0: 47 49 42 54 20 4E 00 99  25 02 03 20 4C 44 59 24  |GIBT N..%.. LDY$|
000005C0: 36 35 00 A2 25 0C 03 20  49 4E 59 00 B0 25 16 03  |65..%.. INY..%..|
000005D0: 20 42 43 43 4E 4F 49 4E  43 00 B9 25 20 03 20 49  | BCCNOINC..% . I|
000005E0: 4E 58 00 CA 25 2A 03 4E  4F 49 4E 43 20 53 54 58  |NX..%*.NOINC STX|
000005F0: 4E 2B 31 00 D4 25 34 03  20 53 54 59 4E 00 F5 25  |N+1..%4. STYN..%|
00000600: 3E 03 20 53 54 58 43 4F  55 4E 54 2B 31 3B 55 4E  |>. STXCOUNT+1;UN|
00000610: 44 20 47 4C 45 49 43 48  5A 45 49 54 49 47 00 13  |D GLEICHZEITIG..|
00000620: 26 48 03 20 53 54 59 43  4F 55 4E 54 3B 43 4F 55  |&H. STYCOUNT;COU|
00000630: 4E 54 20 28 43 4F 55 4E  54 3D 4E 29 00 19 26 52  |NT (COUNT=N)..&R|
00000640: 03 3B 00 24 26 5C 03 20  4C 44 59 23 30 00 3E 26  |.;.$&\. LDY#0.>&|
00000650: 66 03 20 4A 53 52 45 49  4E 50 4F 53 3B 50 55 46  |f. JSREINPOS;PUF|
00000660: 46 45 52 20 49 4E 2D 00  5A 26 70 03 20 4A 53 52  |FER IN-.Z&p. JSR|
00000670: 46 41 43 50 55 46 3B 49  54 49 41 4C 49 53 49 45  |FACPUF;ITIALISIE|
00000680: 52 45 4E 00 60 26 7A 03  3B 00 66 26 84 03 3B 00  |REN.`&z.;.f&..;.|
00000690: 85 26 8E 03 3B 2A 2A 2A  20 53 55 4D 4D 45 20 31  |.&..;*** SUMME 1|
000006A0: 20 42 45 52 45 43 48 4E  45 4E 20 2A 2A 2A 00 A7  | BERECHNEN ***..|
000006B0: 26 98 03 4C 4F 4F 50 53  31 20 4A 53 52 49 4E 46  |&..LOOPS1 JSRINF|
000006C0: 41 43 3B 41 28 53 54 41  52 54 29 20 4E 41 43 48  |AC;A(START) NACH|
000006D0: 00 C2 26 A2 03 20 4C 44  41 53 54 41 52 54 3B 46  |..&.. LDASTART;F|
000006E0: 41 43 20 4B 4F 50 49 45  52 45 4E 00 DE 26 AC 03  |AC KOPIEREN..&..|
000006F0: 20 4C 44 59 53 54 41 52  54 2B 31 3B 55 4E 44 20  | LDYSTART+1;UND |
00000700: 46 41 43 20 4D 49 54 00  FE 26 B6 03 20 4A 53 52  |FAC MIT..&.. JSR|
00000710: 4B 4F 4E 4D 55 4C 3B 41  28 53 54 41 52 54 29 20  |KONMUL;A(START) |
00000720: 4D 55 4C 54 49 50 4C 00  21 27 C0 03 20 4C 44 41  |MULTIPL.!'.. LDA|
00000730: 23 3C 28 50 55 46 46 45  52 29 3B 46 41 43 20 55  |#<(PUFFER);FAC U|
00000740: 4E 44 20 53 55 4D 4D 45  20 31 00 41 27 CA 03 20  |ND SUMME 1.A'.. |
00000750: 4C 44 59 23 3E 28 50 55  46 46 45 52 29 3B 41 44  |LDY#>(PUFFER);AD|
00000760: 44 49 45 52 45 4E 20 55  4E 44 00 60 27 D4 03 20  |DIEREN UND.`'.. |
00000770: 4A 53 52 4B 4F 4E 41 44  44 3B 4E 45 55 45 20 53  |JSRKONADD;NEUE S|
00000780: 55 4D 4D 45 20 31 20 49  4E 00 7F 27 DE 03 20 4A  |UMME 1 IN..'.. J|
00000790: 53 52 46 41 43 50 55 46  3B 50 55 46 46 45 52 20  |SRFACPUF;PUFFER |
000007A0: 4B 4F 50 49 45 52 45 4E  00 A1 27 E8 03 20 4A 53  |KOPIEREN..'.. JS|
000007B0: 52 4F 46 46 53 45 54 3B  53 54 41 52 54 20 49 4E  |ROFFSET;START IN|
000007C0: 4B 52 45 4D 45 4E 54 49  45 52 00 C2 27 F2 03 20  |KREMENTIER..'.. |
000007D0: 4A 53 52 44 45 43 43 4E  54 3B 5A 41 45 48 4C 45  |JSRDECCNT;ZAEHLE|
000007E0: 52 20 44 45 4B 52 45 4D  45 4E 54 00 E0 27 FC 03  |R DEKREMENT..'..|
000007F0: 20 42 4E 45 4C 4F 4F 50  53 31 3B 46 45 52 54 49  | BNELOOPS1;FERTI|
00000800: 47 3F 20 4E 45 49 4E 3D  3E 00 E6 27 06 04 3B 00  |G? NEIN=>..'..;.|
00000810: 01 28 10 04 20 4C 44 41  53 54 4B 4F 50 3B 53 54  |.(.. LDASTKOP;ST|
00000820: 41 52 54 20 57 49 45 44  45 52 00 1F 28 1A 04 20  |ART WIEDER..(.. |
00000830: 4C 44 58 53 54 4B 4F 50  2B 31 3B 41 55 46 20 44  |LDXSTKOP+1;AUF D|
00000840: 41 53 20 45 52 53 54 45  00 3B 28 24 04 20 53 54  |AS ERSTE.;($. ST|
00000850: 41 53 54 41 52 54 3B 45  4C 45 4D 45 4E 54 20 41  |ASTART;ELEMENT A|
00000860: 28 4C 47 29 00 52 28 2E  04 20 53 54 58 53 54 41  |(LG).R(.. STXSTA|
00000870: 52 54 2B 31 3B 53 45 54  5A 45 4E 00 5C 28 38 04  |RT+1;SETZEN.\(8.|
00000880: 20 4C 44 41 4E 00 76 28  42 04 20 4C 44 58 4E 2B  | LDAN.v(B. LDXN+|
00000890: 31 3B 43 4F 55 4E 54 20  4D 49 54 20 44 45 52 00  |1;COUNT MIT DER.|
000008A0: 93 28 4C 04 20 53 54 41  43 4F 55 4E 54 3B 41 4E  |.(L. STACOUNT;AN|
000008B0: 5A 41 48 4C 20 4E 20 4C  41 44 45 4E 00 A3 28 56  |ZAHL N LADEN..(V|
000008C0: 04 20 53 54 58 43 4F 55  4E 54 2B 31 00 B6 28 60  |. STXCOUNT+1..(`|
000008D0: 04 20 4C 44 59 23 30 3B  55 4E 44 20 46 41 43 00  |. LDY#0;UND FAC.|
000008E0: D4 28 6A 04 20 4A 53 52  45 49 4E 50 4F 53 3B 49  |.(j. JSREINPOS;I|
000008F0: 4E 49 54 49 41 4C 49 53  49 45 52 45 4E 00 DA 28  |NITIALISIEREN..(|
00000900: 74 04 3B 00 E0 28 7E 04  3B 00 FF 28 88 04 3B 2A  |t.;..(~.;..(..;*|
00000910: 2A 2A 20 53 55 4D 4D 45  20 32 20 42 45 52 45 43  |** SUMME 2 BEREC|
00000920: 48 4E 45 4E 20 2A 2A 2A  00 1E 29 92 04 4C 4F 4F  |HNEN ***..)..LOO|
00000930: 50 53 32 20 4C 44 41 53  54 41 52 54 3B 5A 55 20  |PS2 LDASTART;ZU |
00000940: 46 41 43 20 44 41 53 00  3F 29 9C 04 20 4C 44 59  |FAC DAS.?).. LDY|
00000950: 53 54 41 52 54 2B 31 3B  45 4C 45 4D 45 4E 54 20  |START+1;ELEMENT |
00000960: 41 28 53 54 41 52 54 29  00 57 29 A6 04 20 4A 53  |A(START).W).. JS|
00000970: 52 4B 4F 4E 41 44 44 3B  41 44 44 49 45 52 45 4E  |RKONADD;ADDIEREN|
00000980: 00 76 29 B0 04 20 4A 53  52 4F 46 46 53 45 54 3B  |.v).. JSROFFSET;|
00000990: 53 54 41 52 54 20 49 4E  4B 52 45 4D 45 4E 54 00  |START INKREMENT.|
000009A0: 97 29 BA 04 20 4A 53 52  44 45 43 43 4E 54 3B 5A  |.).. JSRDECCNT;Z|
000009B0: 41 45 48 4C 45 52 20 44  45 4B 52 45 4D 45 4E 54  |AEHLER DEKREMENT|
000009C0: 00 B5 29 C4 04 20 42 4E  45 4C 4F 4F 50 53 32 3B  |..).. BNELOOPS2;|
000009D0: 46 45 52 54 49 47 3F 20  4E 45 49 4E 3D 3E 00 BB  |FERTIG? NEIN=>..|
000009E0: 29 CE 04 3B 00 C1 29 D8  04 3B 00 E3 29 E2 04 3B  |)..;..)..;..)..;|
000009F0: 2A 2A 2A 20 53 55 4D 4D  45 32 3D 53 55 4D 4D 45  |*** SUMME2=SUMME|
00000A00: 32 2A 53 55 4D 4D 45 32  20 2A 2A 2A 00 02 2A EC  |2*SUMME2 ***..*.|
00000A10: 04 20 4A 53 52 46 41 43  41 52 47 3B 53 55 4D 4D  |. JSRFACARG;SUMM|
00000A20: 45 32 20 4E 41 43 48 20  41 52 47 00 14 2A F6 04  |E2 NACH ARG..*..|
00000A30: 20 4C 44 41 4E 3B 42 52  49 4E 47 45 4E 00 23 2A  | LDAN;BRINGEN.#*|
00000A40: 00 05 20 4A 53 52 45 49  4E 50 4F 53 00 3B 2A 0A  |.. JSREINPOS.;*.|
00000A50: 05 20 4A 53 52 45 58 50  3B 46 41 43 3D 41 52 47  |. JSREXP;FAC=ARG|
00000A60: 5E 46 41 43 00 41 2A 14  05 3B 00 47 2A 1E 05 3B  |^FAC.A*..;.G*..;|
00000A70: 00 6C 2A 28 05 3B 2A 2A  2A 20 53 55 4D 4D 45 32  |.l*(.;*** SUMME2|
00000A80: 20 44 55 52 43 48 20 4E  20 44 49 56 49 44 49 45  | DURCH N DIVIDIE|
00000A90: 52 20 2A 2A 2A 00 8B 2A  32 05 20 4A 53 52 46 41  |R ***..*2. JSRFA|
00000AA0: 43 41 52 47 3B 53 55 4D  4D 45 32 20 4E 41 43 48  |CARG;SUMME2 NACH|
00000AB0: 20 41 52 47 00 9D 2A 3C  05 20 4C 44 41 4E 3B 42  | ARG..*<. LDAN;B|
00000AC0: 52 49 4E 47 45 4E 00 A9  2A 46 05 20 4C 44 58 4E  |RINGEN..*F. LDXN|
00000AD0: 2B 31 00 C0 2A 50 05 20  53 54 41 24 36 33 3B 4E  |+1..*P. STA$63;N|
00000AE0: 20 4E 41 43 48 20 46 41  43 00 D4 2A 5A 05 20 53  | NACH FAC..*Z. S|
00000AF0: 54 58 24 36 32 3B 42 52  49 4E 47 45 4E 00 E1 2A  |TX$62;BRINGEN..*|
00000B00: 64 05 20 4C 44 58 23 24  39 30 00 EA 2A 6E 05 20  |d. LDX#$90..*n. |
00000B10: 53 45 43 00 06 2B 78 05  20 4A 53 52 5A 57 45 50  |SEC..+x. JSRZWEP|
00000B20: 4F 53 3B 53 55 4D 4D 45  32 20 44 55 52 43 48 00  |OS;SUMME2 DURCH.|
00000B30: 1F 2B 82 05 20 4A 53 52  44 49 56 3B 4E 20 44 49  |.+.. JSRDIV;N DI|
00000B40: 56 49 44 49 45 52 45 4E  00 25 2B 8C 05 3B 00 2B  |VIDIEREN.%+..;.+|
00000B50: 2B 96 05 3B 00 50 2B A0  05 3B 2A 2A 2A 20 53 55  |+..;.P+..;*** SU|
00000B60: 4D 4D 45 32 20 56 4F 4E  20 53 55 4D 4D 45 31 20  |MME2 VON SUMME1 |
00000B70: 53 55 42 54 52 20 2A 2A  2A 00 74 2B AA 05 20 4C  |SUBTR ***.t+.. L|
00000B80: 44 41 23 3C 28 50 55 46  46 45 52 29 3B 53 55 4D  |DA#<(PUFFER);SUM|
00000B90: 4D 45 31 20 4E 41 43 20  48 20 41 52 47 00 93 2B  |ME1 NAC H ARG..+|
00000BA0: B4 05 20 4C 44 59 23 3E  28 50 55 46 46 45 52 29  |.. LDY#>(PUFFER)|
00000BB0: 3B 42 52 49 4E 47 45 4E  20 55 4E 44 00 AD 2B BE  |;BRINGEN UND..+.|
00000BC0: 05 20 4A 53 52 4B 4F 4E  41 52 47 3B 53 55 4D 4D  |. JSRKONARG;SUMM|
00000BD0: 45 32 20 56 4F 4E 00 CB  2B C8 05 20 4A 53 52 53  |E2 VON..+.. JSRS|
00000BE0: 55 42 3B 53 55 4D 4D 45  31 20 53 55 42 54 52 41  |UB;SUMME1 SUBTRA|
00000BF0: 48 49 45 52 00 D1 2B D2  05 3B 00 D7 2B DC 05 3B  |HIER..+..;..+..;|
00000C00: 00 FD 2B E6 05 3B 2A 2A  2A 20 52 45 53 55 4C 54  |..+..;*** RESULT|
00000C10: 41 54 20 44 55 52 43 48  20 4E 2D 31 20 44 49 56  |AT DURCH N-1 DIV|
00000C20: 49 44 20 2A 2A 2A 00 1A  2C F0 05 20 4A 53 52 46  |ID ***..,.. JSRF|
00000C30: 41 43 41 52 47 3B 52 45  53 55 4C 54 41 54 20 4E  |ACARG;RESULTAT N|
00000C40: 41 43 48 00 35 2C FA 05  20 4C 44 41 23 3C 28 4E  |ACH.5,.. LDA#<(N|
00000C50: 31 29 3B 41 52 47 20 42  52 49 4E 47 45 4E 00 55  |1);ARG BRINGEN.U|
00000C60: 2C 04 06 20 4C 44 59 23  3E 28 4E 31 29 3B 4B 4F  |,.. LDY#>(N1);KO|
00000C70: 4E 53 54 41 4E 54 45 20  4E 20 4E 41 43 48 00 70  |NSTANTE N NACH.p|
00000C80: 2C 0E 06 20 4A 53 52 4B  4F 4E 46 41 43 3B 46 41  |,.. JSRKONFAC;FA|
00000C90: 43 20 55 4E 44 20 41 52  47 00 8C 2C 18 06 20 4A  |C UND ARG..,.. J|
00000CA0: 53 52 44 49 56 3B 44 55  52 43 48 20 46 41 43 20  |SRDIV;DURCH FAC |
00000CB0: 44 49 56 49 44 00 92 2C  22 06 3B 00 98 2C 2C 06  |DIVID..,".;..,,.|
00000CC0: 3B 00 BC 2C 36 06 3B 2A  2A 2A 20 56 41 52 49 41  |;..,6.;*** VARIA|
00000CD0: 4E 5A 20 49 4E 20 56 20  53 50 45 49 43 48 45 52  |NZ IN V SPEICHER|
00000CE0: 4E 20 2A 2A 2A 00 D8 2C  40 06 20 4A 53 52 43 48  |N ***..,@. JSRCH|
00000CF0: 4B 4B 4F 4D 3B 5A 45 49  47 45 52 20 41 55 46 20  |KKOM;ZEIGER AUF |
00000D00: 56 00 F1 2C 4A 06 20 4A  53 52 47 45 54 50 4F 53  |V..,J. JSRGETPOS|
00000D10: 3B 48 4F 4C 45 4E 20 55  4E 44 00 09 2D 54 06 20  |;HOLEN UND..-T. |
00000D20: 54 41 58 3B 44 49 45 20  42 45 52 45 43 48 4E 45  |TAX;DIE BERECHNE|
00000D30: 54 45 00 27 2D 5E 06 20  4A 4D 50 46 41 43 4B 4F  |TE.'-^. JMPFACKO|
00000D40: 4E 3B 56 41 52 49 41 4E  5A 20 4E 41 43 48 20 56  |N;VARIANZ NACH V|
00000D50: 00 2D 2D 68 06 3B 00 33  2D 72 06 3B 00 53 2D 7C  |.--h.;.3-r.;.S-||
00000D60: 06 3B 2A 20 5A 41 45 48  4C 45 52 20 44 45 4B 52  |.;* ZAEHLER DEKR|
00000D70: 45 4D 45 4E 54 49 45 52  45 4E 20 2A 00 67 2D 86  |EMENTIEREN *.g-.|
00000D80: 06 44 45 43 43 4E 54 20  4C 44 41 43 4F 55 4E 54  |.DECCNT LDACOUNT|
00000D90: 00 74 2D 90 06 20 42 4E  45 4C 41 42 31 00 84 2D  |.t-.. BNELAB1..-|
00000DA0: 9A 06 20 44 45 43 43 4F  55 4E 54 2B 31 00 96 2D  |.. DECCOUNT+1..-|
00000DB0: A4 06 4C 41 42 31 20 44  45 43 43 4F 55 4E 54 00  |..LAB1 DECCOUNT.|
00000DC0: A6 2D AE 06 20 4C 44 41  43 4F 55 4E 54 2B 31 00  |.-.. LDACOUNT+1.|
00000DD0: B5 2D B8 06 20 42 4E 45  44 45 43 45 4E 44 00 C3  |.-.. BNEDECEND..|
00000DE0: 2D C2 06 20 4C 44 41 43  4F 55 4E 54 00 D2 2D CC  |-.. LDACOUNT..-.|
00000DF0: 06 44 45 43 45 4E 44 20  52 54 53 00 D8 2D D6 06  |.DECEND RTS..-..|
00000E00: 3B 00 DE 2D E0 06 3B 00  F9 2D EA 06 3B 2A 20 41  |;..-..;..-..;* A|
00000E10: 28 53 54 41 52 54 29 20  4E 41 43 48 20 46 41 43  |(START) NACH FAC|
00000E20: 20 2A 00 1A 2E F4 06 49  4E 46 41 43 20 4C 44 41  | *.....INFAC LDA|
00000E30: 53 54 41 52 54 3B 4B 4F  4E 53 54 41 4E 54 45 20  |START;KONSTANTE |
00000E40: 41 55 46 00 38 2E FE 06  20 4C 44 59 53 54 41 52  |AUF.8... LDYSTAR|
00000E50: 54 2B 31 3B 44 49 45 20  53 54 41 52 54 28 2B 31  |T+1;DIE START(+1|
00000E60: 29 00 53 2E 08 07 20 4A  4D 50 4B 4F 4E 46 41 43  |).S... JMPKONFAC|
00000E70: 3B 57 45 49 53 54 2C 20  4E 41 43 48 00 59 2E 12  |;WEIST, NACH.Y..|
00000E80: 07 3B 00 7B 2E 1C 07 3B  2A 20 4B 4F 4E 53 54 20  |.;.{...;* KONST |
00000E90: 49 4E 20 50 55 46 46 45  52 20 4E 41 43 48 20 46  |IN PUFFER NACH F|
00000EA0: 41 43 20 2A 00 94 2E 26  07 50 55 46 46 41 43 20  |AC *...&.PUFFAC |
00000EB0: 4C 44 41 23 3C 28 50 55  46 46 45 52 29 00 A7 2E  |LDA#<(PUFFER)...|
00000EC0: 30 07 20 4C 44 59 23 3E  28 50 55 46 46 45 52 29  |0. LDY#>(PUFFER)|
00000ED0: 00 B6 2E 3A 07 20 4A 4D  50 4B 4F 4E 46 41 43 00  |...:. JMPKONFAC.|
00000EE0: BC 2E 44 07 3B 00 DE 2E  4E 07 3B 2A 20 46 41 43  |..D.;...N.;* FAC|
00000EF0: 20 4E 41 43 48 20 50 55  46 46 45 52 20 4B 4F 50  | NACH PUFFER KOP|
00000F00: 49 45 52 45 4E 20 2A 00  F7 2E 58 07 46 41 43 50  |IEREN *...X.FACP|
00000F10: 55 46 20 4C 44 58 23 3C  28 50 55 46 46 45 52 29  |UF LDX#<(PUFFER)|
00000F20: 00 0A 2F 62 07 20 4C 44  59 23 3E 28 50 55 46 46  |../b. LDY#>(PUFF|
00000F30: 45 52 29 00 19 2F 6C 07  20 4A 4D 50 46 41 43 4B  |ER)../l. JMPFACK|
00000F40: 4F 4E 00 1F 2F 76 07 3B  00 3F 2F 80 07 3B 2A 20  |ON../v.;.?/..;* |
00000F50: 53 54 41 52 54 20 41 55  46 20 4E 45 58 54 20 45  |START AUF NEXT E|
00000F60: 4C 45 4D 45 4E 54 20 2A  00 53 2F 8A 07 4F 46 46  |LEMENT *.S/..OFF|
00000F70: 53 45 54 20 4C 44 41 53  54 41 52 54 00 5C 2F 94  |SET LDASTART.\/.|
00000F80: 07 20 43 4C 43 00 67 2F  9E 07 20 41 44 43 23 35  |. CLC.g/.. ADC#5|
00000F90: 00 75 2F A8 07 20 53 54  41 53 54 41 52 54 00 84  |.u/.. STASTART..|
00000FA0: 2F B2 07 20 42 43 43 4F  46 46 45 4E 44 00 94 2F  |/.. BCCOFFEND../|
00000FB0: BC 07 20 49 4E 43 53 54  41 52 54 2B 31 00 A3 2F  |.. INCSTART+1../|
00000FC0: C6 07 4F 46 46 45 4E 44  20 52 54 53 00 A9 2F D0  |..OFFEND RTS../.|
00000FD0: 07 3B 00 AF 2F DA 07 3B  00 00 00                 |.;../..;...     |

X...D.;*** STATISTIK ***...N.;...X.;.. .
..EQ GETPOS =$B08B  ;=> POINTER.4 ...EQ 
CHKKOM =$AEFD.H ...EQ SUMME1 =$A5.\  ..E
Q SUMME2 =$AA.{ ...EQ PUFFER =$B2    ;PU
FFER.  ...EQ START  =$9B    ;LINKE GRENZ
E.F ...EQ STKOP  =$9E    ;RECHTE GRENZE.
. H..EQ COUNT  =$B7    ;ZAEHLER..!R..EQ 
N      =$B9    ;ZAEHLER.&!...EQ N1     =
$FA    ;ZAEHLER.J!...EQ ADD    =$B86A  ;
FAC=ARG+FAC.N!...EQ SUB    =$B853  ;FAC=
ARG-FAC..!...EQ MULT   =$BA2B  ;FAC=ARG*
FAC..!...EQ DIV    =$BB12  ;FAC=ARG/FAC.
Z!...EQ EXP    =$BF7B  ;FAC=ARG^FAC..!..
.EQ FAC    =$61..""..EQ ARG    =$69..",.
.EQ KONFAC =$BBA2.."6..EQ KONARG =$BA8C.
D"@..EQ FACKON =$BBD4.Z"J..EQ FACARG =$B
C0C.P"T..EQ KONMUL =$BA28.."^..EQ KONADD
 =$B867.."H..EQ FLIINT =$BC9B.."R..EQ ZW
EPOS =$BC49.H"|..EQ EINPOS =$B3A2.."...E
Q FACSTR =$BDDD.."...EQ STROUT =$AB1E.."
..;..#...BA $C000;PROGRAMMSTART..#..;."#
..;.7#B.;*POINTER HOLEN*.R#L. JSRCHKKOM;
POINTER AUF.N#V. JSRGETPOS;LINKE GRENZE.
.#.. STASTART;NACH START(+1)..#.. STYSTA
RT+1..#.. STASTKOP..#.. STYSTKOP+1.T#.. 
JSRCHKKOM;POINTER AUF..#.. JSRGETPOS;REC
HTE GRENZE..#..;..#&.;."$0.;*** N, N-1, 
COUNT ERMITTELN ***.+$:. SEC.C$D. SBCSTA
RT;DIFFERENZ.\$N. STA$63;ZWISCHEN DEN.W$
X. TYA;GRENZEN BERECHNEN..$B. SBCSTART+1
..$L. STA$62. $V. LDX#$90..$.. SEC..$.. 
JSRZWEPOS.G$.. JSRFACARG.M$..;..$.. LDY#
5;DIFFERENZ GETEILT..%.. JSREINPOS;DURCH
 5 ERGIBT.#%.. JSRDIV;DIE ANZAHL N-1.2%F
. LDX#<(N1).A%P. LDY#>(N1).P%Z. JSRFACKO
N.V%..;.X%.. JSRFLIINT;N-1 INKREMENTIERE
N..%.. LDX$64;ERGIBT N..%.. LDY$65..%.. 
INY..%.. BCCNOINC..% . INX.J%*.NOINC STX
N+1.T%4. STYN..%>. STXCOUNT+1;UND GLEICH
ZEITIG..&H. STYCOUNT;COUNT (COUNT=N)..&R
.;.$&\. LDY#0.>&F. JSREINPOS;PUFFER IN-.
Z&P. JSRFACPUF;ITIALISIEREN.`&Z.;.F&..;.
.&..;*** SUMME 1 BERECHNEN ***..&..LOOPS
1 JSRINFAC;A(START) NACH.B&.. LDASTART;F
AC KOPIEREN..&.. LDYSTART+1;UND FAC MIT.
.&.. JSRKONMUL;A(START) MULTIPL.!'.. LDA
#<(PUFFER);FAC UND SUMME 1.A'J. LDY#>(PU
FFER);ADDIEREN UND.`'T. JSRKONADD;NEUE S
UMME 1 IN.'.. JSRFACPUF;PUFFER KOPIEREN
..'.. JSROFFSET;START INKREMENTIER.B'.. 
JSRDECCNT;ZAEHLER DEKREMENT..'.. BNELOOP
S1;FERTIG? NEIN=>..'..;..(.. LDASTKOP;ST
ART WIEDER..(.. LDXSTKOP+1;AUF DAS ERSTE
.;($. STASTART;ELEMENT A(LG).R(.. STXSTA
RT+1;SETZEN.\(8. LDAN.V(B. LDXN+1;COUNT 
MIT DER..(L. STACOUNT;ANZAHL N LADEN..(V
. STXCOUNT+1..(`. LDY#0;UND FAC.T(J. JSR
EINPOS;INITIALISIEREN.Z(T.;..(~.;..(..;*
** SUMME 2 BERECHNEN ***..)..LOOPS2 LDAS
TART;ZU FAC DAS.?).. LDYSTART+1;ELEMENT 
A(START).W).. JSRKONADD;ADDIEREN.V).. JS
ROFFSET;START INKREMENT..).. JSRDECCNT;Z
AEHLER DEKREMENT..)D. BNELOOPS2;FERTIG? 
NEIN=>..)N.;.A)X.;..)..;*** SUMME2=SUMME
2*SUMME2 ***..*.. JSRFACARG;SUMME2 NACH 
ARG..*.. LDAN;BRINGEN.#*.. JSREINPOS.;*.
. JSREXP;FAC=ARG^FAC.A*..;.G*..;.L*(.;**
* SUMME2 DURCH N DIVIDIER ***..*2. JSRFA
CARG;SUMME2 NACH ARG..*<. LDAN;BRINGEN..
*F. LDXN+1..*P. STA$63;N NACH FAC.T*Z. S
TX$62;BRINGEN..*D. LDX#$90..*N. SEC..+X.
 JSRZWEPOS;SUMME2 DURCH..+.. JSRDIV;N DI
VIDIEREN.%+..;.++..;.P+ .;*** SUMME2 VON
 SUMME1 SUBTR ***.T+.. LDA#<(PUFFER);SUM
ME1 NAC H ARG..+.. LDY#>(PUFFER);BRINGEN
 UND..+.. JSRKONARG;SUMME2 VON.K+H. JSRS
UB;SUMME1 SUBTRAHIER.Q+R.;.W+..;..+..;**
* RESULTAT DURCH N-1 DIVID ***..,.. JSRF
ACARG;RESULTAT NACH.5,.. LDA#<(N1);ARG B
RINGEN.U,.. LDY#>(N1);KONSTANTE N NACH.P
,.. JSRKONFAC;FAC UND ARG..,.. JSRDIV;DU
RCH FAC DIVID..,".;..,,.;..,6.;*** VARIA
NZ IN V SPEICHERN ***.X,@. JSRCHKKOM;ZEI
GER AUF V..,J. JSRGETPOS;HOLEN UND..-T. 
TAX;DIE BERECHNETE.'-^. JMPFACKON;VARIAN
Z NACH V.--H.;.3-R.;.S-|.;* ZAEHLER DEKR
EMENTIEREN *.G-..DECCNT LDACOUNT.T-.. BN
ELAB1..-.. DECCOUNT+1..-..LAB1 DECCOUNT.
.-.. LDACOUNT+1..-.. BNEDECEND.C-B. LDAC
OUNT.R-L.DECEND RTS.X-V.;..-..;..-..;* A
(START) NACH FAC *.....INFAC LDASTART;KO
NSTANTE AUF.8... LDYSTART+1;DIE START(+1
).S... JMPKONFAC;WEIST, NACH.Y...;.{...;
* KONST IN PUFFER NACH FAC *...&.PUFFAC 
LDA#<(PUFFER)...0. LDY#>(PUFFER)...:. JM
PKONFAC...D.;...N.;* FAC NACH PUFFER KOP
IEREN *...X.FACPUF LDX#<(PUFFER)../B. LD
Y#>(PUFFER)../L. JMPFACKON../V.;.?/..;* 
START AUF NEXT ELEMENT *.S/..OFFSET LDAS
TART.\/.. CLC.G/.. ADC#5.U/.. STASTART..
/.. BCCOFFEND../.. INCSTART+1../F.OFFEND
 RTS../P.;../Z.;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL