# File: prog_p30_vc_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/prog_p30_vc_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    prog_p30_vc.ips
#; PURPOSE: To downlink the velocity and continuum created during 
#;	   observation
#; HISTORY:
#;	Written 14-May-96 by M.Morrison
#;
#QPROG_P30_VC::
#    BRANCHEQ R3072  10 &FRM10				;issue the downlink commands for
tcblock mbipmacl 0x1AE9    0x01AE 0x0C00 0x000A 0x1AEE 
#    END
tcblock mbipmacl 0x1AED    0x01FC 
#
#FRM10:
#    ;----- Setup the HDECODE register list for velocity page (pag
#    COPYREG  R71  $IPRP_HDECODE_PAGE5+8			;set the length (l) for
tcblock mbipmacl 0x1AEE    0x0142 0x0047 0x103A 
#    COPYREG  R72  $IPRP_HDECODE_PAGE5+9			;set the length (l)
tcblock mbipmacl 0x1AF1    0x0142 0x0048 0x103B 
#    SETREG   $IPRP_HDECODE_PAGE5+3 0xe5			;set the compression
tcblock mbipmacl 0x1AF4    0x0140 0x1035 0x00E5 
#
#    ;----- Setup the HDECODE register list for continuum page (pa
#    COPYREG  R71  $IPRP_HDECODE_PAGE7+8			;set the length (l) for
tcblock mbipmacl 0x1AF7    0x0142 0x0047 0x104E 
#    COPYREG  R72  $IPRP_HDECODE_PAGE7+9			;set the length (l)
tcblock mbipmacl 0x1AFA    0x0142 0x0048 0x104F 
#    SETREG   $IPRP_HDECODE_PAGE7+3 0xe2			;set the compression
tcblock mbipmacl 0x1AFD    0x0140 0x1049 0x00E2 
#
#    ;----- Setup downlink registers and downlink
#
#    SETREGS  $IPRL_DL_PARAM 2 0x2800 0x3800                     ;
tcblock mbipmacl 0x1B00    0x01B2 0x11D0 0x0002 0x2800 \
                                0x3800 
#    CALLQUE  $QSR_DL_2PAGE                                      ;
tcblock mbipmacl 0x1B05    0x01F8 0x0DA5 
#
#    END
tcblock mbipmacl 0x1B07    0x01FC 
#
#=======================================================
#
return
#
#=======================================================
