From 2672e5654adf53f0642633a58c4e641e9112cec3 Mon Sep 17 00:00:00 2001
From: Robert Scheibe <mail@robert-scheibe.de>
Date: Sat, 3 Jan 2026 19:17:49 +0100
Subject: revert to HMS form in registers

---
 debug_calcd.txt    | 30 ++++++++++++++++++++++++++++++
 programs/calcd.lst | 27 +++++++++++++++++++++++++++
 programs/calcx.lst | 29 +++++++++++++++++++++++++++++
 3 files changed, 86 insertions(+)
 create mode 100644 debug_calcd.txt
 create mode 100644 programs/calcd.lst
 create mode 100644 programs/calcx.lst

diff --git a/debug_calcd.txt b/debug_calcd.txt
new file mode 100644
index 0000000..4e7a03c
--- /dev/null
+++ b/debug_calcd.txt
@@ -0,0 +1,30 @@
+01 LBL CALCD		
+02 RCL 01		54.2
+03 XEQ DMS2HMS		54.33333
+04 HR			54.2
+05 SIN                   # sin 01 0.81242
+06 RCL 02		18.108
+07 XEQ DMS2HMS		18.10480
+08 HR			18.18
+09 SIN                   # sin 02 0.312
+10 *			0.25348
+11 RCL 01
+12 XEQ DMS2HMS
+13 HR
+14 COS                   # cos 01 0.58307
+15 RCL 02		18.108
+16 XEQ DMS2HMS		18.1048
+17 HR			18.18
+18 COS                   # cos 02 0.95008
+19 *			0.55396
+20 RCL 03		19.274
+21 XEQ DMS2HMS		19.45667
+22 HR			19.27240 , then 19.45667
+23 COS                   # cos 03 0.94289
+24 *			0.52233
+25 +			1.07629
+26 ASIN                  # Winkel (DEG)
+27 HMS                   # in HMS-Format wandeln
+28 XEQ HMS2DMS           # in Grad.Minutenbruchteile"
+29 STO 04
+30 RTN
diff --git a/programs/calcd.lst b/programs/calcd.lst
new file mode 100644
index 0000000..6595986
--- /dev/null
+++ b/programs/calcd.lst
@@ -0,0 +1,27 @@
+# calcd: 04 = asin( sin 01 * sin 02 + cos 01 * cos 02 * cos 03 )
+# Eingänge: R01–R03 im Format HMS
+
+01 LBL CALCD
+02 RCL 01
+03 HR
+04 SIN                   # sin 01
+05 RCL 02
+06 HR
+07 SIN                   # sin 02
+08 *
+09 RCL 01
+10 HR
+11 COS                   # cos 01
+12 RCL 02
+13 HR
+14 COS                   # cos 02
+15 *
+16 RCL 03
+17 HR
+18 COS                   # cos 03
+19 *
+20 +
+21 ASIN                  # Winkel (DEG)
+22 HMS                   # in HMS-Format wandeln
+23 STO 04
+24 RTN
diff --git a/programs/calcx.lst b/programs/calcx.lst
new file mode 100644
index 0000000..600f56e
--- /dev/null
+++ b/programs/calcx.lst
@@ -0,0 +1,29 @@
+# calcx: 05 = acos( (sin 02 - sin 01 * sin 04) / (cos 01 * cos 04) )
+# Eingänge: R01–R04 im Format Grad° Minuten.bruchteile"
+# Nutzung: wandelt jede Eingabe mit DMS2HMS, rechnet in DEG, Ausgabe Grad.Minutenbruchteile via HMS2DMS in R05
+
+01 LBL CALCX
+02 RCL 02
+03 HR
+04 SIN                   # sin 02
+05 ENTER↑                # duplizieren
+06 RCL 01
+07 HR
+08 SIN                   # sin 01
+09 RCL 04
+10 HR
+11 SIN                   # sin 04
+12 *
+13 -                     # sin 02 - sin 01*sin 04
+14 RCL 01
+15 HR
+16 COS                   # cos 01
+17 RCL 04
+18 HR
+19 COS                   # cos 04
+20 *
+26 /
+21 ACOS                  # Winkel (DEG)
+22 HMS                   # in HMS-Format wandeln
+23 STO 05
+24 RTN
-- 
cgit v1.2.3