; 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

QPROG_HR_MAG::

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

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

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

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

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

END