; FILE:    prog_ltc30.ips
; PURPOSE: Extract a 256x256 piece and downlink light transfer data (ltc)
; HISTORY: Written 20-May-96 by M.Morrison
;	22-May-96 (MDM) - Modified to use DO_SET_OFFSET4X4

QPROG_LTC30_16PARTS::

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

QPROG_LTC30::

    SETREG  $IPRL_FLTGRAM_GEN+1  0x4050
    GOTO &QPROG_FLTGRAM_EXT256

    END