# File: prog_fd_vlc60_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "prog_fd_vlc60_v01.ips"
descr "Loads IP queue instructions"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#; FILE:    prog_fd_vlc60.ips
#; PURPOSE: Make a full disk velocity, line-depth, and continuum o
#;	   from a 60 sec observation.  Downlink any one of the above.
#; METHOD:
#;		Sa in page 0
#;		Sc in page 1
#;		Sd in page 2
#;		Si in page 3
#;		Dopplergram in page 5
#;		Line-depth in page 6		sqrt compress in page 7
#;		MK_CONT temp storage of Si in page 17
#;		MK_CONT temp storage of Sd in page 18
#;		Continuum in page 4		sqrt compress in page 19
#; HISTORY: Written 5-Mar-96 by M.Morrison
#;	 5-Mar-96 (MDM) - Adjusted the calling order so that MK_CONT is
#;			  immediately after receiving the last Si image
#;			  (there is a page conflict otherwise)
#
#QPROG_FD_V60::
#    SETREG $IPRL_DL_PARAM 0x2800				;downlink velocity
tcblock mbipcmd 0x0091 0x1C16   0x0140 0x11D0 0x2800 
#    GOTO &INCOMING_IMG
tcblock mbipcmd 0x0091 0x1C19   0x0156 0x1C23 
#
#QPROG_FD_L60::
#    SETREG $IPRL_DL_PARAM 0x3800				;downlink line-depth
tcblock mbipcmd 0x0091 0x1C1B   0x0140 0x11D0 0x3800 
#    GOTO &INCOMING_IMG
tcblock mbipcmd 0x0091 0x1C1E   0x0156 0x1C23 
#
#QPROG_FD_C60::
#    SETREG $IPRL_DL_PARAM 0x9800				;downlink continuum
tcblock mbipcmd 0x0091 0x1C20   0x0140 0x11D0 0x9800 
#
#INCOMING_IMG:
#    BRANCHEQ R3072  19 &FRM19
tcblock mbipcmd 0x0091 0x1C23   0x01AE 0x0C00 0x0013 0x1C2C 
#    BRANCHEQ R3072  20 &FRM20
tcblock mbipcmd 0x0091 0x1C27   0x01AE 0x0C00 0x0014 0x1C57 
#    END
tcblock mbipcmd 0x0091 0x1C2B   0x01FC 
#
#FRM19:
#    ;---- Make velocity
#    SETREGS $IPRL_VEL_PARAM   8 0:0x00514  1:0x00514  5:0x00726  
tcblock mbipcmd 0x0091 0x1C2C   0x01B2 0x1389 0x0008 0x0514 \
                                0x0000 0x0514 0x0800 0x0726 \
                                0x2800 0x0002 0x007F 
#    SETREGS $IPRL_VEL_PARAM+8 6  1  0xe5  0x4201 0x2000   1 13
tcblock mbipcmd 0x0091 0x1C37   0x01B2 0x1391 0x0006 0x0001 \
                                0x00E5 0x4201 0x2000 0x0001 \
                                0x000D 
#                                ;Sa(l,h), Sc(l,h), Dest(l,h), shi
#                                ;lookup, n/k, dpc(h,l),   scaleX,
#    CALLQUE $QSR_MK_VEL						;1.7 sec
tcblock mbipcmd 0x0091 0x1C40   0x01F8 0x1761 
#
#    ;---- Make line depth
#    SETREGS  $IPRL_LDEP_PARAM    9 0:0x00514  1:0x00514 6:0x00726
tcblock mbipcmd 0x0091 0x1C42   0x01B2 0x13CD 0x0009 0x0514 \
                                0x0000 0x0514 0x0800 0x0726 \
                                0x3000 0x0007 0x007F 0x0007 
#    SETREGS  $IPRL_LDEP_PARAM+9  3 0xe4 0x4C00 0x2000
tcblock mbipcmd 0x0091 0x1C4E   0x01B2 0x13D6 0x0003 0x00E4 \
                                0x4C00 0x2000 
#    CALLQUE  $QSR_MK_LDEP					;0.6 sec
tcblock mbipcmd 0x0091 0x1C54   0x01F8 0x19D0 
#
#    END
tcblock mbipcmd 0x0091 0x1C56   0x01FC 
#
#FRM20:
#    ;---- Make the continuum observable
#    SETREGS  $IPRL_CONT_PARAM    10 3:0x00514  6:0x00726 2:0x0051
tcblock mbipcmd 0x0091 0x1C57   0x01B2 0x13D9 0x000A 0x0514 \
                                0x1800 0x0726 0x3000 0x0514 \
                                0x1000 0x0726 0x2000 0x007F \
                                0x0170 
#    SETREGS  $IPRL_CONT_PARAM+10  3 0xe4 0x4602 0x2000
tcblock mbipcmd 0x0091 0x1C64   0x01B2 0x13E3 0x0003 0x00E4 \
                                0x4602 0x2000 
#    CALLQUE  $QSR_MK_CONT                                       ;
tcblock mbipcmd 0x0091 0x1C6A   0x01F8 0x1A04 
#
#    ;---- Compress the line-depth
#    SETREGS  $IPRL_SQRT_PARAM    4  6:0x00726 7:0x0726
tcblock mbipcmd 0x0091 0x1C6C   0x01B2 0x13B5 0x0004 0x0726 \
                                0x3000 0x0726 0x3800 
#    CALLQUE  $QSR_SQRT_COMP					;0.3 sec
tcblock mbipcmd 0x0091 0x1C73   0x01F8 0x1952 
#
#    ;---- Compress the continuum
#    SETREGS  $IPRL_SQRT_PARAM    4  4:0x00726 19:0x0726
tcblock mbipcmd 0x0091 0x1C75   0x01B2 0x13B5 0x0004 0x0726 \
                                0x2000 0x0726 0x9800 
#    CALLQUE  $QSR_SQRT_COMP					;0.3 sec
tcblock mbipcmd 0x0091 0x1C7C   0x01F8 0x1952 
#
#    ;---- Downlink the observable
#    CALLQUE $QSR_DL_1PAGE					;0.6 sec
tcblock mbipcmd 0x0091 0x1C7E   0x01F8 0x10D6 
#END
tcblock mbipcmd 0x0091 0x1C80   0x01FC 
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
