GRUNDRECHNEN

FILE INFORMATION

FILENAME(S): GRUNDRECHNEN

FILE TYPE(S): PRG

FILE SIZE: 1.8K

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

APPEARS ON: 3 disk(s)

FILE HASH

f868dfa54aa641167f986104c148a3d7417c644845c03696661583687cd7744f

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SONDERHEFT 7 86	GRUNDRECHNEN	PRG	C64er	19	3	DOWNLOAD FILE
SONDERHEFT 7 86	GRUNDRECHNEN	PRG	DuncanTwain	19	3	DOWNLOAD FILE
SONDERHEFT 7 86	GRUNDRECHNEN	PRG	DuncanTwain	19	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F F2 1F 64 00 3B 2A  2A 2A 20 47 52 55 4E 44  |....d.;*** GRUND|
00000010: 52 45 43 48 4E 45 4E 20  2A 2A 2A 00 F8 1F 6E 00  |RECHNEN ***...n.|
00000020: 3B 00 FE 1F 78 00 3B 00  21 20 82 00 2E 45 51 20  |;...x.;.! ...EQ |
00000030: 41 44 44 20 20 20 3D 24  42 38 36 41 20 20 3B 46  |ADD   =$B86A  ;F|
00000040: 41 43 3D 41 52 47 2B 46  41 43 00 44 20 8C 00 2E  |AC=ARG+FAC.D ...|
00000050: 45 51 20 53 55 42 20 20  20 3D 24 42 38 35 33 20  |EQ SUB   =$B853 |
00000060: 20 3B 46 41 43 3D 41 52  47 2D 46 41 43 00 67 20  | ;FAC=ARG-FAC.g |
00000070: 96 00 2E 45 51 20 4D 55  4C 54 20 20 3D 24 42 41  |...EQ MULT  =$BA|
00000080: 32 42 20 20 3B 46 41 43  3D 41 52 47 2A 46 41 43  |2B  ;FAC=ARG*FAC|
00000090: 00 8A 20 A0 00 2E 45 51  20 44 49 56 20 20 20 3D  |.. ...EQ DIV   =|
000000A0: 24 42 42 31 32 20 20 3B  46 41 43 3D 41 52 47 2F  |$BB12  ;FAC=ARG/|
000000B0: 46 41 43 00 9D 20 AA 00  2E 45 51 20 46 41 43 20  |FAC.. ...EQ FAC |
000000C0: 20 20 3D 24 36 31 00 B0  20 B4 00 2E 45 51 20 41  |  =$61.. ...EQ A|
000000D0: 52 47 20 20 20 3D 24 36  39 00 C5 20 BE 00 2E 45  |RG   =$69.. ...E|
000000E0: 51 20 45 49 4E 50 4F 53  3D 24 42 33 41 32 00 DA  |Q EINPOS=$B3A2..|
000000F0: 20 C8 00 2E 45 51 20 5A  57 45 50 4F 53 3D 24 42  | ...EQ ZWEPOS=$B|
00000100: 43 34 39 00 EF 20 D2 00  2E 45 51 20 46 41 43 41  |C49.. ...EQ FACA|
00000110: 52 47 3D 24 42 43 30 43  00 04 21 DC 00 2E 45 51  |RG=$BC0C..!...EQ|
00000120: 20 46 41 43 53 54 52 3D  24 42 44 44 44 00 19 21  | FACSTR=$BDDD..!|
00000130: E6 00 2E 45 51 20 53 54  52 4F 55 54 3D 24 41 42  |...EQ STROUT=$AB|
00000140: 31 45 00 2E 21 F0 00 2E  45 51 20 42 53 4F 55 54  |1E..!...EQ BSOUT|
00000150: 20 3D 24 46 46 44 32 00  34 21 FA 00 3B 00 50 21  | =$FFD2.4!..;.P!|
00000160: 04 01 2E 42 41 20 24 43  30 30 30 3B 50 52 4F 47  |...BA $C000;PROG|
00000170: 52 41 4D 4D 53 54 41 52  54 00 56 21 0E 01 3B 00  |RAMMSTART.V!..;.|
00000180: 5C 21 18 01 3B 00 79 21  22 01 3B 2A 27 2F 27 3A  |\!..;.y!".;*'/':|
00000190: 20 41 4E 54 45 49 4C 20  42 45 52 45 43 48 4E 45  | ANTEIL BERECHNE|
000001A0: 4E 2A 00 93 21 2C 01 20  4C 44 41 23 3C 28 32 30  |N*..!,. LDA#<(20|
000001B0: 30 30 29 3B 32 30 30 30  20 4C 4F 57 00 A8 21 36  |00);2000 LOW..!6|
000001C0: 01 20 53 54 41 24 36 33  3B 4E 41 43 48 20 24 36  |. STA$63;NACH $6|
000001D0: 33 00 C3 21 40 01 20 4C  44 41 23 3E 28 32 30 30  |3..!@. LDA#>(200|
000001E0: 30 29 3B 32 30 30 30 20  48 49 47 48 00 D8 21 4A  |0);2000 HIGH..!J|
000001F0: 01 20 53 54 41 24 36 32  3B 4E 41 43 48 20 24 36  |. STA$62;NACH $6|
00000200: 32 00 EF 21 54 01 20 4C  44 58 23 24 39 30 3B 58  |2..!T. LDX#$90;X|
00000210: 20 49 4E 49 54 49 41 4C  00 F8 21 5E 01 20 53 45  | INITIAL..!^. SE|
00000220: 43 00 17 22 68 01 20 4A  53 52 5A 57 45 50 4F 53  |C.."h. JSRZWEPOS|
00000230: 3B 32 30 30 30 20 3D 3E  20 46 4C 49 45 53 53 4B  |;2000 => FLIESSK|
00000240: 00 31 22 72 01 20 4A 53  52 46 41 43 41 52 47 3B  |.1"r. JSRFACARG;|
00000250: 46 41 43 20 3D 3E 20 41  52 47 00 47 22 7C 01 20  |FAC => ARG.G"|. |
00000260: 4C 44 59 23 33 3B 41 4E  54 45 49 4C 20 31 2F 33  |LDY#3;ANTEIL 1/3|
00000270: 00 65 22 86 01 20 4A 53  52 45 49 4E 50 4F 53 3B  |.e".. JSREINPOS;|
00000280: 31 2F 33 20 3D 3E 20 46  4C 49 45 53 53 4B 00 6B  |1/3 => FLIESSK.k|
00000290: 22 90 01 3B 00 82 22 9A  01 20 4A 53 52 44 49 56  |"..;..".. JSRDIV|
000002A0: 3B 46 41 43 3D 32 30 30  30 2F 33 00 A5 22 A4 01  |;FAC=2000/3.."..|
000002B0: 20 4A 53 52 41 55 53 47  41 42 45 3B 45 52 47 45  | JSRAUSGABE;ERGE|
000002C0: 42 4E 49 53 53 20 41 55  53 47 45 42 45 4E 00 AB  |BNISS AUSGEBEN..|
000002D0: 22 AE 01 3B 00 B1 22 B8  01 3B 00 D0 22 C2 01 3B  |"..;.."..;.."..;|
000002E0: 2A 27 2B 27 3A 20 32 2E  46 4C 41 45 43 48 45 20  |*'+': 2.FLAECHE |
000002F0: 41 44 44 49 45 52 45 4E  2A 00 F1 22 CC 01 20 4A  |ADDIEREN*..".. J|
00000300: 53 52 46 41 43 41 52 47  3B 45 52 47 45 42 4E 49  |SRFACARG;ERGEBNI|
00000310: 53 20 4E 41 43 48 20 41  52 47 00 0B 23 D6 01 20  |S NACH ARG..#.. |
00000320: 4C 44 41 23 3C 28 35 32  38 36 29 3B 35 32 38 36  |LDA#<(5286);5286|
00000330: 20 4C 4F 57 00 20 23 E0  01 20 53 54 41 24 36 33  | LOW. #.. STA$63|
00000340: 3B 4E 41 43 48 20 24 36  33 00 3B 23 EA 01 20 4C  |;NACH $63.;#.. L|
00000350: 44 41 23 3E 28 35 32 38  36 29 3B 35 32 38 36 20  |DA#>(5286);5286 |
00000360: 48 49 47 48 00 50 23 F4  01 20 53 54 41 24 36 32  |HIGH.P#.. STA$62|
00000370: 3B 4E 41 43 48 20 24 36  32 00 67 23 FE 01 20 4C  |;NACH $62.g#.. L|
00000380: 44 58 23 24 39 30 3B 58  20 49 4E 49 54 49 41 4C  |DX#$90;X INITIAL|
00000390: 00 70 23 08 02 20 53 45  43 00 8F 23 12 02 20 4A  |.p#.. SEC..#.. J|
000003A0: 53 52 5A 57 45 50 4F 53  3B 35 32 38 36 20 3D 3E  |SRZWEPOS;5286 =>|
000003B0: 20 46 4C 49 45 53 53 4B  00 95 23 1C 02 3B 00 B2  | FLIESSK..#..;..|
000003C0: 23 26 02 20 4A 53 52 41  44 44 3B 46 41 43 3D 36  |#&. JSRADD;FAC=6|
000003D0: 36 36 2E 36 36 37 2B 35  32 38 36 00 CF 23 30 02  |66.667+5286..#0.|
000003E0: 20 4A 53 52 41 55 53 47  41 42 45 3B 46 41 43 3D  | JSRAUSGABE;FAC=|
000003F0: 35 39 35 32 2E 36 36 37  00 D5 23 3A 02 3B 00 DB  |5952.667..#:.;..|
00000400: 23 44 02 3B 00 F9 23 4E  02 3B 2A 27 2D 27 3A 20  |#D.;..#N.;*'-': |
00000410: 35 32 20 51 4D 20 53 55  42 54 52 41 48 49 45 52  |52 QM SUBTRAHIER|
00000420: 45 4E 00 13 24 58 02 20  4A 53 52 46 41 43 41 52  |EN..$X. JSRFACAR|
00000430: 47 3B 46 41 43 20 3D 3E  20 41 52 47 00 27 24 62  |G;FAC => ARG.'$b|
00000440: 02 20 4C 44 59 23 35 32  3B 35 32 20 4E 41 43 48  |. LDY#52;52 NACH|
00000450: 00 3A 24 6C 02 20 4A 53  52 45 49 4E 50 4F 53 3B  |.:$l. JSREINPOS;|
00000460: 46 41 43 00 40 24 76 02  3B 00 5C 24 80 02 20 4A  |FAC.@$v.;.\$.. J|
00000470: 53 52 53 55 42 3B 46 41  43 3D 35 39 35 32 2E 36  |SRSUB;FAC=5952.6|
00000480: 36 37 2D 35 32 00 79 24  8A 02 20 4A 53 52 41 55  |67-52.y$.. JSRAU|
00000490: 53 47 41 42 45 3B 46 41  43 3D 35 39 30 30 2E 36  |SGABE;FAC=5900.6|
000004A0: 36 37 00 7F 24 94 02 3B  00 85 24 9E 02 3B 00 A2  |67..$..;..$..;..|
000004B0: 24 A8 02 3B 2A 27 2A 27  3A 20 44 4D 2D 57 45 52  |$..;*'*': DM-WER|
000004C0: 54 20 42 45 52 45 43 48  4E 45 4E 00 BC 24 B2 02  |T BERECHNEN..$..|
000004D0: 20 4A 53 52 46 41 43 41  52 47 3B 46 41 43 20 3D  | JSRFACARG;FAC =|
000004E0: 3E 20 41 52 47 00 D2 24  BC 02 20 4C 44 59 23 32  |> ARG..$.. LDY#2|
000004F0: 32 38 3B 32 32 38 20 4E  41 43 48 00 E5 24 C6 02  |28;228 NACH..$..|
00000500: 20 4A 53 52 45 49 4E 50  4F 53 3B 46 41 43 00 EB  | JSREINPOS;FAC..|
00000510: 24 D0 02 3B 00 09 25 DA  02 20 4A 53 52 4D 55 4C  |$..;..%.. JSRMUL|
00000520: 54 3B 46 41 43 3D 35 39  30 30 2E 36 36 37 2A 32  |T;FAC=5900.667*2|
00000530: 32 38 00 25 25 E4 02 20  4A 53 52 41 55 53 47 41  |28.%%.. JSRAUSGA|
00000540: 42 45 3B 46 41 43 3D 31  33 34 35 33 35 32 00 2E  |BE;FAC=1345352..|
00000550: 25 EE 02 20 52 54 53 00  34 25 F8 02 3B 00 3A 25  |%.. RTS.4%..;.:%|
00000560: 02 03 3B 00 4F 25 0C 03  3B 2A 5A 41 48 4C 20 41  |..;.O%..;*ZAHL A|
00000570: 55 53 47 45 42 45 4E 2A  00 70 25 16 03 41 55 53  |USGEBEN*.p%..AUS|
00000580: 47 41 42 45 20 4A 53 52  46 41 43 50 55 46 3B 46  |GABE JSRFACPUF;F|
00000590: 41 43 20 52 45 54 54 45  4E 00 8D 25 20 03 20 4A  |AC RETTEN..% . J|
000005A0: 53 52 46 41 43 53 54 52  3B 46 41 43 20 3D 3E 20  |SRFACSTR;FAC => |
000005B0: 53 54 52 49 4E 47 00 AD  25 2A 03 20 4A 53 52 53  |STRING..%*. JSRS|
000005C0: 54 52 4F 55 54 3B 53 54  52 49 4E 47 20 3D 3E 20  |TROUT;STRING => |
000005D0: 53 43 52 45 45 4E 00 C8  25 34 03 20 4C 44 41 23  |SCREEN..%4. LDA#|
000005E0: 31 33 3B 5A 45 49 4C 45  4E 56 4F 52 53 43 48 55  |13;ZEILENVORSCHU|
000005F0: 42 00 DF 25 3E 03 20 4A  53 52 42 53 4F 55 54 3B  |B..%>. JSRBSOUT;|
00000600: 41 55 53 47 45 42 45 4E  00 F8 25 48 03 20 4A 53  |AUSGEBEN..%H. JS|
00000610: 52 50 55 46 46 41 43 3B  46 41 43 20 48 4F 4C 45  |RPUFFAC;FAC HOLE|
00000620: 4E 00 01 26 52 03 20 52  54 53 00 07 26 5C 03 3B  |N..&R. RTS..&\.;|
00000630: 00 19 26 66 03 3B 2A 46  41 43 20 52 45 54 54 45  |..&f.;*FAC RETTE|
00000640: 4E 2A 00 2A 26 70 03 46  41 43 50 55 46 20 4C 44  |N*.*&p.FACPUF LD|
00000650: 58 23 35 00 3D 26 7A 03  4C 4F 4F 50 31 20 4C 44  |X#5.=&z.LOOP1 LD|
00000660: 41 46 41 43 2C 58 00 4E  26 84 03 20 53 54 41 50  |AFAC,X.N&.. STAP|
00000670: 55 46 46 45 52 2C 58 00  57 26 8E 03 20 44 45 58  |UFFER,X.W&.. DEX|
00000680: 00 65 26 98 03 20 42 50  4C 4C 4F 4F 50 31 00 6E  |.e&.. BPLLOOP1.n|
00000690: 26 A2 03 20 52 54 53 00  74 26 AC 03 3B 00 85 26  |&.. RTS.t&..;..&|
000006A0: B6 03 3B 2A 46 41 43 20  48 4F 4C 45 4E 2A 00 96  |..;*FAC HOLEN*..|
000006B0: 26 C0 03 50 55 46 46 41  43 20 4C 44 58 23 35 00  |&..PUFFAC LDX#5.|
000006C0: AC 26 CA 03 4C 4F 4F 50  32 20 4C 44 41 50 55 46  |.&..LOOP2 LDAPUF|
000006D0: 46 45 52 2C 58 00 BA 26  D4 03 20 53 54 41 46 41  |FER,X..&.. STAFA|
000006E0: 43 2C 58 00 C3 26 DE 03  20 44 45 58 00 D1 26 E8  |C,X..&.. DEX..&.|
000006F0: 03 20 42 50 4C 4C 4F 4F  50 32 00 DA 26 F2 03 20  |. BPLLOOP2..&.. |
00000700: 52 54 53 00 E0 26 FC 03  3B 00 EF 26 06 04 50 55  |RTS..&..;..&..PU|
00000710: 46 46 45 52 20 4E 4F 50  00 F5 26 10 04 3B 00 00  |FFER NOP..&..;..|
00000720: 00                                                |.               |

X...D.;*** GRUNDRECHNEN ***...N.;...X.;.
! ...EQ ADD   =$B86A  ;FAC=ARG+FAC.D ...
EQ SUB   =$B853  ;FAC=ARG-FAC.G ...EQ MU
LT  =$BA2B  ;FAC=ARG*FAC..  ..EQ DIV   =
$BB12  ;FAC=ARG/FAC.. ...EQ FAC   =$61..
 ...EQ ARG   =$69.E ...EQ EINPOS=$B3A2.Z
 H..EQ ZWEPOS=$BC49.. R..EQ FACARG=$BC0C
..!...EQ FACSTR=$BDDD..!...EQ STROUT=$AB
1E..!...EQ BSOUT =$FFD2.4!..;.P!...BA $C
000;PROGRAMMSTART.V!..;.\!..;.Y!".;*'/':
 ANTEIL BERECHNEN*..!,. LDA#<(2000);2000
 LOW..!6. STA$63;NACH $63.C!@. LDA#>(200
0);2000 HIGH.X!J. STA$62;NACH $62..!T. L
DX#$90;X INITIAL..!^. SEC.."H. JSRZWEPOS
;2000 => FLIESSK.1"R. JSRFACARG;FAC => A
RG.G"|. LDY#3;ANTEIL 1/3.E".. JSREINPOS;
1/3 => FLIESSK.K"..;..".. JSRDIV;FAC=200
0/3..".. JSRAUSGABE;ERGEBNISS AUSGEBEN..
"..;.."..;.P"B.;*'+': 2.FLAECHE ADDIEREN
*.."L. JSRFACARG;ERGEBNIS NACH ARG..#V. 
LDA#<(5286);5286 LOW. #.. STA$63;NACH $6
3.;#.. LDA#>(5286);5286 HIGH.P#.. STA$62
;NACH $62.G#.. LDX#$90;X INITIAL.P#.. SE
C..#.. JSRZWEPOS;5286 => FLIESSK..#..;..
#&. JSRADD;FAC=666.667+5286.O#0. JSRAUSG
ABE;FAC=5952.667.U#:.;..#D.;..#N.;*'-': 
52 QM SUBTRAHIEREN..$X. JSRFACARG;FAC =>
 ARG.'$B. LDY#52;52 NACH.:$L. JSREINPOS;
FAC.@$V.;.\$.. JSRSUB;FAC=5952.667-52.Y$
.. JSRAUSGABE;FAC=5900.667.$..;..$..;..
$..;*'*': DM-WERT BERECHNEN..$.. JSRFACA
RG;FAC => ARG.R$.. LDY#228;228 NACH..$F.
 JSREINPOS;FAC..$P.;..%Z. JSRMULT;FAC=59
00.667*228.%%.. JSRAUSGABE;FAC=1345352..
%.. RTS.4%..;.:%..;.O%..;*ZAHL AUSGEBEN*
.P%..AUSGABE JSRFACPUF;FAC RETTEN..% . J
SRFACSTR;FAC => STRING..%*. JSRSTROUT;ST
RING => SCREEN.H%4. LDA#13;ZEILENVORSCHU
B..%>. JSRBSOUT;AUSGEBEN..%H. JSRPUFFAC;
FAC HOLEN..&R. RTS..&\.;..&F.;*FAC RETTE
N*.*&P.FACPUF LDX#5.=&Z.LOOP1 LDAFAC,X.N
&.. STAPUFFER,X.W&.. DEX.E&.. BPLLOOP1.N
&.. RTS.T&..;..&..;*FAC HOLEN*..&..PUFFA
C LDX#5..&J.LOOP2 LDAPUFFER,X..&T. STAFA
C,X.C&.. DEX.Q&.. BPLLOOP2.Z&.. RTS..&..
;..&..PUFFER NOP..&..;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL