# File: do_sqrt_comp_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "do_sqrt_comp_v01.ips"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#;
#; FILE:    do_sqrt_comp.ips
#; HISTORY: Written 29-Feb-96 by M.Morrison
#;
#;
#QSR_SQRT_COMP::
#;---- Read the header and find out how many points there are
#    COPYREG  $IPRL_SQRT_PARAM+1 $IPRL_HDECODE_PARAM		;copy the so
tcblock mbipcmd 0x0091 0x1952   0x0142 0x13B6 0x114A 
#    COPYREG  $IPRL_SQRT_PARAM+3 $IPRL_HDECODE_PARAM+1		;copy the 
tcblock mbipcmd 0x0091 0x1955   0x0142 0x13B8 0x114B 
#    CALLQUE  $QSR_DO_HDECODE                                    ;
tcblock mbipcmd 0x0091 0x1958   0x01F8 0x1010 
#
#    COPYRI2D $IPRP_HDECODE_ADDR   $IPRL_SQRT_OLDHEAD 10		;copy th
tcblock mbipcmd 0x0091 0x195A   0x01AC 0x1151 0x13BD 0x000A 
#
#    COPYREG  $IPRL_SQRT_OLDHEAD+8  $IPRL_SQRT_PARAM+4		;copy # of
tcblock mbipcmd 0x0091 0x195E   0x0142 0x13C5 0x13B9 
#    COPYREG  $IPRL_SQRT_OLDHEAD+9  $IPRL_SQRT_PARAM+5		;copy # of
tcblock mbipcmd 0x0091 0x1961   0x0142 0x13C6 0x13BA 
#    _LOOKUP  $IPRL_SQRT_PARAM
tcblock mbipcmd 0x0091 0x1964   0x81C0 0x13B5 
#
#;-------- 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 0x1966   0x01AC 0x1152 0x1155 0x000A 
#    COPYREG  $IPRL_SQRT_PARAM+2    $IPRL_HEAD_WORK+6		;copy the f
tcblock mbipcmd 0x0091 0x196A   0x0142 0x13B7 0x115B 
#    COPYREG  $IPRL_SQRT_PARAM+3    $IPRL_HEAD_WORK+7		;copy the f
tcblock mbipcmd 0x0091 0x196D   0x0142 0x13B8 0x115C 
#
#    COPYRD2D $IPRL_SQRT_OLDHEAD+3  $IPRL_HEAD_WORK+3 3  	;copy n/
tcblock mbipcmd 0x0091 0x1970   0x0144 0x13C0 0x1158 0x0003 
#    ADDREGD  $IPRL_HEAD_WORK+5 0x1000				;indicate that the datap
tcblock mbipcmd 0x0091 0x1974   0x01BC 0x115A 0x1000 
#
#
#    COPYREG  $IPRL_SQRT_OLDHEAD+8  $IPRL_HEAD_WORK+8		;set the ou
tcblock mbipcmd 0x0091 0x1977   0x0142 0x13C5 0x115D 
#    COPYREG  $IPRL_SQRT_OLDHEAD+9  $IPRL_HEAD_WORK+9		;set the ou
tcblock mbipcmd 0x0091 0x197A   0x0142 0x13C6 0x115E 
#    COPYRD2I $IPRL_HEAD_WORK       $IPRP_HDECODE_ADDR+1 10	;copy 
tcblock mbipcmd 0x0091 0x197D   0x01AA 0x1155 0x1152 0x000A 
#
#    CALLQUE  $QSR_DO_HEADER
tcblock mbipcmd 0x0091 0x1981   0x01F8 0x105F 
#RTNQUE
tcblock mbipcmd 0x0091 0x1983   0x01FA 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
