# File: mk_ldep_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/mk_ldep_v01.src"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#; 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), destinatio
#;				  n/k, dpc (h,l)
#; HISTORY: Written 27-Feb-96 by M.Morrison
#;
#;
#QSR_MK_LDEP::
#
#;-------- Do the linedepth calculation
#
#    _LDEPTH   $IPRL_LDEP_PARAM
tcblock mbipcmd 0x0091 0x19D0   0x817E 0x13CD 
#
#;-------- decode the source and destination page info
#    COPYREG  $IPRL_LDEP_PARAM+1 $IPRL_HDECODE_PARAM	;copy the sou
tcblock mbipcmd 0x0091 0x19D2   0x0142 0x13CE 0x114A 
#    COPYREG  $IPRL_LDEP_PARAM+5 $IPRL_HDECODE_PARAM+1	;copy the d
tcblock mbipcmd 0x0091 0x19D5   0x0142 0x13D2 0x114B 
#    CALLQUE  $QSR_DO_HDECODE				;decode the value - 
tcblock mbipcmd 0x0091 0x19D8   0x01F8 0x1010 
#
#;-------- now copy the relevant info to the hrdinit slot and make
#    COPYRI2D $IPRP_HDECODE_ADDR+1  $IPRL_HEAD_WORK 10	;copy the r
tcblock mbipcmd 0x0091 0x19DA   0x01AC 0x1152 0x1155 0x000A 
#    COPYREG  $IPRL_LDEP_PARAM+4    $IPRL_HEAD_WORK+6	;copy the fi
tcblock mbipcmd 0x0091 0x19DE   0x0142 0x13D1 0x115B 
#    COPYREG  $IPRL_LDEP_PARAM+5    $IPRL_HEAD_WORK+7	;copy the fi
tcblock mbipcmd 0x0091 0x19E1   0x0142 0x13D2 0x115C 
#    SETREGS  $IPRL_HEAD_WORK+8 2 0x100000L		;set #pixels (l,h)
tcblock mbipcmd 0x0091 0x19E4   0x01B2 0x115D 0x0002 0x0000 \
                                0x0010 
#    COPYRD2D $IPRL_LDEP_PARAM+9    $IPRL_HEAD_WORK+3 3	;copy n/k,
tcblock mbipcmd 0x0091 0x19E9   0x0144 0x13D6 0x1158 0x0003 
#    COPYRD2I $IPRL_HEAD_WORK       $IPRP_HDECODE_ADDR+1 10	;copy 
tcblock mbipcmd 0x0091 0x19ED   0x01AA 0x1155 0x1152 0x000A 
#
#    CALLQUE  $QSR_DO_HEADER
tcblock mbipcmd 0x0091 0x19F1   0x01F8 0x105F 
#    RTNQUE
tcblock mbipcmd 0x0091 0x19F3   0x01FA 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
