# File: setdpc_v05.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/setdpc_v05.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#; setdpc
#; Sets DPC's for structure data products
#;
#; This module changes the DPC fields in the HRDINIT register list
#; for high rate products and the corresponding fields in the LRDX
#; RL's for the low rate products. 
#;
#; This module must be called from 'runstr' after calls to 'str_rl
#; 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
#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#
#
#; Velocity-60
#  SETREGS $IPRL_STR_V60HDR+4 2 0x4202 0x0FC0   ;;   9
tcblock mbipmacl 0x0F80    0x01B2 0x05EC 0x0002 0x4202 \
                                0x0FC0 
#; SETREGS $IPRL_STR_V60HDR+4 2 0x4200 0x0FC0   ;;   0
#; 
#; Velocity-30
#  SETREGS $IPRL_STR_V30HDR+4 2 0x4242 0x0FC0   ;;   9
tcblock mbipmacl 0x0F85    0x01B2 0x05F4 0x0002 0x4242 \
                                0x0FC0 
#; 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 
tcblock mbipmacl 0x0F8A    0x01B2 0x05FC 0x0002 0x4605 \
                                0x1FC0 
#; 
#; 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
tcblock mbipmacl 0x0F8F    0x01B2 0x0604 0x0002 0x4645 \
                                0x1FC0 
#; 
#;
#; LineDepth-60
#; SETREGS $IPRL_STR_LD60HDR+4 2 0x4C00 0x0FC0   ;;   8 
#  SETREGS $IPRL_STR_LD60HDR+4 2 0x4C05 0xAFC0   ;;   8 
tcblock mbipmacl 0x0F94    0x01B2 0x0685 0x0002 0x4C05 \
                                0xAFC0 
#;
#; LineDepth-30
#; SETREGS $IPRL_STR_LD30HDR+4 2 0x4C40 0x0FC0   ;;   8 
#  SETREGS $IPRL_STR_LD30HDR+4 2 0x4C45 0xAFC0   ;;   8 
tcblock mbipmacl 0x0F99    0x01B2 0x068B 0x0002 0x4C45 \
                                0xAFC0 
#;
#;
#; 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
tcblock mbipmacl 0x0F9E    0x01B2 0x0660 0x0002 0x43C2 \
                                0x9005 
#; 
#; 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
tcblock mbipmacl 0x0FA3    0x01B2 0x0666 0x0002 0x47C5 \
                                0x9006 
#; 
#;
#; 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
tcblock mbipmacl 0x0FA8    0x01B2 0x063E 0x0002 0x4844 \
                                0x0FC0 
#;
#; Magnetogram-Stored
#  SETREGS $IPRL_MAG_HDR+4 2 0x4944 0x0FC0   ;;   9
tcblock mbipmacl 0x0FAD    0x01B2 0x0542 0x0002 0x4944 \
                                0x0FC0 
#; 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
tcblock mbipmacl 0x0FB2    0x01B2 0x0672 0x0002 0x0944 \
                                0x0FC0 
#;
#;
#; 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
#  SETREGS  R370 2 0x0302 0x6007   ;;   10
tcblock mbipmacl 0x0FB7    0x01B2 0x0172 0x0002 0x0302 \
                                0x6007 
#;
#; 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
#  SETREGS  R178 2 0x0585 0x5005   ;;   11
tcblock mbipmacl 0x0FBC    0x01B2 0x00B2 0x0002 0x0585 \
                                0x5005 
#;
#; Flux Budget
#; SETREGS  R242 2 0x0781 0x5002   ;;   2
#; SETREGS  R242 2 0x0781 0x5001
#; SETREGS  R242 2 0x0784 0x5002   ;;   8
#  SETREGS  R242 2 0x0785 0x5002   ;;   8
tcblock mbipmacl 0x0FC1    0x01B2 0x00F2 0x0002 0x0785 \
                                0x5002 
#;
#; 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
#  SETREGS  R306 2 0x1685 0xEF18   ;;   12
tcblock mbipmacl 0x0FC6    0x01B2 0x0132 0x0002 0x1685 \
                                0xEF18 
#
#; LOI-v
#; SETREGS  R426 2 0x0300 0x7005   ;;   8
#; SETREGS  R426 2 0x0300 0x7003
#; SETREGS  R426 2 0x0301 0x7005   ;;   9
#  SETREGS  R426 2 0x0302 0x7005   ;;   9
tcblock mbipmacl 0x0FCB    0x01B2 0x01AA 0x0002 0x0302 \
                                0x7005 
#;
#; 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
#  SETREGS  R440 2 0x0705 0x7006   ;;   11
tcblock mbipmacl 0x0FD0    0x01B2 0x01B8 0x0002 0x0705 \
                                0x7006 
#;
#; Register Dump
#  SETREGS R1156 2 0x2000 0x058C   ;;   0
tcblock mbipmacl 0x0FD5    0x01B2 0x0484 0x0002 0x2000 \
                                0x058C 
#
#; Error Dump
#  SETREGS  470 2 0x2E00 0x0000   ;;   0
tcblock mbipmacl 0x0FDA    0x01B2 0x01D6 0x0002 0x2E00 \
                                0x0000 
#
#  END
tcblock mbipmacl 0x0FDF    0x01FC 
#=======================================================
#
return
#
#=======================================================
