;
; FILE:    one_fltgram.ips
; PURPOSE: To send down a single 1040x1033 filtergram image.  It is to run with
;	   PRIME30 and it saves the first 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 1 is where the data is stored before downlink
; HISTORY: Written 4-Jan-96 by M.Morrison
;	8-Jan-96 (MDM) - Patched to work when it is the first thing run (it
;			 was not setting the final source destination properly)
;			 (shouldn't really be needed...)
;			- Modified to use page 13 for storing, not page 1
;
;
QPROG_1FLT_DARK::
    COPYRD2D $IPRL_1FLT_DARK $IPRL_1FLT_PARAM 3
    GOTO &QPROG_1FLT

QPROG_1FLT_FD_CAL::
    COPYRD2D $IPRL_1FLT_FD_CAL $IPRL_1FLT_PARAM 3
    GOTO &QPROG_1FLT

QPROG_1FLT_HR_CAL::
    COPYRD2D $IPRL_1FLT_HR_CAL $IPRL_1FLT_PARAM 3
    GOTO &QPROG_1FLT

QPROG_1FLT::

    BRANCHEQ R3072   1 &FRM01
    BRANCHEQ R3072  10 &FRM10
    END

FRM01:
    ;---- Step #1: Save the data and make the header
    _MOVBLKI $IPRL_1FLT_COPYD					;copy the data from page 0 to page 1

    SETREGS  $IPRL_HDECODE_PARAM 2 0x0000 0x6800		
    CALLQUE  $QSR_DO_HDECODE                                    ;decode the value

    COPYRD2D $IPRL_1FLT_PARAM $IPRP_HDECODE_PAGE13+3 3           ;copy the n/k, dpc(l), and dpc(h) into the HRDINIT slot
    COPYRD2D $IPRP_HDECODE_PAGE13 $IPRP_HDECODE_PAGE13+6 3	;define the final desintation
    SETREGS  $IPRP_HDECODE_PAGE13+8 2 1074320L			;1040x1033
    CALLQUE  $QSR_DO_HEADER
    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