;NAME:
;	qprog_phase_div
;PURPOSE:
;	To downlink two frames (frames 5 and 6) to be used for 
;	phase diversity analysis
;HISTORY:
;	Written 21-Aug-96 by M.Morrison
;

QPROG_PHASE_DIV::

    COPYRD2D $IPRL_1FLT_PHASE_DIV  $IPRL_FLTGRAM_PARAM+8  3      ;last three words are n/k, dpc(h,l)
    COPYRD2D $IPRL_EXT_PHASE_DIV   $IPRL_EXTRACT_PARAM    6      ;setup the parameters to be used by the extract subroutine

    BRANCHEQ R3072   5 &FRM5
    BRANCHEQ R3072   6 &FRM6
    BRANCHEQ R3072  10 &FRM10
    END

FRM5:
    SETREGS  $IPRL_FLTGRAM_PARAM 4 0:0x0000 5:0x0726            ;set source page and destination pages
    CALLQUE  $QSR_MK_FLTGRAM                                    ;0.3 sec 
    CALLQUE  $QSR_STD_EFMT_CONT					;0.3 sec + 0.6 sec
    END

FRM6:
    SETREGS  $IPRL_FLTGRAM_PARAM 4 0:0x0000 19:0x0726            ;set source page and destination pages
    CALLQUE  $QSR_MK_FLTGRAM                                     ;0.3 sec + 0.6 sec
    CALLQUE  $QSR_STD_EFMT_CONTF
    END

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