# File: prog_fd_cont_v02.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "prog_fd_cont_v02.ips"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    prog_fd_cont.ips
#; PURPOSE: Extract and downlink a full disk continuum filtergram
#; HISTORY: Written 18-Apr-96 by M.Morrison
#
#QPROG_FD_CONTFLT::
#
#    BRANCHEQ R3072  10 &FRM10
tcblock mbipmacl 0x1D7A    0x01AE 0x0C00 0x000A 0x1D7F 
#    END
tcblock mbipmacl 0x1D7E    0x01FC 
#
#FRM10:
#
#    ;---- Step #1: Making the observable
#    SETREGS  $IPRL_FLTGRAM_PARAM 4 3:0x0000 17:0x0726           ;
tcblock mbipmacl 0x1D7F    0x01B2 0x1238 0x0004 0x0000 \
                                0x1800 0x0726 0x8800 
#    COPYRD2D $IPRL_FD_CONTFLT $IPRL_FLTGRAM_PARAM+8 3           ;
tcblock mbipmacl 0x1D86    0x0144 0x1414 0x1240 0x0003 
#    CALLQUE  $QSR_MK_FLTGRAM
tcblock mbipmacl 0x1D8A    0x01F8 0x1334 
#
#    ;---- Step #2: Downlinking the observable
#    SETREG   $IPRL_DL_PARAM 0x8800                              ;
tcblock mbipmacl 0x1D8C    0x0140 0x11D0 0x8800 
#    CALLQUE  $QSR_DL_1PAGE                                      ;
tcblock mbipmacl 0x1D8F    0x01F8 0x10D6 
#    END
tcblock mbipmacl 0x1D91    0x01FC 
#=======================================================
#
return
#
#=======================================================
