; NOTE: the following CSI logger program annotations may contain errors.
; From an experimental perl module, Campbell::Program, by fnkci@uaf.edu

}
MODE 1
SCAN RATE 60
1:P3      ; PULSE
1:1       ;     1 repetition
2:1       ;     from pulse counter P1
3:2       ;     as switch closure
4:1       ;     store result in location 1
5:.0133   ;     with multiplier * 0.0133
6:.447    ;     and with offset + 0.447

2:P3      ; PULSE
1:1       ;     1 repetition
2:2       ;     from pulse counter P2
3:2       ;     as switch closure
4:2       ;     store result in location 2
5:.0133   ;     with multiplier * 0.0133
6:.447    ;     and with offset + 0.447

3:P3      ; PULSE
1:1       ;     1 repetition
2:8       ;     from control port C8
3:2       ;     as switch closure
4:19      ;     store result in location 19
5:.1      ;     with multiplier * 0.1
6:0       ;     and with offset + 0

4:P4      ; EX-DEL-SE
1:1       ;     1 repetition
2:25      ;     using 2500 mV range, reject 60 Hz
3:9       ;     from input channel SE9
4:3       ;     drive excitation channel E3
5:1       ;     with delay 0.01 sec
6:900     ;     with 900 mV excitation
7:3       ;     store result in location 3
8:.78     ;     with multiplier * 0.78
9:0       ;     and with offset + 0

5:P11     ; TEMP (107)
1:1       ;     1 repetition
2:6       ;     from input channel SE6
3:2       ;     excitation channel E2
4:6       ;     store result in location 6
5:1       ;     with multiplier * 1
6:0       ;     and with offset + 0

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

7:P12     ; RH (207)
1:1       ;     1 repetition
2:8       ;     RH input channel SE8
3:2       ;     drive excitation channel E2
4:6       ;     read compensation temperature from location 6
5:9       ;     store result in location 9
6:1       ;     with multiplier * 1
7:0       ;     and with offset + 0

8:P1      ; VOLT (SE)
1:2       ;     2 repetitions
2:5       ;     using 2500 mV range, slow integration
3:11      ;     from input channel SE11
4:7--     ;     store result in locations 7 and 8
5:.1      ;     with multiplier * 0.1
6:0       ;     and with offset + 0

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

10:P86    ; DO
1:75      ;     pulse port C5

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

12:P2     ; VOLT (DIFF)
1:1       ;     1 repetition
2:3       ;     using 25 mV range, slow integration
3:1       ;     from input channel DIFF1
4:11      ;     store result in location 11
5:-278.55 ;     with multiplier * -278.55
6:0       ;     and with offset + 0

13:P86    ; DO
1:75      ;     pulse port C5

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

15:P2     ; VOLT (DIFF)
1:1       ;     1 repetition
2:3       ;     using 25 mV range, slow integration
3:1       ;     from input channel DIFF1
4:12      ;     store result in location 12
5:252.53  ;     with multiplier * 252.53
6:0       ;     and with offset + 0

16:P86    ; DO
1:75      ;     pulse port C5

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

18:P2     ; VOLT (DIFF)
1:1       ;     1 repetition
2:3       ;     using 25 mV range, slow integration
3:1       ;     from input channel DIFF1
4:13      ;     store result in location 13
5:128.7   ;     with multiplier * 128.7
6:0       ;     and with offset + 0

19:P86    ; DO
1:75      ;     pulse port C5

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

21:P2     ; VOLT (DIFF)
1:1       ;     1 repetition
2:3       ;     using 25 mV range, slow integration
3:1       ;     from input channel DIFF1
4:14      ;     store result in location 14
5:119.76  ;     with multiplier * 119.76
6:0       ;     and with offset + 0

22:P86    ; DO
1:75      ;     pulse port C5

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

24:P2     ; VOLT (DIFF)
1:1       ;     1 repetition
2:4       ;     using 250 mV range, slow integration
3:1       ;     from input channel DIFF1
4:15      ;     store result in location 15
5:1       ;     with multiplier * 1
6:0       ;     and with offset + 0

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

26:P17    ; INTERNAL TEMP
1:49      ;     store in location 49

27:P10    ; BATT VOLT
1:50      ;     store in location 50

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

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

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

31:P69    ; WIND VECTOR
1:1       ;     1 repetition
2:10      ;     10 scans for standard deviation subinterval
3:2       ;     avg spd, resultant spd, resultant dir, std dev of dir (CSI), for anem. & vane
4:2       ;     wind speed from location 2
5:3       ;     wind direction from location 3

32:P71    ; AVERAGE
1:6       ;     6 repetitions
2:4       ;     value from location 4

33:P71    ; AVERAGE
1:5       ;     5 repetitions
2:11      ;     value from location 11

34:P72    ; TOTALIZE
1:1       ;     1 repetition
2:19      ;     value from location 19

35:P71    ; AVERAGE
1:2       ;     2 repetitions
2:49      ;     value from location 49

36:P71    ; AVERAGE
1:5       ;     5 repetitions
2:23      ;     value from location 23

37:P70    ; SAMPLE
1:14      ;     14 repetitions
2:35      ;     value from location 35

38:P70    ; SAMPLE
1:2       ;     2 repetitions
2:51      ;     value from location 51

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

40:P92    ; IF TIME
1:121     ;     is 121 minutes into
2:180     ;     180 minute interval
3:30      ;     then DO...

41:P126   ;     HDR GOES
1:1       ;         self-timed, writes over old data
2:1       ;         floating point ASCII format
3:51      ;         store result in location 51

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

43:P126   ;         HDR GOES
1:0       ;             self-timed, appends new data to old
2:1       ;             floating point ASCII format
3:52      ;             store result in location 52

44:P95    ;     END IF-DO

45:P95    ; END IF-DO

46:P92    ; IF TIME
1:110     ;     is 110 minutes into
2:180     ;     180 minute interval
3:30      ;     then DO...

47:P127   ;     HDR GOES STATUS
1:2       ;         read last message status
2:35      ;         store result in location 35

48:P95    ; END IF-DO

49:P0     ; NOP

MODE 2
SCAN RATE 600
1:P20     ; PORT SET
1:9999    ;     P8=nc, P7=nc, P6=nc, P5=nc
2:1999    ;     P4=set high, P3=nc, P2=nc, P1=nc

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

3:P86     ;     DO
1:75      ;         pulse port C5

4:P4      ;     EX-DEL-SE
1:1       ;         1 repetition
2:5       ;         using 2500 mV range, slow integration
3:3       ;         from input channel SE3
4:1       ;         drive excitation channel E1
5:20      ;         with delay 0.2 sec
6:2500    ;         with 2500 mV excitation
7:21--    ;         store result in locations 21 through 34
8:.0002   ;         with multiplier * 0.0002
9:0       ;         and with offset + 0

5:P95     ; END LOOP

6:P20     ; PORT SET
1:9999    ;     P8=nc, P7=nc, P6=nc, P5=nc
2:999     ;     P4=set low, P3=nc, P2=nc, P1=nc

7:P59     ; BRIDGE TRANSFORM, Rs=Rf(X/(1-X))
1:14      ;     14 repetitions
2:21      ;     Rs replaces X in location 21
3:100     ;     with multiplier Rf = 100

8:P92     ; IF TIME
1:0       ;     is 0 minutes into
2:1440    ;     1440 minute interval
3:10      ;     set output flag F0 high, output array id 208

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

10:P71    ; AVERAGE
1:14      ;     14 repetitions
2:21      ;     value from location 21

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

12:P0     ; NOP

MODE 3
1:P0      ; NOP

MODE 10
1:52
2:78
3:0
4:573441
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:6635
2:53101
3:1280
4:2
5:0
6:1
7:17
8:3.1513
9:0
10:0
11:.75

13:0000  
>

;; CAUTION: experimental output tags follow:
;;
;; output array:
;;     1. id_128
;;     2. year
;;     3. day
;;     4. hhmm
;;     5. average-Loc1-P1
;;     6. vector_avg_spd-Loc2
;;     7. vector_resultant_spd
;;     8. vector_avg_dir-Loc3
;;     9. vector_dir_std_dev
;;     10. average-Loc4
;;     11. average-Loc5
;;     12. average-Loc6-SE6
;;     13. average-Loc7
;;     14. average-Loc8
;;     15. average-Loc9
;;     16. average-Loc11-DIFF1
;;     17. average-Loc12-DIFF1
;;     18. average-Loc13-DIFF1
;;     19. average-Loc14-DIFF1
;;     20. average-Loc15-DIFF1
;;     21. totalize-Loc19-C8
;;     22. average-Loc49-panel_temperature_degC
;;     23. average-Loc50-logger_battery_voltage
;;     24. average-Loc23
;;     25. average-Loc24
;;     26. average-Loc25
;;     27. average-Loc26
;;     28. average-Loc27
;;     29. sample-Loc35
;;     30. sample-Loc36
;;     31. sample-Loc37
;;     32. sample-Loc38
;;     33. sample-Loc39
;;     34. sample-Loc40
;;     35. sample-Loc41
;;     36. sample-Loc42
;;     37. sample-Loc43
;;     38. sample-Loc44
;;     39. sample-Loc45
;;     40. sample-Loc46
;;     41. sample-Loc47
;;     42. sample-Loc48
;;     43. sample-Loc51
;;     44. sample-Loc52
;;
;; output array:
;;     1. id_208
;;     2. year
;;     3. day
;;     4. hhmm
;;     5. average-Loc21
;;     6. average-Loc22
;;     7. average-Loc23
;;     8. average-Loc24
;;     9. average-Loc25
;;     10. average-Loc26
;;     11. average-Loc27
;;     12. average-Loc28
;;     13. average-Loc29
;;     14. average-Loc30
;;     15. average-Loc31
;;     16. average-Loc32
;;     17. average-Loc33
;;     18. average-Loc34