; NOTE: the following CSI logger program annotations may contain errors.
; From an experimental perl module, Campbell::Program, by fnkci@uaf.edu
; output generated on host shand at Fri Sep  5 07:07:34 2008 local time


MODE 13
13:00  1
01:}
MODE 14

MODE 1
SCAN RATE 5
1:P30     ; Z=F*10^exp
1:3128    ;     fixed value 3128
2:0       ;     times 1 (10^0)
3:10      ;     store 3128 in location 10

2:P4      ; EX-DEL-SE
1:1       ;     1 repetition
2:5       ;     using 2500 mV range, slow integration
3:11      ;     from input channel SE11
4:3       ;     drive excitation channel E3
5:1       ;     with delay 0.01 sec
6:2500    ;     with 2500 mV excitation
7:1       ;     store result in location 1
8:.0004   ;     with multiplier * 0.0004
9:0       ;     and with offset + 0

3:P59     ; BRIDGE TRANSFORM, Rs=Rf(X/(1-X))
1:1       ;     1 repetition
2:1       ;     Rs replaces X in location 1
3:10      ;     with multiplier Rf = 10

4:P37     ; Z=X*F
1:1       ;     X value from location 1
2:.057    ;     fixed value 0.057
3:2       ;     store product in location 2

5:P34     ; Z=X+F
1:2       ;     X value from location 2
2:-2.24   ;     fixed value -2.24
3:2       ;     store sum in location 2

6:P4      ; EX-DEL-SE
1:1       ;     1 repetition
2:5       ;     using 2500 mV range, slow integration
3:12      ;     from input channel SE12
4:3       ;     drive excitation channel E3
5:1       ;     with delay 0.01 sec
6:2500    ;     with 2500 mV excitation
7:4       ;     store result in location 4
8:.0004   ;     with multiplier * 0.0004
9:0       ;     and with offset + 0

7:P59     ; BRIDGE TRANSFORM, Rs=Rf(X/(1-X))
1:1       ;     1 repetition
2:4       ;     Rs replaces X in location 4
3:15.04   ;     with multiplier Rf = 15.04

8:P37     ; Z=X*F
1:4       ;     X value from location 4
2:.10614  ;     fixed value 0.10614
3:5       ;     store product in location 5

9:P34     ; Z=X+F
1:5       ;     X value from location 5
2:-3.89   ;     fixed value -3.89
3:5       ;     store sum in location 5

10:P87    ; LOOP
1:0       ;     execute on every pass
2:5       ;     for 5 iterations

11:P6     ;     FULL BR
1:1       ;         1 repetition
2:23      ;         using 25 mV range, reject 60 Hz
3:1       ;         from input channel DIFF1
4:1       ;         drive excitation channel E1
5:2500    ;         with 2500 mV excitation
6:11--    ;         store result in locations 11 through 15
7:2.6384  ;         with multiplier * 2.6384
8:1.8913  ;         and with offset + 1.8913

12:P95    ; END LOOP

13:P87    ; LOOP
1:0       ;     execute on every pass
2:5       ;     for 5 iterations

14:P6     ;     FULL BR
1:1       ;         1 repetition
2:25      ;         using 2500 mV range, reject 60 Hz
3:2       ;         from input channel DIFF2
4:1       ;         drive excitation channel E1
5:2500    ;         with 2500 mV excitation
6:16--    ;         store result in locations 16 through 20
7:1       ;         with multiplier * 1
8:.5935   ;         and with offset + 0.5935

15:P95    ; END LOOP

16:P51    ; SPA AVG
1:5       ;     process 5 values starting from
2:11      ;     location 11
3:21      ;     store result in location 21

17:P34    ; Z=X+F
1:21      ;     X value from location 21
2:-1.05   ;     fixed value -1.05
3:21      ;     store sum in location 21

18:P51    ; SPA AVG
1:5       ;     process 5 values starting from
2:16      ;     location 16
3:23      ;     store result in location 23

19:P34    ; Z=X+F
1:23      ;     X value from location 23
2:0       ;     fixed value 0
3:23      ;     store sum in location 23

20:P4     ; EX-DEL-SE
1:1       ;     1 repetition
2:5       ;     using 2500 mV range, slow integration
3:5       ;     from input channel SE5
4:2       ;     drive excitation channel E2
5:10      ;     with delay 0.1 sec
6:2000    ;     with 2000 mV excitation
7:22      ;     store result in location 22
8:.0005   ;     with multiplier * 0.0005
9:0       ;     and with offset + 0

21:P59    ; BRIDGE TRANSFORM, Rs=Rf(X/(1-X))
1:1       ;     1 repetition
2:22      ;     Rs replaces X in location 22
3:9.98    ;     with multiplier Rf = 9.98

22:P4     ; EX-DEL-SE
1:1       ;     1 repetition
2:5       ;     using 2500 mV range, slow integration
3:6       ;     from input channel SE6
4:2       ;     drive excitation channel E2
5:10      ;     with delay 0.1 sec
6:2000    ;     with 2000 mV excitation
7:24      ;     store result in location 24
8:.0005   ;     with multiplier * 0.0005
9:0       ;     and with offset + 0

23:P59    ; BRIDGE TRANSFORM, Rs=Rf(X/(1-X))
1:1       ;     1 repetition
2:24      ;     Rs replaces X in location 24
3:9.97    ;     with multiplier Rf = 9.97

24:P92    ; IF TIME
1:0       ;     is 0 minutes into
2:15      ;     15 minute interval
3:10      ;     set output flag F0 high, output array id 124

25:P70    ; SAMPLE
1:1       ;     1 repetition
2:10      ;     value from location 10

26:P77    ; REAL TIME
1:1210    ;     year + day(midnight=prev.day) + hour-minute(midnight=2400)

27:P70    ; SAMPLE
1:1       ;     1 repetition
2:2       ;     value from location 2

28:P70    ; SAMPLE
1:1       ;     1 repetition
2:5       ;     value from location 5

29:P71    ; AVERAGE
1:1       ;     1 repetition
2:21      ;     value from location 21

30:P70    ; SAMPLE
1:1       ;     1 repetition
2:22      ;     value from location 22

31:P70    ; SAMPLE
1:1       ;     1 repetition
2:23      ;     value from location 23

32:P70    ; SAMPLE
1:1       ;     1 repetition
2:24      ;     value from location 24

33:P91    ; IF FLAG/PORT
1:51      ;     if port C1 is low
2:30      ;     then DO...

34:P96    ;     SERIAL OUT
1:71      ;         storage module 1

35:P95    ; END IF-DO

36:P0     ; NOP

MODE 2
SCAN RATE 60
1:P10     ; BATT VOLT
1:27      ;     store in location 27

2:P17     ; INTERNAL TEMP
1:28      ;     store in location 28

3:P20     ; PORT SET
1:9999    ;     P8=nc, P7=nc, P6=nc, P5=nc
2:9997    ;     P4=nc, P3=nc, P2=nc, P1=output

4:P92     ; IF TIME
1:1       ;     is 1 minute into
2:60      ;     60 minute interval
3:30      ;     then DO...

5:P89     ;     IF X < = > F
1:27      ;         if X from location 27
2:4       ;         is <
3:12.2    ;         fixed value 12.2
4:21      ;         set flag F1 low

6:P89     ;     IF X < = > F
1:27      ;         if X from location 27
2:3       ;         is >=
3:12.1    ;         fixed value 12.1
4:41      ;         set port C1 high

7:P95     ; END IF-DO

8:P92     ; IF TIME
1:750     ;     is 750 minutes into
2:1440    ;     1440 minute interval
3:41      ;     set port C1 high

9:P91     ; IF FLAG/PORT
1:21      ;     if flag F1 is low
2:30      ;     then DO...

10:P92    ;     IF TIME
1:10      ;         is 10 minutes into
2:60      ;         60 minute interval
3:51      ;         set port C1 low

11:P95    ; END IF-DO

12:P92    ; IF TIME
1:0       ;     is 0 minutes into
2:60      ;     60 minute interval
3:10      ;     set output flag F0 high, output array id 212

13:P70    ; SAMPLE
1:1       ;     1 repetition
2:10      ;     value from location 10

14:P77    ; REAL TIME
1:1210    ;     year + day(midnight=prev.day) + hour-minute(midnight=2400)

15:P71    ; AVERAGE
1:1       ;     1 repetition
2:2       ;     value from location 2

16:P71    ; AVERAGE
1:1       ;     1 repetition
2:5       ;     value from location 5

17:P71    ; AVERAGE
1:4       ;     4 repetitions
2:21      ;     value from location 21

18:P73    ; MAXIMUM
1:1       ;     1 repetition
2:10      ;     output value and event-time as hour_minute
3:2       ;     value from location 2

19:P73    ; MAXIMUM
1:1       ;     1 repetition
2:10      ;     output value and event-time as hour_minute
3:5       ;     value from location 5

20:P73    ; MAXIMUM
1:1       ;     1 repetition
2:10      ;     output value and event-time as hour_minute
3:21      ;     value from location 21

21:P73    ; MAXIMUM
1:1       ;     1 repetition
2:10      ;     output value and event-time as hour_minute
3:23      ;     value from location 23

22:P71    ; AVERAGE
1:2       ;     2 repetitions
2:27      ;     value from location 27

23:P91    ; IF FLAG/PORT
1:51      ;     if port C1 is low
2:30      ;     then DO...

24:P96    ;     SERIAL OUT
1:71      ;         storage module 1

25:P95    ; END IF-DO

26:P92    ; IF TIME
1:25      ;     is 25 minutes into
2:30      ;     30 minute interval
3:30      ;     then DO...

27:P34    ;     Z=X+F
1:28      ;         X value from location 28
2:273.15  ;         fixed value 273.15
3:31      ;         store sum in location 31

28:P105   ;     SDI-12 RECORDER
1:0       ;         address 0
2:0       ;         command M, initiate measurement
3:5       ;         port C5
4:32      ;         store result in location 32
5:-1      ;         with multiplier * -1
6:0       ;         and with offset + 0

29:P34    ;     Z=X+F
1:32      ;         X value from location 32
2:0       ;         fixed value 0
3:30      ;         store sum in location 30

30:P30    ;     Z=F*10^exp
1:273.15  ;         fixed value 273.15
2:0       ;         times 1 (10^0)
3:33      ;         store 273.15 in location 33

31:P38    ;     Z=X/Y
1:31      ;         X value from location 31
2:33      ;         Y value from location 33
3:34      ;         store ratio in location 34

32:P39    ;     Z=SQRT(X)
1:34      ;         X value from location 34
2:34      ;         store square root in location 34

33:P36    ;     Z=X*Y
1:32      ;         X value from location 32
2:34      ;         Y value from location 34
3:32      ;         store product in location 32

34:P34    ;     Z=X+F
1:32      ;         X value from location 32
2:.9      ;         fixed value 0.9
3:35      ;         store sum in location 35

35:P95    ; END IF-DO

36:P92    ; IF TIME
1:0       ;     is 0 minutes into
2:60      ;     60 minute interval
3:10      ;     set output flag F0 high, output array id 236

37:P77    ; REAL TIME
1:1210    ;     year + day(midnight=prev.day) + hour-minute(midnight=2400)

38:P70    ; SAMPLE
1:6       ;     6 repetitions
2:30      ;     value from location 30

39:P0     ; NOP

MODE 3
1:P0      ; NOP

MODE 10
1:54
2:200
3:1000
4:572441
5:2048

MODE 12
1:0
1:0
1:0

MODE 13
13:8
8:0

MODE 13
13:9
9:0

MODE 13
13:10
10:0

MODE 13
13:13
13:0

MODE 11
1:61985
2:65295
3:1280
4:19--
5:0
6:1
7:14
8:3.1145
9:99
10:9H
11:2.875

;; CAUTION: experimental output tags follow:
;;
;; output array:
;;     1. id_124
;;     2. sample-Loc10
;;     3. year
;;     4. day
;;     5. hhmm
;;     6. sample-Loc2
;;     7. sample-Loc5
;;     8. average-Loc21
;;     9. sample-Loc22.SE5
;;     10. sample-Loc23
;;     11. sample-Loc24.SE6
;;
;; output array:
;;     1. id_212
;;     2. sample-Loc10
;;     3. year
;;     4. day
;;     5. hhmm
;;     6. average-Loc2
;;     7. average-Loc5
;;     8. average-Loc21
;;     9. average-Loc22.SE5
;;     10. average-Loc23
;;     11. average-Loc24.SE6
;;     12. maximum-Loc2
;;     13. time_of_max-Loc2
;;     14. maximum-Loc5
;;     15. time_of_max-Loc5
;;     16. maximum-Loc21
;;     17. time_of_max-Loc21
;;     18. maximum-Loc23
;;     19. time_of_max-Loc23
;;     20. average-Loc27.logger_battery_voltage
;;     21. average-Loc28.panel_temperature_C
;;
;; output array:
;;     1. id_236
;;     2. year
;;     3. day
;;     4. hhmm
;;     5. sample-Loc30
;;     6. sample-Loc31
;;     7. sample-Loc32
;;     8. sample-Loc33
;;     9. sample-Loc34
;;     10. sample-Loc35