# File: prog_phase_div_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/prog_phase_div_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#;NAME:
#;	qprog_phase_div
#;PURPOSE:
#;	To downlink two frames (frames 5 and 6) to be used for 
#;	phase diversity analysis
#;HISTORY:
#;	Written 21-Aug-96 by M.Morrison
#;
#
#QPROG_PHASE_DIV::
#
#    COPYRD2D $IPRL_1FLT_PHASE_DIV  $IPRL_FLTGRAM_PARAM+8  3      
tcblock mbipmacl 0x1D6C    0x0144 0x150F 0x1240 0x0003 
#    COPYRD2D $IPRL_EXT_PHASE_DIV   $IPRL_EXTRACT_PARAM    6      
tcblock mbipmacl 0x1D70    0x0144 0x1515 0x1173 0x0006 
#
#    BRANCHEQ R3072   5 &FRM5
tcblock mbipmacl 0x1D74    0x01AE 0x0C00 0x0005 0x1D81 
#    BRANCHEQ R3072   6 &FRM6
tcblock mbipmacl 0x1D78    0x01AE 0x0C00 0x0006 0x1D8D 
#    BRANCHEQ R3072  10 &FRM10
tcblock mbipmacl 0x1D7C    0x01AE 0x0C00 0x000A 0x1D99 
#    END
tcblock mbipmacl 0x1D80    0x01FC 
#
#FRM5:
#    SETREGS  $IPRL_FLTGRAM_PARAM 4 0:0x0000 5:0x0726            ;
tcblock mbipmacl 0x1D81    0x01B2 0x1238 0x0004 0x0000 \
                                0x0000 0x0726 0x2800 
#    CALLQUE  $QSR_MK_FLTGRAM                                    ;
tcblock mbipmacl 0x1D88    0x01F8 0x11E3 
#    CALLQUE  $QSR_STD_EFMT_CONT					;0.3 sec + 0.6 sec
tcblock mbipmacl 0x1D8A    0x01F8 0x184E 
#    END
tcblock mbipmacl 0x1D8C    0x01FC 
#
#FRM6:
#    SETREGS  $IPRL_FLTGRAM_PARAM 4 0:0x0000 19:0x0726            
tcblock mbipmacl 0x1D8D    0x01B2 0x1238 0x0004 0x0000 \
                                0x0000 0x0726 0x9800 
#    CALLQUE  $QSR_MK_FLTGRAM                                     
tcblock mbipmacl 0x1D94    0x01F8 0x11E3 
#    CALLQUE  $QSR_STD_EFMT_CONTF
tcblock mbipmacl 0x1D96    0x01F8 0x1854 
#    END
tcblock mbipmacl 0x1D98    0x01FC 
#
#FRM10:
#    SETREGS  $IPRL_DL_PARAM 2 0x2800 0x9800 
tcblock mbipmacl 0x1D99    0x01B2 0x11D0 0x0002 0x2800 \
                                0x9800 
#    CALLQUE  $QSR_DL_2PAGE                                      ;
tcblock mbipmacl 0x1D9E    0x01F8 0x0DA5 
#    END
tcblock mbipmacl 0x1DA0    0x01FC 
#=======================================================
#
return
#
#=======================================================
