C150227 Final Report

• Applicant: South Platte Ditch Company
• Grant Type: Non-Reimbursable
• Fiscal Year ‎(i.e. 2008)‎: 2006
• Project Name: Canal Modernization and Radio Telemetry Demonstration Project
• CWCB Section: Finance
• Contract/PO #: C150227
• Grants - Doc Type: Final Deliverables

6283 IF SECS<O THEN SECS =O
6285 IF K =7 THEN REGWRITE 4790,SECS : GOTO 5500
6290 GOTO 6200
REM wait for user keypress
6600 DO
6610 K= GET(2)
REM 6620 REGWRITE 31,0
6630 UNTIL K<>O
6640 IF K =1 THEN PRINT USING(0), : GOTO 100
6690 GOTO 6500
REM ------------------- - - - - --
REM * check poll time routine
REM------------------- - - - - --
REM read CD100 clock
10000 SECS= REGREAD(4790)
10020 MINS= REGREAD(4791)
10030 HRS= REGREAD(4792)
REM 10040 DW= REGREAD(4793)
10050 DM= REGREAD(4794)
10060 MN= REGREAD(4795)
10070 YR= REGREAD(4796)
REM make sure seconds did not change while getting
REM date /time. if so, go back and update date /time
10080 if secs < >regread(4790) then goto 10000
REM calculate base reg address based on current year
REM regs 23000 to 23039 are reserved for ytd volume
REM sum totals. this formula works from 2010 for
REM reg 23000 to 2029 for reg 23019 for volsuml.
10090 YTD= (YR- 10)+23000
35
REM display charge, battery,
temp
6500
PRINT #2, CHR(12),
REM read the charge & battery
voltage registers
6510
CV= REGREAD(8) : CV =CV *.007326
6520
BV= REGREAD(9) : BV =BV *.007326
REM convert the raw a to d to
a voltage reading
REM get temp from rtc
6550
A= REGREAD(13)
REM convert raw temp to deg C
6560
IF A <32000 THEN B =A *0.25 ELSE
B =(A- 33280) *0.25
REM print values to lcd
6565
PRINT USING( # #. # #),
6570
PRINT #2, "Chrg = ",CV, "VDC"
6575
PRINT #2, "Batt = ",BV, "VDC"
6580
PRINT #2, "Temp= ",B, "DegC"
6590
PRINT #2, "F1= Exit"
REM wait for user keypress
6600 DO
6610 K= GET(2)
REM 6620 REGWRITE 31,0
6630 UNTIL K<>O
6640 IF K =1 THEN PRINT USING(0), : GOTO 100
6690 GOTO 6500
REM ------------------- - - - - --
REM * check poll time routine
REM------------------- - - - - --
REM read CD100 clock
10000 SECS= REGREAD(4790)
10020 MINS= REGREAD(4791)
10030 HRS= REGREAD(4792)
REM 10040 DW= REGREAD(4793)
10050 DM= REGREAD(4794)
10060 MN= REGREAD(4795)
10070 YR= REGREAD(4796)
REM make sure seconds did not change while getting
REM date /time. if so, go back and update date /time
10080 if secs < >regread(4790) then goto 10000
REM calculate base reg address based on current year
REM regs 23000 to 23039 are reserved for ytd volume
REM sum totals. this formula works from 2010 for
REM reg 23000 to 2029 for reg 23019 for volsuml.
10090 YTD= (YR- 10)+23000
35