; FILE:    hr_ve_le.ips
; PURPOSE: Make and downlink the extracted velocity and line-depth
; HISTORY: 8-Jan-97 by M.Morrison
;	 9-Jan-97 (MDM) - Changed extract size to 700

QPROG_HR_VE_LE::

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

    COPYRD2D $IPRL_EXTRACT_70K $IPRL_EXTRACT_PARAM 6            ;setup the parameters to be used by the extract subroutine
    CALLQUE  $QSR_STD_EFMT_VEL		;---- Extract 750 lines from continuum and compress
    CALLQUE  $QSR_STD_EFMT_LDEP		;---- Extract 750 lines from velocity

    ;---- Downlink the two observables
    SETREGS  $IPRL_DL_PARAM 2 0x6800 0x3000			;downlink 
    CALLQUE  $QSR_DL_2PAGE					;0.6 sec

DONE:
    END