; NAME:    mk_mag.ips
; PURPOSE: Make a magnetogram data product and header
; HISTORY: Written 15-Jan-96 by M.Morrison
;
;
QSR_MK_MAG::

;-------- Do the magnetogram calculation

    _SCALESUM    $IPRL_MAG_PARAM			; newMAG = RCP_VEL - LCP_VEL

;-------- decode the source and destination page info
    COPYREG  $IPRL_MAG_PARAM+1 $IPRL_HDECODE_PARAM	;copy the source page high word into a known fixed place
    COPYREG  $IPRL_MAG_PARAM+5 $IPRL_HDECODE_PARAM+1	;copy the dest page high word into a known fixed place
    CALLQUE  $QSR_DO_HDECODE				;decode the value - 

;-------- now copy the relevant info to the hrdinit slot and make the header
    COPYRI2D $IPRP_HDECODE_ADDR+1 $IPRL_HEAD_WORK 10	;copy the register list to a fixed working area
    COPYRD2D $IPRL_MAG_PARAM+4    $IPRL_HEAD_WORK+6 4	;copy the final dest(l,h), # of pix (l,h)
    COPYRD2D $IPRL_MAG_PARAM+11   $IPRL_HEAD_WORK+3 3	;copy n/k, dpc(l), and dpc(h) into the HRDINIT slot
    COPYRD2I $IPRL_HEAD_WORK      $IPRP_HDECODE_ADDR+1 10	;copy the register list back to the slot

    CALLQUE  $QSR_DO_HEADER
    RTNQUE