; FILE:    prog_hr_mag.ips
; PURPOSE: Make a high resolution magnetogram from a 30 sec observation (8 frames)
; METHOD:
; HISTORY: Written 15-Jan-96 by M.Morrison
;	   18-Jan-96 (MDM) - Modified to work with 10 frame squenence
;	   		   - Changed the DPCs
;	   22-Jan-96 (MDM) - Corrected an error which was causing the magnetogram
;			     to not be a magnetogram.  It was differencing Vel_RCP - Sc_LCP)
;			     so DPC 4b002000 is bogus
;			   - new DPC 4b402000 was defined with the correction
;			   - Added two parameters to the velocity parameter (scaling - set to 1)
;	   31-Jan-96 (MDM) - Changed the shift count of SCALESUM for mag calculation
;			     from 12 to 13 (/16 to /8).  Changed DPC to 4b412000

QPROG_HR_MAG::

INCOMING_IMG:
    BRANCHEQ R3072  8 &FRM8
    BRANCHEQ R3072  9 &FRM9
    END

FRM8:
    ;---- Make RCP velocity
    SETREGS $IPRL_VEL_PARAM   8 1:0x00514  4:0x00514  5:0x00726  4 127    
    SETREGS $IPRL_VEL_PARAM+8 6 1 0xe5  0x4a42 0x2000   1 16
    CALLQUE $QSR_MK_VEL
    END

FRM9:
    ;---- Make LCP velocity
    SETREGS $IPRL_VEL_PARAM   8 0:0x00514  6:0x00514  4:0x00726  4 127    
    SETREGS $IPRL_VEL_PARAM+8 6 1 0xe5  0x4a41 0x2000   1 16
    CALLQUE $QSR_MK_VEL

    ;---- Subtract two velocities to make the mag
    SETREGS $IPRL_MAG_PARAM    6  5:0x00726  4:0x00726  6:0x00726
    SETREGS $IPRL_MAG_PARAM+6  5  0x100000L  1  0xFFFF  13
    SETREGS $IPRL_MAG_PARAM+11 3  0xe4 0x4b41 0x2000
    CALLQUE $QSR_MK_MAG

    ;---- Downlink the magnetogram
    SETREG  $IPRL_DL_PARAM 0x3000		;setup to downlink the mag
    CALLQUE $QSR_DL_1PAGE

END