; FILE:    hr_fe_ce.ips
; PURPOSE: Make and downlink a high res continuum and downlink the
;	   continuum filtergram also
; HISTORY: 
;       Written 22-Jul-96 by M.Morrison

QPROG_HR_FE_CE::
    CALLQUE  $QSR_HR_VLC30                                      ;do all of the work

    BRANCHLT R3072 10 &DONE 					;If not ready for downlink, then exit

    COPYRD2D $IPRL_EXTRACT_80K $IPRL_EXTRACT_PARAM 6            ;setup the parameters to be used by the extract subroutine
    CALLQUE  $QSR_STD_EFMT_CONT
    CALLQUE  $QSR_STD_EFMT_CONTF

    SETREGS  $IPRL_DL_PARAM 2 0x2800 0x9800
    CALLQUE  $QSR_DL_2PAGE                                      ;0.6 sec

DONE:
    END