; 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'

QPROG_HR_VEL::

INCOMING_IMG:
    BRANCHEQ R3072  20 &FRM20
    END

FRM20:
    SETREGS $IPRL_VEL_PARAM 12 0:0x00514  1:0x00514  5:0x00726   2  127     1  0xe5  0x4a00 0x2000
                                                ;Sa(l,h), Sc(l,h), Dest(l,h), shift, block, lookup, n/k, dpc(h,l)
    CALLQUE $QSR_MK_VEL

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

END