; FILE:    mk_mvl30.ips
; PURPOSE: Make a full disk (or) 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
;
;		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 6
;
;						MAG in page 17
;						VEL-AVG in page 7
;
;		Available pages: 11,13,18
;
; 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)
;	16-Jul-96 (MDM) - Renamed from "mk_hr_mvl30" to "mk_mvl30" and expanded
;			  to handle full disk option
;			- set the velocity compression to 0xe4 (from 0xe5)
;	17-Jul-96 (MDM) - Set all sub-version values for the DPCs to "7"
;			  (except filtergrams)
;			- Set mag n/k to "e3"
;			- Changed vel and ldep "average" to be average (shifted
;			  by an extra 2 to preserve the charge)
;	18-Jul-96 (MDM) - Removed square-root compression calls (because they
;			  are done after the formatting typically)
;			- Moved continuum filtergram to page 5 (copy from 19)
;			- Moved avg line-depth to page 6 (old was page 18)
;	24-Jul-96 (MDM) - Changed LDEPTH args from "7  127  7" to
;			  "6 127 8"

QSR_HR_MVL30::
    SETREGS  $IPRL_VLCM_CONT_FLT  3 0xe2   0x4048 0x2000
    SETREGS  $IPRL_VLCM_LDEPTH    3 0xe3   0x4447 0x2000
    SETREGS  $IPRL_VLCM_VEL       3 0xe4   0x4a47 0x2000
    SETREGS  $IPRL_VLCM_MAG       3 0xe3   0x4b47 0x2000
    GOTO &COMMON_CODE

QSR_FD_MVL30::
    SETREGS  $IPRL_VLCM_CONT_FLT  3 0xe2   0x404b 0x2000
    SETREGS  $IPRL_VLCM_LDEPTH    3 0xe3   0x4c47 0x2000
    SETREGS  $IPRL_VLCM_VEL       3 0xe4   0x4247 0x2000
    SETREGS  $IPRL_VLCM_MAG       3 0xe3   0x4847 0x2000
    GOTO &COMMON_CODE

COMMON_CODE:

    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
    COPYRD2D $IPRL_VLCM_CONT_FLT  $IPRL_FLTGRAM_PARAM+8 3 	;last three words are n/k, dpc(h,l)
    CALLQUE  $QSR_MK_FLTGRAM					;0.3 sec

    RTNQUE

FRM8:
    ;---- Make RCP velocity
    SETREGS $IPRL_VEL_PARAM   8  1:0x00514  2:0x00514  5:0x00726  4 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 6 127 8
    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  4 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 6 127 8
    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  7  17:0x00726 15:0x00726 6:0x00726   15
    COPYRD2D $IPRL_VLCM_LDEPTH $IPRL_SUMDIFF_PARAM+7 3
    CALLQUE  $QSR_DO_SUM					;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  5  0x100000L  1  0xFFFF  13
    COPYRD2D $IPRL_VLCM_MAG  $IPRL_MAG_PARAM+11 3
    CALLQUE  $QSR_MK_MAG					;0.3 sec

    ;---- Make the average dopplergram
    SETREGS  $IPRL_SUMDIFF_PARAM  7  5:0x00726  2:0x00726  7:0x00726   12  
    COPYRD2D $IPRL_VLCM_VEL $IPRL_SUMDIFF_PARAM+7 3
    CALLQUE  $QSR_DO_SUM					;0.3 sec

    RTNQUE