So einen Commodore-Taschenrechner PR 100 habe ich 1978 von meinen Eltern geschenkt bekommen. Es war mein erster eigener, programmierbarer Taschenrechner.
Das Programm habe ich dann während meiner Schulzeit 1978 geschrieben und bisher zusammen mit vielen weiteren handgeschrieben auf kariertem Papier in einem kleinen Hefter aufbewahrt.
Es verwendet die Speicher 0 bis 2 und benötigt 64 der 72 möglichen Programmschritte. Nach dem Ausschalten des Taschenrechners muss man das Programm neu eingeben, es gibt keine andere Speichermöglichkeit...
Nach der Programmeingabe gibt man zuerst den Dividenden ein und drückt R/S, dann den Divisor und drückt wieder R/S. Jetzt wird der ganzzahlige Anteil der Division angezeigt. Nach jedem weiteren Drücken von R/S werden 8 Nachkommastellen angezeigt, Vornullen muss man selbst im Kopf ergänzen.
Um eine neue Berechnung zu starten ist GOTO 00 einzutippen.
Nr: Tasten Erklärung
00: F FP 9 Fließkommadarstellung mit 9 Nachkommastellen einstellen
03: M 0 Dividend -> Speicher 0
05: M 2 Dividend -> Speicher 2
07: R/S Stopp zur Eingabe des Divisors
08: M 1 Divisor -> Speicher 1
10: MR 2 Dividend aus Speicher 2 holen
12: ÷ teilen durch
13: MR 1 Divisor aus Speicher 1
15: = Ergebnis
16: F INT ganzzahligen Anteil bestimmen
18: R/S Stopp zur Anzeige
19: MR 1 Divisor aus Speicher 1 holen
21: x malnehmen mit
22: (
23: MR 0 Dividend aus Speicher 0
25: ÷ teilen durch
26: MR 1 Divisor aus Speicher 1
28: )
29: F INT ganzzahligen Anteil bestimmen
31: - minus
32: MR 2 Dividend aus Speicher 2
34: x<>y X- und Y-Register vertauschen
35: x mit
36: EE 8 10^8
38: = multiplizieren
39: M 2 Ergebnis -> Speicher 2
41: ÷ teilen durch
42: MR 1 Divisor aus Speicher 1
44: = Ergebnis
45: F INT ganzzahligen Anteil bestimmen
47: R/S Stopp zur Anzeige
48: x malnehmen mit
49: MR 1 Divisor aus Speicher 1
51: - minus
52: MR 2 Inhalt von Speicher 2
54: x<>y X- und Y-Register vertauschen
55: x malnehmen mit
56: EE 8 10^8
58: = Ergebnis
59: M 2 Ergebnis -> Speicher 2
61: GOTO 41 Schleife für die nächsten 8 Nachkommastellen
Alles anzeigen