; FILE:    prog_hr_vel.ips
; PURPOSE: Processes 16 of the 20 frames in the frame list (4 scans of 4)
; METHOD:
; HISTORY: Written 15-Jan-96 by M.Morrison
;	   18-Jan-96 (MDM) - Changed the DPC from '42012000' to '4a002000'
;	   22-Jan-96 (MDM) - Added the scale factor to the VEL_PARAM list
;			   - Scaled to shift by "13" (equals dividing by 2^3 = 8)
;			   - Changed DPC from 4a002000 to 4a012000
;			     (4a002000 had no scaling done so it was 8 times DYNAMICS 60 sec vel)

QPROG_HR_VEL::

INCOMING_IMG:
    BRANCHEQ R3072  20 &FRM20
    END

FRM20:
    SETREGS $IPRL_VEL_PARAM   8 0:0x00514  1:0x00514  5:0x00726   2  127     
    SETREGS $IPRL_VEL_PARAM+8 6  1  0xe5  0x4a01 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