; FILE:    mk_hr_mvl30.ips
; PURPOSE: Make a high resolution magnetogram, average velocity and average
;	   line-depth from a 30 sec observation.  Save the continuum filtergram 
;	   too.
; METHOD:
;		LCP in page 0 & 3
;		RCP in page 1 & 2
;		FC  in page 4
;
;						CONT filt 1024 page 19
;						compress into page 6
;
;		VEL-RCP in page 5
;		LINE-DEP (RCP) in page 17
;		VEL-LCP in page 2
;		LINE-DEP (LCP) in page 15
;						LINE-DEP (Avg) in page 18
;						compress into page 15
;
;						MAG in page 17
;						VEL-AVG in page 7
;
;		Available pages: 5,11,13
;
; HISTORY: Written 2-May-96 by M.Morrison (using prog_mvc60 as starting point)
;	 3-May-96 (MDM) - Moved the page usage around a bit
;	 6-May-96 (MDM) - changed to put Line-Dep (Avg) in page 13, not page 4
;			  (it was clobbering the Mag and VEL-AVG)
;			- Changed DPC for mag and vel to 4b45 and 4a45 (from
;			  4b43 and 4a44)
;	 9-May-96 (MDM) - Changed when things are done (on which frames) for
;			  new framelist
;			- Reversed the Mag sign and changed dpc to 4b46
;			- Changed the K bits for vel and mag
;			- Changed to put Line-Dep (avg) in page 15, not page 13
;			  to leave page 13 unused for flat field backup
;			- Corrected line depth compression to come from proper page
;	 9-May-96 (MDM) - Modified to have linedepth use page 18,15,18 instead
;			  of 15,18,15 because of LOOKUP page restriction
;	 9-May-96 (MDM) - Swapped page 2 and 4 incoming page usage
;	 9-May-96 (MDM) - Moved VEL-LCP to page 2 (from page 4)

QSR_HR_MVL30::

    BRANCHEQ R3072  5 &FRM5		;save the continuum filtergram
    BRANCHEQ R3072  8 &FRM8		;make the RCP velocity
    BRANCHEQ R3072  9 &FRM9		;make the LCP velocity
    RTNQUE

FRM5:
    SETREGS  $IPRL_FLTGRAM_PARAM 4 4:0x0000 19:0x0726		;set source page and destination pages
    SETREGS  $IPRL_FLTGRAM_PARAM+8 3 0xe2   0x4048 0x2000       ;last three words are n/k, dpc(h,l)
    CALLQUE  $QSR_MK_FLTGRAM					;0.3 sec

    SETREGS  $IPRL_SQRT_PARAM    4  19:0x00726 6:0x0726
    CALLQUE  $QSR_SQRT_COMP					;0.3 sec

    RTNQUE

FRM8:
    ;---- Make RCP velocity
    SETREGS $IPRL_VEL_PARAM   8  1:0x00514  2:0x00514  5:0x00726  3 127    
    SETREGS $IPRL_VEL_PARAM+8 6  1 0xe5  0x4a00 0x2000   1 16
    CALLQUE $QSR_MK_VEL						;1.7 sec

    ;---- Line depth (for RCP)
    SETREGS  $IPRL_LDEP_PARAM    9 1:0x00514  2:0x00514 17:0x00726 7  127  7
    SETREGS  $IPRL_LDEP_PARAM+9  3 0xe4 0x4400 0x2000
    CALLQUE  $QSR_MK_LDEP					;0.6 sec

    RTNQUE

FRM9:
    ;---- Make LCP velocity
    SETREGS $IPRL_VEL_PARAM   8  0:0x00514  3:0x00514  2:0x00726  3 127    
    SETREGS $IPRL_VEL_PARAM+8 6  1 0xe5  0x4a01 0x2000   1 16
    CALLQUE $QSR_MK_VEL						;1.7 sec

    ;---- Line depth (for LCP)
    SETREGS  $IPRL_LDEP_PARAM    9 0:0x00514  3:0x00514 15:0x00726 7  127  7
    SETREGS  $IPRL_LDEP_PARAM+9  3 0xe4 0x4401 0x2000
    CALLQUE  $QSR_MK_LDEP					;0.6 sec

    ;---- Make the average line depth
    SETREGS  $IPRL_SUMDIFF_PARAM  10  17:0x00726 15:0x00726 18:0x00726   16   0xe3 0x4445 0x2000
    CALLQUE  $QSR_DO_SUM					;0.3 sec

    ;---- Compress the line-depth
    SETREGS  $IPRL_SQRT_PARAM    4  18:0x00726 15:0x0726
    CALLQUE  $QSR_SQRT_COMP					;0.3 sec

    ;---- Subtract two velocities to make the mag
    SETREGS $IPRL_MAG_PARAM    6  2:0x00726  5:0x00726  17:0x00726
    SETREGS $IPRL_MAG_PARAM+6  8  0x100000L  1  0xFFFF  13                   0xe2 0x4b46 0x2000
    CALLQUE $QSR_MK_MAG						;0.3 sec

    ;---- Make the average dopplergram
    SETREGS  $IPRL_SUMDIFF_PARAM  10  5:0x00726  2:0x00726  7:0x00726   13   0xe5 0x4a45 0x2000
    CALLQUE  $QSR_DO_SUM					;0.3 sec

    RTNQUE