;
; FILE:    prog_full_dark.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 5.
; 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 20-Aug-96 by M.Morrison
;
;
QPROG_1FLT_FULL_DARK::
    COPYRD2D $IPRL_1FLT_FULL_DARK $IPRL_1FLT_PARAM 3
    GOTO &COMMON_CODE

QPROG_1FLT_FULL_LTC::
    COPYRD2D $IPRL_1FLT_FULL_LTC $IPRL_1FLT_PARAM 3

COMMON_CODE:
    BRANCHEQ R3072   1 &QSR_1FLT_FRM_STORE	;in program "one_fltgram.ips"
    BRANCHEQ R3072   5 &QSR_1FLT_FRM_DL
    END