# File: do_set_offset4x4_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/prep/src/do_set_offset4x4_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    do_set_extract.ips
#; PURPOSE: Set the extract location based on a counter (sub-parts
#; HISTORY: Written 22-May-96 by M.Morrison
#
#QSR_DO_SET_OFFSET4X4::
#    BRANCHNE R3072 1 &NO_INCREMENT			;only incrment the count on 
tcblock mbipmacl 0x19FF    0x01B0 0x0C00 0x0001 0x1A0D 
#
#    ADDREGD  $IPRL_SET_EXT_PARAM 1			;increment the counter
tcblock mbipmacl 0x1A03    0x01BC 0x1461 0x0001 
#    BRANCHLT $IPRL_SET_EXT_PARAM 16 &SKIP
tcblock mbipmacl 0x1A06    0x01B8 0x1461 0x0010 0x1A0D 
#    SETREG   $IPRL_SET_EXT_PARAM 0			;reset the counter to 0
tcblock mbipmacl 0x1A0A    0x0140 0x1461 0x0000 
#SKIP:
#
#NO_INCREMENT:
#
#    REGAND  $IPRL_SET_EXT_PARAM $IPRL_VALUE_0003 $IPRL_SET_EXT_LO
tcblock mbipmacl 0x1A0D    0x0150 0x1461 0x1464 0x1462 
#    REGAND  $IPRL_SET_EXT_PARAM $IPRL_VALUE_FFFC $IPRL_SET_EXT_HI
tcblock mbipmacl 0x1A11    0x0150 0x1461 0x1465 0x1463 
#
#    REGMULT $IPRL_SET_EXT_LOW   $IPRL_VALUE_0100 R3078		;set low 
tcblock mbipmacl 0x1A15    0x6146 0x1462 0x1466 0x0C06 
#    REGMULT $IPRL_SET_EXT_HIGH  $IPRL_VALUE_0001 R3079		;set high
tcblock mbipmacl 0x1A19    0x6146 0x1463 0x1467 0x0C07 
#
#								;(0*1024, 256*1024, 512*1024, 768*1024)
#    RTNQUE
tcblock mbipmacl 0x1A1D    0x01FA 
#=======================================================
#
return
#
#=======================================================
