' rs485server.bas emulates Renogy 20A solar controller
'
dim integer i,j,k,l,m,register,nwords,pass,crc_table(255) ' lookup table for CRC generation
'dim integer SOC=76,batVolts=133,chgCurrent=82,temp=22,panelV=331,panelC=87,chgWatts
dim integer SOC=0,batVolts=120,chgCurrent=82,temp=22,panelV=331,panelC=87,chgWatts
dim integer flagChargeDirection=1
dim string msg
' open "com1:9600" as #1
genCRCtable ' generate the lookup table

do
'  if loc(1) then ' message coming
 if MM.INFO(EXISTS FILE "reqMODBUS.txt") then
   pause 100 ' allow many characters to arrive
   open "reqMODBUS.txt" for input as #1
   msg=input$(100,#1) ' get the message; assume read n words from register
   close #1
   on error skip
   kill "reqMODBUS.txt"
   ' e.g.: 01 03 000A 0001 A408 ' read address 000A, one word (return # bytes)
   l=len(msg): for i=1 to l: print hex$(asc(mid$(msg,i,1)),2)+" ";: next i
   register=asc(mid$(msg,3,1))*256 + asc(mid$(msg,4,1))
   print " - "+hex$(register)
   nwords=asc(mid$(msg,5,1))
   msg=""
   select case register
     case &h0A: ' volts & amps
       msg=chr$(1)+chr$(3)+chr$(2)+chr$(12)+chr$(20) ' return 2 bytes--voltage, amps
     case &h0C: ' model
       msg=chr$(1)+chr$(3)+chr$(16)+"    MT4830      "
     case else: '
       msg=chr$(1)+chr$(3)+chr$(nwords*2) ' # bytes to return
       for i=1 to nwords
         select case register
' dim integer SOC=76,batVolts=133,chgCurrent=82,temp=22,panelV=144,panelC=87,chgWatts
           case &h0100 ' Battery capacity SOC 0 to 100: 01 03 0100 0002 C5F7
             msg=msg+chr$(0)+chr$(SOC)
           case &h0101 ' Battery voltage * 0.1V 01 03 0101 0001 D436
             msg=msg+chr$(0)+chr$(batVolts)
           case &h0102 ' Charging current * 0.1V (to battery)
             msg=msg+chr$(0)+chr$(chgCurrent)
           case &h0103 ' Controller temperature
             msg=msg+chr$(0)+chr$(temp)
           case &h0104 ' Street light (load) voltage
             msg=msg+chr$(0)+chr$(0)
           case &h0105 ' Street light (load) current Street light current * 0.01 A
             msg=msg+chr$(0)+chr$(0)
           case &h0106 ' Street light (load) power
             msg=msg+chr$(0)+chr$(0)
           case &h0107 ' Solar panel voltage Solar panel voltage * 0.1 V
             msg=msg+chr$(panelV/256)+chr$(panelV mod 256)
           case &h0108 ' Solar panel current * 0.1 (to controller)
             msg=msg+chr$(0)+chr$(panelC)
           case &h0109 ' Charging power Actual value W
             chgWatts=panelV*panelC/100
             msg=msg+chr$(chgWatts/256)+chr$(chgWatts mod 256)
           case &h010A ' Light On/ Off command 0 or 1
           case &h010B ' Battery's min. voltage of day
           case &h010C ' Battery's max. voltage of day
           case &h010D ' Max. charging current of day
           case &h010E ' Max. Discharging current of day
           case &h010F ' Max. charging power of day
           case &h0110 ' Max. discharging power day
           case &h0111 ' Charging amp-hrs of day
           case &h0112 ' Discharging amp-hrs of day
           case &h0113 ' Power generation of day kWh
           case &h0114 ' Power consumption of day
           case &h0115 ' number of operating days
           case &h0116 ' number of battery over-discharges
           case &h0117 ' number of battery full-charges
         end select
         register=register+1
       next i
   end select
   if msg <> "" then
     msg=msg+CRC16$(msg)
     open "answrMODBUS.txt" for output as #1
     print #1,msg
     close #1
     l=len(msg): ?"   ";: for i=1 to l: print hex$(asc(mid$(msg,i,1)),2)+" ";: next i: ?""
   else
   endif
   pass=pass+1
   if pass=25 then ' cycle back
     flagChargeDirection=1-flagChargeDirection
     pass=0
   endif
   if flagChargeDirection then ' charging
' dim integer SOC=76,batVolts=133,chgCurrent=82,temp=22,panelV=144,panelC=87,chgWatts
     SOC=min(SOC,96)+4
     batVolts=min(batVolts,144)+1
     panelV=120+(rnd*25)
     panelC=rnd*88
     chgCurrent=max(panelC,5)-5
   else
     SOC=max(SOC,4)-4
     batVolts=max(batVolts,121)-1
     chgCurrent=0:panelV=0:panelC=0
   endif
 endif
loop

'------------------------------------------------------------
' from:
' http://fruitoftheshed.com/MMBasic.Modbus-CRC-uses-the-table-lookup-method-for-speed.ashx
'generates a lookup table for fast crc calculation
SUB genCRCtable
LOCAL i%, j%, k%, crc_const% = &HA001
FOR i% = 0 TO 255
 k% = i%
 FOR j% = 1 TO 8
   IF k% AND 1 THEN
     k% = k% >> 1
     k% = k% XOR crc_const%
   ELSE
     k% = k% >> 1
   END IF
 NEXT j%
crc_table(i%)=k%
NEXT i%
END SUB
'
' returns the CRC as a string
FUNCTION CRC16$(a$)
 LOCAL CRC% = &HFFFF, n%
 FOR n% = 1 TO LEN(a$)
   CRC% = (CRC% >> 8) XOR crc_table(CRC% XOR ASC(MID$(a$, n%, 1)) AND &HFF)
 NEXT n%
 CRC16$ = CHR$(CRC% AND &HFF) + CHR$((CRC%>>8) AND &HFF)
END FUNCTION
'-------------------------------------------------------------

' graphicsdemo.bas
 const indigo=&H4b0082
 const lavender=&He6e6fa
 const lemonchiffon=&Hfffacd
 const gold=&HFFD700
 dim integer i, ii,j, jj, fnt, flgClr, addr
 dim integer crc_table(255) ' lookup table for CRC generation
 dim integer sysVolts,maxCurrent
 dim string lastTime,pcnt,sVal,msg,msg0,msg1,msg2,msghex, msg_in
 dim string lbl(7)=("","State of Charge","Battery Voltage","Charging Current","Battery Temperature","Panel Voltage","Panel Current","Charging Watts")
 
 genCRCtable ' generate the MODBUS CRC lookup table
 msg=chr$(1)+chr$(3)+chr$(1)+chr$(0)+chr$(4) ' read 0100, 4 words
 addr=&h0100
 '+chr$(1)+chr$(1)+chr$(1)+chr$(2)
 'msg=msg+chr$(1)+chr$(3)+chr$(1)+chr$(7)+chr$(1)+chr$(8)+chr$(1)+chr$(9)
 msg=msg++CRC16$(msg)
 msg1=msg ' SOC,batVolts,chgCurrent,temp
 msg0=chr$(1)+chr$(3)+chr$(0)+chr$(10)+chr$(1) ' read 000A, 1 word - voltage, max current
 msg2=chr$(1)+chr$(3)+chr$(1)+chr$(7)+chr$(4) ' read 0007, 3 words, panelV,panelC,chgWatts
 fnt=3
'  mode 1 ' 800x600
'  mode 7 ' 320x240
'  mode 8 ' 640x480
 mode 13: fnt=2 ' 400x300
 j=mm.vres/12 ' row height for 12 rows
 jj=mm.hres/12
 cls
 font fnt
 box 0,0,mm.hres,mm.vres,,,rgb(black) ' box around circumference
 text mm.hres/2,4,"Renogy Solar Charge Controller",c,fnt,,rgb(cyan) ' header
 text mm.hres/2, j+4, date$+" "+time$, c,2
 if mm.hres=400 or mm.hres=480 then: fnt=1
 font fnt
 rbox jj/10,2*j,mm.hres/8*1.5,j-3,,,rgb(green)
 text jj/4,2*j+6,"  MAINS",,fnt,,rgb(black),rgb(green)
 rbox mm.hres/8*3.25,2*j,mm.hres/8*1.5,j-3,,,rgb(green)
 text mm.hres/8*3.25+jj/3,2*j+6," SOLAR",,fnt,,rgb(black),rgb(green)
 rbox mm.hres/8*6,2*j,mm.hres/8*1.6,j-3,,,rgb(green)
 text mm.hres/8*6+jj/4,2*j+6," BATTERY",,fnt,,rgb(black),rgb(green)

' dim integer SOC=76,batVolts=133,chgCurrent=82,temp=22,panelV=144,panelC=87,chgWatts
dim integer SOC=-4,batVolts=120,chgCurrent=82,temp=22,panelV=144,panelC=87,chgWatts
 chgWatts=panelV*panelC/10
 on error skip
 kill "answrMODBUS.txt"
 do
   if time$<>lastTime then
     lastTime=time$
    text mm.hres/2, j+4, "     "+date$+" "+time$+"      ", c,2,,rgb(yellow)
   endif
'    if mid$(time$,8,1)="0" then ' every 10 seconds
'    if val(mid$(time$,7,2)) mod 4 = 0 then ' every 4 seconds
   if val(mid$(time$,7,2)) mod 2 = 0 then ' every 2 seconds
     for ii=1 to 3
       if ii=1 then: msg=msg1: elseif ii=2 then: msg=msg0: else: msg=msg2: endif
       on error skip
       open "reqMODBUS.txt" for output as #1
       if MM.ErrNo Then goto nextLoop
       print #1,msg;
       on error skip
       close #1
       pause 500
       on error skip
       open "answrMODBUS.txt" for input as #1
       if MM.ErrNo <> 0 Then
         text mm.hres/2, j*3, " No response to MODBUS request", c,7,,rgb(yellow)
'         print " No response to MODBUS request"
       else
         text mm.hres/2, j*3, space$(50), c,7,,rgb(yellow)
         msg_in=input$(100,#1)
         close #1
         kill "answrMODBUS.txt"
         if msg=msg1 then ' 4 words of values for registers &h100, &h101, &h102, &h103
           l=min(50,len(msg_in)): msghex=""
           for i=1 to l: msghex=msghex+hex$(asc(mid$(msg_in,i,1)),2)+" ": next i
'            text mm.hres/2, j*3, msghex, c,7,,rgb(red)
           SOC=asc(mid$(msg_in,4,1))*256+asc(mid$(msg_in,5,1))
           batVolts=asc(mid$(msg_in,6,1))*256+asc(mid$(msg_in,7,1))
           chgCurrent=asc(mid$(msg_in,8,1))*256+asc(mid$(msg_in,9,1))
           temp=asc(mid$(msg_in,10,1))*256+asc(mid$(msg_in,11,1))
         else
           if msg=msg0 then
             sysVolts=asc(mid$(msg_in,4,1)): maxCurrent=asc(mid$(msg_in,5,1))
           elseif msg=msg2 then
             panelV=asc(mid$(msg_in,4,1))*256+asc(mid$(msg_in,5,1)) ' (*10)
             panelC=asc(mid$(msg_in,6,1))*256+asc(mid$(msg_in,7,1)) ' (*10)
             chgWatts=panelV*panelC/100
           endif
         endif
         display
       endif
     next
   endif
   if mid$(time$,8,1)="6" then ' clear error (if present)
     text mm.hres/2, j*3,space$(50), c,7,,rgb(yellow)
   endif
nextLoop: ' jump to here from file error
 loop

sub display
 text mm.hres/8*2.6,2*j+6,str$(sysVolts)+"V",,fnt,,rgb(green),rgb(black)
 text mm.hres/8*5,2*j+6,str$(maxCurrent)+"A",,fnt,,rgb(green),rgb(black)
 for i=1 to 7 : rbox mm.hres/8+(jj/2),(i+3)*j,mm.hres/8*4,j-3,,,lemonchiffon : next i
'  for i=1 to 8 : rbox jj/2,(i+3)*(j),mm.hres/8-1,j-3,,,rgb(red) : next i
 for i=1 to 8
   if SOC > (100-(i*12.5)) then: clr=rgb(green): else: clr=rgb(red): endif
   box jj*10,((i+3)*j)-j/2,mm.hres/8-1,j,,,clr
 next i

 for i=1 to 7
   select case i
     case 1: sVal=" "+str$(SOC)+"%"
     case 2: sVal=" "+str$(int(batVolts/10))+"."+str$(int(batVolts-int(batVolts/10)*10))+"V"
     case 3: sVal=" "+str$(int(chgCurrent/10))+"."+str$(int(chgCurrent-int(chgCurrent/10)*10))+"A"
     case 4: sVal=" "+str$(temp)+"`"
     case 5: sVal=" "+str$(int(panelV/10))+"."+str$(int(panelV-int(panelV/10)*10))+"V"
     case 6: sVal=" "+str$(int(panelC/10))+"."+str$(int(panelC-int(panelC/10)*10))+"A"
     case 7: sVal=" "+str$(int(chgWatts/10))+"W"
       if chgWatts=0 then
         rbox mm.hres/8*3.25,2*j,mm.hres/8*1.5,j-3,,,rgb(red)
         text mm.hres/8*3.25+jj/3,2*j+6," SOLAR",,fnt,,rgb(black),rgb(red)
       else
         rbox mm.hres/8*3.25,2*j,mm.hres/8*1.5,j-3,,,rgb(green)
         text mm.hres/8*3.25+jj/3,2*j+6," SOLAR",,fnt,,rgb(black),rgb(green)
       endif
   end select
   text mm.hres/8*4/2+mm.hres/8+(jj/2),(i+3)*j+6,lbl(i)+sVal,c,fnt,,rgb(black),lemonchiffon
 next i
 flgClr=0: pcnt="" ' marker for displaying state of charge
 for i=1 to 8
   if SOC > (100-(i*12.5)) then: clr=rgb(green): flgClr=1: else: clr=rgb(red): endif
   if flgClr=1 then
     if pcnt="" then ' first time over threshold
       pcnt=str$(SOC)+"%"
     else
       pcnt=" "
     endif
   endif
   text jj*10+10,(i+3)*j-(j/4),pcnt,,fnt,,rgb(black),clr
 next i
         if batVolts<121 then ' load turned off
         rbox mm.hres/8*6,2*j,mm.hres/8*1.6,j-3,,,rgb(red)
         text mm.hres/8*6+jj/4,2*j+6," BATTERY",,fnt,,rgb(black),rgb(red)
         pause 3000
       else
         rbox mm.hres/8*6,2*j,mm.hres/8*1.6,j-3,,,rgb(green)
         text mm.hres/8*6+jj/4,2*j+6," BATTERY",,fnt,,rgb(black),rgb(green)
       endif

end sub


'------------------------------------------------------------
' from:
' http://fruitoftheshed.com/MMBasic.Modbus-CRC-uses-the-table-lookup-method-for-speed.ashx
'generates a lookup table for fast crc calculation
SUB genCRCtable
LOCAL i%, j%, k%, crc_const% = &HA001
FOR i% = 0 TO 255
 k% = i%
 FOR j% = 1 TO 8
   IF k% AND 1 THEN
     k% = k% >> 1
     k% = k% XOR crc_const%
   ELSE
     k% = k% >> 1
   END IF
 NEXT j%
crc_table(i%)=k%
NEXT i%
END SUB
'
' returns the CRC as a string
FUNCTION CRC16$(a$)
 LOCAL CRC% = &HFFFF, n%
 FOR n% = 1 TO LEN(a$)
   CRC% = (CRC% >> 8) XOR crc_table(CRC% XOR ASC(MID$(a$, n%, 1)) AND &HFF)
 NEXT n%
 CRC16$ = CHR$(CRC% AND &HFF) + CHR$((CRC%>>8) AND &HFF)
END FUNCTION
'-------------------------------------------------------------