# HISTORY:
#       Written 10-Jan-96 by M.Morrison
#
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/do_comp_dl_v01.src"
descr "Perform compression test downlink"

tcb mbipldin 0x140 4109 !GI9			## set n/k param in IPRP_HDECODE_PAGE1
tcb mbipldin 0x140 4119 !GI9			## set n/k param in IPRP_HDECODE_PAGE2

tcb mbipldin 0x1b2 4433 2 0x1000 0x100a		## set $IPRP_HDECODE_ADDR (page 0/1)
tcb mbipcmd 0x91 0x0FF1 0x105F			## setup to run QSR_DO_HEADER
tcblock mbipldin 0x152 0x0FF0			## start do_header subroutine

tcb mbipldin 0x1b2 4433 2 0x100a 0x1014		## set $IPRP_HDECODE_ADDR (page 1/2)
tcb mbipcmd 0x91 0x0FF1 0x105F			## setup to run QSR_DO_HEADER
tcblock mbipldin 0x152 0x0FF0			## start do_header subroutine

tcb mbipldin 0x140 4560 0x0800			## set IPRL_DL_PARAM 
tcb mbipcmd 0x91 0x0FF1 0x10D6			## setup to run QSR_DL_1PAGE
tcblock mbipldin 0x152 0x0FF0			## start downlink subroutine
wait time 110

tcb mbipldin 0x140 4560 0x1000			## set IPRL_DL_PARAM 
tcb mbipcmd 0x91 0x0FF1 0x10D6			## setup to run QSR_DL_1PAGE
tcblock mbipldin 0x152 0x0FF0			## start downlink subroutine
wait time 110




