# File: hrcont_flt_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "hrcont_flt_v01.ips"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#;
#; 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
#;
#;
#QPROG_HRCONT_FLT::
#    BRANCHEQ R3072   2 &FRM02
tcblock mbipcmd 0x0091 0x18E5   0x01AE 0x0C00 0x0002 0x18EE 
#    BRANCHEQ R3072  10 &FRM10
tcblock mbipcmd 0x0091 0x18E9   0x01AE 0x0C00 0x000A 0x18FE 
#    END
tcblock mbipcmd 0x0091 0x18ED   0x01FC 
#
#FRM02:
#    ;---- Step #1: Making the observable and save the data
#    SETREGS  $IPRL_FLTGRAM_PARAM 4 0:0x0000 13:0x0726           ;
tcblock mbipcmd 0x0091 0x18EE   0x01B2 0x1238 0x0004 0x0000 \
                                0x0000 0x0726 0x6800 
#    SETREGS  $IPRL_FLTGRAM_PARAM+8 3 0xe4   0x0008 0x2000       ;
tcblock mbipcmd 0x0091 0x18F5   0x01B2 0x1240 0x0003 0x00E4 \
                                0x0008 0x2000 
#    CALLQUE  $QSR_MK_FLTGRAM
tcblock mbipcmd 0x0091 0x18FB   0x01F8 0x1334 
#    END
tcblock mbipcmd 0x0091 0x18FD   0x01FC 
#
#FRM10:
#    ;---- Step #2: Downlinking the observable
#    SETREG   $IPRL_DL_PARAM 0x6800				;setup the source page to d
tcblock mbipcmd 0x0091 0x18FE   0x0140 0x11D0 0x6800 
#    CALLQUE  $QSR_DL_1PAGE					;downlink the image
tcblock mbipcmd 0x0091 0x1901   0x01F8 0x10D6 
#    END
tcblock mbipcmd 0x0091 0x1903   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
