# File: prog_hr_vel30_v03.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/prog_hr_vel30_v03.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    prog_hr_vel30.ips
#; PURPOSE: Make a dopplergram (velocity).
#;	   Processes 8 of the 10 frames in the frame list (2 scans of 4
#; METHOD:
#; HISTORY: Written 12-Feb-96 by M.Morrison
#;	   18-Apr-96 (MDM) - Modified the DPC to reflect the new veloci
#;			     New DPC is 4a432000.  
#
#QPROG_HR_VEL30::
#
#    BRANCHEQ R3072  9 &FRM9
tcblock mbipmacl 0x174C    0x01AE 0x0C00 0x0009 0x1751 
#    END
tcblock mbipmacl 0x1750    0x01FC 
#
#FRM9:
#    SETREGS $IPRL_VEL_PARAM   8 0:0x00514  1:0x00514  5:0x00726  
tcblock mbipmacl 0x1751    0x01B2 0x1389 0x0008 0x0514 \
                                0x0000 0x0514 0x0800 0x0726 \
                                0x2800 0x0003 0x007F 
#    SETREGS $IPRL_VEL_PARAM+8 6  1  0xe5  0x4a43 0x2000   1 13
tcblock mbipmacl 0x175C    0x01B2 0x1391 0x0006 0x0001 \
                                0x00E5 0x4A43 0x2000 0x0001 \
                                0x000D 
#                                ;Sa(l,h), Sc(l,h), Dest(l,h), shi
#				;lookup, n/k, dpc(h,l),   scaleX, shift
#    CALLQUE $QSR_MK_VEL
tcblock mbipmacl 0x1765    0x01F8 0x123F 
#
#    SETREG  $IPRL_DL_PARAM 0x2800		;setup to downlink the velocit
tcblock mbipmacl 0x1767    0x0140 0x11D0 0x2800 
#    CALLQUE $QSR_DL_1PAGE
tcblock mbipmacl 0x176A    0x01F8 0x0DA0 
#
#END
tcblock mbipmacl 0x176C    0x01FC 
#=======================================================
#
return
#
#=======================================================
