# File: prog_high_cad1_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/prog_high_cad1_v01.src"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#; FILE:    prog_hr_cad1.ips
#; PURPOSE: High cadence program to downlink filtergrams
#; METHOD:  Use the TAP_CONT code
#; HISTORY: Written 29-Feb-96 by M.Morrison
#
#QPROG_HC_FLTGRAM::
#
#    ;---- Step #1: Making the observable (filtergram)
#    SETREGS  $IPRL_FLTGRAM_PARAM 4 0:0x0000 17:0x0726           ;
tcblock mbipcmd 0x0091 0x1BDB   0x01B2 0x1238 0x0004 0x0000 \
                                0x0000 0x0726 0x8800 
#    SETREGS  $IPRL_FLTGRAM_PARAM+8 3 0xe2   0x400c 0x2000       ;
tcblock mbipcmd 0x0091 0x1BE2   0x01B2 0x1240 0x0003 0x00E2 \
                                0x400C 0x2000 
#    CALLQUE  $QSR_MK_FLTGRAM
tcblock mbipcmd 0x0091 0x1BE8   0x01F8 0x1334 
#
#    ;---- Step #2: Formatting the observable
#    SETREGS  $IPRL_EXTRACT_INST 4 17:0x0726 2:0x0226            ;
tcblock mbipcmd 0x0091 0x1BEA   0x01B2 0x116B 0x0004 0x0726 \
                                0x8800 0x0226 0x1000 
#    COPYRD2D $IPRL_EXTRACT_300  $IPRL_EXTRACT_PARAM 6		;copy the 
tcblock mbipcmd 0x0091 0x1BF1   0x0144 0x13F6 0x1173 0x0006 
#    CALLQUE  $QSR_FMT_EXTRACT                                   ;
tcblock mbipcmd 0x0091 0x1BF5   0x01F8 0x1239 
#
#    ;---- Step #3: Square-root compress
#    SETREGS  $IPRL_SQRT_PARAM    4  2:0x00226 3:0x0226
tcblock mbipcmd 0x0091 0x1BF7   0x01B2 0x13B5 0x0004 0x0226 \
                                0x1000 0x0226 0x1800 
#    CALLQUE  $QSR_SQRT_COMP                                     ;
tcblock mbipcmd 0x0091 0x1BFE   0x01F8 0x1952 
#
#    ;---- Step #4: Downlinking the observable
#    SETREG   $IPRL_DL_PARAM 0x1800                              ;
tcblock mbipcmd 0x0091 0x1C00   0x0140 0x11D0 0x1800 
#    CALLQUE  $QSR_DL_1PAGE                                      ;
tcblock mbipcmd 0x0091 0x1C03   0x01F8 0x10D6 
#END
tcblock mbipcmd 0x0091 0x1C05   0x01FC 
#
#
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
