; NAME:    mk_ldep.ips
; PURPOSE: Make a line depth data product and header
; METHOD:
;		IPRL_LDEP_PARAM = Sa source (l,h), Sc source (l,h), destination (l,h), shift, block, lookup
;				  n/k, dpc (h,l)
; HISTORY: Written 27-Feb-96 by M.Morrison
;
;
QSR_MK_LDEP::

;-------- Do the linedepth calculation

    _LDEPTH   $IPRL_LDEP_PARAM

;-------- decode the source and destination page info
    COPYREG  $IPRL_LDEP_PARAM+1 $IPRL_HDECODE_PARAM	;copy the source page high word into a known fixed place
    COPYREG  $IPRL_LDEP_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
    COPYREG  $IPRL_LDEP_PARAM+4    $IPRL_HEAD_WORK+6	;copy the final dest(l)
    COPYREG  $IPRL_LDEP_PARAM+5    $IPRL_HEAD_WORK+7	;copy the final dest(h)
    SETREGS  $IPRL_HEAD_WORK+8 2 0x100000L		;set #pixels (l,h)
    COPYRD2D $IPRL_LDEP_PARAM+9    $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