; 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
;	    4-Mar-97 (MDM) - Changed callback to frame 5 because hr_t_ve_fe_me
;			     downlinked at frame 6 for 500x1024 and 700x700 is
;			     4% smaller = about 3 seconds.
;	    4-Mar-97 (MDM) - Changed back to frame 6

QPROG_HR_T_VE_LE_CE::

    CALLQUE  $QSR_TRACK_ROT

    CALLQUE  $QSR_HR_VLC30					;do all of the work
    BRANCHNE R3072 10 &DONE                                     ;on frame 10, do the following code

    COPYRD2D $IPRL_EXT_HR_T_VE_LE_CE $IPRL_EXTRACT_PARAM 6            ;setup the parameters to be used by the extract subroutine
    CALLQUE  $QSR_STD_EFMT_CONT		;---- Extract 700x700 lines from continuum and compress
    CALLQUE  $QSR_STD_EFMT_VEL		;---- Extract 700x700 lines from velocity
    CALLQUE  $QSR_STD_EFMT_LDEP		;---- Extract 700x700 lines from line-depth

    ;---- Downlink the one observable
    SETREG  $IPRL_DL_PARAM 0x2800				;downlink cont
    CALLQUE $QSR_DL_1PAGE

    SETREG $IPRL_CB_ADDR &QCB_REENTRY                           ;set the callback register with the address to go to
DONE:

    END

;----------------------- Start of callback code
QCB_REENTRY:
    BRANCHEQ R3072  6  &CB_FRM06
    GOTO &QSR_CB_DONE_ADDR

CB_FRM06:
    ;---- Downlink the two observables
    SETREGS  $IPRL_DL_PARAM 2 0x6800 0x3000			;downlink vel and ldep
    CALLQUE  $QSR_DL_2PAGE					;0.6 sec
    SETREG $IPRL_CB_ADDR 0                                      ;clear the callback register
    GOTO &QSR_CB_DONE_ADDR