rtc

folkertvanheusden · Aug 31, 2023 · d60de75 · d60de75
1 parent f63e14d
commit d60de75
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/XT.cs b/XT.cs
@@ -355,6 +355,20 @@ private bool InterceptInt(int nr)  // TODO rename
             SetFlagC(false);
             return true;
         }
+        else if (nr == 0x1a) {
+            if (_ah == 0x02) {
+                DateTime now = DateTime.Now;
+
+                // convert to BCD
+                _ch = (byte)(((now.Hour / 10) << 4) | (now.Hour % 10));
+                _cl = (byte)(((now.Minute / 10) << 4) | (now.Minute % 10));
+                _dh = (byte)(((now.Second / 10) << 4) | (now.Second % 10));
+                _dl = 0;
+
+                SetFlagC(false);
+                return true;
+            }
+        }
         else
         {
 #if DEBUG