# File: comp_test_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "comp_test_v01.ips"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#;
#; FILE:    comp_test.ips
#; PURPOSE: Set up the data for a downlink test
#; METHOD:  When an image is taken and written to page 0, it is fi
#;	   1024x1024 into page 1 and then square root compressed into p
#;	   Either of those images can be downlinked.  The header inform
#;	   already in place.  The compression method and parameters are
#;	   by patching the $IPRL_COMP_PARAM register list (similar to t
#;	   IPRL_TAPC* register list set)
#; REGISTERS:
#;	   IPRL_COMP_PARAM = dpc h, dpc l, n/k
#;	   IPRL_COMP_SQRT
#; HISTORY: Written 10-Jan-96 by M.Morrison
#;
#;
#QPROG_COMP_TEST::
#    ;---- Step #1: Making the observable
#    SETREGS  $IPRL_FLTGRAM_PARAM 4 0:0x0000 1:0x0226		;set source
tcblock mbipcmd 0x0091 0x172A   0x01B2 0x1238 0x0004 0x0000 \
                                0x0000 0x0226 0x0800 
#    COPYRD2D $IPRL_COMP_PARAM $IPRL_FLTGRAM_PARAM+8 3		;last thre
tcblock mbipcmd 0x0091 0x1731   0x0144 0x126D 0x1240 0x0003 
#    CALLQUE  $QSR_MK_FLTGRAM
tcblock mbipcmd 0x0091 0x1735   0x01F8 0x1334 
#
#
#    ;---- Step #2: Do square root compression
#
#    SETREGS  $IPRL_HDECODE_PARAM 2 0x0800 0x1000
tcblock mbipcmd 0x0091 0x1737   0x01B2 0x114A 0x0002 0x0800 \
                                0x1000 
#    CALLQUE  $QSR_DO_HDECODE                                    ;
tcblock mbipcmd 0x0091 0x173C   0x01F8 0x1010 
#
#    COPYREG  $IPRP_HDECODE_PAGE1+8 $IPRP_HDECODE_PAGE2+8	;copy th
tcblock mbipcmd 0x0091 0x173E   0x0142 0x1012 0x101C 
#    COPYREG  $IPRP_HDECODE_PAGE1+9 $IPRP_HDECODE_PAGE2+9
tcblock mbipcmd 0x0091 0x1741   0x0142 0x1013 0x101D 
#    SETREGS  $IPRP_HDECODE_PAGE2+6 2 2:0x0226			;set up final des
tcblock mbipcmd 0x0091 0x1744   0x01B2 0x101A 0x0002 0x0226 \
                                0x1000 
#    ADDREGD  $IPRP_HDECODE_PAGE2+5 0x1000			;indicate that the da
tcblock mbipcmd 0x0091 0x1749   0x01BC 0x1019 0x1000 
#								;only works with cropped or extracted DPCs
#    _LOOKUP  $IPRL_COMP_SQRT
tcblock mbipcmd 0x0091 0x174C   0x81C0 0x1270 
#
#    CALLQUE  $QSR_DO_HEADER
tcblock mbipcmd 0x0091 0x174E   0x01F8 0x105F 
#END
tcblock mbipcmd 0x0091 0x1750   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
