# File: mk_vlc30_v02.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/prep/src/mk_vlc30_v02.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; FILE:    mk_vlc30.ips
#; PURPOSE: Make a full disk (or) high resolution dopplergram,
#;	   linedepth and continuum from a 30 sec obseration.  Save 
#;	   the continuum filtergram too.
#; METHOD:
#;	raw images page 0-3
#;		sa (F1-F3)	page 0
#;		sc (F2-F4)	page 1
#;		sd (F1,2,3,4)	page 2
#;		si (FC)		page 3
#;					continuum filtergram 1024	page 19 (from frame 1)
#;					velocity unscaled (1 m/sec)	page 13
#;					velocity scaled (8 m/sec)	page 7
#;		si extracted	page 17
#;		sd extracted	page 18
#;					linedepth			page 6
#;					continuum observable		page 5
#;		
#;
#; HISTORY: Written 18-Jul-96 M.Morrison (using mk_mvl30 as starti
#;	18-Jul-96 (MDM) - Put in the code to scale vel to 8 m/sec
#;	22-Jul-96 (MDM) - Added RTNQUE after frame 9
#;	23-Jul-96 (MDM) - Corrected (swapped) continuum observable DPCs
#;	24-Jul-96 (MDM) - Changed LDEPTH args from "7  127  7" to
#;			  "6 127 8"
#;	 1-Aug-96 (MDM) - Changed CONT, CONT_FLT and LDEPTH K to be one
#;			  higher (since SQRT_COMP will reduce it by one)
#
#QSR_HR_VLC30::
#    SETREGS  $IPRL_VLCM_CONT_FLT  3 0xe3   0x4048 0x2000
tcblock mbipmacl 0x1747    0x01B2 0x1487 0x0003 0x00E3 \
                                0x4048 0x2000 
#    SETREGS  $IPRL_VLCM_CONT      3 0xe3   0x4d48 0x2000
tcblock mbipmacl 0x174D    0x01B2 0x148A 0x0003 0x00E3 \
                                0x4D48 0x2000 
#    SETREGS  $IPRL_VLCM_LDEPTH    3 0xe4   0x4448 0x2000
tcblock mbipmacl 0x1753    0x01B2 0x1490 0x0003 0x00E4 \
                                0x4448 0x2000 
#    SETREGS  $IPRL_VLCM_VEL       3 0xe4   0x4a48 0x2000
tcblock mbipmacl 0x1759    0x01B2 0x148D 0x0003 0x00E4 \
                                0x4A48 0x2000 
#    GOTO &COMMON_CODE
tcblock mbipmacl 0x175F    0x0156 0x177B 
#
#QSR_FD_VLC30::
#    SETREGS  $IPRL_VLCM_CONT_FLT  3 0xe3   0x404b 0x2000
tcblock mbipmacl 0x1761    0x01B2 0x1487 0x0003 0x00E3 \
                                0x404B 0x2000 
#    SETREGS  $IPRL_VLCM_CONT      3 0xe3   0x4648 0x2000
tcblock mbipmacl 0x1767    0x01B2 0x148A 0x0003 0x00E3 \
                                0x4648 0x2000 
#    SETREGS  $IPRL_VLCM_LDEPTH    3 0xe4   0x4c48 0x2000
tcblock mbipmacl 0x176D    0x01B2 0x1490 0x0003 0x00E4 \
                                0x4C48 0x2000 
#    SETREGS  $IPRL_VLCM_VEL       3 0xe4   0x4248 0x2000
tcblock mbipmacl 0x1773    0x01B2 0x148D 0x0003 0x00E4 \
                                0x4248 0x2000 
#    GOTO &COMMON_CODE
tcblock mbipmacl 0x1779    0x0156 0x177B 
#
#COMMON_CODE:
#
#    BRANCHEQ R3072  1 &FRM1		;save the continuum filtergram
tcblock mbipmacl 0x177B    0x01AE 0x0C00 0x0001 0x1788 
#    BRANCHEQ R3072  9 &FRM9		;make the velocity/linedepth
tcblock mbipmacl 0x177F    0x01AE 0x0C00 0x0009 0x1796 
#    BRANCHEQ R3072 10 &FRM10		;make the continuum
tcblock mbipmacl 0x1783    0x01AE 0x0C00 0x000A 0x17C0 
#    RTNQUE
tcblock mbipmacl 0x1787    0x01FA 
#
#FRM1:
#    SETREGS  $IPRL_FLTGRAM_PARAM 4 3:0x0000 19:0x0726		;set sourc
tcblock mbipmacl 0x1788    0x01B2 0x1238 0x0004 0x0000 \
                                0x1800 0x0726 0x9800 
#    COPYRD2D $IPRL_VLCM_CONT_FLT  $IPRL_FLTGRAM_PARAM+8 3 	;last 
tcblock mbipmacl 0x178F    0x0144 0x1487 0x1240 0x0003 
#    CALLQUE  $QSR_MK_FLTGRAM					;0.3 sec
tcblock mbipmacl 0x1793    0x01F8 0x11E3 
#
#    RTNQUE
tcblock mbipmacl 0x1795    0x01FA 
#
#FRM9:
#    ;---- Make velocity
#    SETREGS  $IPRL_VEL_PARAM   9  0:0x00514  1:0x00514  7:0x00726
tcblock mbipmacl 0x1796    0x01B2 0x1389 0x0009 0x0514 \
                                0x0000 0x0514 0x0800 0x0726 \
                                0x3800 0x0003 0x007F 0x0001 
#    COPYRD2D $IPRL_VLCM_VEL $IPRL_VEL_PARAM+9 3
tcblock mbipmacl 0x17A2    0x0144 0x148D 0x1392 0x0003 
#    SETREGS  $IPRL_VEL_PARAM+12 2  1 13
tcblock mbipmacl 0x17A6    0x01B2 0x1395 0x0002 0x0001 \
                                0x000D 
#    CALLQUE  $QSR_MK_VEL					;1.8 sec
tcblock mbipmacl 0x17AB    0x01F8 0x123F 
#
#    ;---- Line depth 
#    SETREGS  $IPRL_LDEP_PARAM    9 0:0x00514  1:0x00514 6:0x00726
tcblock mbipmacl 0x17AD    0x01B2 0x13CD 0x0009 0x0514 \
                                0x0000 0x0514 0x0800 0x0726 \
                                0x3000 0x0006 0x007F 0x0008 
#    COPYRD2D $IPRL_VLCM_LDEPTH $IPRL_LDEP_PARAM+9  3
tcblock mbipmacl 0x17B9    0x0144 0x1490 0x13D6 0x0003 
#    CALLQUE  $QSR_MK_LDEP					;0.6 sec
tcblock mbipmacl 0x17BD    0x01F8 0x1340 
#
#    RTNQUE
tcblock mbipmacl 0x17BF    0x01FA 
#
#FRM10:
#    ;---- Make the continuum observable
#    SETREGS  $IPRL_CONT_PARAM   10 3:0x00514  6:0x00726 2:0x00514
tcblock mbipmacl 0x17C0    0x01B2 0x13D9 0x000A 0x0514 \
                                0x1800 0x0726 0x3000 0x0514 \
                                0x1000 0x0726 0x2800 0x007F \
                                0x00B8 
#    COPYRD2D $IPRL_VLCM_CONT $IPRL_CONT_PARAM+10  3
tcblock mbipmacl 0x17CD    0x0144 0x148A 0x13E3 0x0003 
#    CALLQUE  $QSR_MK_CONT                                       ;
tcblock mbipmacl 0x17D1    0x01F8 0x1374 
#
#    RTNQUE
tcblock mbipmacl 0x17D3    0x01FA 
#=======================================================
#
return
#
#=======================================================
