# File: hr_fe_ce_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/prep/src/hr_fe_ce_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    hr_fe_ce.ips
#; PURPOSE: Make and downlink a high res continuum and downlink th
#;	   continuum filtergram also
#; HISTORY: 
#;       Written 22-Jul-96 by M.Morrison
#
#QPROG_HR_FE_CE::
#    CALLQUE  $QSR_HR_VLC30                                      ;
tcblock mbipmacl 0x1C3D    0x01F8 0x1747 
#
#    BRANCHLT R3072 10 &DONE 					;If not ready for downlink, then
tcblock mbipmacl 0x1C3F    0x01B8 0x0C00 0x000A 0x1C52 
#
#    COPYRD2D $IPRL_EXTRACT_80K $IPRL_EXTRACT_PARAM 6            ;
tcblock mbipmacl 0x1C43    0x0144 0x13F0 0x1173 0x0006 
#    CALLQUE  $QSR_STD_EFMT_CONT
tcblock mbipmacl 0x1C47    0x01F8 0x184E 
#    CALLQUE  $QSR_STD_EFMT_CONTF
tcblock mbipmacl 0x1C49    0x01F8 0x1854 
#
#    SETREGS  $IPRL_DL_PARAM 2 0x2800 0x9800
tcblock mbipmacl 0x1C4B    0x01B2 0x11D0 0x0002 0x2800 \
                                0x9800 
#    CALLQUE  $QSR_DL_2PAGE                                      ;
tcblock mbipmacl 0x1C50    0x01F8 0x0DA5 
#
#DONE:
#    END
tcblock mbipmacl 0x1C52    0x01FC 
#=======================================================
#
return
#
#=======================================================
