# File: prog_ltc30_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/prep/src/prog_ltc30_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    prog_ltc30.ips
#; PURPOSE: Extract a 256x256 piece and downlink light transfer da
#; 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
tcblock mbipmacl 0x1A26    0x0142 0x1468 0x1461 
#    CALLQUE $QSR_DO_SET_OFFSET4X4			;figure out the offset locati
tcblock mbipmacl 0x1A29    0x01F8 0x19FF 
#    COPYREG $IPRL_SET_EXT_PARAM $IPRL_LTC30_COUNT 
tcblock mbipmacl 0x1A2B    0x0142 0x1461 0x1468 
#
#QPROG_LTC30::
#
#    SETREG  $IPRL_FLTGRAM_GEN+1  0x4050
tcblock mbipmacl 0x1A2E    0x0140 0x1244 0x4050 
#    GOTO &QPROG_FLTGRAM_EXT256
tcblock mbipmacl 0x1A31    0x0156 0x146F 
#
#    END
tcblock mbipmacl 0x1A33    0x01FC 
#
#=======================================================
#
return
#
#=======================================================
