; FILE:    do_set_extract.ips
; PURPOSE: Set the extract location based on a counter (sub-parts within 1024x1024)
; HISTORY: Written 22-May-96 by M.Morrison

QSR_DO_SET_OFFSET4X4::
    BRANCHNE R3072 1 &NO_INCREMENT			;only incrment the count on frame 1

    ADDREGD  $IPRL_SET_EXT_PARAM 1			;increment the counter
    BRANCHLT $IPRL_SET_EXT_PARAM 16 &SKIP
    SETREG   $IPRL_SET_EXT_PARAM 0			;reset the counter to 0
SKIP:

NO_INCREMENT:

    REGAND  $IPRL_SET_EXT_PARAM $IPRL_VALUE_0003 $IPRL_SET_EXT_LOW	;0,1,2,3 values 
    REGAND  $IPRL_SET_EXT_PARAM $IPRL_VALUE_FFFC $IPRL_SET_EXT_HIGH	;0,4,8,12 values

    REGMULT $IPRL_SET_EXT_LOW   $IPRL_VALUE_0100 R3078		;set low word for extract location (0,256,512,768)
    REGMULT $IPRL_SET_EXT_HIGH  $IPRL_VALUE_0001 R3079		;set high word for extract location 1024/4 

								;(0*1024, 256*1024, 512*1024, 768*1024)
    RTNQUE