; 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
    GOTO &QPROG_FLTGRAM_4X4BIN

QPROG_DT_OBS::
    SETREG  $IPRL_FLTGRAM_GEN+1  0x404e
    GOTO &QPROG_FLTGRAM_4X4BIN

    END