# File: p30c_hr_f1_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/p30c_hr_f1_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    p30c_hr_f1.ips
#; PURPOSE: Grab the prime30 continuum observable and make a high 
#;	   continuum observable.  Downlink FD cropped and full hr
#;
#; HISTORY: 
#;       Written 22-Jul-96 by M.Morrison
#;	23-Jul-96 (MDM) - Mod to call HR_VLC30 instead of HR_MVL30
#
#QPROG_P30C_HR_F1::
#
#    CALLQUE $QSR_STORE_P30C					;store/move the prime30 velocity
tcblock mbipmacl 0x1AE0    0x01F8 0x18A6 
#
#    BRANCHEQ R3072 10 &DONE                                     ;
tcblock mbipmacl 0x1AE2    0x01AE 0x0C00 0x000A 0x1B02 
#                                                                ;
#                                                                ;
#                                                                ;
#
#    CALLQUE  $QSR_HR_VLC30                                      ;
tcblock mbipmacl 0x1AE6    0x01F8 0x1747 
#    BRANCHLT R3072 9 &DONE                                      ;
tcblock mbipmacl 0x1AE8    0x01B8 0x0C00 0x0009 0x1B02 
#
#    COPYRD2D $IPRL_CROP_RAD504 $IPRL_CROP_PARAM+4 5
tcblock mbipmacl 0x1AEC    0x0144 0x147D 0x146E 0x0005 
#    CALLQUE  $QSR_STD_CFMT_PCONT				;---- Crop the continuum
tcblock mbipmacl 0x1AF0    0x01F8 0x1836 
#
#    SETREGS  $IPRL_SQRT_PARAM    4  19:0x00726 4:0x0226		;compres
tcblock mbipmacl 0x1AF2    0x01B2 0x13B5 0x0004 0x0726 \
                                0x9800 0x0226 0x2000 
#    CALLQUE  $QSR_SQRT_COMP                                     ;
tcblock mbipmacl 0x1AF9    0x01F8 0x12C2 
#
#    SETREGS  $IPRL_DL_PARAM 2 0x5800 0x2000                     ;
tcblock mbipmacl 0x1AFB    0x01B2 0x11D0 0x0002 0x5800 \
                                0x2000 
#    CALLQUE  $QSR_DL_2PAGE                                      ;
tcblock mbipmacl 0x1B00    0x01F8 0x0DA5 
#
#DONE:
#    END
tcblock mbipmacl 0x1B02    0x01FC 
#=======================================================
#
return
#
#=======================================================
