[OpenBIOS] r491 - in trunk/openbios-devel/forth: admin device

[svn at openbios.org]

Author: blueswirl
Date: 2009-05-22 19:09:05 +0200 (Fri, 22 May 2009)
New Revision: 491

Modified:
   trunk/openbios-devel/forth/admin/nvram.fs
   trunk/openbios-devel/forth/device/other.fs
Log:
Read the diagnostic mode setting from NVRAM (Mark Cave-Ayland)

Modified: trunk/openbios-devel/forth/admin/nvram.fs
===================================================================
--- trunk/openbios-devel/forth/admin/nvram.fs	2009-05-20 18:07:09 UTC (rev 490)
+++ trunk/openbios-devel/forth/admin/nvram.fs	2009-05-22 17:09:05 UTC (rev 491)
@@ -364,3 +364,4 @@
 
 \ defers
 ['] fcode-debug? to _fcode-debug?
+['] diag-switch? to _diag-switch?

Modified: trunk/openbios-devel/forth/device/other.fs
===================================================================
--- trunk/openbios-devel/forth/device/other.fs	2009-05-20 18:07:09 UTC (rev 490)
+++ trunk/openbios-devel/forth/device/other.fs	2009-05-22 17:09:05 UTC (rev 491)
@@ -8,6 +8,10 @@
 \ the copyright and warranty status of this work.
 \ 
 
+\ The current diagnostic setting
+defer _diag-switch?
+
+
 \ 
 \ 5.3.7 Other FCode functions
 \ 
@@ -89,6 +93,8 @@
   ;
   
 : diagnostic-mode?     ( -- diag? )
+  \ Return the NVRAM diag-switch? setting
+  _diag-switch?
   ;
   
 \ 5.3.7.6 Start and end.