; 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 May 27 10:19:53 2005 local time


MODE 13
13:00  1
01:}
MODE 14

MODE 1
SCAN RATE 5
1:P10     ; BATT VOLT
1:1       ;     store in location 1

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

3:P3      ; PULSE
1:1       ;     1 repetition
2:2       ;     from pulse counter P2
3:22      ;     as switch closure, discard long interval counts, output frequency (Hz)
4:7       ;     store result in location 7
5:.799    ;     with multiplier * 0.799
6:.2811   ;     and with offset + 0.2811

4:P89     ; IF X < = > F
1:7       ;     if X from location 7
2:1       ;     is =
3:.2811   ;     fixed value 0.2811
4:30      ;     then DO...

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

6:P95     ; END IF-DO

7:P5      ; AC HALF BR
1:1       ;     1 repetition
2:25      ;     using 2500 mV range, reject 60 Hz
3:4       ;     from input channel SE4
4:2       ;     drive excitation channel E2
5:2500    ;     with 2500 mV excitation
6:8       ;     store result in location 8
7:720     ;     with multiplier * 720
8:0       ;     and with offset + 0

8:P3      ; PULSE
1:1       ;     1 repetition
2:1       ;     from pulse counter P1
3:2       ;     as switch closure
4:9       ;     store result in location 9
5:.254    ;     with multiplier * 0.254
6:0       ;     and with offset + 0

9:P2      ; VOLT (DIFF)
1:1       ;     1 repetition
2:24      ;     using 250 mV range, reject 60 Hz
3:4       ;     from input channel DIFF4
4:10      ;     store result in location 10
5:1       ;     with multiplier * 1
6:0       ;     and with offset + 0

10:P89    ; IF X < = > F
1:10      ;     if X from location 10
2:3       ;     is >=
3:0       ;     fixed value 0
4:30      ;     then DO...

11:P37    ;     Z=X*F
1:10      ;         X value from location 10
2:9.42    ;         fixed value 9.42
3:11      ;         store product in location 11

12:P37    ;     Z=X*F
1:11      ;         X value from location 11
2:1.045   ;         fixed value 1.045
3:11      ;         store product in location 11

13:P94    ; ELSE

14:P37    ;     Z=X*F
1:10      ;         X value from location 10
2:11.74   ;         fixed value 11.74
3:11      ;         store product in location 11

15:P95    ; END IF-DO-ELSE

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

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

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

19:P33    ;     Z=X+Y
1:3       ;         X value from location 3
2:13      ;         Y value from location 13
3:14      ;         store sum in location 14

20:P38    ;     Z=X/Y
1:14      ;         X value from location 14
2:13      ;         Y value from location 13
3:15      ;         store ratio in location 15

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

22:P36    ;     Z=X*Y
1:12      ;         X value from location 12
2:15      ;         Y value from location 15
3:16      ;         store product in location 16

23:P86    ;     DO
1:44      ;         set port C4 high

24:P22    ;     EXCIT w/DEL
1:1       ;         drive excitation channel E1
2:0       ;         delay 0 sec w/ excitation
3:15      ;         delay 0.15 sec after excitation
4:0       ;         with 0 mV excitation

25:P86    ;     DO
1:41      ;         set port C1 high

26:P86    ;     DO
1:72      ;         pulse port C2

27:P22    ;     EXCIT w/DEL
1:1       ;         drive excitation channel E1
2:1       ;         delay 0.01 sec w/ excitation
3:1       ;         delay 0.01 sec after excitation
4:0       ;         with 0 mV excitation

28:P1     ;     VOLT (SE)
1:1       ;         1 repetition
2:5       ;         using 2500 mV range, slow integration
3:6       ;         from input channel SE6
4:5       ;         store result in location 5
5:.1      ;         with multiplier * 0.1
6:-40     ;         and with offset + -40

29:P86    ;     DO
1:72      ;         pulse port C2

30:P22    ;     EXCIT w/DEL
1:1       ;         drive excitation channel E1
2:1       ;         delay 0.01 sec w/ excitation
3:1       ;         delay 0.01 sec after excitation
4:0       ;         with 0 mV excitation

31:P1     ;     VOLT (SE)
1:1       ;         1 repetition
2:5       ;         using 2500 mV range, slow integration
3:6       ;         from input channel SE6
4:6       ;         store result in location 6
5:.1      ;         with multiplier * 0.1
6:0       ;         and with offset + 0

32:P86    ;     DO
1:72      ;         pulse port C2

33:P22    ;     EXCIT w/DEL
1:1       ;         drive excitation channel E1
2:1       ;         delay 0.01 sec w/ excitation
3:1       ;         delay 0.01 sec after excitation
4:0       ;         with 0 mV excitation

34:P1     ;     VOLT (SE)
1:1       ;         1 repetition
2:5       ;         using 2500 mV range, slow integration
3:6       ;         from input channel SE6
4:3       ;         store result in location 3
5:.1      ;         with multiplier * 0.1
6:-40     ;         and with offset + -40

35:P86    ;     DO
1:72      ;         pulse port C2

36:P22    ;     EXCIT w/DEL
1:1       ;         drive excitation channel E1
2:0       ;         delay 0 sec w/ excitation
3:5       ;         delay 0.05 sec after excitation
4:0       ;         with 0 mV excitation

37:P86    ;     DO
1:72      ;         pulse port C2

38:P1     ;     VOLT (SE)
1:1       ;         1 repetition
2:5       ;         using 2500 mV range, slow integration
3:6       ;         from input channel SE6
4:4       ;         store result in location 4
5:.1      ;         with multiplier * 0.1
6:0       ;         and with offset + 0

39:P86    ;     DO
1:54      ;         set port C4 low

40:P86    ;     DO
1:51      ;         set port C1 low

41:P95    ; END IF-DO

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

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

44:P71    ; AVERAGE
1:2       ;     2 repetitions
2:1       ;     value from location 1

45:P71    ; AVERAGE
1:2       ;     2 repetitions
2:3       ;     value from location 3

46:P71    ; AVERAGE
1:2       ;     2 repetitions
2:5       ;     value from location 5

47:P69    ; WIND VECTOR
1:1       ;     1 repetition
2:60      ;     60 scans for standard deviation subinterval
3:0       ;     avg spd, avg dir, std dev of dir (Yamartino), for anem. & vane
4:7       ;     wind speed from location 7
5:8       ;     wind direction from location 8

48:P73    ; MAXIMUM
1:1       ;     1 repetition
2:0       ;     output value only
3:7       ;     value from location 7

49:P72    ; TOTALIZE
1:1       ;     1 repetition
2:9       ;     value from location 9

50:P71    ; AVERAGE
1:1       ;     1 repetition
2:10      ;     value from location 10

51:P71    ; AVERAGE
1:1       ;     1 repetition
2:11      ;     value from location 11

52:P71    ; AVERAGE
1:1       ;     1 repetition
2:12      ;     value from location 12

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

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

55:P0     ; NOP

MODE 2
SCAN RATE 300
1:P86     ; DO
1:41      ;     set port C1 high

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

3:P86     ;     DO
1:72      ;         pulse port C2

4:P22     ;     EXCIT w/DEL
1:1       ;         drive excitation channel E1
2:1       ;         delay 0.01 sec w/ excitation
3:1       ;         delay 0.01 sec after excitation
4:0       ;         with 0 mV excitation

5:P90     ;     LOOP INDEX
1:3

6:P4      ;     EX-DEL-SE
1:3       ;         3 repetitions
2:4       ;         using 250 mV range, slow integration
3:1       ;         from input channel SE1
4:1       ;         drive excitation channel E1
5:1       ;         with delay 0.01 sec
6:250     ;         with 250 mV excitation
7:17--    ;         store result in locations 17 through 64
8:.004    ;         with multiplier * 0.004
9:0       ;         and with offset + 0

7:P95     ; END LOOP

8:P86     ; DO
1:51      ;     set port C1 low

9:P59     ; BRIDGE TRANSFORM, Rs=Rf(X/(1-X))
1:48      ;     48 repetitions
2:17      ;     Rs replaces X in location 17
3:15      ;     with multiplier Rf = 15

10:P86    ; DO
1:46      ;     set port C6 high

11:P87    ; LOOP
1:0       ;     execute on every pass
2:16      ;     for 16 iterations

12:P86    ;     DO
1:72      ;         pulse port C2

13:P22    ;     EXCIT w/DEL
1:1       ;         drive excitation channel E1
2:1       ;         delay 0.01 sec w/ excitation
3:1       ;         delay 0.01 sec after excitation
4:0       ;         with 0 mV excitation

14:P5     ;     AC HALF BR
1:1       ;         1 repetition
2:14      ;         using 250 mV range, fast integration
3:9       ;         from input channel SE9
4:3       ;         drive excitation channel E3
5:250     ;         with 250 mV excitation
6:85--    ;         store result in locations 85 through 100
7:1       ;         with multiplier * 1
8:0       ;         and with offset + 0

15:P95    ; END LOOP

16:P86    ; DO
1:56      ;     set port C6 low

17:P59    ; BRIDGE TRANSFORM, Rs=Rf(X/(1-X))
1:16      ;     16 repetitions
2:85      ;     Rs replaces X in location 85
3:350     ;     with multiplier Rf = 350

18:P86    ; DO
1:46      ;     set port C6 high

19:P87    ; LOOP
1:0       ;     execute on every pass
2:12      ;     for 12 iterations

20:P86    ;     DO
1:72      ;         pulse port C2

21:P22    ;     EXCIT w/DEL
1:1       ;         drive excitation channel E1
2:1       ;         delay 0.01 sec w/ excitation
3:1       ;         delay 0.01 sec after excitation
4:0       ;         with 0 mV excitation

22:P6     ;     FULL BR
1:1       ;         1 repetition
2:1       ;         using 2.5 mV range, slow integration
3:6       ;         from input channel DIFF6
4:3       ;         drive excitation channel E3
5:2500    ;         with 2500 mV excitation
6:65--    ;         store result in locations 65 through 76
7:1       ;         with multiplier * 1
8:0       ;         and with offset + 0

23:P95    ; END LOOP

24:P86    ; DO
1:56      ;     set port C6 low

25:P86    ; DO
1:46      ;     set port C6 high

26:P87    ; LOOP
1:0       ;     execute on every pass
2:4       ;     for 4 iterations

27:P86    ;     DO
1:72      ;         pulse port C2

28:P22    ;     EXCIT w/DEL
1:1       ;         drive excitation channel E1
2:1       ;         delay 0.01 sec w/ excitation
3:1       ;         delay 0.01 sec after excitation
4:0       ;         with 0 mV excitation

29:P1     ;     VOLT (SE)
1:1       ;         1 repetition
2:5       ;         using 2500 mV range, slow integration
3:10      ;         from input channel SE10
4:77--    ;         store result in locations 77 through 80
5:1       ;         with multiplier * 1
6:0       ;         and with offset + 0

30:P95    ; END LOOP

31:P86    ; DO
1:48      ;     set port C8 high

32:P87    ; LOOP
1:0       ;     execute on every pass
2:4       ;     for 4 iterations

33:P86    ;     DO
1:72      ;         pulse port C2

34:P22    ;     EXCIT w/DEL
1:1       ;         drive excitation channel E1
2:100     ;         delay 1 sec w/ excitation
3:1       ;         delay 0.01 sec after excitation
4:0       ;         with 0 mV excitation

35:P1     ;     VOLT (SE)
1:1       ;         1 repetition
2:5       ;         using 2500 mV range, slow integration
3:10      ;         from input channel SE10
4:81--    ;         store result in locations 81 through 84
5:1       ;         with multiplier * 1
6:0       ;         and with offset + 0

36:P95    ; END LOOP

37:P86    ; DO
1:58      ;     set port C8 low

38:P86    ; DO
1:56      ;     set port C6 low

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

40:P78    ; RESOLUTION
1:1       ;     select high resolution

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

42:P71    ; AVERAGE
1:48      ;     48 repetitions
2:17      ;     value from location 17

43:P71    ; AVERAGE
1:16      ;     16 repetitions
2:85      ;     value from location 85

44:P71    ; AVERAGE
1:12      ;     12 repetitions
2:65      ;     value from location 65

45:P71    ; AVERAGE
1:4       ;     4 repetitions
2:77      ;     value from location 77

46:P71    ; AVERAGE
1:4       ;     4 repetitions
2:81      ;     value from location 81

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

48:P0     ; NOP

MODE 3
1:P0      ; NOP

MODE 10
1:36
2:151
3:0
4:573441
5:2048

MODE 12
1:0
1:0
1:0

MODE 11
1:60672
2:35198
3:1280
4:99
5:0
6:1
7:9
8:3.0419
9:99
10:0
11:2.25

;; CAUTION: experimental output tags follow:
;;
;; output array:
;;     1. id_142
;;     2. year
;;     3. day
;;     4. hhmm
;;     5. average-Loc1.logger_battery_voltage
;;     6. average-Loc2.panel_temperature_C
;;     7. average-Loc3.SE6
;;     8. average-Loc4.SE6
;;     9. average-Loc5.SE6
;;     10. average-Loc6.SE6
;;     11. vector_avg_spd-Loc7.P2
;;     12. vector_avg_dir-Loc8.SE4
;;     13. vector_dir_std_dev
;;     14. maximum-Loc7.P2
;;     15. totalize-Loc9.P1
;;     16. average-Loc10.DIFF4
;;     17. average-Loc11
;;     18. average-Loc12
;;     19. average-Loc16
;;
;; output array:
;;     1. id_239
;;     2. year
;;     3. day
;;     4. hhmm
;;     5. average-Loc17
;;     6. average-Loc18
;;     7. average-Loc19
;;     8. average-Loc20
;;     9. average-Loc21
;;     10. average-Loc22
;;     11. average-Loc23
;;     12. average-Loc24
;;     13. average-Loc25
;;     14. average-Loc26
;;     15. average-Loc27
;;     16. average-Loc28
;;     17. average-Loc29
;;     18. average-Loc30
;;     19. average-Loc31
;;     20. average-Loc32
;;     21. average-Loc33
;;     22. average-Loc34
;;     23. average-Loc35
;;     24. average-Loc36
;;     25. average-Loc37
;;     26. average-Loc38
;;     27. average-Loc39
;;     28. average-Loc40
;;     29. average-Loc41
;;     30. average-Loc42
;;     31. average-Loc43
;;     32. average-Loc44
;;     33. average-Loc45
;;     34. average-Loc46
;;     35. average-Loc47
;;     36. average-Loc48
;;     37. average-Loc49
;;     38. average-Loc50
;;     39. average-Loc51
;;     40. average-Loc52
;;     41. average-Loc53
;;     42. average-Loc54
;;     43. average-Loc55
;;     44. average-Loc56
;;     45. average-Loc57
;;     46. average-Loc58
;;     47. average-Loc59
;;     48. average-Loc60
;;     49. average-Loc61
;;     50. average-Loc62
;;     51. average-Loc63
;;     52. average-Loc64
;;     53. average-Loc85
;;     54. average-Loc86
;;     55. average-Loc87
;;     56. average-Loc88
;;     57. average-Loc89
;;     58. average-Loc90
;;     59. average-Loc91
;;     60. average-Loc92
;;     61. average-Loc93
;;     62. average-Loc94
;;     63. average-Loc95
;;     64. average-Loc96
;;     65. average-Loc97
;;     66. average-Loc98
;;     67. average-Loc99
;;     68. average-Loc100
;;     69. average-Loc65
;;     70. average-Loc66
;;     71. average-Loc67
;;     72. average-Loc68
;;     73. average-Loc69
;;     74. average-Loc70
;;     75. average-Loc71
;;     76. average-Loc72
;;     77. average-Loc73
;;     78. average-Loc74
;;     79. average-Loc75
;;     80. average-Loc76
;;     81. average-Loc77
;;     82. average-Loc78
;;     83. average-Loc79
;;     84. average-Loc80
;;     85. average-Loc81
;;     86. average-Loc82
;;     87. average-Loc83
;;     88. average-Loc84

;; warnings from Campbell::Program:
;;     DLD WARNING (mode 2, line 6): 3 repetitions in loop of 16 iterations