[openfirmware] r1642 - ofw/core

[svn at openfirmware.info]

Author: rsmith
Date: 2010-01-05 17:53:07 +0100 (Tue, 05 Jan 2010)
New Revision: 1642

Modified:
   ofw/core/ofwfw.fth
Log:
Add watch-rtc command for quanta R&D that shows the RTC similar to the way a BIOS would.



Modified: ofw/core/ofwfw.fth
===================================================================
--- ofw/core/ofwfw.fth	2009-12-29 00:26:19 UTC (rev 1641)
+++ ofw/core/ofwfw.fth	2010-01-05 16:53:07 UTC (rev 1642)
@@ -42,6 +42,13 @@
    drop
 ;
 
+: watch-rtc
+   begin 
+      time&date .date ."  " .time (cr 500 ms
+   key? until
+   key drop
+;
+
 \ From fwfileop.fth
 purpose: File I/O interface using Open Firmware
 copyright: Copyright 1994 Firmworks  All Rights Reserved