# XRT Flare trigger enabled sequence 
# 05/11/2004: Origional by KFJ

$sequence_number = 121;

sequence_id(0xface)
sequence_repeats(1)

#0x2F = normal read-out, 0x3f = stim, 0x4f = self test pattern(zig-zag)
eis_cam_setup_ae(0x99,0x99,0x77,0x2f,0xf,0,0,0)

# Configure CSG 3. Not really needed but for the fear of poking during
# ISAS testing

# Program CAM Y-start (256) and Y-height (512) ** CSG 3 **
eis_cam_prog_csg_win(0x03,0x0,0x0c,0x81)
eis_cam_prog_csg_win(0x83,0x0,0x0c,0x00)
eis_cam_prog_csg_win(0x03,0x0,0x14,0x92)
eis_cam_prog_csg_win(0x83,0x0,0x14,0x00)

# program x_start (50) and x_length (1024)
eis_cam_prog_csg_win(0x03,0x0,0x2D,0x80)
eis_cam_prog_csg_win(0x83,0x0,0x2D,0x32)
# 0x3FF + 1
eis_cam_prog_csg_win(0x03,0x1,0x07,0x83)
eis_cam_prog_csg_win(0x83,0x1,0x07,0xFF)

# Highly recommended as CSG 4 is a "punch bag" for on-the-fly configuration 
# Program CAM Y-start (256) and Y-height (512) ** CSG 4 **
eis_cam_prog_csg_win(0x04,0x0,0x0c,0x81)
eis_cam_prog_csg_win(0x84,0x0,0x0c,0x00)
eis_cam_prog_csg_win(0x04,0x0,0x14,0x92)
eis_cam_prog_csg_win(0x84,0x0,0x14,0x00)

# program x_start (50) and x_length (1024)
eis_cam_prog_csg_win(0x04,0x0,0x2D,0x80)
eis_cam_prog_csg_win(0x84,0x0,0x2D,0x32)
# 0x3FF + 1
eis_cam_prog_csg_win(0x04,0x1,0x07,0x83)
eis_cam_prog_csg_win(0x84,0x1,0x07,0xFF)


# sci_ops goes here
xrt_flare_trigger = enable
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		= 0xBEEF
mip             = 0
loop_cntr       = 100
data_comp       = 0
ocb_x           = 1
ocb_y           = 1
flush_seq_id    = 2
num_flush       = 5
exp_per_ras_pos = 1
asrc_ctl        = 0x00
ro_node         = 0xF
ras_repeats     = 1
asrc_skip       = 0
ro_seq_id       = 3
mirror_step     = 0x0
line_list       = 2
#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:

exp_time_10ms = 10 * 100
eis_start_exp(exp_time_10ms)

eis_set_seq_loop("here")

eis_stop_seq(121)