; FILE:    prog_dark30.ips
; PURPOSE: Extract a 256x256 piece and downlink dark data
; HISTORY: Written 22-May-96 by M.Morrison
;	22-May-96 (MDM) - Changed to use TAP_CONT instead of FLTGRAM
;	22-May-96 (MDM) - Modified to use DO_SET_OFFSET4X4

QPROG_DARK30_16PARTS::

    COPYREG $IPRL_DARK30_COUNT $IPRL_SET_EXT_PARAM
    CALLQUE $QSR_DO_SET_OFFSET4X4			;figure out the offset location
    COPYREG $IPRL_SET_EXT_PARAM $IPRL_DARK30_COUNT 

QPROG_DARK30::

;;    SETREG  $IPRL_FLTGRAM_GEN+1  0x4051
;;    GOTO &QPROG_FLTGRAM_EXT256

    SETREGS  $IPRL_FLTGRAM_PARAM+8 3 0xe4 0x4051 0x2000		;last three words are n/k, dpc(h,l)
    COPYRD2D $IPRL_EXTRACT_256 $IPRL_EXTRACT_PARAM 6		;setup the parameters to be used by the extract subroutine
    SETREG $IPRL_TAPC_TYPE 1
    GOTO &QSR_TAP_CONT_NODPC
    END