;NAME:
;	store_p30
;PURPOSE:
;	To grab the data and header from the prime30 observation
;	and save it for downlink during campaign
;METHOD:
;	Copy the data from the input page to page 15 on frame 2
;	and then copy it to page 11 for use by the campaign.
;RESTRICTION:
;	Only one frame can be saved per minute, velocity or continuum
;HISTORY:
;	Written 18-Jul-96 by M.MOrrison
;	22-Jul-96 (MDM) - Corrected DPC for P30C case
;	 8-Dec-97 (MDM) - Modified to increment the K value for P30C
;
;


QSR_STORE_P30V::
    COPYRD2D $IPRL_STOREV_SCALE $IPRL_STORE_SCALE 8
    COPYRD2D $IPRL_STOREV_HEADER $IPRL_STORE_HEADER 6
    COPYRD2D $IPRL_STR_V30HDR+3 $IPRP_HDECODE_PAGE11+3 3	;set n/k and dpc (l,h)
    GOTO &COMMON_CODE

QSR_STORE_P30C::
    COPYRD2D $IPRL_STOREC_SCALE $IPRL_STORE_SCALE 8
    COPYRD2D $IPRL_STOREC_HEADER $IPRL_STORE_HEADER 6
    COPYRD2D $IPRL_STR_IC30HDR+3 $IPRP_HDECODE_PAGE11+3 3	;set n/k and dpc (l,h)
    ADDREGD  $IPRP_HDECODE_PAGE11+3 1				;increment n/k

COMMON_CODE:
    BRANCHEQ R3072  2 &FRM2             ;copy the velocity from page  5 to page 15
    BRANCHEQ R3072  6 &FRM6             ;copy the velocity from page 15 to page 11
    RTNQUE

FRM2:
    _SCALE   $IPRL_STORE_SCALE		;copy from page 5 to 15 and scale
    _MOVBLKI $IPRL_STORE_HEADER		;copy the header over
    RTNQUE

FRM6:
    _MOVBLKI $IPRL_STORE_MOVE2		;copy from page 15 to page 11 (because page 15 is
					;going to be used to MK_MVL or MK_VLC
    SETREG   $IPRP_HDECODE_PAGE11+5 0x2000			;set to be 1024x1024
    SETREGS  $IPRP_HDECODE_PAGE11+8 2 0x100000L			;set the length
    RTNQUE