r388 - dev/olpc/cafecamera

Author: wmb
Date: 2007-05-16 10:54:20 +0200 (Wed, 16 May 2007)
New Revision: 388

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

Modified: dev/olpc/cafecamera/cafecamera.fth
===================================================================
--- dev/olpc/cafecamera/cafecamera.fth	2007-05-16 08:52:09 UTC (rev 387)
+++ dev/olpc/cafecamera/cafecamera.fth	2007-05-16 08:54:20 UTC (rev 388)
@@ -408,12 +408,18 @@
    40 dup cl@ 1000.0000 invert and swap cl!	\ power up
    30 b4 cl!				        \ power up, reset
    1 ms
-   31 b4 cl!
+   31 b4 cl!                                    \ release reset
    1 ms
 ;

: power-off  ( -- )
-   0 3038 cl!		\ Turn off CaFe GPIO3 to disable power
+   30 b4 cl!					\ assert Cam_Reset   
+   1 ms
+   32 b4 cl!					\ assert Cam_Reset and Cam_PWRDN
+   1 ms
+   0008.0000 315c cl!				\ Remove VDD
+   5 ms
+   40 dup cl@ 1000.0000 or swap cl!		\ power off
 ;
 : init  ( -- )
    (init)