# File: prog_dark30_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/prep/src/prog_dark30_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; 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
tcblock mbipmacl 0x1A3C    0x0142 0x1469 0x1461 
#    CALLQUE $QSR_DO_SET_OFFSET4X4			;figure out the offset locati
tcblock mbipmacl 0x1A3F    0x01F8 0x19FF 
#    COPYREG $IPRL_SET_EXT_PARAM $IPRL_DARK30_COUNT 
tcblock mbipmacl 0x1A41    0x0142 0x1461 0x1469 
#
#QPROG_DARK30::
#
#;;    SETREG  $IPRL_FLTGRAM_GEN+1  0x4051
#;;    GOTO &QPROG_FLTGRAM_EXT256
#
#    SETREGS  $IPRL_FLTGRAM_PARAM+8 3 0xe4 0x4051 0x2000		;last th
tcblock mbipmacl 0x1A44    0x01B2 0x1240 0x0003 0x00E4 \
                                0x4051 0x2000 
#    COPYRD2D $IPRL_EXTRACT_256 $IPRL_EXTRACT_PARAM 6		;setup the 
tcblock mbipmacl 0x1A4A    0x0144 0x1185 0x1173 0x0006 
#    SETREG $IPRL_TAPC_TYPE 1
tcblock mbipmacl 0x1A4E    0x0140 0x1237 0x0001 
#    GOTO &QSR_TAP_CONT_NODPC
tcblock mbipmacl 0x1A51    0x0156 0x1417 
#    END
tcblock mbipmacl 0x1A53    0x01FC 
#
#=======================================================
#
return
#
#=======================================================
