; setdpc ; Sets DPC's for structure data products ; ; This module changes the DPC fields in the HRDINIT register lists ; for high rate products and the corresponding fields in the LRDXFR ; RL's for the low rate products. ; ; This module must be called from 'runstr' after calls to 'str_rlinit' ; and 'init_mag'. ; ; V 0.00 - 10 Apr 96 Dnyanesh Mathur ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; DPC Changes: ; 1. 96/01/10 - Line depth shift count changed ; 2. 96/01/10 - RWBIN shift count changed ; 3. 96/01/17 - LOI-c List changed (shift count) ; 4. 96/01/19 - Size of Circular Buffer changed for both ; LOI-c and LOI-v. ; 5. 96/01/10 - New Limb Figure ; 6. 96/01/23 - Corrected High Rate Magnetogram DPC's ; 7 96/03/26 - Changed the sign of magnetograms ; 8. 96/04/05 - Structure Reload ; 9. 96/04/10 - New Velocity Table ; 10. 96/04/18 - Med-l Shift count change, New LF (R_inner = 484) ; 11. 96/04/23 - New LOI-c List, New Mag Proxy List ; 12. 96/05/16 - New LF List ; 13. 96/05/22 - New LOI-c List (MDM) ; 14. 96/10/03 - Fixed stored mag ; 15. 96/10/04 - Added DPC codes for partial mags ; 16. 96/11/06 - LOI time word corrected (P30) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; QPROG_SETDPC:: ; Velocity-60 SETREGS $IPRL_STR_V60HDR+4 2 0x4202 0x0FC0 ;; 9 ; SETREGS $IPRL_STR_V60HDR+4 2 0x4200 0x0FC0 ;; 0 ; ; Velocity-30 SETREGS $IPRL_STR_V30HDR+4 2 0x4242 0x0FC0 ;; 9 ; SETREGS $IPRL_STR_V30HDR+4 2 0x4240 0x0FC0 ;; 0 ; ; ; Continuum-60 ; SETREGS $IPRL_STR_IC60HDR+4 2 0x4602 0x0FC0 ;; 1 ; SETREGS $IPRL_STR_IC60HDR+4 2 0x4601 0x0FC0 ;; 1 ; SETREGS $IPRL_STR_IC60HDR+4 2 0x4600 0x0FC0 ; SETREGS $IPRL_STR_IC60HDR+4 2 0x4604 0x0FC0 ;; 8 ; SETREGS $IPRL_STR_IC60HDR+4 2 0x4605 0x1FC0 ;; 8 SETREGS $IPRL_STR_IC60HDR+4 2 0x4606 0x1FC0 ;; 8 Bit 0 <- 0 3-Mar-97 ; ; Continuum-30 ; SETREGS $IPRL_STR_IC30HDR+4 2 0x4642 0x0FC0 ;; 1 ; SETREGS $IPRL_STR_IC30HDR+4 2 0x4641 0x0FC0 ;; 1 ; SETREGS $IPRL_STR_IC30HDR+4 2 0x4640 0x0FC0 ; SETREGS $IPRL_STR_IC30HDR+4 2 0x4644 0x0FC0 ;; 8 SETREGS $IPRL_STR_IC30HDR+4 2 0x4645 0x1FC0 ;; 8 ; ; ; LineDepth-60 ; SETREGS $IPRL_STR_LD60HDR+4 2 0x4C00 0x0FC0 ;; 8 ; SETREGS $IPRL_STR_LD60HDR+4 2 0x4C05 0xAFC0 ;; 8 SETREGS $IPRL_STR_LD60HDR+4 2 0x4C06 0xAFC0 ;; 8 Bit 0 <- 0; 3-Mar-97 ; ; LineDepth-30 ; SETREGS $IPRL_STR_LD30HDR+4 2 0x4C40 0x0FC0 ;; 8 SETREGS $IPRL_STR_LD30HDR+4 2 0x4C45 0xAFC0 ;; 8 ; ; ; CB-LOIv (LOI-v, VEL) ; SETREGS $IPRL_STR_CBVHDR+4 2 0x43C1 0x9001 ;; 4 ; SETREGS $IPRL_STR_CBVHDR+4 2 0x43C0 0x9001 ; SETREGS $IPRL_STR_CBVHDR+4 2 0x43C2 0x9001 ;; 9 ; SETREGS $IPRL_STR_CBVHDR+4 2 0x43C2 0x9005 ;; 9 ; SETREGS $IPRL_STR_CBVHDR+4 2 0x43C2 0x9105 ;; 9 ; SETREGS $IPRL_STR_CBVDLP+7 2 0x43C2 0x9105 ;; 9 SETREGS $IPRL_STR_CBVDLP+7 2 0x43C2 0x9205 ;; 16 SETREGS $IPRL_STR_CBVHDR+4 2 0x43C2 0x9205 ;; 16 ; ; CB-LOIc ; SETREGS $IPRL_STR_CBIHDR+4 2 0x47C2 0x9002 ;; 4 ; SETREGS $IPRL_STR_CBIHDR+4 2 0x47C1 0x9002 ;; 3 ; SETREGS $IPRL_STR_CBIHDR+4 2 0x47C1 0x9001 ;; 1 ; SETREGS $IPRL_STR_CBIHDR+4 2 0x47C0 0x9001 ;; ; SETREGS $IPRL_STR_CBIHDR+4 2 0x47C4 0x9002 ;; 8 ; SETREGS $IPRL_STR_CBIHDR+4 2 0x47C5 0x9006 ;; 8 ; SETREGS $IPRL_STR_CBIHDR+4 2 0x47C5 0x9007 ;; 13 ; SETREGS $IPRL_STR_CBIHDR+4 2 0x47C5 0x9107 ;; 13 ; SETREGS $IPRL_STR_CBIDLP+7 2 0x47C5 0x9207 ;; 16 ; SETREGS $IPRL_STR_CBIDLP+7 2 0x47C6 0x9207 ;; 16 Cntnm Changed; 3-Mar-97 SETREGS $IPRL_STR_CBIHDR+4 2 0x47C6 0x9207 ;; " " " ; ; ; Magnetogram-Single ; SETREGS $IPRL_MAG_HDR1+4 2 0x4842 0x0FC0 ;; 7 ; SETREGS $IPRL_MAG_HDR1+4 2 0x4840 0x0FC0 ;; 6 ; SETREGS $IPRL_MAG_HDR1+4 2 0x4800 0x0FC0 ;; 0 ; SETREGS $IPRL_MAG_HDR1+4 2 0x4843 0x0FC0 ;; 9 SETREGS $IPRL_MAG_HDR1+4 2 0x4844 0x0FC0 ;; 9 ; ; Magnetogram-Stored SETREGS $IPRL_MAG_HDR+4 2 0x4946 0x0FC0 ;; 14 ; SETREGS $IPRL_MAG_HDR+4 2 0x4944 0x0FC0 ;; 9 ; SETREGS $IPRL_MAG_HDR+4 2 0x4943 0x0FC0 ;; 7 ; SETREGS $IPRL_MAG_HDR+4 2 0x4943 0x2000 ;; 7 ; SETREGS $IPRL_MAG_HDR+4 2 0x4940 0x0FC0 ;; 6 ; SETREGS $IPRL_MAG_HDR+4 2 0x4900 0x0FC0 ;; 0 ; ; Magnetogram-5K ; SETREGS $IPRL_MAG_5KPRM+10 2 0x0942 0x0FC0 ;; 7 ; SETREGS $IPRL_MAG_5KPRM+10 2 0x0940 0x0FC0 ;; 0 ; SETREGS $IPRL_MAG_5KPRM+10 2 0x0943 0x0FC0 ;; 9 ; SETREGS $IPRL_MAG_5KPRM+10 2 0x0944 0x0FC0 ;; 9 SETREGS $IPRL_MAG_5KPRM+10 2 0x0946 0x0FC0 ;; 9 ; ; Partial Magnetograms SETREGS $IPRL_STR_MAGDLP1+7 2 0x4946 0x0003 ;; 15 SETREGS $IPRL_STR_MAGDLP2+7 2 0x4946 0x0004 ;; 15 ; ; Medium-l ; SETREGS R370 2 0x0301 0x6005 ;; 9 ; SETREGS R370 2 0x0300 0x6005 ;; 8 ; SETREGS R370 2 0x0300 0x6001 ; SETREGS R370 2 0x0301 0x6006 ;; 10 SETREG R370 0x0302 ;; 10 ; ; Mag Proxy ; SETREGS R178 2 0x0584 0x5003 ;; 8 ; SETREGS R178 2 0x0581 0x5002 ;; 2 ; SETREGS R178 2 0x0581 0x5001 ; SETREGS R178 2 0x0584 0x5004 ;; 11 ; SETREG R178 0x0585 ;; 11 SETREG R178 0x0586 ;; Ldepth Change 3-Mar-97 ; ; Flux Budget ; SETREGS R242 2 0x0781 0x5002 ;; 2 ; SETREGS R242 2 0x0781 0x5001 ; SETREGS R242 2 0x0784 0x5002 ;; 8 ; SETREG R242 0x0785 ;; 8 SETREG R242 0x0786 ;; Continuum change, 3-Mar-97 ; ; Limb Figure ; SETREGS R306 2 0x1684 0xEF30 ;; 8 ; SETREGS R306 2 0x1181 0xCF50 ;; 5 ; SETREGS R306 2 0x1180 0xAFB0 ;; 0 ; SETREGS R306 2 0x1684 0xEF20 ;; 10 ; SETREGS R306 2 0x1685 0xEF20 ;; 10 ; SETREG R306 0x1685 ;; 12 SETREG R306 0x1686 ;; Continuum Change, 3-Mar-97 ; LOI-v ; SETREGS R426 2 0x0300 0x7005 ;; 8 ; SETREGS R426 2 0x0300 0x7003 ; SETREGS R426 2 0x0301 0x7005 ;; 9 SETREG R426 0x0302 ;; 9 ; ; LOI-c (Continuum, LineDepth) ; SETREGS R440 2 0x0704 0x7004 ;; 8 ; SETREGS R440 2 0x0701 0x7004 ;; 3 ; SETREGS R440 2 0x0701 0x7004 ;; 3 ; SETREGS R440 2 0x0701 0x7001 ; SETREGS R440 2 0x0704 0x7006 ;; 11 ; SETREG R440 0x0705 ;; 11 SETREG R440 0x0706 ;; Continuum Chnage, 3-Mar-97 ; ; Register Dump SETREGS R1156 2 0x2000 0x058C ;; 0 ; Error Dump SETREGS 470 2 0x2E00 0x0000 ;; 0 END