;{CR10X} ; ; ----------=== Druck Calibration Program ===------------- ; ;Redwood Sciences Lab ;USDA Forest Service ;R. Eads ;Revised: 8/16/00 ; ;For Druck 950 and 1830 pressure transducers ;Differential input connected to H1 L1, excite E1 ;Uses instruction P6, 4 wire bridge ;Results are displayed in Numeric window "avg_mv" ;Allow a min. of 30 sec. at each depth before recording value ;Program executes every 30 sec. ; *Table 1 Program 01: 15 Execution Interval (seconds) 1: Z=F (P30) 1: 0.0 F 2: 00 Exponent of 10 3: 1 Z Loc [ k ] 2: Z=F (P30) 1: 0.0 F 2: 00 Exponent of 10 3: 2 Z Loc [ tot_mv ] 3: Beginning of Loop (P87) 1: 0000 Delay 2: 150 Loop Count 4: Full Bridge (P6) 1: 1 Reps 2: 3 25 mV Slow Range 3: 1 DIFF Channel 4: 1 Excite all reps w/Exchan 1 5: 2500 mV Excitation 6: 3 Loc [ raw_mv ] 7: 1.0 Mult 8: 0.0 Offset ;Adds up total stage each time the loop is executed 5: Z=X+Y (P33) 1: 3 X Loc [ raw_mv ] 2: 2 Y Loc [ tot_mv ] 3: 2 Z Loc [ tot_mv ] 6: Z=X+F (P34) 1: 1 X Loc [ k ] 2: 1 F 3: 1 Z Loc [ k ] 7: End (P95) ;Divide total raw stage by k to get average raw stage 8: Z=X/Y (P38) 1: 2 X Loc [ tot_mv ] 2: 1 Y Loc [ k ] 3: 4 Z Loc [ avg_mv ] 9: Do (P86) 1: 10 Set Output Flag High (Flag 0) ; set flag to write out data 10: Real Time (P77) 1: 1120 (Same as 1220) Y,D,Hr/Mn ; write date/time to record *Table 2 Program 02: 0.0000 Execution Interval (seconds) *Table 3 Subroutines End Program -Input Locations- 1 k 1 2 2 2 tot_mv 1 2 2 3 raw_mv 1 1 1 4 avg_mv 1 0 1 5 _________ 0 0 0 6 _________ 0 0 0 7 _________ 0 0 0 8 _________ 0 0 0 9 _________ 0 0 0 10 _________ 0 0 0 11 _________ 0 0 0 12 _________ 0 0 0 13 _________ 0 0 0 14 _________ 0 0 0 15 _________ 0 0 0 16 _________ 0 0 0 17 _________ 0 0 0 18 _________ 0 0 0 19 _________ 0 0 0 20 _________ 0 0 0 21 _________ 0 0 0 22 _________ 0 0 0 23 _________ 0 0 0 24 _________ 0 0 0 25 _________ 0 0 0 26 _________ 0 0 0 27 _________ 0 0 0 28 _________ 0 0 0 -Program Security- 0000 0000 0000 -Mode 4- -Final Storage Area 2- 0 -CR10X ID- 0 -CR10X Power Up- 3