[OpenBIOS] r381 - dev/olpc/cafecamera

[svn at openbios.org]

Author: wmb
Date: 2007-05-15 02:59:33 +0200 (Tue, 15 May 2007)
New Revision: 381

Modified:
   dev/olpc/cafecamera/cafecamera.fth
Log:
OLPC Camera - turn off camera power when not in use.


Modified: dev/olpc/cafecamera/cafecamera.fth
===================================================================
--- dev/olpc/cafecamera/cafecamera.fth	2007-05-14 10:50:34 UTC (rev 380)
+++ dev/olpc/cafecamera/cafecamera.fth	2007-05-15 00:59:33 UTC (rev 381)
@@ -390,7 +390,7 @@
 : soft-reset  ( -- )  4 h# 3034 cl!  0 h# 3034 cl!  ;
 
 : (init)  ( -- )
-   0000.0008 3038 cl!		\ magic to bringup hardware
+   0000.0008 3038 cl!		\ Turn on CaFe GPIO3 to enable power
    0008.0008 315c cl!
    0000.0005 3004 cl!		\ wake up device
    0000.000a 3004 cl!
@@ -412,6 +412,9 @@
    1 ms
 ;
 
+: power-off  ( -- )
+   0 3038 cl!		\ Turn off CaFe GPIO3 to disable power
+;
 : init  ( -- )
    (init)
    power-up
@@ -468,6 +471,7 @@
 
 : close  ( -- )
    ctlr-stop
+   power-off
    free-dma-bufs
    unmap-regs
 ;