# File: hr_ve_le_v02.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/hr_ve_le_v02.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    hr_ve_le.ips
#; PURPOSE: Make and downlink the extracted velocity and line-dept
#; HISTORY: 8-Jan-97 by M.Morrison
#;	 9-Jan-97 (MDM) - Changed extract size to 700
#
#QPROG_HR_VE_LE::
#
#    CALLQUE  $QSR_HR_VLC30					;do all of the work
tcblock mbipmacl 0x1E1C    0x01F8 0x1747 
#    BRANCHNE R3072 10 &DONE                                     ;
tcblock mbipmacl 0x1E1E    0x01B0 0x0C00 0x000A 0x1E31 
#
#    COPYRD2D $IPRL_EXTRACT_70K $IPRL_EXTRACT_PARAM 6            ;
tcblock mbipmacl 0x1E22    0x0144 0x14F5 0x1173 0x0006 
#    CALLQUE  $QSR_STD_EFMT_VEL		;---- Extract 750 lines from cont
tcblock mbipmacl 0x1E26    0x01F8 0x1842 
#    CALLQUE  $QSR_STD_EFMT_LDEP		;---- Extract 750 lines from vel
tcblock mbipmacl 0x1E28    0x01F8 0x1848 
#
#    ;---- Downlink the two observables
#    SETREGS  $IPRL_DL_PARAM 2 0x6800 0x3000			;downlink 
tcblock mbipmacl 0x1E2A    0x01B2 0x11D0 0x0002 0x6800 \
                                0x3000 
#    CALLQUE  $QSR_DL_2PAGE					;0.6 sec
tcblock mbipmacl 0x1E2F    0x01F8 0x0DA5 
#
#DONE:
#    END
tcblock mbipmacl 0x1E31    0x01FC 
#=======================================================
#
return
#
#=======================================================
