download PDF (41MB) - Mike Schilli

SERIE 40
GEW + POP
Gewichtsberechnung einfacher Korper und Unterdriicken des letzten RTN
von Gunter Schapka
SIZE 009, HP-41 CX, CCD, Rambox
Mit dem Programm GEW lassen sich
kubische und zylindrische Korper be
rechnen, z.B. Bleche, Stabe und Rohre.
Variablen sind: Spezifisches Gewicht, Brei
te und Hohe (bzw. AuBen- und innendurchmesser),
Lange und Gewicht. Gleichgiiltig,
welche der vier Variablen einge
geben werden, die letzte, 5. wird berech
net.
Da das Programm nicht andauernd in
Benutzung ist, wurde es iiber AVIEW
und GETKEYX gesteuert (Meniianzeige)
und nicht iiber z.B. lokale Alpha-
Labels. Somit ist es selbsterklarend und
bestehendeTastenzuordnungenbleiben
erhalten.
Fur das spezifische Gewicht (hier mit m
angezeigt) sind bereits drei Werte (fiir
Stahl, Blei und Aluminium) im Programm
eingebaut, die Auswahl erfolgt bei LBL
11 durch drucken der zugehorigen Buchstabentaste.
Bei Taste M kann ein Wert
manuell eingegeben werden, bei Taste R
wird das spezifische Gewicht berechnet
(Dimension in kg/Liter).
Das Hauptmenii bei LBL 16 fragt die
Variablen ab. Die moglichen Werte ste
hen iiber den Tasten in der oberen Rei
he. Driickt man zuerst n, dann kann, wie
bereits vorher beschrieben, ausgewahlt
werden (hier berechnen zu wollen ist na
turlich Unsinn!). Der gewahlte oder eingegebene
Wert wird als ji mit Index S, A,
B oder M angezeigt. Pfeil oder Doppelpunktdahinterfordern
bereits zur Einga
be des nachsten Zahlenwertes auf. Nach
Drucken von Taste R/S kann der Wert
bei Anzeige des Hauptmeniis seiner Va
riablen zugeordnet werden: Breite [mm]
auf Taste B, Hohe [mm] auf D, oder
Gewicht [kg] auf E. Wird als erste Taste
eine andere Taste als n gedruckt, er
scheint in der Anzeige vorlaufig die Va
riable mit dem Wert 0.
Nach Eingabe von B oder H ist Flag 1 ge
setzt, bei D oder d geloscht, damit wird
jeweils die richtige Gleichung angesteuert.
Fiir die test eingegebenen n-Werte und
die Konstante 0.25*PI*E-6 ist in den Zei
len 42 und 43 das Alpha-Register komplett
belegt (Reg. M,N,0 und P). Wird
zwischen den Zeilen 42 und 44 im SST-
Modus durchgetastet, dann gehen die
ersten 4 Bytes von P (25-28 des Alpha-
Registers) verloren und die Konstante ist
verkehrt.
LBL 05 (Zeile 60) enthalt die Gleichungen zur Berechnung des spezifischen
Gewichts:
^ M = _ f ± g ± PE I 6 * | ( * F( 0D1 = 20 -) d o2 d) e r 4 * G * PEI 6 * * L p * ' B * H * 4 M
LBL 06 (Zeile 162) enthalt die Gleichungen zur Berechnung von D oder B
D
' r+d2 (FOMO) oder B=
R02=D£
G ± P | ( F 0 1 = 1 ) o d e r
"\| K*(j*L
K*M*L*4*H RQ2=B
LBL 07 (Zeile 174) enthalt die Gleichungen zur Berechnung von d oder H:
d = +D (FOMO) oder H^
~\J K*u*L
G*PI
K*u*L*4*B
R03=d;
(FOM1) oder
R03=H
LBL 08 (Zeile 201) enthalt die Gleichungen zur Berechnung von L:
G
-2—g- (FOMO) oder L=
(FOM1) R04=L
K * M * ( D 2 - d z ) K * p * B * H
LBL 09 (Zeile 211) enthalt die Gleichungen zur Berechnung von G:
G=K*u*L*(D2-d2) (FOMO) oder G= K*M*L*H*B*PI RQ5=G
4
Weitere Register sind wie folgt belegt:
R06= K ' W,:A R08=
Nach Eingabe alter Werte und Berech
nung des Ergebnisses konnen einzelne
Variablen verandert und'lhre Auswirkung
auf das Ergebnis untersucht werden. Ein
Zwischenergebnis kann vom Hauptmenu
nach Drucken der STO-Taste (LBL
33) zur spateren Weiterverwendung in
R00 gespeichert werden.
Erfolgt innerhalb 99 Sekunden keine
Eingabe ins Hauptmenii, schaltet der
Rechner mit gesetzter Flag 11 ab. Beim
Einschalten erscheint wieder das Haupt
menii.
Programm-Ausstieg mit R/S aus dem
Hauptmenii. Der Rechner schaltet ab,
bleibt aber am Programmende stehen
und kann von da aus iiber erneutes R/S
wieder von vorn beginnen.
Noch einige Programmdetails:
Solange noch kein Gewichtswert bekannt
ist (entweder durch Eingabe oder Rechnung)
bleibt bei LBL 10 auch Register 06
Null. Wird aus dem Hauptmenii eine Taste
der oberen Reihe ohne Dateneingabe
gedruckt, dann veranlaBt dies normaler
weise Berechnung des zugehorigen
Wertes. Im Unterprogramm 19 wird in
diesem Fall die RTN-Adresse (XEQ POP)
geloscht, direkt zum Aufruf der Berech
nung zuriickverzweigt und fiir diesen Wert
PI
4*E6
Null gespeichert (Soil z.B. fiir Rundstabmaterial
anstelte von Rohr gerechnet
werden, dann muB fiir d Null gespeichert
werden!).
Die GETKEYX-Ansteuerung im Haupt
menii wurde bereits von Michael Kamp
im Programm RAMED (PRISMA 87.7.24)
veroffentlicht.
Das Unterprogramm mit POP wurde im
PPC-Journal V12 N5 P47 von Robert
Swanson veroffentlicht, siehe auch gesonderten
Artikel mit einer MCODE-Version.
POP
Das Programm POP unterdriickt den
letzten RTN-Befehl im Register b, alle
anderen RTN werden im RTN-Stack um
eine Ebene heruntergeschoben.
Die synthetische Version wurde bereits
im PPC-Journal V12 N5 P47 von Robert
Swanson veroffentlicht, sie benotigt eine
Unterprogrammebene.
Als ersten MCODE-Gehversuch habe ich
eine MCODE-Version geschrieben, die
keine Unterprogrammebene belegt.
Ein beigefiigtes Testprogramm TST arbeitet
erst normal (Flag 01=1, F00=0),
34 PRISMA 6/89 Computerclub Deutschland e.V