; FILE:    prog_hr_cad1.ips
; PURPOSE: High cadence program to downlink filtergrams
; METHOD:  Use the TAP_CONT code
; HISTORY: Written 29-Feb-96 by M.Morrison

QPROG_HC_FLTGRAM::

    ;---- Step #1: Making the observable (filtergram)
    SETREGS  $IPRL_FLTGRAM_PARAM 4 0:0x0000 17:0x0726           ;set source page and destination pages
    SETREGS  $IPRL_FLTGRAM_PARAM+8 3 0xe2   0x400c 0x2000       ;last three words are n/k, dpc(h,l)
    CALLQUE  $QSR_MK_FLTGRAM

    ;---- Step #2: Formatting the observable
    SETREGS  $IPRL_EXTRACT_INST 4 17:0x0726 2:0x0226            ;setup source/destination page of the extract
    COPYRD2D $IPRL_EXTRACT_300  $IPRL_EXTRACT_PARAM 6		;copy the extract option
    CALLQUE  $QSR_FMT_EXTRACT                                   ;extract the image

    ;---- Step #3: Square-root compress
    SETREGS  $IPRL_SQRT_PARAM    4  2:0x00226 3:0x0226
    CALLQUE  $QSR_SQRT_COMP                                     ;0.3 sec

    ;---- Step #4: Downlinking the observable
    SETREG   $IPRL_DL_PARAM 0x1800                              ;setup the source page to downlink (page 2)
    CALLQUE  $QSR_DL_1PAGE                                      ;downlink the image
END