1 files changed, 27 insertions, 0 deletions
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