Laserfiche WebLink
1215 IF C =2 THEN EREG =7037 <br />1220 IF C =3 THEN EREG =7038 <br />1222 IF C =4 THEN EREG =7039 <br />1223 IF C =5 THEN EREG =7040 <br />1225 IF C =6 THEN EREG =7041 <br />1230 IF C =7 THEN EREG =7042 <br />1235 IF C =8 THEN EREG =7045 <br />1240 IF C =9 THEN EREG =7046 <br />1245 IF C =10 THEN EREG =7059 <br />1250 IF C =11 THEN EREG =7060 <br />1255 IF C =12 THEN EREG =7061 <br />1260 IF C =13 THEN EREG =7062 <br />1265 IF C =14 THEN EREG =7070 <br />1270 IF C =15 THEN EREG =7071 <br />1280 IF C =16 THEN EREG =7063 <br />1285 IF C =17 THEN EREG =7064 <br />1290 RETURN <br />REM * subroutine to check /adjust charge rate * <br />REM this routine requires adding a line in main program <br />REM loop to call this routine (GOSUB) and that reg 4114 <br />REM (or any other reg used for status) be set to 0 to <br />REM start the routine correctly. <br />REM get solar panel <br />1500 CV= REGREAD(8) : CV =CV *.007326 <br />REM get battery <br />1510 BV= REGREAD(9) : BV =BV *.007326 <br />REM check charge rate status for next action <br />1520 IF REGREAD(4114) =1 THEN 1550 <br />1525 IF REGREAD(4114) =2 THEN 1600 <br />1530 IF REGREAD(4114) =3 THEN 1650 <br />REM if reg 4114 =0 then charge rate will start here <br />REM decide if solar exceeds battery by enough to <br />REM start hi charge rate. <br />REM if true, set charge status to 1 <br />1535 IF CV >= (BV +0.7) THEN REGWRITE 4827,1 : REGWRITE 4114,1 <br />1540 RETURN <br />REM decide if battery voltage is high enough to start <br />REM timer to allow hi rate for reg 4113 time. <br />REM if true, set charge status to 2 <br />1550 IF BV >14.00 THEN CMINS =O : REGWRITE 4114,2 <br />1560 RETURN <br />REM if timer exceeds register 4113 minutes, reduce charge rate <br />1600 IF CMINS>REGREAD(4113) THEN REGWRITE 4827,0 : REGWRITE 4114,3 <br />1610 RETURN <br />REM if battery charge is complete, watch for charge <br />REM voltage to drop low enough indicating sunset, <br />REM then reset status to 0 for next day. <br />1650 IF CV <2.0 THEN REGWRITE 4114,0 <br />1660 RETURN <br />29 <br />