[openfirmware] r1404 - dev/olpc/dcon

[svn at openfirmware.info]

Author: wmb
Date: 2009-10-08 07:18:17 +0200 (Thu, 08 Oct 2009)
New Revision: 1404

Modified:
   dev/olpc/dcon/dcon.fth
Log:
OLPC - added mode@ to XO-1 DCON driver.


Modified: dev/olpc/dcon/dcon.fth
===================================================================
--- dev/olpc/dcon/dcon.fth	2009-10-08 05:15:10 UTC (rev 1403)
+++ dev/olpc/dcon/dcon.fth	2009-10-08 05:18:17 UTC (rev 1404)
@@ -107,6 +107,7 @@
    ['] dcon!  catch  if  2drop  smb-stop 1 ms  smb-off  1 ms  smb-on  then
 ;
 
+: mode@    ( -- mode )    1 dcon@  ;
 : mode!    ( mode -- )    1 dcon!  ;
 : hres!    ( hres -- )    2 dcon!  ;  \ def: h#  458 d# 1200
 : htotal!  ( htotal -- )  3 dcon!  ;  \ def: h#  4e8 d# 1256