; FILE:    prog_p30_vc.ips
; PURPOSE: To downlink the velocity and continuum created during the prime30
;	   observation
; HISTORY:
;	Written 14-May-96 by M.Morrison
;
QPROG_P30_VC::
    BRANCHEQ R3072  10 &FRM10				;issue the downlink commands for main stored stuff
    END

FRM10:
    ;----- Setup the HDECODE register list for velocity page (page 5)
    COPYREG  R71  $IPRP_HDECODE_PAGE5+8			;set the length (l) for crop
    COPYREG  R72  $IPRP_HDECODE_PAGE5+9			;set the length (l)
    SETREG   $IPRP_HDECODE_PAGE5+3 0xe5			;set the compression

    ;----- Setup the HDECODE register list for continuum page (page 7)
    COPYREG  R71  $IPRP_HDECODE_PAGE7+8			;set the length (l) for crop
    COPYREG  R72  $IPRP_HDECODE_PAGE7+9			;set the length (l)
    SETREG   $IPRP_HDECODE_PAGE7+3 0xe2			;set the compression

    ;----- Setup downlink registers and downlink

    SETREGS  $IPRL_DL_PARAM 2 0x2800 0x3800                     ;downlink vel and continuum
    CALLQUE  $QSR_DL_2PAGE                                      ;0.6 sec

    END