# File: cmon.src
#
# This procedure powers up the CCD Camera.
#

program "@(#) MODULE: cmon.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/sim/src/cmon.src"
descr "   cmon - Power up CCD camera"

display "Executing procedure cmon."

tcblock mbipldin 0x154

display "Switching on CCD camera."

# CCD camera on 
tcblock mbpwcmon
wait time 2

# Reset camera
tcblock mbcmres
wait time 2

# Reset IP
tcblock mbiprsal
wait time 5
tcblock mbiprun
wait time 3

# Set A ampifier & CCD offset (badc=6 for brassboard electronics)
# tcblock mbcmaadc 6
# Set A ampifier & CCD offset (aadc=3 for flight electronics)
tcblock mbcmaadc 3

tcblock mbipldin 0x136

display "Finished procedure cmon : %s" !TIME
