# File: hrcont_flt_v02.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/hrcont_flt_v02.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#;
#; FILE:    hrcont_flt.ips
#; PURPOSE: To send down a single 1024x1024 continuum filtergram i
#;	   It is to run with PRIME30 and it saves the SECOND image and 
#;	   downlinks it at frame 10.
#; RESTRICTION:
#;	   The frame list used with this program must have at least 10 
#; PAGE USE:
#;	   Page 0 is where the data is written to from the camera
#;	   Page 13 is where the data is stored before downlink
#; HISTORY: Written 12-Feb-96 by M.Morrison
#;	   18-Apr-96 (MDM) - Changed the DPC from 00082000 to 40482000
#;
#;
#QPROG_HRCONT_FLT::
#    BRANCHEQ R3072   2 &FRM02
tcblock mbipmacl 0x18E5    0x01AE 0x0C00 0x0002 0x18EE 
#    BRANCHEQ R3072  10 &FRM10
tcblock mbipmacl 0x18E9    0x01AE 0x0C00 0x000A 0x18FE 
#    END
tcblock mbipmacl 0x18ED    0x01FC 
#
#FRM02:
#    ;---- Step #1: Making the observable and save the data
#    SETREGS  $IPRL_FLTGRAM_PARAM 4 0:0x0000 13:0x0726           ;
tcblock mbipmacl 0x18EE    0x01B2 0x1238 0x0004 0x0000 \
                                0x0000 0x0726 0x6800 
#    SETREGS  $IPRL_FLTGRAM_PARAM+8 3 0xe4   0x4048 0x2000       ;
tcblock mbipmacl 0x18F5    0x01B2 0x1240 0x0003 0x00E4 \
                                0x4048 0x2000 
#    CALLQUE  $QSR_MK_FLTGRAM
tcblock mbipmacl 0x18FB    0x01F8 0x1334 
#    END
tcblock mbipmacl 0x18FD    0x01FC 
#
#FRM10:
#    ;---- Step #2: Downlinking the observable
#    SETREG   $IPRL_DL_PARAM 0x6800				;setup the source page to d
tcblock mbipmacl 0x18FE    0x0140 0x11D0 0x6800 
#    CALLQUE  $QSR_DL_1PAGE					;downlink the image
tcblock mbipmacl 0x1901    0x01F8 0x10D6 
#    END
tcblock mbipmacl 0x1903    0x01FC 
#=======================================================
#
return
#
#=======================================================
