# File: prog_hr_vel_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/prog_hr_vel_v01.src"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#; FILE:    prog_hr_vel.ips
#; PURPOSE: Processes 16 of the 20 frames in the frame list (4 sca
#; METHOD:
#; HISTORY: Written 15-Jan-96 by M.Morrison
#;	   18-Jan-96 (MDM) - Changed the DPC from '42012000' to '4a0020
#
#QPROG_HR_VEL::
#
#INCOMING_IMG:
#    BRANCHEQ R3072  20 &FRM20
tcblock mbipcmd 0x0091 0x17A3   0x01AE 0x0C00 0x0014 0x17A8 
#    END
tcblock mbipcmd 0x0091 0x17A7   0x01FC 
#
#FRM20:
#    SETREGS $IPRL_VEL_PARAM 12 0:0x00514  1:0x00514  5:0x00726   
tcblock mbipcmd 0x0091 0x17A8   0x01B2 0x11B5 0x000C 0x0514 \
                                0x0000 0x0514 0x0800 0x0726 \
                                0x2800 0x0002 0x007F 0x0001 \
                                0x00E5 0x4A00 0x2000 
#                                                ;Sa(l,h), Sc(l,h)
#    CALLQUE $QSR_MK_VEL
tcblock mbipcmd 0x0091 0x17B7   0x01F8 0x1751 
#
#    SETREG  $IPRL_DL_PARAM 0x2800		;setup to downlink the velocit
tcblock mbipcmd 0x0091 0x17B9   0x0140 0x11D0 0x2800 
#    CALLQUE $QSR_DL_1PAGE
tcblock mbipcmd 0x0091 0x17BC   0x01F8 0x10D6 
#
#END
tcblock mbipcmd 0x0091 0x17BE   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
