//checkin: 03/10/98 1207 File CCK.eastlimb.3x2.Fe12Fe15.useq  ID: 0xc0 Version:  0 Checked in. 
//name: CCK.eastlimb.3x2.Fe12Fe15
//description: EUV limb study
//revision: 7
//date: 19980114
//keywords: 24: Limb, 25: Loops, 51: Temperature
//ID: 000.000.000.000
//Type: main program 
//Target: east limb
//Termination: by interrupt
//Telemetry: 20 MB/hr


//This sequence is designed to produce 3x2 mosaics in Fe XII & XV for
//observations of high equatorial loops on day 13 (nominal) of the first
//30 days of TRACE observing. The area of interest is the equator and
//northern activity belt.

//The target-class scheme for AEC will be used.

$type:main;
$PRI = 0;
resetaec;
call(STD.CCDsafe_init);

set_frame_list(cck.FeXV.Q6, cck.FeXII.Q6);
cadence(0);
$L1=0;
while  ($PND==0) {
        $PRI=1;
        set_target_list(named.pos61,named.pos60,named.pos37,named.pos36,
                named.pos09);
        execute_list(0s,0s,@saa_pause);
        call(STD.CCDsafe); if ($RTN) return(99);
        set_target_list(named.pos10);
        execute_list(0s,0s,@saa_pause);
        call(STD.CCDsafe); if ($RTN) return(99);
        $PRI=0;
        if($L1) {
                $L1--;
        } else {
                $L1 = 20; // 1 hr countdown
                frame(cck.WL.Q6);
        }
        cadence(360); // 6 min. fastest cadence
}       
return;


//Each frame will be full-resolution, AEC enabled.
//
//Data highly compressed.
//