1 files changed, 16 insertions, 0 deletions
diff --git a/programs/dms2hms.lst b/programs/dms2hms.lst
new file mode 100644
index 0000000..e6df6bf
--- /dev/null
+++ b/programs/dms2hms.lst
@@ -0,0 +1,16 @@
+# dms -> hms (Eingabe: Grad.Minuten dezimal; Ausgabe: Grad.MMSS)
+# Beispiel: Eingabe 50.305 interpretiert als 50° 30.5' -> 50.3030 (für HMS+, HMS-)
+# ist mit ASN DMS2HMS auf SQRT gemappt im User mode
+
+01 LBL DMS2HMS
+02 ENTER↑                 # Eingabe duplizieren
+03 INT                    # Grad
+04 X<>Y                   # X: Eingabe, Y: Grad
+05 FRC                    # Minutenanteil (dezimal/100)
+06 100
+07 *
+08 60
+09 /
+10 +                      # Grad + Minuten/60 (Dezimalgrad)
+11 HMS                    # in HMS-Format wandeln
+12 RTN