SUMMIERUNG

FILE INFORMATION

FILENAME(S): SUMMIERUNG

FILE TYPE(S): PRG

FILE SIZE: 1.4K

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

APPEARS ON: 3 disk(s)

FILE HASH

cc694fb4102b1cfbfe21ee9ebb7c7696941928cb16ded7f0fc0399d9314594ff

FOUND ON DISKS (3 DISKS)

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

FILE CONTENT & ANALYSIS

00000000: D8 1F F0 1F 64 00 3B 2A  2A 2A 20 53 55 4D 4D 49  |....d.;*** SUMMI|
00000010: 45 52 55 4E 47 20 2A 2A  2A 00 F6 1F 6E 00 3B 00  |ERUNG ***...n.;.|
00000020: FC 1F 78 00 3B 00 1F 20  82 00 2E 45 51 20 47 45  |..x.;.. ...EQ GE|
00000030: 54 50 4F 53 20 3D 24 42  30 38 42 20 20 3B 3D 3E  |TPOS =$B08B  ;=>|
00000040: 20 50 4F 49 4E 54 45 52  00 35 20 8C 00 2E 45 51  | POINTER.5 ...EQ|
00000050: 20 43 48 4B 4B 4F 4D 20  3D 24 41 45 46 44 00 5A  | CHKKOM =$AEFD.Z|
00000060: 20 96 00 2E 45 51 20 53  54 41 52 54 20 20 3D 24  | ...EQ START  =$|
00000070: 32 35 31 20 20 20 3B 4C  49 4E 4B 45 20 47 52 45  |251   ;LINKE GRE|
00000080: 4E 5A 45 00 80 20 A0 00  2E 45 51 20 45 4E 44 45  |NZE.. ...EQ ENDE|
00000090: 20 20 20 3D 24 32 35 33  20 20 20 3B 52 45 43 48  |   =$253   ;RECH|
000000A0: 54 45 20 47 52 45 4E 5A  45 00 A4 20 AA 00 2E 45  |TE GRENZE.. ...E|
000000B0: 51 20 41 44 44 20 20 20  20 3D 24 42 38 36 41 20  |Q ADD    =$B86A |
000000C0: 20 3B 46 41 43 3D 41 52  47 2B 46 41 43 00 C8 20  | ;FAC=ARG+FAC.. |
000000D0: B4 00 2E 45 51 20 53 55  42 20 20 20 20 3D 24 42  |...EQ SUB    =$B|
000000E0: 38 35 33 20 20 3B 46 41  43 3D 41 52 47 2D 46 41  |853  ;FAC=ARG-FA|
000000F0: 43 00 EC 20 BE 00 2E 45  51 20 4D 55 4C 54 20 20  |C.. ...EQ MULT  |
00000100: 20 3D 24 42 41 32 42 20  20 3B 46 41 43 3D 41 52  | =$BA2B  ;FAC=AR|
00000110: 47 2A 46 41 43 00 10 21  C8 00 2E 45 51 20 44 49  |G*FAC..!...EQ DI|
00000120: 56 20 20 20 20 3D 24 42  42 31 32 20 20 3B 46 41  |V    =$BB12  ;FA|
00000130: 43 3D 41 52 47 2F 46 41  43 00 24 21 D2 00 2E 45  |C=ARG/FAC.$!...E|
00000140: 51 20 46 41 43 20 20 20  20 3D 24 36 31 00 38 21  |Q FAC    =$61.8!|
00000150: DC 00 2E 45 51 20 41 52  47 20 20 20 20 3D 24 36  |...EQ ARG    =$6|
00000160: 39 00 4E 21 E6 00 2E 45  51 20 4B 4F 4E 46 41 43  |9.N!...EQ KONFAC|
00000170: 20 3D 24 42 42 41 32 00  64 21 F0 00 2E 45 51 20  | =$BBA2.d!...EQ |
00000180: 46 41 43 41 52 47 20 3D  24 42 43 30 43 00 7A 21  |FACARG =$BC0C.z!|
00000190: FA 00 2E 45 51 20 46 41  43 53 54 52 20 3D 24 42  |...EQ FACSTR =$B|
000001A0: 44 44 44 00 90 21 04 01  2E 45 51 20 53 54 52 4F  |DDD..!...EQ STRO|
000001B0: 55 54 20 3D 24 41 42 31  45 00 A6 21 0E 01 2E 45  |UT =$AB1E..!...E|
000001C0: 51 20 42 53 4F 55 54 20  20 3D 24 46 46 44 32 00  |Q BSOUT  =$FFD2.|
000001D0: AC 21 18 01 3B 00 C8 21  22 01 2E 42 41 20 24 43  |.!..;..!"..BA $C|
000001E0: 30 30 30 3B 50 52 4F 47  52 41 4D 4D 53 54 41 52  |000;PROGRAMMSTAR|
000001F0: 54 00 CE 21 2C 01 3B 00  D4 21 36 01 3B 00 E9 21  |T..!,.;..!6.;..!|
00000200: 40 01 3B 2A 50 4F 49 4E  54 45 52 20 48 4F 4C 45  |@.;*POINTER HOLE|
00000210: 4E 2A 00 04 22 4A 01 20  4A 53 52 43 48 4B 4B 4F  |N*.."J. JSRCHKKO|
00000220: 4D 3B 50 4F 49 4E 54 45  52 20 41 55 46 00 20 22  |M;POINTER AUF. "|
00000230: 54 01 20 4A 53 52 47 45  54 50 4F 53 3B 4C 49 4E  |T. JSRGETPOS;LIN|
00000240: 4B 45 20 47 52 45 4E 5A  45 00 3D 22 5E 01 20 53  |KE GRENZE.="^. S|
00000250: 54 41 53 54 41 52 54 3B  4E 41 43 48 20 53 54 41  |TASTART;NACH STA|
00000260: 52 54 28 2B 31 29 00 4D  22 68 01 20 53 54 59 53  |RT(+1).M"h. STYS|
00000270: 54 41 52 54 2B 31 00 68  22 72 01 20 4A 53 52 43  |TART+1.h"r. JSRC|
00000280: 48 4B 4B 4F 4D 3B 50 4F  49 4E 54 45 52 20 41 55  |HKKOM;POINTER AU|
00000290: 46 00 85 22 7C 01 20 4A  53 52 47 45 54 50 4F 53  |F.."|. JSRGETPOS|
000002A0: 3B 52 45 43 48 54 45 20  47 52 45 4E 5A 45 00 A0  |;RECHTE GRENZE..|
000002B0: 22 86 01 20 53 54 41 45  4E 44 45 3B 4E 41 43 48  |".. STAENDE;NACH|
000002C0: 20 45 4E 44 45 28 2B 31  29 00 AF 22 90 01 20 53  | ENDE(+1)..".. S|
000002D0: 54 59 45 4E 44 45 2B 31  00 B5 22 9A 01 3B 00 D1  |TYENDE+1.."..;..|
000002E0: 22 A4 01 20 4A 53 52 49  4E 46 41 43 3B 41 28 31  |".. JSRINFAC;A(1|
000002F0: 29 20 4E 41 43 48 20 46  41 43 00 D7 22 AE 01 3B  |) NACH FAC.."..;|
00000300: 00 F8 22 B8 01 42 45 47  49 4E 20 4A 53 52 46 41  |.."..BEGIN JSRFA|
00000310: 43 41 52 47 3B 46 41 43  20 4E 41 43 48 20 41 52  |CARG;FAC NACH AR|
00000320: 47 00 06 23 C2 01 20 4C  44 41 53 54 41 52 54 00  |G..#.. LDASTART.|
00000330: 1A 23 CC 01 20 43 4C 43  3B 53 54 41 52 54 28 2B  |.#.. CLC;START(+|
00000340: 31 29 3D 00 33 23 D6 01  20 41 44 43 23 35 3B 53  |1)=.3#.. ADC#5;S|
00000350: 54 41 52 54 28 2B 31 29  20 2B 20 35 00 4D 23 E0  |TART(+1) + 5.M#.|
00000360: 01 20 53 54 41 53 54 41  52 54 3B 3C 3D 3E 20 50  |. STASTART;<=> P|
00000370: 4F 49 4E 54 45 52 00 69  23 EA 01 20 42 43 43 4C  |OINTER.i#.. BCCL|
00000380: 41 42 45 4C 31 3B 41 55  46 20 4E 41 45 43 48 53  |ABEL1;AUF NAECHS|
00000390: 54 45 00 82 23 F4 01 20  49 4E 43 53 54 41 52 54  |TE..#.. INCSTART|
000003A0: 2B 31 3B 52 45 41 4C 5A  41 48 4C 00 88 23 FE 01  |+1;REALZAHL..#..|
000003B0: 3B 00 9D 23 08 02 4C 41  42 45 4C 31 20 4C 44 41  |;..#..LABEL1 LDA|
000003C0: 45 4E 44 45 2B 31 00 AD  23 12 02 20 43 4D 50 53  |ENDE+1..#.. CMPS|
000003D0: 54 41 52 54 2B 31 00 C7  23 1C 02 20 42 43 43 42  |TART+1..#.. BCCB|
000003E0: 41 43 4B 3B 46 45 52 54  49 47 2C 20 57 45 4E 4E  |ACK;FERTIG, WENN|
000003F0: 00 E9 23 26 02 20 42 4E  45 57 45 49 54 45 52 3B  |..#&. BNEWEITER;|
00000400: 45 4E 44 45 28 2B 31 29  3C 53 54 41 52 54 28 2B  |ENDE(+1)<START(+|
00000410: 31 29 00 F6 23 30 02 20  4C 44 41 45 4E 44 45 00  |1)..#0. LDAENDE.|
00000420: 04 24 3A 02 20 43 4D 50  53 54 41 52 54 00 11 24  |.$:. CMPSTART..$|
00000430: 44 02 20 42 43 43 42 41  43 4B 00 17 24 4E 02 3B  |D. BCCBACK..$N.;|
00000440: 00 3B 24 58 02 57 45 49  54 45 52 20 4A 53 52 49  |.;$X.WEITER JSRI|
00000450: 4E 46 41 43 3B 41 28 53  54 41 52 54 29 20 3D 3E  |NFAC;A(START) =>|
00000460: 20 46 41 43 00 53 24 62  02 20 4A 53 52 41 44 44  | FAC.S$b. JSRADD|
00000470: 3B 46 41 43 3D 41 52 47  2B 46 41 43 00 71 24 6C  |;FAC=ARG+FAC.q$l|
00000480: 02 20 4A 4D 50 42 45 47  49 4E 3B 53 43 48 4C 45  |. JMPBEGIN;SCHLE|
00000490: 49 46 45 4E 41 4E 46 41  4E 47 00 77 24 76 02 3B  |IFENANFANG.w$v.;|
000004A0: 00 9A 24 80 02 42 41 43  4B 20 4A 53 52 46 41 43  |..$..BACK JSRFAC|
000004B0: 53 54 52 3B 41 55 53 47  41 42 45 20 56 4F 4E 20  |STR;AUSGABE VON |
000004C0: 46 41 43 00 B5 24 8A 02  20 4A 53 52 53 54 52 4F  |FAC..$.. JSRSTRO|
000004D0: 55 54 3B 28 3D 45 52 47  45 42 4E 49 53 29 00 BE  |UT;(=ERGEBNIS)..|
000004E0: 24 94 02 20 52 54 53 00  C4 24 9E 02 3B 00 E6 24  |$.. RTS..$..;..$|
000004F0: A8 02 49 4E 46 41 43 20  4C 44 41 53 54 41 52 54  |..INFAC LDASTART|
00000500: 3B 4B 4F 4E 53 54 41 4E  54 45 2C 20 41 55 46 00  |;KONSTANTE, AUF.|
00000510: 04 25 B2 02 20 4C 44 59  53 54 41 52 54 2B 31 3B  |.%.. LDYSTART+1;|
00000520: 44 49 45 20 53 54 41 52  54 28 2B 31 29 00 1F 25  |DIE START(+1)..%|
00000530: BC 02 20 4A 53 52 4B 4F  4E 46 41 43 3B 57 45 49  |.. JSRKONFAC;WEI|
00000540: 53 54 2C 20 4E 41 43 48  00 35 25 C6 02 20 52 54  |ST, NACH.5%.. RT|
00000550: 53 3B 41 52 47 20 4B 4F  50 49 45 52 45 4E 00 3B  |S;ARG KOPIEREN.;|
00000560: 25 D0 02 3B 00 41 25 DA  02 3B 00 00 00           |%..;.A%..;...   |

X...D.;*** SUMMIERUNG ***...N.;...X.;.. 
...EQ GETPOS =$B08B  ;=> POINTER.5 ...EQ
 CHKKOM =$AEFD.Z ...EQ START  =$251   ;L
INKE GRENZE..  ..EQ ENDE   =$253   ;RECH
TE GRENZE.. ...EQ ADD    =$B86A  ;FAC=AR
G+FAC.H ...EQ SUB    =$B853  ;FAC=ARG-FA
C.. ...EQ MULT   =$BA2B  ;FAC=ARG*FAC..!
H..EQ DIV    =$BB12  ;FAC=ARG/FAC.$!R..E
Q FAC    =$61.8!...EQ ARG    =$69.N!...E
Q KONFAC =$BBA2.D!...EQ FACARG =$BC0C.Z!
...EQ FACSTR =$BDDD..!...EQ STROUT =$AB1
E..!...EQ BSOUT  =$FFD2..!..;.H!"..BA $C
000;PROGRAMMSTART.N!,.;.T!6.;..!@.;*POIN
TER HOLEN*.."J. JSRCHKKOM;POINTER AUF. "
T. JSRGETPOS;LINKE GRENZE.="^. STASTART;
NACH START(+1).M"H. STYSTART+1.H"R. JSRC
HKKOM;POINTER AUF.."|. JSRGETPOS;RECHTE 
GRENZE. ".. STAENDE;NACH ENDE(+1)..".. S
TYENDE+1.."..;.Q".. JSRINFAC;A(1) NACH F
AC.W"..;.."..BEGIN JSRFACARG;FAC NACH AR
G..#B. LDASTART..#L. CLC;START(+1)=.3#V.
 ADC#5;START(+1) + 5.M#.. STASTART;<=> P
OINTER.I#.. BCCLABEL1;AUF NAECHSTE..#.. 
INCSTART+1;REALZAHL..#..;..#..LABEL1 LDA
ENDE+1..#.. CMPSTART+1.G#.. BCCBACK;FERT
IG, WENN..#&. BNEWEITER;ENDE(+1)<START(+
1)..#0. LDAENDE..$:. CMPSTART..$D. BCCBA
CK..$N.;.;$X.WEITER JSRINFAC;A(START) =>
 FAC.S$B. JSRADD;FAC=ARG+FAC.Q$L. JMPBEG
IN;SCHLEIFENANFANG.W$V.;..$..BACK JSRFAC
STR;AUSGABE VON FAC..$.. JSRSTROUT;(=ERG
EBNIS)..$.. RTS.D$..;..$..INFAC LDASTART
;KONSTANTE, AUF..%.. LDYSTART+1;DIE STAR
T(+1)..%.. JSRKONFAC;WEIST, NACH.5%F. RT
S;ARG KOPIEREN.;%P.;.A%Z.;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL