# File: hr_v1_l2_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/prep/src/hr_v1_l2_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    hr_v1_l2.ips
#; PURPOSE: Make a high resolution dopplergram and downlink the fu
#;	   and 2x2 bin full linedepth.
#; HISTORY: 
#;	Written 23-Jul-96 by M.Morrison
#
#QPROG_HR_V1_L2::
#
#    CALLQUE  $QSR_HR_VLC30					;do all of the work
tcblock mbipmacl 0x1CBE    0x01F8 0x1747 
#    BRANCHNE R3072 10 &DONE					;on frame 10, do the following co
tcblock mbipmacl 0x1CC0    0x01B0 0x0C00 0x000A 0x1CD4 
#
#        ;---- Bin the linedepth
#        SETREGS  $IPRL_BIN_PARAM 4 6:0x0726 19:0x0726		;setup sou
tcblock mbipmacl 0x1CC4    0x01B2 0x11E9 0x0004 0x0726 \
                                0x3000 0x0726 0x9800 
#        CALLQUE  $QSR_FMT_2X2BIN
tcblock mbipmacl 0x1CCB    0x01F8 0x1132 
#
#        ;---- Downlink the two observables
#        SETREGS  $IPRL_DL_PARAM 2 0x3800 0x9800			;downlink vel a
tcblock mbipmacl 0x1CCD    0x01B2 0x11D0 0x0002 0x3800 \
                                0x9800 
#        CALLQUE  $QSR_DL_2PAGE					;0.6 sec
tcblock mbipmacl 0x1CD2    0x01F8 0x0DA5 
#DONE:
#
#    END
tcblock mbipmacl 0x1CD4    0x01FC 
#=======================================================
#
return
#
#=======================================================
