; FILE:    fd_f1_c1.ips
; PURPOSE: Make and downlink a full disk continuum and downlink the
;	   continuum filtergram also
; HISTORY: 
;       Written 18-Jul-96 by M.Morrison

QPROG_FD_F1_C1::
    CALLQUE  $QSR_FD_VLC30                                      ;do all of the work

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

    COPYRD2D $IPRL_CROP_RAD504 $IPRL_CROP_PARAM+4 5
    CALLQUE $QSR_STD_CFMT_CONT
    CALLQUE $QSR_STD_CFMT_CONTF

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

DONE:
    END