; FILE:    prog_hr_vel30.ips
; PURPOSE: Make a dopplergram (velocity).
;	   Processes 8 of the 10 frames in the frame list (2 scans of 4 frames)
; METHOD:
; HISTORY: Written 12-Feb-96 by M.Morrison
;	   18-Apr-96 (MDM) - Modified the DPC to reflect the new velocity table
;			     New DPC is 4a432000.  

QPROG_HR_VEL30::

    BRANCHEQ R3072  9 &FRM9
    END

FRM9:
    SETREGS $IPRL_VEL_PARAM   8 0:0x00514  1:0x00514  5:0x00726   3  127     
    SETREGS $IPRL_VEL_PARAM+8 6  1  0xe5  0x4a43 0x2000   1 13
                                ;Sa(l,h), Sc(l,h), Dest(l,h), shift, block,   
				;lookup, n/k, dpc(h,l),   scaleX, shift
    CALLQUE $QSR_MK_VEL

    SETREG  $IPRL_DL_PARAM 0x2800		;setup to downlink the velocity
    CALLQUE $QSR_DL_1PAGE

END