;============================================================== ; str_rlinit - Initializes Register lists for structure program ; ; v00 - Dec 96 Dnyanesh Mathur ; ; V01 - 5 Jan 95 Dnyanesh Mathur ; 1. Changed shift count for line depth from 9 to 11 to ; take into account the higher flux seen by the flight ; instrument. Also changed dpc's for Continuum, Mag Proxy ; Flux budget and LOI-c Circular Buffer. ; ; V02 - 16 Jan 96 Dnyanesh Mathur ; 1. Changed "List Count" parameter for all RWBIN Register Lists. ; 2. Changed "Max Index" parameter for Circular Buffer RL. ; ; V05 - 29 Feb 96 Dnyanesh Mathur ; 1. Med-l is constructed in 11:0x110000 instead of 7:0x110000, ; as there is insufficient space available on page 7 for ; the expanded version of med-l. ; ; V06 - 14 Mar 96 Dnyanesh Mathur ; 1. Modified weight tables for the Time weighted averages. ; ; V07 - 2 Apr 96 Dnyanesh Mathur ; 1. Flat Field Table initialization removed from DAINIT routine. ; 2. Set Shift count of 14 for FLATFLD instruction. ; ; V13 - 10 May 96 Dnyanesh Mathur ; 1. Flat Field Table moved to page 12 and Circular Buffer data to 14. ; Page 10 now contains a backup copy of the flat field. ; ; V15 - 23 Jul 96 Dnyanesh Mathur ; 2. Changed VWBIN list count parameter to 2 and NVWBIN to 19. This ; means that the Med-l DP is constructed by 19 calls with each ; call taking approximately 160ms. ; ;-------------------------------------------------------------- ; ; Regsiter Usage: ; ; Registers Usage ; 168 - 183 Mag Proxy LRDXFR #1 ; 184 - 199 TWAVG #1 ; 200 - 215 TWAVG #2 ; 216 - 223 Copy List to 1 ; 224 - 231 Copy List to 2 ; ; 232 - 247 Flux Budget LRDXFR #1 ; 248 - 263 TWAVG #1 ; 264 - 279 TWAVG #2 ; 280 - 287 Copy List to 1 ; 288 - 295 Copy List to 2 ; ; 296 - 311 Limb Figure LRDXFR #1 ; 312 - 327 TWAVG #1 ; 328 - 343 TWAVG #2 ; 344 - 351 Copy List to 1 ; 352 - 359 Copy List to 2 ; ;-------------------------------------------------------------- ; Register List Assignments: ; ; Register List Length Description ; 1. R728 24 Weight Table used for MP TWA ; 2. R752 24 Weight Table used for FB TWA ; 3. R776 24 Weight Table used for LF TWA ; ; R1024 8 Mag Proxy 1 ; R1032 8 Mag Proxy 2 ; R1040 8 Flux Budget 1 ; R1048 8 Flux Budget 2 ; R1056 8 Limb Figure 1 ; R1064 8 Limb Figure 2 ; R1072 8 Medium-l ; R1080 9 Flat fielding fro FB ; R1092 8 Bad Pix Correction for Med-l ; R1100 9 Flat Field Correction for MP ; ; R1116 5 Copy Vel Table to working area ; R1124 5 Copy Recip Table to working area ; R1132 8 Velocity Table ; R1140 9 Line Depth Register List ; ; R3040 9 L-Depth Flat Field for Mag Proxy ; R3052 8 Bad Pixel correction fro Med-l ; R3060 9 Continuum Flat Field for FB ; ;-------------------------------------------------------------- ; QSR_STR_RLINIT:: ; BRANCHIF $IPRF_STR_REGINI &DO_REGINI ; RTNQUE END ; ;..................................... ; DO_REGINI: SETREG $IPRF_STR_REGINI 1 ; SETREGS R21 3 0xFFFF 0 0 ; ;..................................... ; Velocity Register List: SETREGS $IPRL_STR_VEL60 8 0:0x00514 1:0x00514 5:0x00000 2 127 SETREGS $IPRL_STR_VEL30 8 0:0x00514 1:0x00514 5:0x00000 3 127 ; ; Line Depth Register List: SETREGS $IPRL_STR_LD60 9 0:0x00514 1:0x00514 6:0x00000 6 127 8 SETREGS $IPRL_STR_LD30 9 0:0x00514 1:0x00514 6:0x00000 6 127 8 ; ; Initalizes Register Sets R168-R231, R232-R295, R296-R359 ; ; Line Depth ; ; LRDXFR R168 ; NpixTotal 0 ; NpixSeg 0 ; Seqment 12 ; Source 14:0xE0000 ; MaxSource 960 ; N 0 ; K 0 ; SegLength 960 ; DPID 0xBFFFFFB1L ; NPixImage 11520L ; ; SETREGS R168 9 0 0 0 12 14:0xC7C00 960 0 0 ; LRDXFR Registers ; SETREGS R177 5 960 0xBFFF 0xFFB1 11520 0 ; ; Initialize registers to create two sets of Time Weighted Averages SETREGS R728 8 41 102 232 483 924 1622 2610 3852 SETREGS R736 8 5214 6472 7369 7694 7369 6472 5214 3852 SETREGS R744 8 2610 1622 924 483 232 102 41 0 SETREGS R184 6 7:0x118000 14:0xC0000 14:0xB0000 SETREGS R190 6 0x4000L R728 0 24 0 SETREGS R200 6 7:0x11C000 14:0xC8000 14:0xB0000 SETREGS R206 6 0x4000L R728 12 24 0 ; ; Initialize Registers to copy Commanded LF List to working area ; SETREGS R216 6 14:0x11000 14:0x18000 0x1000L ; SETREGS R224 6 14:0x11000 14:0x1F000 0x1000L ; ; Continuum Intensity ; ; LRDXFR R232 ; NpixTotal 0 ; NpixSeg 0 ; Seqment 12 ; Source 14:0xE2D00 ; MaxSource 960 ; N 0 ; K 0 ; SegLength 960 ; DPID 0xBFFFFFB1L ; NPixImage 11520L ; ; SETREGS R232 9 0 0 0 12 14:0xD8A00 960 0 0 ; LRDXFR Registers ; SETREGS R241 5 960 0xBFFF 0xFFB2 11520 0 ; ; Initialize registers to create two sets of Time Weighted Averages SETREGS R752 8 41 102 232 483 924 1622 2610 3852 SETREGS R760 8 5214 6472 7369 7694 7369 6472 5214 3852 SETREGS R768 8 2610 1622 924 483 232 102 41 0 SETREGS R248 6 5:0x118000 14:0xD0000 14:0xB4000 SETREGS R254 6 0x4000L R752 0 24 0 SETREGS R264 6 5:0x11C000 14:0xD8000 14:0xB4000 SETREGS R270 6 0x4000L R752 12 24 0 ; ; Initialize Registers to copy Commanded LF List to working area ; SETREGS R280 6 14:0x21000 14:0x28000 0x1000L ; SETREGS R288 6 14:0x21000 14:0x16000 0x1000L ; ; Limb Figure ; ; LRDXFR R296 ; NpixTotal 0 ; NpixSeg 0 ; Seqment 12 ; Source 14:0xE5A00 ; MaxSource 1280 ; N 0 ; K 0 ; SegLength 1280 ; DPID 0xBFFFFFB1L ; NPixImage 15360L ; ; SETREGS R296 9 0 0 0 12 14:0xE9800 1280 0 0 ; LRDXFR Registers #1 ; SETREGS R305 5 1280 0xBFFF 0xFFB3 15360 16 ; ; ; Initialize registers to create two sets of Time Weighted Averages SETREGS R776 8 41 102 232 483 924 1622 2610 3852 SETREGS R784 8 5214 6472 7369 7694 7369 6472 5214 3852 SETREGS R792 8 2610 1622 924 483 232 102 41 0 SETREGS R312 6 6:0x110000 14:0xE0000 14:0xB8000 SETREGS R318 6 0x6000L R776 0 24 2 SETREGS R328 6 6:0x116000 14:0xEC000 14:0xB8000 SETREGS R334 6 0x6000L R776 12 24 2 ; ; Initialize Registers to copy Commanded LF List to working area SETREGS R344 6 14:0x01000 14:0x03000 0x2000L SETREGS R352 6 14:0x01000 14:0x05000 0x2000L ; ; Set initial operating parameters ; _COPYLST R216 ;MP RWBIN 1 <-- New MP RWBIN ; _COPYLST R224 ;MP RWBIN 2 <-- New MP RWBIN ; _COPYLST R280 ;FB RWBIN 1 <-- New FB RWBIN ; _COPYLST R288 ;FB RWBIN 2 <-- New FB RWBIN _COPYLST R344 ; LFCropList1 <- New LF Crop List _COPYLST R352 ; LFCropList1 <- New LF Crop List ; COPYRD2D R168 R374 14 ; L-Depth initial Value Reg Bank -> working set COPYRD2D R232 R388 14 ; Continuum Intensity register set COPYRD2D R296 R402 14 ; Set LRDXFR from set 1 COPYRD2D R296 $IPRL_STR_LFLRD1 14 ; Set LRDXFR from set 1 COPYRD2D R296 $IPRL_STR_LFLRD2 14 ; Set LRDXFR from set 1 ; COPYRD2D R184 R908 12 ; Reset MP TWA parameter set #1 COPYRD2D R200 R928 12 ; Reset MP TWA parameter set #1 COPYRD2D R248 R960 12 ; Reset FB TWA parameter set #1 COPYRD2D R264 R980 12 ; Reset FB TWA parameter set #1 COPYRD2D R312 R864 12 ; Reset LF TWA parameter set #1 COPYRD2D R328 R888 12 ; Reset LF TWA parameter set #1 ; ; Initialize Register Lists ; ; Magnetic Proxy SETREGS R1024 8 0x2000 7:0x118000 0 8 14:0x11000 R69 SETREGS R1032 8 0x2000 7:0x11C000 0 8 14:0x11000 R69 SETREGS R3040 9 6:0x00000 12:0x00000 4:0x00000 0x100000L 2 ; ; Flux Budget SETREGS R1040 8 0x2000 5:0x118000 0 8 14:0x21000 R69 SETREGS R1048 8 0x2000 5:0x11C000 0 8 14:0x21000 R69 SETREGS R3060 9 7:0x00000 12:0x000000 4:0x00000 0x100000L 2 ; ; Limb Figure ; SETREGS R1056 8 0x5800 6:0x110000 0 2000 14:0x03000 R69 SETREGS R1056 8 0x3800 6:0x110000 0 2000 14:0x03000 R69 ; SETREGS R1064 8 0x5000 6:0x116000 0 2000 14:0x05000 R69 SETREGS R1064 8 0x3800 6:0x116000 0 2000 14:0x05000 R69 ; ; Medium-l ; SETREGS R1072 8 0x2000 11:0x110000 0 0x000A 14:0x40000 R69 SETREGS R1072 8 0x2000 11:0x110000 0 0x0002 14:0x40000 R69 SETREGS R3052 8 5:0x00000 12:0x000000 4:0x00000 0x100000L ; SETREGS $IPRL_STR_MKLOIV 8 0x2000 7:0x114740 0 45 14:0x034000 R69 SETREGS $IPRL_STR_MKLOIC 8 0x2000 5:0x114920 0 45 14:0x030000 R69 ; ; Register lists for copying Reciprocal and Velocity ; tables to working area SETREGS R1116 5 0x8000 0x0002 0x8000 0x800A 4 ; Vel SETREGS R1124 5 0x8000 0x0009 0x0000 0x800A 4 ; Recip ; SETREGS R1116 5 0x0000 0x000B 0x8000 0x800A 4 ; SETREGS R1124 5 0x8000 0x0009 0x0000 0x800A 4 ; ; Register List for Error log dump SETREGS R460 9 0 0 0 1 4:0x110000 4800 0 0 SETREGS R469 5 4800 0x2E00 0x0000 4800 0 ; ; Register Dump data product SETREGS $IPRL_STR_RDUMP 6 0 0 0 1 7:0x113C00 SETREGS $IPRL_STR_RDUMP+6 6 94 0 0 94 0x2000 0x0000 SETREGS $IPRL_STR_RDUMP+12 2 94 0 ; ; Camera Header Dump SETREG R0115 3895 SETREGS $IPRL_STR_CAMHDR 6 0 0 0 1 6:0x11FF38 SETREGS $IPRL_STR_CAMHDR+6 6 200 0 0 200 0x2100 0x0000 SETREGS $IPRL_STR_CAMHDR+12 2 200 0 ; ; LOI -> Circ. Buff. Copy SETREGS $IPRL_STR_LOIC2CB 8 5:0x11491C 14:0x066230 184L 0 800 SETREGS $IPRL_STR_LOIV2CB 8 7:0x11473C 14:0x08B230 184L 0 800 SETREGS R562 2 0x20000L ; ; HRDINIT Register Lists (The DPC is loaded by setdpc) SETREGS $IPRL_STR_V60HDR 4 0:0x00001 0x2000 0xE4 ; 0x4201 0x0FC0 SETREGS $IPRL_STR_V30HDR 4 0:0x00001 0x2000 0xE4 ; 0x4241 0x0FC0 SETREGS $IPRL_STR_IC60HDR 4 0:0x00001 0x2000 0xE2 ; 0x4604 0x0FC0 SETREGS $IPRL_STR_IC30HDR 4 0:0x00001 0x2000 0xE2 ; 0x4644 0x0FC0 SETREGS $IPRL_STR_LD60HDR 4 0:0x00001 0x2000 0xE2 ; 0x4C00 0x0FC0 SETREGS $IPRL_STR_LD30HDR 4 0:0x00001 0x2000 0xE2 ; 0x4C40 0x0FC0 SETREGS $IPRL_STR_CBVHDR 4 11:0x00001 0x3000 0 ; 0x43C2 0x9001 SETREGS $IPRL_STR_CBIHDR 4 11:0x00001 0x3000 0 ; 0x47C4 0x9002 ; ; ; Continuum Register Lists SETREGS $IPRL_STR_EXTRSD 8 2:0x00514 11:0x00000 1024 1024 1040 69 SETREGS $IPRL_STR_EXTRSI 8 3:0x00514 4:0x00226 1024 1024 1040 69 SETREGS $IPRL_STR_MKIC 8 4:0x00226 6:0x00000 11:0x00000 7:0x00000 SETREGS $IPRL_STR_MKIC+8 2 63 200 ; SETREG $IPRL_STR_CADC60 368 SETREG $IPRL_STR_CADC30 184 SETREG $IPRL_STR_SCLF 1 SETREG $IPRL_STR_ICLDOPT 1 SETREG $IPRL_STR_NRWBIN 3 SETREG $IPRL_STR_NVWBIN 19 SETREG $IPRL_STR_LRDXFR_N 8 ; ; Clear TWA Accumulation Buffers FILLBLK 7:0x00000 0x100000L 0 ; P0 <= 0 SETREGS R500 6 7:0x00000 14:0xB0000 0x38200L ; P0 -> P17 DAT2LST R500 ; RTNQUE END ; ; ; ;................................................................. ; ; ; 5k Data: ; Medium-l 80% 15360 ; Limb Figure 5% 960 (Time Wtd. Avg) ; Line Depth 5% 960 ( " " " ) ; Continuum 5% 960 ( " " " ) ; LOI-V 2.5% 480 ; LOI-C 2.5% 480 ; ; ; Map of List Memory: ; ; Address Range Description ; 14:0x000000 Full Disk Crop List ; 14:0x001000 Limb Figure Crop List ; 14:0x003000 LF List #1 ; 14:0x005000 LF List #2 ; 14:0x007000 Vector Weighted Bin List (Med-l) ; 14:0x011000 Rectangular Weighted Bin List (Mag Proxy) ; 14:0x021000 RWBin List (Flux Budget) ; ; 14:0x0C7C00 Line Depth Output Buffer #1 ; 14:0x0CA900 Line Depth Accumulation Buffer #1 ; 14:0x0D0300 Line Depth Output Buffer #2 ; 14:0x0D3000 Line Depth Accumulation Buffer #2 ; 14:0x0D8A00 Continuum Intensity Output Buffer #1 ; 14:0x0DB700 Continuum Intensity Acc. Buffer #1 ; 14:0x0E1100 Continuum Intensity Output Buffer #2 ; 14:0x0E3E00 Continuum Intensity Acc. Buffer #2 ; 14:0x0E9800 Limb Figure Output Buffer #1 ; 14:0x0ED400 Limb Figure Acc. Buffer #1 ; 14:0x0F4C00 Limb Figure Output Buffer #2 ; 14:0x0F8800 Limb Figure Acc. Buffer #2 ; ; 2 Mar 95: Use a single output buffer for TWA DP.'s. ; 6 Mar 95: Reassigned Register banks to eliminate 2nd LRDXFR ; Assigned List copying registers to start at ; 4 Register boundry. ;........................................................... QSR_STR_DAINIT:: END ;============================================================