# File: prog_detune_v02.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/prog_detune_v02.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    prog_detune.ips
#; PURPOSE: Rebin and downlink the detune scan data
#; HISTORY: Written 18-Apr-96 by M.Morrison
#
#QPROG_DT_CAL::
#    SETREG  $IPRL_FLTGRAM_GEN+1  0x404d
tcblock mbipmacl 0x1DA2    0x0140 0x1244 0x404D 
#    GOTO &QPROG_FLTGRAM_4X4BIN
tcblock mbipmacl 0x1DA5    0x0156 0x14B2 
#
#QPROG_DT_OBS::
#    SETREG  $IPRL_FLTGRAM_GEN+1  0x404e
tcblock mbipmacl 0x1DA7    0x0140 0x1244 0x404E 
#    GOTO &QPROG_FLTGRAM_4X4BIN
tcblock mbipmacl 0x1DAA    0x0156 0x14B2 
#
#    END
tcblock mbipmacl 0x1DAC    0x01FC 
#
#=======================================================
#
return
#
#=======================================================
