; 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 starting point) ; 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) ; 6-Aug-96 (MDM) - Changed lindepth comp from e4 to e5 ; QSR_HR_VLC30:: SETREGS $IPRL_VLCM_CONT_FLT 3 0xe3 0x4048 0x2000 SETREGS $IPRL_VLCM_CONT 3 0xe3 0x4d48 0x2000 SETREGS $IPRL_VLCM_LDEPTH 3 0xe5 0x4448 0x2000 SETREGS $IPRL_VLCM_VEL 3 0xe4 0x4a48 0x2000 GOTO &COMMON_CODE QSR_FD_VLC30:: SETREGS $IPRL_VLCM_CONT_FLT 3 0xe3 0x404b 0x2000 SETREGS $IPRL_VLCM_CONT 3 0xe3 0x4648 0x2000 SETREGS $IPRL_VLCM_LDEPTH 3 0xe5 0x4c48 0x2000 SETREGS $IPRL_VLCM_VEL 3 0xe4 0x4248 0x2000 GOTO &COMMON_CODE COMMON_CODE: BRANCHEQ R3072 1 &FRM1 ;save the continuum filtergram BRANCHEQ R3072 9 &FRM9 ;make the velocity/linedepth BRANCHEQ R3072 10 &FRM10 ;make the continuum RTNQUE FRM1: SETREGS $IPRL_FLTGRAM_PARAM 4 3:0x0000 19:0x0726 ;set source page and destination pages COPYRD2D $IPRL_VLCM_CONT_FLT $IPRL_FLTGRAM_PARAM+8 3 ;last three words are n/k, dpc(h,l) CALLQUE $QSR_MK_FLTGRAM ;0.3 sec RTNQUE FRM9: ;---- Make velocity SETREGS $IPRL_VEL_PARAM 9 0:0x00514 1:0x00514 7:0x00726 3 127 1 COPYRD2D $IPRL_VLCM_VEL $IPRL_VEL_PARAM+9 3 SETREGS $IPRL_VEL_PARAM+12 2 1 13 CALLQUE $QSR_MK_VEL ;1.8 sec ;---- Line depth SETREGS $IPRL_LDEP_PARAM 9 0:0x00514 1:0x00514 6:0x00726 6 127 8 COPYRD2D $IPRL_VLCM_LDEPTH $IPRL_LDEP_PARAM+9 3 CALLQUE $QSR_MK_LDEP ;0.6 sec RTNQUE FRM10: ;---- Make the continuum observable SETREGS $IPRL_CONT_PARAM 10 3:0x00514 6:0x00726 2:0x00514 5:0x00726 127 184 ;CADC=2*92 COPYRD2D $IPRL_VLCM_CONT $IPRL_CONT_PARAM+10 3 CALLQUE $QSR_MK_CONT ;0.3 + 0.3 + 0.6 sec (2 extracts + CONT) RTNQUE