# File: hr_t_ve_le_ce_v02.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/prep/src/hr_t_ve_le_ce_v02.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    hr_t_ve_le_ce.ips
#; PURPOSE: Make a high resolution dopplergram and
#;	   downlink the extracted dopplergram, continuum observable
#;	   and linedepth. Track for solar rotation
#; HISTORY: 27-Feb-97 by M.Morrison (using hr_t_ve_fe_me as templa
#;	    4-Mar-97 (MDM) - Changed callback to frame 5 because hr_t_v
#;			     downlinked at frame 6 for 500x1024 and 700x700 is
#;			     4% smaller = about 3 seconds.
#;	    4-Mar-97 (MDM) - Changed back to frame 6
#;	    5-Mar-97 (MDM) - Because of using  hr_t_ve_fe_me as the tem
#;			     timing of the DL1 and DL2 was off because a mag program
#;			     is done at frame 9, but a vel is done at 10.
#;			     Current mode has 174 frames which is 9.57 sec.  Models
#;			     suggest 12-15 sec is needed.
#;			   - Changed callback from frame 6 to 7
#
#QPROG_HR_T_VE_LE_CE::
#
#    CALLQUE  $QSR_TRACK_ROT
tcblock mbipmacl 0x1A16    0x01F8 0x0B50 
#
#    CALLQUE  $QSR_HR_VLC30					;do all of the work
tcblock mbipmacl 0x1A18    0x01F8 0x1747 
#    BRANCHNE R3072 10 &DONE                                     ;
tcblock mbipmacl 0x1A1A    0x01B0 0x0C00 0x000A 0x1A30 
#
#    COPYRD2D $IPRL_EXT_HR_T_VE_LE_CE $IPRL_EXTRACT_PARAM 6       
tcblock mbipmacl 0x1A1E    0x0144 0x15B0 0x1173 0x0006 
#    CALLQUE  $QSR_STD_EFMT_CONT		;---- Extract 700x700 lines from
tcblock mbipmacl 0x1A22    0x01F8 0x184E 
#    CALLQUE  $QSR_STD_EFMT_VEL		;---- Extract 700x700 lines from 
tcblock mbipmacl 0x1A24    0x01F8 0x1842 
#    CALLQUE  $QSR_STD_EFMT_LDEP		;---- Extract 700x700 lines from
tcblock mbipmacl 0x1A26    0x01F8 0x1848 
#
#    ;---- Downlink the one observable
#    SETREG  $IPRL_DL_PARAM 0x2800				;downlink cont
tcblock mbipmacl 0x1A28    0x0140 0x11D0 0x2800 
#    CALLQUE $QSR_DL_1PAGE
tcblock mbipmacl 0x1A2B    0x01F8 0x0DA0 
#
#    SETREG $IPRL_CB_ADDR &QCB_REENTRY                           ;
tcblock mbipmacl 0x1A2D    0x0140 0x0C20 0x1A31 
#DONE:
#
#    END
tcblock mbipmacl 0x1A30    0x01FC 
#
#;----------------------- Start of callback code
#QCB_REENTRY:
#    BRANCHEQ R3072  7  &CB_FRM
tcblock mbipmacl 0x1A31    0x01AE 0x0C00 0x0007 0x1A37 
#    GOTO &QSR_CB_DONE_ADDR
tcblock mbipmacl 0x1A35    0x0156 0x0FFF 
#
#CB_FRM:
#    ;---- Downlink the two observables
#    SETREGS  $IPRL_DL_PARAM 2 0x6800 0x3000			;downlink vel and l
tcblock mbipmacl 0x1A37    0x01B2 0x11D0 0x0002 0x6800 \
                                0x3000 
#    CALLQUE  $QSR_DL_2PAGE					;0.6 sec
tcblock mbipmacl 0x1A3C    0x01F8 0x0DA5 
#    SETREG $IPRL_CB_ADDR 0                                      ;
tcblock mbipmacl 0x1A3E    0x0140 0x0C20 0x0000 
#    GOTO &QSR_CB_DONE_ADDR
tcblock mbipmacl 0x1A41    0x0156 0x0FFF 
#=======================================================
#
return
#
#=======================================================
