;
; FILE:    hrcont_flt.ips
; PURPOSE: To send down a single 1024x1024 continuum filtergram image.  
;	   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 frames.
; 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
    BRANCHEQ R3072  10 &FRM10
    END

FRM02:
    ;---- Step #1: Making the observable and save the data
    SETREGS  $IPRL_FLTGRAM_PARAM 4 0:0x0000 13:0x0726           ;set source page and destination pages
    SETREGS  $IPRL_FLTGRAM_PARAM+8 3 0xe4   0x4048 0x2000       ;last three words are n/k, dpc(h,l)
    CALLQUE  $QSR_MK_FLTGRAM
    END

FRM10:
    ;---- Step #2: Downlinking the observable
    SETREG   $IPRL_DL_PARAM 0x6800				;setup the source page to downlink (page 2)
    CALLQUE  $QSR_DL_1PAGE					;downlink the image
    END