# File: prog_hr_vel12_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/prog_hr_vel12_v01.src"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#; FILE:    prog_hr_vel12.ips
#; PURPOSE: Make a dopplergram (velocity) every 12 seconds (single
#;	   Processes 20 frames (5 repeats of 4 frames) with PRIME00
#; METHOD:
#; HISTORY: Written 26-Feb-96 by M.Morrison
#;	27-Feb-96 (MDM) - Modified to use 0,1 / 2,4 / 3,5
#;			  instead of      0,1 / 2,4 / 9,5
#;			  to avoid RESET_TLM problems with using page 9
#
#QPROG_HR_VEL12::
#
#    BRANCHEQ R3072  4 &DOVELA
tcblock mbipcmd 0x0091 0x1B71   0x01AE 0x0C00 0x0004 0x1B86 
#    BRANCHEQ R3072  8 &DOVELB
tcblock mbipcmd 0x0091 0x1B75   0x01AE 0x0C00 0x0008 0x1B93 
#    BRANCHEQ R3072 12 &DOVELC
tcblock mbipcmd 0x0091 0x1B79   0x01AE 0x0C00 0x000C 0x1BA0 
#    BRANCHEQ R3072 16 &DOVELA
tcblock mbipcmd 0x0091 0x1B7D   0x01AE 0x0C00 0x0010 0x1B86 
#    BRANCHEQ R3072 20 &DOVELB
tcblock mbipcmd 0x0091 0x1B81   0x01AE 0x0C00 0x0014 0x1B93 
#    END
tcblock mbipcmd 0x0091 0x1B85   0x01FC 
#
#DOVELA:
#    SETREGS  $IPRL_VEL_PARAM   8 0:0x00514  1:0x00514  6:0x00726 
tcblock mbipcmd 0x0091 0x1B86   0x01B2 0x1389 0x0008 0x0514 \
                                0x0000 0x0514 0x0800 0x0726 \
                                0x3000 0x0004 0x007F 
#    GOTO &DOVEL_COMMON  
tcblock mbipcmd 0x0091 0x1B91   0x0156 0x1BAD 
#DOVELB:
#    SETREGS  $IPRL_VEL_PARAM   8 2:0x00514  4:0x00514  6:0x00726 
tcblock mbipcmd 0x0091 0x1B93   0x01B2 0x1389 0x0008 0x0514 \
                                0x1000 0x0514 0x2000 0x0726 \
                                0x3000 0x0004 0x007F 
#    GOTO &DOVEL_COMMON  
tcblock mbipcmd 0x0091 0x1B9E   0x0156 0x1BAD 
#DOVELC:
#    SETREGS  $IPRL_VEL_PARAM   8 3:0x00514  5:0x00514  6:0x00726 
tcblock mbipcmd 0x0091 0x1BA0   0x01B2 0x1389 0x0008 0x0514 \
                                0x1800 0x0514 0x2800 0x0726 \
                                0x3000 0x0004 0x007F 
#    GOTO &DOVEL_COMMON  
tcblock mbipcmd 0x0091 0x1BAB   0x0156 0x1BAD 
#
#DOVEL_COMMON:
#    SETREGS $IPRL_VEL_PARAM+8 6  1  0xe5  0x4ac0 0x2000   1 13			
tcblock mbipcmd 0x0091 0x1BAD   0x01B2 0x1391 0x0006 0x0001 \
                                0x00E5 0x4AC0 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 mbipcmd 0x0091 0x1BB6   0x01F8 0x1761 
#
#    COPYRD2D $IPRL_EXTRACT_512 $IPRL_EXTRACT_PARAM 6            ;
tcblock mbipcmd 0x0091 0x1BB8   0x0144 0x117F 0x1173 0x0006 
#    SETREGS  $IPRL_EXTRACT_INST 4 6:0x0726 7:0x0726             ;
tcblock mbipcmd 0x0091 0x1BBC   0x01B2 0x116B 0x0004 0x0726 \
                                0x3000 0x0726 0x3800 
#    CALLQUE  $QSR_FMT_EXTRACT                                   ;
tcblock mbipcmd 0x0091 0x1BC3   0x01F8 0x1239 
#
#    SETREG   $IPRL_DL_PARAM 0x3800				;setup to downlink the velo
tcblock mbipcmd 0x0091 0x1BC5   0x0140 0x11D0 0x3800 
#    CALLQUE  $QSR_DL_1PAGE
tcblock mbipcmd 0x0091 0x1BC8   0x01F8 0x10D6 
#END
tcblock mbipcmd 0x0091 0x1BCA   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
