# light top
# Prepared for integration 3 at ISAS
# 5/11/04
# 19/08/05

$sequence_number = 56;

#reading upper half of ccd at the moment during calibration

sequence_id(0x0056)
sequence_repeats(1)

# Set CAM y-start to 1
eis_cam_prog_csg_win(0x04,0x0,0x0c,0x80)
eis_cam_prog_csg_win(0x84,0x0,0x0c,0x01)

# Set CAM y-height to 512
eis_cam_prog_csg_win(0x04,0x0,0x14,0x92)
eis_cam_prog_csg_win(0x84,0x0,0x14,0x00)

# x_length
eis_cam_prog_csg_win(0x04,0x1,0x07,0x80)
eis_cam_prog_csg_win(0x84,0x1,0x07,0x7F)

# seq.55
# sci_ops goes here
xrt_flare_trigger = disable
eis_aec           = disable
eis_event_trigger = disable
eis_flare_trigger = disable

eis_sci_op(xrt_flare_trigger, eis_aec, eis_event_trigger, eis_flare_trigger)

# Turn cal power relay off
eis_mhc_cal_power(0xFFFF)

id		= 0x5519
mip             = 0
loop_cntr       = 1
data_comp       = 0
ocb_x           = 1
ocb_y           = 1
flush_seq_id    = 2
num_flush       = 5
exp_per_ras_pos = 1
asrc_ctl        = 0
ro_node         = 0xF
ras_repeats     = 1
asrc_skip       = 0
ro_seq_id       = 4
mirror_step     = 0
line_list       = 19
#sci_op is implicitly handled by run_raster. No need to include as parameter

eis_run_raster(id, mip, loop_cntr, data_comp, ocb_x, ocb_y, flush_seq_id, num_flush, exp_per_ras_pos, asrc_ctl, ro_node, ras_repeats, asrc_skip, ro_seq_id, mirror_step, line_list)

here55:

# 30 second exposure
exp_time_10ms = 30 * 100 

#use following lines if one wants to get a led flat field measurement
# 100 ms  parameter set to 100 for new mhc, rev3.1d code and 10 for old
# use if one wants the cal leds on for well known time

# 100ms exp time
eis_mhc_parameter_set(0xa903, 100)

# both LEDS ON 
eis_flat_field(exp_time_10ms, 3)

eis_set_seq_loop("here55")

# Turn cal power relay on
eis_mhc_cal_power(0x0001)

# sci_ops goes here
xrt_flare_trigger = disable
eis_aec           = disable
eis_event_trigger = disable
eis_flare_trigger = disable

eis_sci_op(xrt_flare_trigger, eis_aec, eis_event_trigger, eis_flare_trigger)

id		= 0x5619
mip             = 0
loop_cntr       = 1
data_comp       = 0
ocb_x           = 1
ocb_y           = 1
flush_seq_id    = 2
num_flush       = 5
exp_per_ras_pos = 1
asrc_ctl        = 0
ro_node         = 0xF
ras_repeats     = 1
asrc_skip       = 0
ro_seq_id       = 4
mirror_step     = 0
line_list       = 19
#sci_op is implicitly handled by run_raster. No need to include as parameter

eis_run_raster(id, mip, loop_cntr, data_comp, ocb_x, ocb_y, flush_seq_id, num_flush, exp_per_ras_pos, asrc_ctl, ro_node, ras_repeats, asrc_skip, ro_seq_id, mirror_step, line_list)

here:

# 30 second exposure
exp_time_10ms = 30 * 100 

#use following lines if one wants to get a led flat field measurement
# 100 ms  parameter set to 100 for new mhc, rev3.1d code and 10 for old
# use if one wants the cal leds on for well known time

# 100ms exp time
eis_mhc_parameter_set(0xa903, 100)

# both LEDS ON 
eis_flat_field(exp_time_10ms, 3)

eis_set_seq_loop("here")

eis_call_seq(57)