# File: mk_vel_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "mk_vel_v01.ips"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#; NAME:    mk_vel.ips
#; PURPOSE: Make a velocity data product and header
#; HISTORY: Written 14-Aug-95 by M.Morrison
#;          30-Aug-95 (MDM) - Changed the name and allowed either 
#;	   15-Jan-96 (MDM) - corrected the copy/setup of HDECODE_PARAM
#;			     (it was grabbing the low word)
#;	   15-Jan-96 (MDM) - Used _VLCTY instead of VLCTY
#;
#;
#QSR_MK_VEL::
#
#;------- Copy the proper velocity table
#    BRANCHEQ $IPRL_VEL_PARAM+8 1 &VEL_HR_TABLE
tcblock mbipcmd 0x0091 0x1751   0x01AE 0x11BD 0x0001 0x175B 
#    COPYTAB $IPRL_TAB_VEL_FD
tcblock mbipcmd 0x0091 0x1755   0x01B4 0x11A9 
#    COPYTAB $IPRL_TAB_RECIP_FD
tcblock mbipcmd 0x0091 0x1757   0x01B4 0x119D 
#    GOTO &VEL_TABLE_DONE
tcblock mbipcmd 0x0091 0x1759   0x0156 0x1761 
#
#VEL_HR_TABLE:
#    COPYTAB $IPRL_TAB_VEL_HR
tcblock mbipcmd 0x0091 0x175B   0x01B4 0x11AF 
#    COPYTAB $IPRL_TAB_RECIP_HR
tcblock mbipcmd 0x0091 0x175D   0x01B4 0x11A3 
#    GOTO &VEL_TABLE_DONE
tcblock mbipcmd 0x0091 0x175F   0x0156 0x1761 
#
#VEL_TABLE_DONE:
#
#;-------- Do the velocity instruction
#
#    _VLCTY $IPRL_VEL_PARAM				;make the velocity - source/destina
tcblock mbipcmd 0x0091 0x1761   0x817C 0x11B5 
#							;instruction can work directly off the parameters list
#							;because there are no pieces being set elesewhere
#
#;-------- decode the source and destination page info
#    COPYREG  $IPRL_VEL_PARAM+1 $IPRL_HDECODE_PARAM	;copy the sour
tcblock mbipcmd 0x0091 0x1763   0x0142 0x11B6 0x114A 
#    COPYREG  $IPRL_VEL_PARAM+5 $IPRL_HDECODE_PARAM+1	;copy the de
tcblock mbipcmd 0x0091 0x1766   0x0142 0x11BA 0x114B 
#    CALLQUE  $QSR_DO_HDECODE				;decode the value - 
tcblock mbipcmd 0x0091 0x1769   0x01F8 0x1010 
#
#;-------- now copy the relevant info to the hrdinit slot and make
#    COPYRI2D $IPRP_HDECODE_ADDR+1 $IPRL_HEAD_WORK 10	;copy the re
tcblock mbipcmd 0x0091 0x176B   0x01AC 0x1152 0x1155 0x000A 
#    COPYREG  $IPRL_VEL_PARAM+4    $IPRL_HEAD_WORK+6	;copy the fin
tcblock mbipcmd 0x0091 0x176F   0x0142 0x11B9 0x115B 
#    COPYREG  $IPRL_VEL_PARAM+5    $IPRL_HEAD_WORK+7	;copy the fin
tcblock mbipcmd 0x0091 0x1772   0x0142 0x11BA 0x115C 
#    COPYRD2D $IPRL_VEL_PARAM+9    $IPRL_HEAD_WORK+3 3	;copy n/k, 
tcblock mbipcmd 0x0091 0x1775   0x0144 0x11BE 0x1158 0x0003 
#    SETREG                        $IPRL_HEAD_WORK+8 0x0000 	;set 
tcblock mbipcmd 0x0091 0x1779   0x0140 0x115D 0x0000 
#    SETREG                        $IPRL_HEAD_WORK+9 0x10	;set the
tcblock mbipcmd 0x0091 0x177C   0x0140 0x115E 0x0010 
#    COPYRD2I $IPRL_HEAD_WORK      $IPRP_HDECODE_ADDR+1 10	;copy t
tcblock mbipcmd 0x0091 0x177F   0x01AA 0x1155 0x1152 0x000A 
#
#    CALLQUE  $QSR_DO_HEADER
tcblock mbipcmd 0x0091 0x1783   0x01F8 0x105F 
#    RTNQUE
tcblock mbipcmd 0x0091 0x1785   0x01FA 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
